hg/stx-libbasic: AbstractOperatingSystem.st@4069fe8e9039 (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
17921 4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	1712	executeCommand:aCommandString outputTo:outStreamOrNil inDirectory:aDirectory
4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	1713	"much like #executeCommand:, but changes the current directory
4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	1714	for the command. Since this is OS specific, use this instead of
4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	1715	hardwiring any 'cd ..' command strings into your applictions."
4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	1716
4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	1717	^ self
4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	1718	executeCommand:aCommandString
4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	1719	inputFrom:nil
4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	1720	outputTo:outStreamOrNil
4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	1721	errorTo:nil
4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	1722	auxFrom:nil
4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	1723	inDirectory:aDirectory
4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	1724	lineWise:false
4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	1725	onError:[:status\| false]
4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	1726
4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	1727	"
4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	1728	OperatingSystem executeCommand:'tdump date.obj' inDirectory:'c:\winstx\stx\libbasic\objbc'.
4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	1729	OperatingSystem executeCommand:'xxdir date.obj' inDirectory:'c:\winstx\stx\libbasic\objbc'.
4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	1730	OperatingSystem executeCommand:'dir' inDirectory:'c:\'.
4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	1731	OperatingSystem executeCommand:'dir'
4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	1732	"
4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	1733
4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	1734	"Modified: / 20-01-1998 / 17:03:03 / md"
4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	1735	"Created: / 23-01-2012 / 14:07:50 / cg"
4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	1736	!
4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	1737
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1738	getCommandOutputFrom:aCommand
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1739	"execute a simple command (such as hostname) and
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1740	return the commands first line of output as a string (forget stdErr).
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1741	If the command generates multiple output lines, only the first line is returned.
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1742	If the commands does not generate any output, an empty string is returned;
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1743	if the command fails, nil is returned."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1744
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1745	\|result\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1746
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1747	result := self getCommandOutputFrom:aCommand maxNumberOfLines:1 errorDisposition:#discard.
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1748	result notNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1749	^ result firstIfEmpty:['']
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
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1753	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1754	OperatingSystem getCommandOutputFrom:'hostname'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1755	OperatingSystem getCommandOutputFrom:'pwd'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1756	OperatingSystem getCommandOutputFrom:'sleep 1'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1757	OperatingSystem getCommandOutputFrom:'foo'
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1758	"
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1759
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1760	!
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1761
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1762	getCommandOutputFrom:aCommand maxNumberOfLines:numLinesOrNil errorDisposition:errorDisposition
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1763	"execute a simple command (such as hostname) and
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1764	return the commands output as a collection of strings,
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1765	but only up to the given number of lines (if non-nil).
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1766	If the command generates more output, only the first nLines are returned
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1767	(but the command is allowed to finish execution).
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1768	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	1769	if the command fails, nil is returned.
433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1770	errorDisposition controls where the stdErr output should go,
433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1771	and may be one of #discard, #inline or #stderr (default).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1772	#discard causes stderr to be discarded (/dev/null),
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1773	#inline causes it to be written to smalltalks own stdout and
433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1774	#stderr causes it to be written to smalltalks own stderr.
433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1775	Nil is treated like #stderr"
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1776
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1777	\|result\|
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1778
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	1779	PipeFailed ~~ true ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1780	PipeStream openErrorSignal handle:[:ex \|
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1781	PipeFailed := true.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1782	'OperatingSystem [warning]: cannot fork/popen' errorPrintCR.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1783	ex return.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1784	] do:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1785	\|p line\|
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1786
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1787	p := PipeStream
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1788	readingFrom:aCommand
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1789	errorDisposition:errorDisposition
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1790	inDirectory:nil.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1791	result := StringCollection new.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1792	[p atEnd] whileFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1793	line := p nextLine.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1794	(numLinesOrNil isNil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1795	or:[result size < numLinesOrNil]) ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1796	result add:line
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1797	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1798	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1799	p close.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1800	(p exitStatus notNil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1801	and:[p exitStatus success]) ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1802	result isEmpty ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1803	result := nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1804	]
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1805	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1806	].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1807	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1808	^ result
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1809
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1810	"
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1811	OperatingSystem getCommandOutputFrom:'ls' maxNumberOfLines:1
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1812	OperatingSystem getCommandOutputFrom:'ls' maxNumberOfLines:10
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1813	OperatingSystem getCommandOutputFrom:'ls' maxNumberOfLines:nil
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1814	OperatingSystem getCommandOutputFrom:'foo' maxNumberOfLines:nil
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1815	"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1816
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1817	"Modified: / 19.5.1999 / 14:25:02 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1818	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1819
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1820	getFullCommandOutputFrom:aCommand
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1821	"execute a command and
5483 1d81b1ad42d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5482 diff changeset	1822	return the commands output as a collection of strings (ignoring stdErr).
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1823	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	1824	if the command fails, nil is returned."
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1825
5483 1d81b1ad42d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5482 diff changeset	1826	^ self getCommandOutputFrom:aCommand maxNumberOfLines:nil errorDisposition:#discard
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1827
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1828	"
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1829	OperatingSystem getFullCommandOutputFrom:'mt status'
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1830	"
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1831
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	!AbstractOperatingSystem class methodsFor:'executing OS commands-queries'!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1835
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1836	canExecuteCommand:aCommandString
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1837	"return true, if the OS can execute aCommand.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1838	For now, this only works with UNIX."
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	\|fn fullPath\|
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1841
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1842	fullPath := (self pathOfCommand:aCommandString).
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1843	fullPath isNil ifTrue:[^ false].
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1844	fn := fullPath asFilename.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1845	^ fn exists and:[fn isExecutableProgram].
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1846
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1847	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1848	OperatingSystem canExecuteCommand:'fooBar'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1849	OperatingSystem canExecuteCommand:'ls'
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1850	OperatingSystem canExecuteCommand:'cvs'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1851	OperatingSystem canExecuteCommand:'diff'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1852	OperatingSystem canExecuteCommand:'cvs.exe'
17912 80eb31a5a622 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	1853	OperatingSystem canExecuteCommand:'hg'
80eb31a5a622 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	1854	OperatingSystem pathOfCommand:'hg'
80eb31a5a622 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	1855	"
80eb31a5a622 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	1856
80eb31a5a622 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	1857	"Created: / 04-11-1995 / 19:13:54 / cg"
8587 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	commandAndArgsForOSCommand:aCommandString
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1861	"get a shell and shell arguments for command execution"
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	self subclassResponsibility
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1864	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1865
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1866	executableFileExtensions
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1867	"return a collection of extensions for executable program files.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1868	Only req'd for msdos & vms like systems ..."
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1869
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	"Created: 2.5.1997 / 11:42:29 / cg"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1873	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1874
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1875	nameOfSTXExecutable
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1876	"return the name of the running ST/X executable program.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1877	Usually, 'stx' is returned -
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1878	but may be different for standAlone apps (or winstx.exe)."
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1879
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1880	%{
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1881	extern char *__stxExecutableName__();
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	RETURN (__MKSTRING(__stxExecutableName__()));
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1884	%}
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1885	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1886	OperatingSystem nameOfSTXExecutable
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1887	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1888	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1889
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1890	pathOfCommand:aCommand
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1891	"find where aCommand's executable file is;
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1892	return its full pathName if there is such a command, otherwise
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1893	return nil."
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1894
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1895	^ self subclassResponsibility
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1896	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1897
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1898	pathOfSTXExecutable
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1899	"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	1900	Usually, '.../stx' is returned -
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1901	but may be different for standAlone apps (or winstx.exe)."
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1902
17912 80eb31a5a622 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	1903	\|path\|
80eb31a5a622 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	1904
80eb31a5a622 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	1905	path := self pathOfCommand:(self nameOfSTXExecutable).
80eb31a5a622 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	1906	self assert:(path notNil).
80eb31a5a622 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	1907	^ path
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1908
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1909	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1910	OperatingSystem pathOfSTXExecutable
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1911	"
17912 80eb31a5a622 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	1912
80eb31a5a622 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	1913	"Modified: / 20-01-2012 / 12:52:46 / cg"
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1914	! !
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1915
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1916	!AbstractOperatingSystem class methodsFor:'executing OS commands-wrappers'!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1917
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1918	exec:aCommandPath withArguments:argArray
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1919	"execute the OS command specified by the argument, aCommandPath, with
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1920	arguments in argArray (no arguments, if nil).
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1921	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	1922	If not successful, it does return.
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1923	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	1924
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1925	^ self
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1926	exec:aCommandPath
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1927	withArguments:argArray
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1928	environment:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1929	fileDescriptors:#(0 1 2)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1930	fork:false
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1931	newPgrp:false
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1932	inDirectory:nil
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1933
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1934	"/ never reached ...
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1935
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1936	"Modified: / 12.11.1998 / 14:44:26 / cg"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1937	!
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	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	1940	^ self
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1941	exec:aCommandPath
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1942	withArguments:argArray
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1943	environment:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1944	fileDescriptors:fileDescriptors
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1945	fork:doFork
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1946	newPgrp:newPgrp
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1947	inDirectory:aDirectory
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1948	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1949
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1950	exec:aCommandPath withArguments:argArray fork:doFork
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1951	"execute an OS command without I/O redirection.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1952	The command reads its input and writes its output
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1953	from/to whatever terminal device ST/X was started
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1954	(typically, the terminal window)"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1955
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1956	^ self
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1957	exec:aCommandPath
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1958	withArguments:argArray
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1959	environment:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1960	fileDescriptors:#(0 1 2)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1961	fork:doFork
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1962	newPgrp:false
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1963	inDirectory:nil
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	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1966	\|id\|
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1967
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1968	id := OperatingSystem fork.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1969	id == 0 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1970	'I am the child'.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1971	OperatingSystem
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1972	exec:'/bin/ls'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1973	withArguments:#('ls' '/tmp')
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1974	fork:false.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1975	'not reached'.
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1976	]
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1977	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1978
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1979	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1980	\|id\|
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1981
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1982	id := OperatingSystem fork.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1983	id == 0 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1984	'I am the child'.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1985	OperatingSystem
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1986	exec:'/bin/sh'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1987	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	1988	fork:false.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	1989	'not reached'.
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	id printNL.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1992	(Delay forSeconds:3.5) wait.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1993	'killing ...' printNL.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1994	OperatingSystem sendSignal:(OperatingSystem sigTERM) to:id.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1995	OperatingSystem sendSignal:(OperatingSystem sigKILL) to:id
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1996	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1997
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1998	"Modified: / 15.7.1997 / 15:54:32 / stefan"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1999	"Modified: / 12.11.1998 / 14:44:46 / cg"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2000	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2001
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2002	exec:aCommandPath withArguments:argArray fork:doFork inDirectory:aDirectory
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2003	"execute an OS command without I/O redirection.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2004	The command reads its input and writes its output
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2005	from/to whatever terminal device ST/X was started
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2006	(typically, the terminal window)"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2007
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2008	^ self
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2009	exec:aCommandPath
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2010	withArguments:argArray
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2011	environment:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2012	fileDescriptors:#(0 1 2)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2013	fork:doFork
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2014	newPgrp:false
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2015	inDirectory:aDirectory
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	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2018	\|id\|
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2019
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2020	id := OperatingSystem fork.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2021	id == 0 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2022	'I am the child'.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2023	OperatingSystem
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2024	exec:'/bin/ls'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2025	withArguments:#('ls' '/tmp')
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2026	fork:false.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2027	'not reached'.
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2028	]
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2029	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2030
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2031	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2032	\|id\|
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2033
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2034	id := OperatingSystem fork.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2035	id == 0 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2036	'I am the child'.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2037	OperatingSystem
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2038	exec:'/bin/sh'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2039	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	2040	fork:false.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2041	'not reached'.
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2042	].
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2043	id printNL.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2044	(Delay forSeconds:3.5) wait.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2045	'killing ...' printNL.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2046	OperatingSystem sendSignal:(OperatingSystem sigTERM) to:id.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2047	OperatingSystem sendSignal:(OperatingSystem sigKILL) to:id
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2048	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2049
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2050	"Created: / 28.1.1998 / 14:14:03 / md"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2051	"Modified: / 28.1.1998 / 14:14:45 / md"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2052	"Modified: / 12.11.1998 / 14:45:06 / cg"
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	2053	! !
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	2054
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2055	!AbstractOperatingSystem class methodsFor:'file access'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2056
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2057	closeFd:anInteger
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2058	"low level close of a filedescriptor"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2059
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2060	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2061	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2062
7699 9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	2063	copyFromFd:inFd toFd:outFd startIndex:startIdx count:count
9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	2064	"directly copy from one FD to another (if supported by the OS)"
9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	2065
9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	2066	^ 0 "/ not supported
9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	2067	!
9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	2068
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2069	createDirectory:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2070	"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	2071	path, or relative to the current directory.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2072	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	2073	This is a low-level entry - use Filename protocol for compatibility."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2074
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2075	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2076	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2077
6292 f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2078	createFileForReadAppend:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2079	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2080	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2081
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2082	createFileForReadWrite:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2083	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2084	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2085
3758 1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2086	createHardLinkFrom:oldPath to:newPath
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2087	"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	2088	Return true if successful, false if not."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2089
3758 1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2090	"/
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2091	"/ assume that this OperatingSystem does not support links
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	^ UnsupportedOperationSignal raise
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	"Created: / 13.8.1998 / 21:37:12 / cg"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2096	"Modified: / 13.8.1998 / 21:38:39 / cg"
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	createSymbolicLinkFrom:oldPath to:newPath
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2100	"make a link from the file 'oldPath' to the file 'newPath'.
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2101	The link will be a soft (symbolic) link.
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2102	Return true if successful, false if not."
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2103
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2104	"/
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2105	"/ assume that this OperatingSystem does not support symbolic links
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2106	"/
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2107	^ UnsupportedOperationSignal raise
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2108
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2109	"Created: / 13.8.1998 / 21:38:24 / cg"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2110	"Modified: / 13.8.1998 / 21:38:43 / cg"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2111	!
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2112
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2113	linkFile:oldPath to:newPath
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2114	"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	2115	Return true if successful, false if not.
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2116	This method has been renamed - it remains in existance for
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2117	backward compatibility."
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2118
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2119	^ self createHardLinkFrom:oldPath to:newPath
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2120
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2121	"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2122	OperatingSystem linkFile:'foo' to:'bar'
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2123	"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2124
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2125	"Modified: / 13.8.1998 / 21:37:24 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2126	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2127
6292 f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2128	openFileForAppend:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2129	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2130	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2131
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2132	openFileForRead:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2133	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2134	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2135
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2136	openFileForReadAppend:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2137	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2138	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2139
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2140	openFileForReadWrite:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2141	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2142	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2143
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2144	openFileForWrite:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2145	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2146	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2147
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2148	recursiveCopyDirectory:fullPathName to:destinationPathName
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2149	"copy the directory named 'fullPathName' and all contained
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2150	files/directories recursively to destinationPathName.
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2151	Return true if successful.
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2152	Here, false is returned and the caller should be prepared
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2153	for a fallBack solution.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2154	Notice:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2155	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	2156	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	2157	before doing things manually.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2158	Please use Filename recursiveCopyTo:"
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2159
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2160	^ false
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2161
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2162	"
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2163	OperatingSystem recursiveCopyDirectory:'.' to:'/tmp/foo'
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2164	OperatingSystem recursiveRemoveDirectory:'/tmp/foo'
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2165	"
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2166
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2167	"Modified: / 5.5.1999 / 13:29:16 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2168	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2169
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2170	recursiveCreateDirectory:dirName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2171	"create a directory - with all parent dirs if needed.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2172	Return true if successful, false otherwise. If false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2173	is returned, a partial created tree may be left,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2174	which is not cleaned-up here."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2175
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2176	self createDirectory:dirName.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2177	(self isDirectory:dirName) ifFalse:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2178	(self recursiveCreateDirectory:(dirName asFilename directoryName)) ifFalse:[^ false].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2179	^ self createDirectory:dirName
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2180	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2181	^ true
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2182
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2183	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2184	OperatingSystem recursiveCreateDirectory:'foo/bar/baz'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2185	OperatingSystem recursiveRemoveDirectory:'foo'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2186	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2187
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2188	"Modified: 7.3.1996 / 15:26:22 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2189	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2190
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2191	recursiveRemoveDirectory:fullPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2192	"remove the directory named 'fullPathName' and all contained files/directories.
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2193	Return true if successful.
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2194	Here, false is returned and the caller should be prepared
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2195	for a fallBack solution.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2196	Notice:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2197	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	2198	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	2199	before doing things manually.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2200	Please use Filename recursiveRemoveDirectory:"
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2201
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2202	^ false
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2203
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2204	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2205	OperatingSystem recursiveCreateDirectory:'foo/bar/baz'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2206	OperatingSystem recursiveRemoveDirectory:'foo'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2207	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2208
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2209	"Modified: / 5.5.1999 / 13:30:11 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2210	!
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	removeDirectory:fullPathName
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2213	"remove the directory named 'fullPathName'.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2214	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	2215	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	2216	This is a lowLevel entry - use Filename protocol for compatibility."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2217
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2218	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2219	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2220
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2221	removeFile:fullPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2222	"remove the file named 'fullPathName'; return true if successful.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2223	This is a lowLevel entry - use Filename protocol for compatibility."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2224
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2225	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2226	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2227
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2228	renameFile:oldPath to:newPath
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2229	"rename the file 'oldPath' to 'newPath'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2230	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	2231	correct for the OS used - therefore, this should not be called
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2232	directlt. Instead, use Filename protocol to rename; this cares for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2233	any invalid names.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2234	Returns true if successful, false if not"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2235
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2236	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2237	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2238
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2239	truncateFile:aPathName to:newSize
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2240	"change a files size return true on success, false on failure.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2241	This may not be supported on all architectures.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2242
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2243	This is a low-level entry - use Filename protocol."
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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2246	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2247
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2248	!AbstractOperatingSystem class methodsFor:'file access rights'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2249
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2250	accessMaskFor:aSymbol
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2251	"return the access bits mask for numbers as returned by
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2252	OperatingSystem>>accessModeOf:
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2253	and expected by OperatingSystem>>changeAccessModeOf:to:.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2254	Since these numbers are OS dependent, always use the mask
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2255	(never hardcode 8rxxx into your code)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2256
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2257	self subclassResponsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2260	accessModeOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2261	"return a number representing access rights rwxrwxrwx for owner,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2262	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	2263	Notice that the returned number is OS dependent - use the
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2264	modeMasks as returned by OperatingSystem>>accessMaskFor:"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2265
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2266	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2267	this could have been implemented as:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2268	(self infoOf:aPathName) at:#mode
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2269	but for huge directory searches the code below is faster
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2270	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2271
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2272	^ (self infoOf:aPathName) at:#mode
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2273
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	(OperatingSystem accessModeOf:'/') printStringRadix:8
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2276	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2277	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2278
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2279	changeAccessModeOf:aPathName to:modeBits
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2280	"change the access rights of aPathName to the OS dependent modeBits.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2281	You should construct this mask using accessMaskFor, to be OS
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2282	independent. Return true if changed,
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2283	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	2284
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2285	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2286	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2287
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2288	!AbstractOperatingSystem class methodsFor:'file locking'!
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	lockFD:aFileDescriptor shared:isSharedReadLock blocking:blockIfLocked
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2291	"set a lock on the file represented by aFileDescriptor.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2292	(such as returned by ExternalStream>>fileDescriptor).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2293	On some systems, only advisory locks are available -
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2294	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	2295	If they do not, they may still access the file
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2296	(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	2297	The isSharedReadLock argument (if true) specifies if multiple readers
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2298	are to be allowed - if false, they are not.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2299	On some systems, all locks are non-exclusive locks.
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	Returns true, if the lock was aquired, false otherwise.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2302
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2303	Notice, that not all OS's support these locks;
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2304	on some, this may simply be a no-op.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2305	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	2306	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	2307	argument."
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	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2310	!
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	supportsFileLinks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2313	"return true, if the OS supports file links (hard links).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2314	Typically, only unix returns true here."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2315
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2316	^ false
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2319	supportsFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2320	"return true, if the OS supports file locking"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2321
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2322	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2323
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2324	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2325	OperatingSystem supportsFileLocks
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	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2328
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2329	supportsNonBlockingFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2330	"return true, if the OS supports nonBlocking file locking
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2331	(i.e. with immediate return instead of waiting for the lock)"
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	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2334
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2335	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2336	OperatingSystem supportsNonBlockingFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2337	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2338	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2339
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2340	supportsSharedLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2341	"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	2342	file locking. Assume false here - redefined in concrete classes."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2343
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2344	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2345
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	OperatingSystem supportsNonBlockingFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2348	"
4147 1096115c96c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 4146 diff changeset	2349
1096115c96c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 4146 diff changeset	2350	"Modified: / 5.5.1999 / 01:08:03 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2351	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2352
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2353	supportsSymbolicLinks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2354	"return true, if the OS supports symbolic links on files/directories.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2355	Typically, only Unix returns true here"
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	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2358	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2359
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2360	unlockFD:aFileDescriptor
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2361	"clear a file lock on the file represented by aFileDescriptor,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2362	which was previously aquired by #lockFD:.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2363	Return false, if the unlock failed
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2364	(which may happens when a wrong fd is passed,
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2365	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	2366	Notice, that not all OS's support file locks;
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2367	on some, this may simply be a no-op."
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2368
3826 ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	2369	^ false
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	2370
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	2371	"Modified: / 10.9.1998 / 17:54:15 / cg"
3576 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	!AbstractOperatingSystem class methodsFor:'file queries'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2375
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2376	caseSensitiveFilenames
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2377	"return true, if the OS has caseSensitive file naming.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2378	On MSDOS, this will return false;
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2379	on a real OS, we return true."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2380
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2381	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2382	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2383
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2384	compressPath:pathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2385	"return the pathName compressed - that is, remove all ..-entries
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2386	and . entries. This does not always (in case of symbolic links)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2387	return the true pathName and is therefore used as a fallback
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2388	if realPath and popen failed."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2389
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2390	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2391	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2392
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2393	directoryNameOf:aPath
5861 24ee164045bd Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 5857 diff changeset	2394	<resource:#obsolete>
24ee164045bd Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 5857 diff changeset	2395
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2396	self obsoleteMethodWarning:'use asFilename directoryName'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2397	^ aPath asFilename directoryName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2398	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2399
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2400	fileSeparator
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2401	"return the character used to separate names in a path.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2402	This character differs for MSDOS and other systems,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2403	(but those are currently not supported - so this is some
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2404	preparation for the future)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2405
3736 718513f3284e checkin from browser Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	2406	^ $/ "/ 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	2407	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2408
17807 06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	2409	getCurrentDirectory
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	2410	"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	2411
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	2412	^ self subclassResponsibility
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	2413	!
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	2414
4224 5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2415	getDiskInfoOf:aDirectoryPath
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2416	"return some disk info.
4224 5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2417	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	2418	not guaranteed to be consistent across architectures.
4226 429b13ce2028 * empty log message * Claus Gittinger <cg@exept.de> parents: 4224 diff changeset	2419	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	2420	freeBytes
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2421	totalBytes
4224 5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2422	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	2423	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	2424	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	2425	"
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2426
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2427	^ nil
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2428
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2429	"
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2430	OperatingSystem getDiskInfoOf:'/'
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2431	OperatingSystem getDiskInfoOf:'.'
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2432	"
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2433
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2434	"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	2435	!
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2436
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2437	getDriveList
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2438	"return a list of volumes in the system.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2439	On unix, no such thing like a volume exists
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2440	- there, a syntetic list with root, home & current is returned.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2441	On MSDOS, a list of drive letters is (eventually) returned.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2442	On VMS, a list of volumes is (eventually) returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2443
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2444	"/
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	2445	"/ default: return an array filled with
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2446	"/ root, home and current directories.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2447	"/
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2448	^ Array
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2449	with:'/'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2450	with:(self getHomeDirectory)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2451	with:(Filename currentDirectory pathName)
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	2452
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	2453	"Modified: / 5.5.1999 / 01:06:26 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2454	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2455
4852 ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2456	getMountedVolumes
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2457	"return info about mounted volumes.
4852 ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2458	The amount of information returned depends upon the OS, and is
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2459	not guaranteed to be consistent across architectures.
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2460	On unix, the information returned is (at least):
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2461	mountPoint - mount point
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2462	fileSystem - device or NFS-remotePath
4852 ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2463	"
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2464
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2465	^ #()
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2466
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2467	"
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2468	OperatingSystem getMountedVolumes
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2469	"
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2470
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2471	"Modified: / 22.5.1999 / 00:36:06 / cg"
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2472	!
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2473
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2474	getNullDevice
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2475	"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	2476
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2477	^ nil
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2478
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2479	"Created: / 19.5.1999 / 12:24:59 / cg"
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2480	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2481
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2482	idOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2483	"return the fileNumber (i.e. inode number) of a file.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2484
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2485	Not all operatingSystems may provide this - on those that do not,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2486	some dummy id will be returned.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2487	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	2488	physically identical, even if found in different directories
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2489	(i.e. if they are hardLinked)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2490
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2491	\|i id\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2492
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2493	id := self primIdOf:aPathName.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2494	id notNil ifTrue:[^ id].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2495
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2496	i := self infoOf:aPathName.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2497	i notNil ifTrue:[^ i id].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2498	^ nil.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2499
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2500	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2501	OperatingSystem idOf:'/'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2502	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2503	!
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	infoOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2506	"return some object filled with info for the file 'aPathName';
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2507	the info (for which corresponding access methods are understood by
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2508	the returned object) is:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2509	type - a symbol giving the files type
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2510	mode - numeric access mode
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2511	uid - owners user id
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2512	gid - owners group id
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2513	size - files size
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2514	id - files number (i.e. inode number)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2515	accessed - last access time (as Timestamp)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2516	modified - last modification time (as Timestamp)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2517	statusChanged - last status change time (as Timestamp)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2518	alternativeName - (windows only: the MSDOS name of the file)
3576 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	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	2521	all of the information.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2522	Return nil if such a file does not exist.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2523	For symbolic links (if supported by the OS),
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2524	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	2525	use #linkInfoOf: to get info about the link itself.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2526	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2527
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2528	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2529	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2530
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2531	isDirectory:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2532	"return true, if 'aPathName' is a valid directory path name.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2533	(i.e. exists and is a directory).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2534	This also returns true for symbolic links pointing to a directory;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2535	if you need to check for this, use #linkInfo:."
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 infoOf:aPathName) type == #directory
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	isExecutable:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2541	"return true, if the given file is executable.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2542	For symbolic links, the pointed-to-file is checked."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2543
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2544	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2545	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2546
6772 6bfdc2522ea2 isMountPoint penk parents: 6720 diff changeset	2547	isMountPoint:aPathName
6781 97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2548	"return true, if the given file is a mounted fileSystems mountPoint"
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2549
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2550	^ self mountPoints contains:[:mountInfo \| mountInfo mountPointPath = aPathName].
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2551
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2552	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2553	OperatingSystem isMountPoint:'/phys/qnx'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2554	OperatingSystem isMountPoint:'/proc'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2555	OperatingSystem isMountPoint:'/'
6781 97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2556	"
6772 6bfdc2522ea2 isMountPoint penk parents: 6720 diff changeset	2557	!
6bfdc2522ea2 isMountPoint penk parents: 6720 diff changeset	2558
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2559	isReadable:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2560	"return true, if the file/dir 'aPathName' is readable.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2561	For symbolic links, the pointed-to-file is checked."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2562
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2563	self subclassResponsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2566	isSymbolicLink:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2567	"return true, if the given file is a symbolic link"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2568
8474 f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2569	\|info\|
f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2570
f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2571	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	2572	^ 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	2573
f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2574	"
f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2575	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	2576	OperatingSystem isSymbolicLink:'/usr/tmp'
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2577	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2578	!
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	isValidPath:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2581	"return true, if 'aPathName' is a valid path name
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2582	(i.e. the file or directory exists)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2583
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2584	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2585	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2586
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2587	isWritable:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2588	"return true, if the given file is writable.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2589	For symbolic links, the pointed-to-file is checked."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2590
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2591	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2592	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2593
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2594	linkInfoOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2595	"return a dictionary filled with info for the file 'aPathName',
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2596	IFF aPathName is a symbolic link.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2597	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	2598	(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	2599
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2600	The contents of the dictionary gives info about the link itself,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2601	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	2602	in case of a symbolic link."
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2603
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2604	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2605	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2606
5031 50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2607	mimeTypeForFilename:aFilename
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2608	"given a filename, return a corresponding mimeType.
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2609	This is placed here, to allow for OS-specific configuration
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2610	files and/or the win32 registry to be consultet.
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2611	Returns nil if no mimeType for the given name is known."
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2612
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2613	^ nil
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2614	!
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2615
4240 e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2616	mimeTypeForSuffix:aFileSuffix
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2617	"given a file suffix, return a corresponding mimeType.
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2618	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	2619	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	2620	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	2621
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2622	^ nil
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2623	!
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2624
6781 97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2625	mountPoints
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2626	"return a collection of mountPoints (aka. topDirectories of mounted file systems)"
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2627
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2628	^ #() "/ dont know here
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2629	!
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2630
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2631	parentDirectoryName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2632	"return the name used to refer to parent directories.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2633	In MSDOS, Unix and other systems this is '..', but maybe different
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2634	for other systems.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2635	(but those are currently not supported - so this is some
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2636	preparation for the future)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2637
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2638	^ '..'
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2641	pathNameOf:pathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2642	"return the pathName of the argument, aPathString,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2643	- thats the full pathname of the directory, starting at '/'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2644	This method needs the path to be valid
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2645	(i.e. all directories must exist, be readable and executable).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2646	Notice: if symbolic links are involved, the result may look different
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2647	from what you expect."
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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2650	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2651
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2652	primIdOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2653	"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	2654
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2655	self subclassResponsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2658	primPathNameOf:pathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2659	"return the pathName of the argument, aPathString,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2660	- thats the full pathname of the directory, starting at '/'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2661	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	2662	realPath library function.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2663	Notice: if symbolic links are involved, the result may look different
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2664	from what you expect."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2665
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2666	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2667	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2668
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2669	timeOfLastAccess:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2670	"return the time, when the file was last accessed.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2671	For nonexistent files, nil is returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2672
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2673	^ (self infoOf:aPathName) accessTime
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2674	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2675
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2676	timeOfLastChange:aPathName
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2677	"return the time, when the file was last changed.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2678	For nonexistent files, nil is returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2679
6793 0d3e3fd18a70 modified -> modificationTime Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	2680	^ (self infoOf:aPathName) modificationTime
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2681	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2682
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2683	typeOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2684	"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	2685	nil is returned.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2686	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	2687
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2688	^ (self infoOf:aPathName) type
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2689	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2690
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2691	volumeNameOf:aPathString
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2692	"return the volumeName of the argument, aPath
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2693	- thats the name of the volume where aPath is.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2694	Not all OperatingSystems support/use volumes; on unix,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2695	this always returns an empty string."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2696
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2697	^ ''
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2698	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2699
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2700	!AbstractOperatingSystem class methodsFor:'interprocess communication'!
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	createCOMFileForVMSCommand:aCommandString in:aDirectory
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2703	"this is only implemented/required for VMS systems, to execute commands"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2704
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2705	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2706
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2707	"Created: / 19.5.1999 / 12:16:31 / cg"
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2708	"Modified: / 19.5.1999 / 14:22:05 / cg"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2709	!
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	createMailBox
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2712	"this is only implemented/required for VMS systems, to emulate pipes"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2713
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2714	^ UnsupportedOperationSignal raise
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2715
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2716	"Created: / 19.5.1999 / 12:14:56 / cg"
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2717	"Modified: / 19.5.1999 / 14:22:22 / cg"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2718	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2719
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2720	destroyMailBox:mbx
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2721	"this is only implemented/required for VMS systems, to emulate pipes"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2722
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2723	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2724
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2725	"Created: / 19.5.1999 / 12:16:43 / cg"
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2726	"Modified: / 19.5.1999 / 14:22:33 / cg"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2727	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2728
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2729	mailBoxNameOf:mbx
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2730	"this is only implemented/required for VMS systems, to emulate pipes"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2731
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2732	^ UnsupportedOperationSignal raise
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2733
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2734	"Created: / 19.5.1999 / 12:14:56 / cg"
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2735	"Modified: / 19.5.1999 / 14:22:40 / cg"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2736	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2737
8967 30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2738	makeBidirectionalPipe
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2739	"answer an array with 2 filedescriptors representing
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2740	the two ends of a bidirectional pipe - see also #makePipe"
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2741
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2742	^ self subclassResponsibility
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2743	!
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2744
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2745	makePipe
8967 30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2746	"answer an array with 2 filedescriptors representing
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2747	the two ends of a unidirectional pipe- see also #makeSocketPair"
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2748
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2749	^ self subclassResponsibility
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2750	!
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2751
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2752	shutdownBidirectionalPipeOutput:fileDescriptor
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2753	"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	2754	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	2755
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2756	^ self subclassResponsibility
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2757	! !
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2758
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2759	!AbstractOperatingSystem class methodsFor:'interrupts & signals'!
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	blockInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2762	"disable interrupt processing - if disabled, incoming
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2763	interrupts will be registered and handled as soon as
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2764	interrupts are reenabled by OperatingSystemclass>>unblockInterrupts.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2765	Returns the previous blocking status i.e. true if interrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2766	where already blocked. You need this information for proper
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2767	unblocking, in case of nested block/unblock calls."
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	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2770	RETURN ( __BLOCKINTERRUPTS() );
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	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2773
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2774	defaultSignal:signalNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2775	"revert to the default action on arrival of a (Unix-)signal.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2776	Dont confuse Unix signals with smalltalk signals.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2777	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	2778	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	2779	default for SIGQUIT (^ \) is to dump core.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2780	Also, NOTICE that signal numbers are not portable between unix
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2781	systems - use OperatingSystem sigXXX to get the numeric value for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2782	a signal."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2783
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2784	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2785	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2786
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2787	disableChildSignalInterrupts
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2788	"disable childSignal interrupts
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2789	(SIGCHLD, if the architecture supports it).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2790	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	2791	SIGCHLD breaks wait & co"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2792
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2793	^ self defaultSignal:(self sigCHLD)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2794
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2795	"Created: 5.1.1996 / 15:45:28 / stefan"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2796	!
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	disableIOInterruptsOn:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2799	"turn off IO interrupts for a filedescriptor"
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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2802	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2803
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2804	disableSignal:signalNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2805	"disable (Unix-) signal processing for signalNumber.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2806	Dont confuse Unix signals with smalltalk signals.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2807	WARNING: for some signals, it is no good idea to disable
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2808	them; for example, disabling the SIGINT signal turns off ^C
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2809	handling.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2810	Also, NOTICE that signal numbers are not portable between unix
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2811	systems - use OperatingSystem sigXXX to get the numeric value for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2812	a signal.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2813	Use only for fully debugged stand alone applications."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2814
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2815	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2816	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2817
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2818	disableTimer
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2819	"disable timer interrupts.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2820	WARNING:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2821	the system will not operate correctly with timer interrupts
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2822	disabled, because no scheduling or timeouts are possible."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2823
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2824	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2825	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2826
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2827	disableUserInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2828	"disable userInterrupt processing;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2829	when disabled, no ^C processing takes place.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2830	WARNING:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2831	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	2832	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	2833	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	2834
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2835	self disableSignal:(self sigBREAK).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2836	self disableSignal:(self sigINT).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2837	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2838
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2839	enableAbortInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2840	"enable abort signalhandling, and make it a regular signalInterrupt.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2841	(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	2842	end-user applications ...).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2843	This is especially useful, if linked-in C-libraries call abort() ..."
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 sigABRT)
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	enableChildSignalInterrupts
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2849	"enable childSignal interrupts
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2850	(SIGCHLD, if the architecture supports it).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2851	After enabling, these signals will send the message
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2852	'childSignalInterrupt' to the ChildSignalInterruptHandler object."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2853
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2854	self enableSignal:(self sigCHLD)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2855	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2856
6389 8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2857	enableCrashSignalInterrupts
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2858	"enable powerFail signal exception interrupts (sigPWR).
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2859	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	2860
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2861	self enableSignal:(self sigPWR).
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2862	self enableSignal:(self sigHUP)
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2863	!
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2864
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2865	enableFpExceptionInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2866	"enable floating point exception interrupts (if the
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2867	architecture supports it).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2868	After enabling, fpu-exceptions will send the message
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2869	'fpuExceptionInterrupt' to the FPUExceptionInterruptHandler object."
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	self enableSignal:(self sigFP)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2872	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2873
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2874	enableHardSignalInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2875	"enable hard signal exception interrupts (trap, buserror & segm. violation).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2876	After enabling, these exceptions will send the message
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2877	'signalInterrupt' to the SignalInterruptHandler object."
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	"/ leads to trouble ...
6389 8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2880	"/ self enableSignal:(self sigPIPE).
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2881	"/ ... 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	2882
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2883	self disableSignal:(self sigPIPE).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2884
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2885	self enableSignal:(self sigILL).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2886	self enableSignal:(self sigBUS).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2887	self enableSignal:(self sigSEGV).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2888	self enableSignal:(self sigFP).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2889	self enableSignal:(self sigEMT).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2890	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2891
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2892	enableIOInterruptsOn:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2893	"turn on IO interrupts for a filedescriptor"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2894
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2895	self subclassResonsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2898	enableQuitInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2899	"enable quitInterrupt (usually ^\) handling, and make it a userInterrupt.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2900	(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	2901	end-user applications ...)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2902
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2903	self enableSignal:(self sigQUIT)
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2906	enableSignal:signalNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2907	"enable (Unix-)signal processing for signalNumber.
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2908	Don't confuse Unix signals with smalltalk signals.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2909	The signal will be delivered to one of the standard handlers
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2910	(SIGINT, SIGQUIT, etc) or to a general handler, which
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2911	sends #signalInterrupt:.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2912
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2913	NOTICE that signal numbers are not portable between unix
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2914	systems - use OperatingSystem sigXXX to get the numeric value for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2915	a signal."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2916
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2917	self subclassResponsibility
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2918	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2919
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2920	enableTimer:milliSeconds
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2921	"setup for a timerInterrupt, to be signalled after some (real) time."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2922
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2923	self subclassResonsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2924	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2925
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2926	enableUserInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2927	"enable userInterrupt (^C) handling;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2928	when enabled, ^C in the terminal window will send the message
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2929	'userInterrupt' to the UserInterruptHandler object."
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	self enableSignal:(self sigINT).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2932	self enableSignal:(self sigBREAK).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2933	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2934
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2935	interruptPending
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2936	"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	2937	invalid if interrupts are not currently blocked, since otherwise
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2938	the interrupt is usually already handled before arriving here,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2939	or may be served while returning from here."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2940
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2941	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2942	extern OBJ __INTERRUPTPENDING();
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	RETURN ( __INTERRUPTPENDING() );
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2945	%}
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2946	!
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	interruptsBlocked
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2949	"return true, if interrupt handling is currently disabled;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2950	false otherwise."
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	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2953	extern OBJ __INTERRUPTS_BLOCKED();
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2954
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2955	RETURN ( __INTERRUPTS_BLOCKED() );
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	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2958
6536 bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2959	isFatalSignal:aNumber
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2960	"return true if a signal with number aNumber is a fatal signal,
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2961	i.e. some severe internal error occured"
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2962
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2963	^ self subclassResponsibility
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2964	!
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2965
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2966	killProcess:processId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2967	"kill an OS process.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2968	The process has a no chance to do some cleanup.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2969
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2970	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	2971	you may have to fetch the processes exitstatus with
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2972	OperatingSystem>>getStatusOfProcess:aProcessId."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2973
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2974	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2975
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2976	"Modified: / 10.6.1998 / 12:00:07 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2977	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2978
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2979	killProcessGroup:processGroupId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2980	"kill an OS process group.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2981	The process has NO chance to do some cleanup.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2982
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2983	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	2984	you may have to fetch the processes exitstatus with
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	2985	OperatingSystem>>getStatusOfProcess:aProcessId."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2986
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2987	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2988
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2989	"Created: / 10.6.1998 / 12:00:26 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2990	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2991
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2992	nameForSignal:aSignalNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2993	"for a given Unix signalnumber, return a descriptive string"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2994
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2995	aSignalNumber == self sigHUP ifTrue:[^ 'hangup'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2996	aSignalNumber == self sigINT ifTrue:[^ 'interrupt'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2997	aSignalNumber == self sigKILL ifTrue:[^ 'kill'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2998	aSignalNumber == self sigQUIT ifTrue:[^ 'quit'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2999	aSignalNumber == self sigILL ifTrue:[^ 'illegal instruction'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3000	aSignalNumber == self sigTRAP ifTrue:[^ 'trap'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3001	aSignalNumber == self sigABRT ifTrue:[^ 'abort'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3002	aSignalNumber == self sigIOT ifTrue:[^ 'iot trap'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3003	aSignalNumber == self sigEMT ifTrue:[^ 'emt trap'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3004	aSignalNumber == self sigFP ifTrue:[^ 'fp exception'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3005	aSignalNumber == self sigBUS ifTrue:[^ 'bus error'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3006	aSignalNumber == self sigSEGV ifTrue:[^ 'segmentation violation'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3007	aSignalNumber == self sigSYS ifTrue:[^ 'bad system call'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3008	aSignalNumber == self sigPIPE ifTrue:[^ 'broken pipe'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3009	aSignalNumber == self sigALRM ifTrue:[^ 'alarm timer'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3010	aSignalNumber == self sigTERM ifTrue:[^ 'termination'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3011	aSignalNumber == self sigSTOP ifTrue:[^ 'stop'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3012	aSignalNumber == self sigTSTP ifTrue:[^ 'tty stop'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3013	aSignalNumber == self sigCONT ifTrue:[^ 'continue'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3014	aSignalNumber == self sigCHLD ifTrue:[^ 'child death'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3015	aSignalNumber == self sigTTIN ifTrue:[^ 'background tty input'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3016	aSignalNumber == self sigTTOU ifTrue:[^ 'background tty output'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3017	aSignalNumber == self sigIO ifTrue:[^ 'io available'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3018	aSignalNumber == self sigXCPU ifTrue:[^ 'cpu time expired'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3019	aSignalNumber == self sigXFSZ ifTrue:[^ 'file size limit'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3020	aSignalNumber == self sigVTALRM ifTrue:[^ 'virtual alarm timer'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3021	aSignalNumber == self sigPROF ifTrue:[^ 'profiling timer'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3022	aSignalNumber == self sigWINCH ifTrue:[^ 'winsize changed'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3023	aSignalNumber == self sigLOST ifTrue:[^ 'resource lost'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3024	aSignalNumber == self sigUSR1 ifTrue:[^ 'user signal 1'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3025	aSignalNumber == self sigUSR2 ifTrue:[^ 'user signal 2'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3026	aSignalNumber == self sigMSG ifTrue:[^ 'HFT message'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3027	aSignalNumber == self sigPWR ifTrue:[^ 'power-fail'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3028	aSignalNumber == self sigPRE ifTrue:[^ 'programming exception'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3029	aSignalNumber == self sigGRANT ifTrue:[^ 'HFT access wanted'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3030	aSignalNumber == self sigRETRACT ifTrue:[^ 'HFT access relinquish'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3031	aSignalNumber == self sigSOUND ifTrue:[^ 'HFT sound complete'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3032	aSignalNumber == self sigDANGER ifTrue:[^ 'low on paging space'].
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	"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	3035	therefore, keep SIGIO always above the two below"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3036	aSignalNumber == self sigPOLL ifTrue:[^ 'io available'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3037	aSignalNumber == self sigURG ifTrue:[^ 'urgent'].
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	^ 'unknown signal'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3040
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3041	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3042	OperatingSystem nameForSignal:9
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3043	OperatingSystem nameForSignal:(OperatingSystem sigPOLL)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3044	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3045	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3046
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3047	operatingSystemSignal:signalNumber
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3048	"return the signal to be raised when an
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3049	operatingSystem-signal occurs, or nil"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3050
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3051	OSSignals notNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3052	^ OSSignals at:signalNumber ifAbsent:[nil]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3053	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3054	^ nil
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3055	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3056
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3057	operatingSystemSignal:signalNumber install:aSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3058	"install a signal to be raised when an operatingSystem-signal occurs"
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	OSSignals isNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3061	OSSignals := Array new:32
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3062	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3063	OSSignals at:signalNumber put:aSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3064	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3065
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3066	sendSignal:signalNumber to:processId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3067	"send a unix signal to some process (maybe myself).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3068	Returns false if any error occurred, true otherwise.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3069
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	3070	Do not confuse UNIX signals with Smalltalk-Signals."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3071
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3072	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3073	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3074
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3075	startSpyTimer
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3076	"trigger a spyInterrupt, to be signalled after some short (virtual) time.
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	3077	Return true, if the spy-timerInterrupt was enabled.
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	3078	This was used by the old MessageTally for profiling.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3079	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	3080	(which is of course less correct).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3081	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	3082	spy interrupts."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3083
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	3084	^ false
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3085	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3086
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3087	stopSpyTimer
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3088	"stop spy timing - disable spy timer.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3089	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	3090	spy interrupts."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3091
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	3092	^ false
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3093	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3094
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3095	terminateProcess:processId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3096	"terminate a unix process.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3097	The process has a chance to do some cleanup.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3098
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3099	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	3100	you may have to fetch the processes exitstatus with
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3101	OperatingSystem>>getStatusOfProcess:aProcessId."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3102
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3103	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3104	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3105
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3106	terminateProcessGroup:processGroupId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3107	"terminate a unix process group.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3108	The process has a chance to do some cleanup.
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	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	3111	you may have to fetch the processes exitstatus with
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3112	OperatingSystem>>getStatusOfProcess:aProcessId."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3113
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3114	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3115	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3116
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3117	unblockInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3118	"enable interrupt processing - if any interrupts are pending,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3119	these will be handled immediately.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3120	When unblocking interrupts, take care of nested block/unblock
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3121	calls - you must only unblock after a blockcall if they where
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3122	really not blocked before. See OperatingSystemclass>>blockInterrupts."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3123	%{
8505 4456ffd20005 #unblockInterrupts returns the prvious blocking state Stefan Vogel <sv@exept.de> parents: 8497 diff changeset	3124	RETURN(__UNBLOCKINTERRUPTS());
3576 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	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3127
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3128	!AbstractOperatingSystem class methodsFor:'misc'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3129
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3130	closePid:pid
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3131	"free pid resource"
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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3134	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3135
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3136	exit
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3137	"shutdown smalltalk immediately - this method does not return.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3138	Return 'good'-status (0) to the parent unix process."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3139
5429 f4a52365fc97 checkin from browser Claus Gittinger <cg@exept.de> parents: 5407 diff changeset	3140	self exit:0.
f4a52365fc97 checkin from browser Claus Gittinger <cg@exept.de> parents: 5407 diff changeset	3141
8804 b7eefb374b37 spelling in comments Stefan Vogel <sv@exept.de> parents: 8801 diff changeset	3142	"OperatingSystem exit - don't evaluate this"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3143	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3144
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3145	exit:exitCode
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3146	"shutdown smalltalk immediately -
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3147	returning an exit-code to the parent unix process."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3148
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3149	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3150	int code = 1;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3151
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3152	if (__isSmallInteger(exitCode)) {
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3153	code = __intVal(exitCode);
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3154	}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3155	__mainExit(code);
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3156	%}
8804 b7eefb374b37 spelling in comments Stefan Vogel <sv@exept.de> parents: 8801 diff changeset	3157	"OperatingSystem exit:1 - don't evaluate this"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3158	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3159
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3160	exitWithCoreDump
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3161	"shutdown smalltalk immediately - dumping core.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3162	This always returns 'bad'-status to the parent unix process.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3163	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	3164	manually remove any tempfiles.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3165	Use this only for debugging ST/X itself"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3166
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3167	%{ /* NOCONTEXT */
10293 9cd817cd6bc9 Declare abort() Stefan Vogel <sv@exept.de> parents: 10097 diff changeset	3168	extern void abort();
9cd817cd6bc9 Declare abort() Stefan Vogel <sv@exept.de> parents: 10097 diff changeset	3169
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3170	abort();
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3171	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3172	"
8804 b7eefb374b37 spelling in comments Stefan Vogel <sv@exept.de> parents: 8801 diff changeset	3173	OperatingSystem exitWithCoreDump - don't evaluate this
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3174	"
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3175	!
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3176
17834 04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	3177	getAllProcesses
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	3178	"get a list of the running OS processes.
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	3179	Some OperatingSystems (Windows) support this.
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	3180	The default is to answer an empty list."
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	3181
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	3182	^ #().
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	3183	!
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	3184
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3185	getVMSSymbol:aSymbolString
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3186	"get a symbols value, or nil if there is none"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3187
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3188	^ nil
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3189
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3190	"Created: / 5.6.1998 / 19:02:50 / cg"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3191	"Modified: / 5.6.1998 / 19:03:15 / cg"
11768 23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3192	!
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3193
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3194	playSound:fileName
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3195	"unsupported - simply stay silent"
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3196
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3197	^ self.
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3198	!
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3199
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3200	playSound:fileName mode:modeInteger
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3201	"unsupported - simply stay silent"
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3202
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3203	^ self.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3204	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3205
7289 ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3206	!AbstractOperatingSystem class methodsFor:'obsolete'!
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3207
8236 ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3208	baseNameOf:aPath
ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3209	<resource:#obsolete>
ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3210
ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3211	self obsoleteMethodWarning:'use asFilename baseName'.
ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3212	^ aPath asFilename baseName
7289 ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3213	! !
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3214
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3215	!AbstractOperatingSystem class methodsFor:'os queries'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3216
3806 37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3217	getCCDefine
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3218	"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	3219	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	3220	For example, on linux, this is '__GNUC__';
3806 37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3221	on windows, this is either '__MSC__' or '__BORLANDC__'"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3222
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3223	%{ /* NOCONTEXT */
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3224	#ifndef CC_DEFINE
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3225	# ifdef WIN32
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3226	# ifdef __BORLANDC__
3829 4690e0bc7ce7 added isWINDOWSNT query Claus Gittinger <cg@exept.de> parents: 3826 diff changeset	3227	# define CC_DEFINE "__BORLANDC__"
3806 37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3228	# else
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3229	# define CC_DEFINE "__MSC__"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3230	# endif
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3231	# else
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3232	# ifdef __GNUC__
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3233	# define CC_DEFINE "__GNUC__"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3234	# else
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3235	# define CC_DEFINE "__CC__"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3236	# endif
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3237	# endif
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3238	#endif
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3239	RETURN ( __MKSTRING(CC_DEFINE));
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3240	%}
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3241	"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3242	OperatingSystem getCCDefine
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3243	"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3244	!
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3245
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3246	getCPUDefine
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3247	"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	3248	compiled, and which should be passed down when compiling methods.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3249	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	3250	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	3251	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	3252
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3253	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3254	# ifndef CPU_DEFINE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3255	# define CPU_DEFINE "-DunknownCPU"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3256	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3257
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3258	RETURN ( __MKSTRING(CPU_DEFINE));
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3259	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3260	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3261	OperatingSystem getCPUDefine
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3262	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3263	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3264
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3265	getCPUType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3266	"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	3267	Here, the machine for which ST/X was compiled is returned
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3268	(i.e. for all x86's, the same i386 is returned).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3269	This may normally not be of any interest to you ..."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3270
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3271	\|cpu\|
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3272
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3273	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3274
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3275	# ifdef __vax__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3276	# define CPU_SYMBOL @symbol(vax)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3277	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3278	# ifdef __mips__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3279	# define CPU_SYMBOL @symbol(mips)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3280	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3281	# ifdef __i386__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3282	# define CPU_SYMBOL @symbol(i386)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3283	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3284	# ifdef __i860__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3285	# define CPU_SYMBOL @symbol(i860)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3286	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3287	# ifdef __ns32k__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3288	# define CPU_SYMBOL @symbol(ns32k)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3289	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3290	# ifdef __mc68k__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3291	# define CPU_SYMBOL @symbol(mc68k)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3292	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3293	# ifdef __mc88k__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3294	# define CPU_SYMBOL @symbol(mc88k)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3295	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3296	# ifdef __sparc__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3297	# define CPU_SYMBOL @symbol(sparc)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3298	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3299	# ifdef __hppa__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3300	# define CPU_SYMBOL @symbol(hppa)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3301	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3302	# ifdef __rs6000__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3303	# define CPU_SYMBOL @symbol(rs6000)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3304	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3305	# ifdef __powerPC__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3306	# define CPU_SYMBOL @symbol(powerPC)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3307	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3308	# ifdef __alpha__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3309	# define CPU_SYMBOL @symbol(alpha)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3310	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3311	# ifdef __transputer__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3312	# define CPU_SYMBOL @symbol(transputer)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3313	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3314	# ifdef __ibm370__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3315	# define CPU_SYMBOL @symbol(ibm370)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3316	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3317	# ifdef __s390__
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3318	# define CPU_SYMBOL @symbol(s390)
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3319	# endif
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3320	# ifdef __arm__
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3321	# define CPU_SYMBOL @symbol(arm)
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3322	# endif
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3323	# ifdef __ia64__
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3324	# define CPU_SYMBOL @symbol(ia64)
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3325	# endif
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3326
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3327	# ifndef CPU_SYMBOL
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3328	# define CPU_SYMBOL @symbol(unknown)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3329	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3330
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3331	cpu = CPU_SYMBOL;
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3332	# undef CPU_SYMBOL
3576 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	^ cpu
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3335
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3336	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3337	OperatingSystem getCPUType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3338	"
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	"examples: are we running on a ss-10/solaris ?"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3341	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3342	(OperatingSystem getCPUType = 'sparc')
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3343	and:[OperatingSystem getOSType = 'solaris']
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3344	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3345
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3346	"or on a pc/solaris ?"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3347	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3348	(OperatingSystem getCPUType = 'i386')
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3349	and:[OperatingSystem getOSType = 'solaris']
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3350	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3351	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3352
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3353	getDomainName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3354	"return the domain this host is in.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3355	Notice:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3356	not all systems support this; on some, 'unknown' is returned."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3357
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3358	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3359	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3360
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3361	getEnvironment:aStringOrSymbol
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3362	"get an environment string"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3363
5407 d6729266a95b * empty log message * Claus Gittinger <cg@exept.de> parents: 5172 diff changeset	3364	^ self subclassResponsibility
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3365	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3366
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3367	getHostName
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3368	"return the hostname we are running on -
17795 569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	3369	a fully qalified hostname at best.
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	3370
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3371	Notice:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3372	not all systems support this; on some, 'unknown' is returned."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3373
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3374	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3375	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3376
7778 cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3377	getLanguage
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3378	"get the LANGUAGE setting (example: de_DE.iso8859-15@euro)"
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3379
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3380	^ self getEnvironment:'LANG'.
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3381	!
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3382
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3383	getLocaleInfo
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3384	"return a dictionary filled with values from the locale information;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3385	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	3386	Possible fields are:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3387	decimalPoint <String>
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	thousandsSep <String>
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3390
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3391	internationalCurrencySymbol <String>
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3392
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3393	currencySymbol <String>
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3394
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3395	monetaryDecimalPoint <String>
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3396
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3397	monetaryThousandsSeparator <String>
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3398
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3399	positiveSign <String>
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3400
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3401	negativeSign <String>
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3402
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3403	internationalFractionalDigits <Integer>
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3404
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3405	fractionalDigits <Integer>
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3406
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3407	positiveSignPrecedesCurrencySymbol <Boolean>
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3408
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3409	negativeSignPrecedesCurrencySymbol <Boolean>
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3410
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3411	positiveSignSeparatedBySpaceFromCurrencySymbol <Boolean>
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3412
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3413	negativeSignSeparatedBySpaceFromCurrencySymbol <Boolean>
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3414
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3415	positiveSignPosition <Symbol>
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3416	one of: #parenthesesAround,
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3417	#signPrecedes,
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3418	#signSuceeds,
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3419	#signPrecedesCurrencySymbol,
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3420	#signSuceedsCurrencySymbol
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3421
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3422	negativeSignPosition <like above>
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3423
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3424	it is up to the application to deal with undefined values.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3425
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3426	Notice, that (for now), the system does not use this information;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3427	it should be used by applications as required.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3428	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3429
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3430	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3431	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3432
8997 e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3433	getNetworkAddresses
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3434	"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	3435	value:the network address for each interface"
8997 e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3436
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3437	self subclassResponsibility
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3438	!
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3439
7289 ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3440	getNetworkMACAddresses
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3441	"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	3442	value:the MAC adress for each interface"
6363 4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3443
4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3444	self subclassResponsibility
4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3445	!
4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3446
7289 ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3447	getNetworkMACAddressesForIf:ifName
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3448	"return the MAC adress for interface ifName"
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3449
8641 1b45626f0e50 noMacAddress fallBack (NT4.0) Claus Gittinger <cg@exept.de> parents: 8587 diff changeset	3450	self getNetworkMACAddresses at:ifName ifAbsent:nil
1b45626f0e50 noMacAddress fallBack (NT4.0) Claus Gittinger <cg@exept.de> parents: 8587 diff changeset	3451
1b45626f0e50 noMacAddress fallBack (NT4.0) Claus Gittinger <cg@exept.de> parents: 8587 diff changeset	3452	"Modified: / 17-11-2004 / 01:43:35 / cg"
6363 4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3453	!
4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3454
10684 b5ca16223480 * empty log message * sr parents: 10545 diff changeset	3455	getNumberOfProcessors
17746 2c33aabf3828 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17742 diff changeset	3456	"answer the number of physical processors in the system"
2c33aabf3828 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17742 diff changeset	3457
10684 b5ca16223480 * empty log message * sr parents: 10545 diff changeset	3458	self subclassResponsibility
b5ca16223480 * empty log message * sr parents: 10545 diff changeset	3459	!
b5ca16223480 * empty log message * sr parents: 10545 diff changeset	3460
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3461	getOSDefine
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3462	"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	3463	compiled, and which should be passed down when compiling methods.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3464	For example, on linux, this is '-DLINUX'."
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	%{ /* NOCONTEXT */
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	#ifndef OS_DEFINE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3469	# ifdef WIN32
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3470	# define OS_DEFINE "-DWIN32"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3471	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3472
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3473	# ifndef OS_DEFINE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3474	# define OS_DEFINE "-DunknownOS"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3475	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3476	#endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3477
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3478	RETURN ( __MKSTRING(OS_DEFINE));
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3479
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3480	#undef OS_DEFINE
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	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3483	OperatingSystem getOSDefine
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3484	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3485	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3486
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3487	getOSType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3488	"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	3489	This can be used to adapt programs to certain environment
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3490	differences (for example: mail-lock strategy ...)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3491
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3492	\|os\|
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	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3495
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3496	# ifdef MSDOS
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3497	# define OS_SYMBOL @symbol(msdos)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3498	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3499
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3500	# ifdef WIN32
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3501	# define OS_SYMBOL @symbol(win32)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3502	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3503
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3504	# ifdef MSWINDOWS
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3505	# define OS_SYMBOL @symbol(mswindows)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3506	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3507
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3508	# ifdef VMS
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3509	# ifdef __openVMS__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3510	# define OS_SYMBOL @symbol(openVMS)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3511	# else
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3512	# define OS_SYMBOL @symbol(VMS)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3513	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3514	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3515
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3516	# ifdef MVS /* ;-) */
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3517	# define OS_SYMBOL @symbol(mvs)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3518	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3519
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3520	# ifdef OS2
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3521	# define OS_SYMBOL @symbol(os2)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3522	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3523
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3524	# ifdef sinix
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3525	# define OS_SYMBOL @symbol(sinix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3526	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3527
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3528	# ifdef ultrix
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3529	# define OS_SYMBOL @symbol(ultrix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3530	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3531
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3532	# ifdef sco
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3533	# define OS_SYMBOL @symbol(sco)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3534	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3535
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3536	# ifdef hpux
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3537	# define OS_SYMBOL @symbol(hpux)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3538	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3539
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3540	# ifdef LINUX
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3541	# define OS_SYMBOL @symbol(linux)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3542	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3543
6651 4bc133e27717 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	3544	# ifdef FREEBSD
4bc133e27717 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	3545	# define OS_SYMBOL @symbol(freeBSD)
4bc133e27717 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	3546	# endif
4bc133e27717 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	3547
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3548	# ifdef sunos
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3549	# define OS_SYMBOL @symbol(sunos)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3550	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3551
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3552	# ifdef solaris
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3553	# define OS_SYMBOL @symbol(solaris)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3554	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3555
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3556	# ifdef IRIS
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3557	# define OS_SYMBOL @symbol(irix)
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 aix
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3561	# define OS_SYMBOL @symbol(aix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3562	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3563
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3564	# ifdef realIX
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3565	# define OS_SYMBOL @symbol(realIX)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3566	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3567
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3568	# ifdef __osf__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3569	# define OS_SYMBOL @symbol(osf)
3576 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
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	* no concrete info; become somewhat vague ...
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3574	*/
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3575	# ifndef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3576	# ifdef MACH
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3577	# define OS_SYMBOL @symbol(mach)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3578	# endif
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
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 BSD
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3583	# define OS_SYMBOL @symbol(bsd)
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3586	# ifdef SYSV
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3587	# ifdef SYSV3
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3588	# define OS_SYMBOL @symbol(sys5_3)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3589	# else
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3590	# ifdef SYSV4
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3591	# define OS_SYMBOL @symbol(sys5_4)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3592	# else
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3593	# define OS_SYMBOL @symbol(sys5)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3594	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3595	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3596	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3597	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3598
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3599	/*
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3600	* become very vague ...
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3601	*/
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3602	# ifndef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3603	# ifdef POSIX
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3604	# define OS_SYMBOL @symbol(posix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3605	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3606	# endif
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3607	# ifndef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3608	# ifdef UNIX
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3609	# define OS_SYMBOL @symbol(unix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3610	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3611	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3612
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3613	# ifndef OS_SYMBOL
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3614	# define OS_SYMBOL @symbol(unknown)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3615	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3616
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3617	os = OS_SYMBOL;
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3618
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3619	# undef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3620	%}.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3621	^ os
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3622
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3623	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3624	OperatingSystem getOSType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3625	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3626	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3627
9698 e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3628	getPlatformDefine
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3629	"return a string which defines the platform,
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3630	and which should be passed down when compiling methods.
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3631	For example, on all unices, this is '-DUNIX'."
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	%{ /* NOCONTEXT */
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	#ifndef PLATFORM_DEFINE
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3636	# ifdef WIN32
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3637	# define PLATFORM_DEFINE "-DWIN32"
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3638	# endif
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3639	# ifdef OS2
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3640	# define PLATFORM_DEFINE "-DOS2"
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3641	# endif
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3642	# ifdef BEOS
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3643	# define PLATFORM_DEFINE "-DBEOS"
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3644	# endif
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3645	# ifdef MACOS
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3646	# define PLATFORM_DEFINE "-DMACOS"
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3647	# endif
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3648	# ifdef VMS
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3649	# define PLATFORM_DEFINE "-DVMS"
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3650	# endif
9698 e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3651	# ifndef PLATFORM_DEFINE
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3652	# define PLATFORM_DEFINE "-DUNIX"
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3653	# endif
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3654	#endif
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3655
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3656	RETURN ( __MKSTRING(PLATFORM_DEFINE));
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3657	%}
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3658	"
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3659	OperatingSystem getPlatformDefine
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3660	"
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3661	!
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3662
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3663	getProcessId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3664	"return the (unix-)processId"
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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3667	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3668
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3669	getSystemID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3670	"if supported by the OS, return the systemID;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3671	a unique per machine identification.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3672	WARNING:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3673	not all systems support this; on some, 'unknown' is returned."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3674
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3675	^ 'unknown'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3676
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3677	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3678	OperatingSystem getSystemID
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3682	getSystemInfo
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3683	"return info on the system weare running on.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3684	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	3685	otherwise, some simulated info is returned.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3686
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3687	WARNING:
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3688	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	3689	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	3690	OS, for example, linux returns 'ix86', while WIN32 returns 'x86'.
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	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	3693	information.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3694	(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	3695	may be based upon this info).
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3696	Your application should NOT depend upon this in any way.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3697
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3698	The returned info may (or may not) contain:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3699	#system -> some operating system identification (irix, Linux, nt, win32s ...)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3700	#version -> OS version (some os version identification)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3701	#release -> OS release (3.5, 1.2.1 ...)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3702	#node -> some host identification (hostname)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3703	#domain -> domain name (hosts domain)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3704	#machine -> type of machine (i586, mips ...)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3705	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3706
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3707	\|info\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3708
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3709	info := IdentityDictionary new.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3710	info at:#system put:(self getSystemType).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3711	info at:#node put:(self getHostName).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3712	info at:#machine put:(self getCPUType).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3713	info at:#architecture put:'unknown'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3714	info at:#domain put:self getDomainName.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3715	info at:#osType put:(self getOSType).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3716	^ info
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3717
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3718	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3719	OperatingSystem getSystemInfo
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3720	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3721	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3722
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3723	getSystemType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3724	"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	3725	This is almost the same as getOSType, but the returned string
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3726	is slightly different for some systems (i.e. iris vs. irix).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3727	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	3728	here ...
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3729	(except for slight differences between next/mach and other machs)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3730
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3731	^ self getOSType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3732
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3733	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3734	OperatingSystem getSystemType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3735	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3736	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3737
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3738	getWindowsDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3739	"internal interface - only for Windows based systems.
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3740	Return the windows directory, which, depending on the system,
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3741	may be
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3742	'\WINNT', '\WINDOWS'
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3743	or whatever.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3744	On non-windows systems, nil is returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3745
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3746	^ nil
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3747
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3748	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3749	OperatingSystem getWindowsDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3750	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3751	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3752
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3753	getWindowsSystemDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3754	"internal interface - only for Windows based systems.
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3755	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	3756	may be
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3757	'\WINNT\SYSTEM32', '\WINDOWS\SYSTEM'
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3758	or whatever.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3759	On non-windows systems, nil is returned."
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	^ nil
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	OperatingSystem getWindowsSystemDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3765	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3766	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3767
4207 89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3768	hasConsole
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3769	"return true, if there is some kind of console available
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3770	(i.e. for proper stdIn, stdOut and stdErr handling).
5918 0d8bc97e7106 * empty log message * Claus Gittinger <cg@exept.de> parents: 5861 diff changeset	3771	This only returns false when running under windows, and
4207 89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3772	the system is running as a pure windows application.
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3773	If false, the miniDebugger is useless and not used."
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3774
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3775	^ true
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3776	!
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3777
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3778	isBSDlike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3779	"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	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	isMAClike
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3785	"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	3786
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3787	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3788	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3789
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3790	isMSDOSlike
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3791	"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	3792	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	3793
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3794	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3795	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3796
3901 3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3797	isMSWINDOWSNTlike
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3798	"This returns true if running in a Windows-NT system."
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3799
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3800	^ false.
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3801	!
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3802
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3803	isMSWINDOWSlike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3804	"return true, if running on a MS-Windows like system.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3805	This returns true for any of win32s, win95 and winNT."
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3810	isOS2like
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3811	"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	3812	Only returns true for a plain OS/2 system."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3813
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3814	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3815	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3816
17746 2c33aabf3828 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17742 diff changeset	3817	isProcessIdPresent:pid
2c33aabf3828 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17742 diff changeset	3818	"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	3819	Raise an error, if an exception occures"
2c33aabf3828 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17742 diff changeset	3820
2c33aabf3828 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17742 diff changeset	3821	^ self subclassResponsibility
2c33aabf3828 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17742 diff changeset	3822	!
2c33aabf3828 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17742 diff changeset	3823
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3824	isUNIXlike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3825	"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	3826
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3827	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3828	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3829
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3830	isVMSlike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3831	"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	3832
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3833	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3834	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3835
9697 d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3836	knownPlatformNames
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3837	"return a collection of strings as possibly returned by getPlatformName.
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3838	Should be used instead of getOSType or getSystemType if multiple choice
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3839	dialogs are presented to the user."
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3840
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3841	^#(
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3842	win32
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3843	os2 "/ actually - this is no longer true
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3844	macos "/ actually - this is no longer true
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3845	vms "/ actually - this is no longer true
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3846	beos "/ actually - this was never true
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3847	unix
9697 d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3848	)
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3849
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3850	"
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3851	OperatingSystem knownPlatformNames
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3852	OperatingSystem platformName
9698 e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3853	OperatingSystem getPlatformDefine
9697 d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3854	"
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3855
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3856	"Modified: 20.6.1997 / 17:37:26 / cg"
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3857	!
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3858
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3859	maxFileNameLength
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3860	"return the max number of characters in a filename.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3861	CAVEAT:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3862	Actually, the following is somewhat wrong - some systems
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3863	support different sizes, depending on the volume.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3864	We return a somewhat conservative number here.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3865	Another entry, to query for volume specific max
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3866	will be added in the future."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3867
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3868	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3869	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3870
6578 e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3871	maxNumberOfOpenFiles
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3872	"answer the maximum number of open files for this process"
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3873
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3874	^ self subclassResponsibility
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3875	!
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3876
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3877	maxPathLength
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3878	"return the max number of characters in a pathName."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3879
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3880	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3881	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3882
17847 62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3883	osName
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3884	"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	3885	This returns #unix for all unix derivatives.
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3886	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	3887
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3888	\|info\|
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3889
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3890	info := self getSystemInfo.
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3891	^ ((info at:#system) ? '?')
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3892	,
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3893	((info at:#version) ? '?')
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3894
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3895	"
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3896	OperatingSystem getSystemInfo
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3897	OperatingSystem osName
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3898	"
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3899
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3900	"Modified: / 20-06-1997 / 17:37:26 / cg"
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3901	"Created: / 05-08-2011 / 18:18:53 / cg"
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3902	!
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3903
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3904	pathSeparator
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3905	"return the character which separates items in the PATH variable"
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	self subclassResponsibility
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
9700 abcbfeb235b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9699 diff changeset	3910	platformDefineForPlatformName:osID
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3911	"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	3912
17735 6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	3913	osID = #win32 ifTrue:[ ^ '-DWIN32'].
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	3914	osID = #os2 ifTrue:[ ^ '-DOS2'].
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	3915	osID = #macos ifTrue:[ ^ '-DMACOS'].
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	3916	osID = #beos ifTrue:[ ^ '-DBEOS'].
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	3917	osID = #vms ifTrue:[ ^ '-DVMS'].
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	3918	osID = #unix ifTrue:[ ^ '-DUNIX'].
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3919	self error:'unknown os'.
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3920
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3921	"
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3922	OperatingSystem platformDefineForName:(OperatingSystem platformName)
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3923	"
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3924
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3925	"Modified: 20.6.1997 / 17:37:26 / cg"
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3926	!
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3927
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3928	platformName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3929	"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	3930	This returns #unix for all unix derivatives.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3931	I.e. it is much less specific than getOSType or getSystemType."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3932
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3933	\|os\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3934
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3935	os := self getSystemType.
11170 ced52c04b215 #platformName - answer symbols Stefan Vogel <sv@exept.de> parents: 11166 diff changeset	3936	os = #win32 ifTrue:[ ^ #win32].
ced52c04b215 #platformName - answer symbols Stefan Vogel <sv@exept.de> parents: 11166 diff changeset	3937	os = #os2 ifTrue:[ ^ #os2].
ced52c04b215 #platformName - answer symbols Stefan Vogel <sv@exept.de> parents: 11166 diff changeset	3938	os = #macos ifTrue:[ ^ #macos].
ced52c04b215 #platformName - answer symbols Stefan Vogel <sv@exept.de> parents: 11166 diff changeset	3939	os = #VMS ifTrue:[ ^ #vms].
ced52c04b215 #platformName - answer symbols Stefan Vogel <sv@exept.de> parents: 11166 diff changeset	3940	os = #openVMS ifTrue:[ ^ #vms].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3941	^ #unix
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3942
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3943	"
9697 d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3944	OperatingSystem knownPlatformNames
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3945	OperatingSystem platformName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3946	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3947
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3948	"Modified: 20.6.1997 / 17:37:26 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3949	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3950
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3951	randomBytesInto:bufferOrInteger
17757 73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3952	"If bufferOrInteger is a String or a ByteArray,
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3953	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	3954	and nswer the buffer.
17757 73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3955
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3956	If bufferOrInteger is a SmallInteger,
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3957	return this many bytes (max 4) as a SmallInteger.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3958
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3959	Return nil on error (may raise PrimitiveFailure, too).
17757 73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3960
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3961	NOTE: This is a private interface, please use RandomGenerator!!
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3962
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3963	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	3964
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	3965	^ nil "not implemented"
17757 73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3966	!
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3967
17742 3fef0ed4c2d5 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17735 diff changeset	3968	setEnvironment:aStringOrSymbol to:newValueString
3fef0ed4c2d5 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17735 diff changeset	3969	"set an environment variable"
3fef0ed4c2d5 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17735 diff changeset	3970
3fef0ed4c2d5 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17735 diff changeset	3971	^ self subclassResponsibility
3fef0ed4c2d5 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17735 diff changeset	3972	!
3fef0ed4c2d5 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17735 diff changeset	3973
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3974	setLocaleInfo:anInfoDictionary
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3975	"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	3976	(internal in ST/X only - the OS's settings remain unaffected)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3977	See description of fields in #getLocaleInfo.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3978
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3979	Notice, that (for now), the system does not use this information;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3980	it should be used by applications as required."
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	LocaleInfo := anInfoDictionary
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3983
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	\|d\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3986
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3987	d := IdentityDictionary new.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3988	d at:#decimalPoint put:'.' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3989	d at:#thousandsSeparator put:',' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3990	d at:#currencySymbol put:'USD' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3991	d at:#monetaryDecimalPoint put:'.' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3992	d at:#monetaryThousandsSeparator put:'.' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3993	d at:#fractionalDigits put:2 .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3994	d at:#positiveSign put:'+' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3995	d at:#negativeSign put:'-' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3996	d at:#positiveSignPrecedesCurrencySymbol put:true .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3997	d at:#negativeSignPrecedesCurrencySymbol put:false .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3998	OperatingSystem setLocaleInfo:d
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3999	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4000	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4001
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4002	supportsChildInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4003	"return true, if the OS supports childProcess termination signalling
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4004	through interrupts (i.e. SIGCHILD)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4005
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4006	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4007
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4008	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4009	OperatingSystem supportsChildInterrupts
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4010	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4011	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4012
3826 ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4013	supportsFileOwnerGroups
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4014	"return true, if the OS's file system supports file
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4015	group ownership - here, we are optimistic assuming that
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4016	we are running under a real OS.
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4017	Redefined in Win32OS to return false."
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4018
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4019	^ true
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4020
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4021	"Modified: / 10.9.1998 / 17:48:20 / cg"
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4022	"Created: / 10.9.1998 / 17:56:28 / cg"
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4023	!
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4024
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4025	supportsFileOwners
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4026	"return true, if the OS's file system supports file
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4027	ownership - here, we are optimistic assuming that
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4028	we are running under a real OS.
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4029	Redefined in Win32OS to return false."
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4030
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4031	^ true
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4032
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4033	"Modified: / 10.9.1998 / 17:48:20 / cg"
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4034	"Created: / 10.9.1998 / 17:56:11 / cg"
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4035	!
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4036
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4037	supportsIOInterrupts
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4038	"return true, if the OS supports IO availability interrupts
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4039	(i.e. SIGPOLL/SIGIO)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4040
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4041	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4042
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4043	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4044	OperatingSystem supportsIOInterrupts
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4045	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4046	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4047
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4048	supportsNonBlockingIO
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4049	"return true, if the OS supports nonblocking IO."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4050
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4051	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4052
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4053	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4054	OperatingSystem supportsNonBlockingIO
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4055	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4056	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4057
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4058	supportsSelect
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4059	"return true, if the OS supports selecting on multiple
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4060	filedescriptors via select.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4061	If false is returned, ProcessorScheduler will poll in 50ms
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4062	intervals for I/O becoming ready."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4063
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4064	^ true
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4065
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4066	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4067	OperatingSystem supportsSelect
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4068	"
3901 3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4069	!
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4070
5099 bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4071	supportsSelectOnPipes
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4072	"return true, if the OS supports selecting on pipe
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4073	filedescriptors via select.
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4074	If false is returned, ProcessorScheduler will poll in 50ms
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4075	intervals for I/O becoming ready."
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4076
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4077	^ true
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4078
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4079	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4080	OperatingSystem supportsSelectOnPipes
5099 bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4081	"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4082
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4083	"Modified: / 14.12.1999 / 19:40:32 / cg"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4084	"Created: / 14.12.1999 / 19:43:43 / cg"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4085	!
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4086
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4087	supportsSelectOnSockets
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4088	"return true, if the OS supports selecting on socket
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4089	filedescriptors via select.
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4090	If false is returned, ProcessorScheduler will poll in 50ms
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4091	intervals for I/O becoming ready."
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4092
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4093	^ true
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4094
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4095	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4096	OperatingSystem supportsSelectOnSockets
5099 bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4097	"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4098
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4099	"Modified: / 14.12.1999 / 19:40:32 / cg"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4100	!
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4101
3901 3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4102	supportsVolumes
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4103	"return true, if the OS supports disk volumes.
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4104	False is returned for UNIX, true for MSDOS and VMS"
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4105
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4106	^ false
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4107
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4108	"Created: / 29.10.1998 / 13:20:37 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4109	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4110
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4111	!AbstractOperatingSystem class methodsFor:'path queries'!
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4112
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4113	defaultPackagePath
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4114	"return a default packagePath - thats a collection of
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4115	dirnames, where ST/X searches for its package subdirs.
5159 ca0524ab2576 defaultPackagePath initialization fixed Claus Gittinger <cg@exept.de> parents: 5148 diff changeset	4116	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	4117	OS-specific directory names."
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4118
17834 04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4119	\|packagePath dirName homeDirName priv userPrivateSTXDir appDirName appDir topDirName\|
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4120
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4121	"
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4122	the path is set to search files first locally
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4123	- this allows private stuff to override global stuff
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4124	"
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4125	packagePath := OrderedCollection new.
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4126
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4127	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4128	"/ the current (default) directory:
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4129	"/ ./packages
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4130	"/
17807 06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	4131	packagePath add:('.' "Filename currentDirectory pathName").
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4132
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4133	"/
17834 04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4134	"/ the executable's directory:
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4135	"/ (/opt/stx/bin/stx -> /opt/stx/bin)
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4136	"/
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4137	appDirName := self pathOfSTXExecutable asFilename directory.
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4138	(packagePath includes:appDirName) ifFalse:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4139	packagePath add:appDirName.
17834 04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4140	].
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4141
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4142	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4143	"/ 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	4144	"/ (/opt/stx/bin/stx -> /opt/stx/packages)
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4145	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4146	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	4147	dirName := appDir pathName.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4148	(packagePath includes:dirName) ifFalse:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4149	packagePath add:dirName.
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4150	].
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4151
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4152	homeDirName := OperatingSystem getHomeDirectory.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4153	homeDirName notNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4154	"/
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4155	"/ 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	4156	"/ $HOME/.smalltalk/packages or $HOME\smalltalk\packages
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4157	"/
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4158	OperatingSystem isUNIXlike ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4159	priv := '.smalltalk'.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4160	] ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4161	priv := 'smalltalk'.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4162	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4163	userPrivateSTXDir := homeDirName asFilename / priv.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4164	(userPrivateSTXDir isDirectory) ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4165	dirName := userPrivateSTXDir pathName.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4166	(packagePath includes:dirName) ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4167	packagePath add:dirName
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	].
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4170	].
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4171
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4172	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4173	"/ 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	4174	"/ $STX_TOPDIR/packages
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4175	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4176	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	4177	topDirName notNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4178	(packagePath includes:topDirName) ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4179	packagePath add:topDirName
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4180	].
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4181	].
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4182
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4183	packagePath := packagePath select:[:each \| (each asFilename / 'packages') exists]
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4184	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	4185
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4186	"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4187	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	4188	"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4189	(dirName := OperatingSystem getEnvironment:'STX_PACKAGEPATH') notNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4190	dirName := dirName asCollectionOfSubstringsSeparatedBy:$:.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4191	dirName reverseDo:[:eachDirectoryName\|
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4192	(packagePath includes:eachDirectoryName) ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4193	packagePath addFirst:eachDirectoryName.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4194	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4195	].
5654 96a2142a2c04 Use for packagePath Stefan Vogel <sv@exept.de> parents: 5646 diff changeset	4196	].
96a2142a2c04 Use for packagePath Stefan Vogel <sv@exept.de> parents: 5646 diff changeset	4197
17814 b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4198	"maybe the sources are kept in a central place..."
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4199	(appDir / 'source') isDirectory ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4200	packagePath add:(appDir / 'source') pathName.
17814 b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4201	].
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4202
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4203	"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	4204	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	4205	- 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	4206
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4207	topDirName isNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4208	"appdir is now: projects"
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4209	appDir := appDir directory directory.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4210	(appDir / 'stx' / 'libbasic') isDirectory ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4211	packagePath add:appDir pathName.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4212	].
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4213	].
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4214
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4215	^ packagePath
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4216
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4217	"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4218	OperatingSystem defaultPackagePath
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4219	"
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4220
17834 04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4221	"Modified: / 04-02-2011 / 16:27:15 / cg"
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4222	!
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4223
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4224	defaultSystemPath
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4225	"return a default systemPath - thats a collection of
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4226	dirnames, where ST/X searches for its files.
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4227	This method is redefined in concrete OS's to add
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4228	OS-specific directory names."
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4229
17754 5322906cdb6a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17746 diff changeset	4230	\|sysPath p appDir homePath priv userPrivateSTXDir appPath\|
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4231
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4232	"
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4233	the path is set to search files first locally
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4234	- this allows private stuff to override global stuff
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4235	"
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4236	sysPath := OrderedCollection new.
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4237
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4238	"/
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4239	"/ the current (default) directory
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4240	"/
17807 06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	4241	sysPath add:('.' "Filename currentDirectory pathName").
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4242
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4243	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4244	"/ the executable's directory
17814 b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4245	"/ 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	4246	"/
17754 5322906cdb6a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17746 diff changeset	4247	appPath := self pathOfSTXExecutable.
5322906cdb6a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17746 diff changeset	4248	appPath notNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4249	appDir := appPath asFilename directory.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4250	appPath := appDir pathName.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4251	(sysPath includes:appPath) ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4252	sysPath add:appPath.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4253	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4254	appDir baseName = 'bin' ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4255	appPath := appDir directory pathName.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4256	(sysPath includes:appPath) ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4257	sysPath add:appPath.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4258	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4259	].
9021 6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4260	].
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4261
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4262	"/
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4263	"/ the users home (login) directory
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4264	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4265	homePath := self getHomeDirectory.
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4266	homePath notNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4267	"/
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4268	"/ 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	4269	"/
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4270	OperatingSystem isUNIXlike ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4271	priv := '.smalltalk'.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4272	] ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4273	priv := 'smalltalk'.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4274	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4275	userPrivateSTXDir := homePath asFilename construct:priv.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4276	(userPrivateSTXDir isDirectory) ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4277	userPrivateSTXDir := userPrivateSTXDir pathName.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4278	(sysPath includes:userPrivateSTXDir) ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4279	sysPath add:userPrivateSTXDir
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4280	]
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4281	].
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4282	].
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	"/
5036 a967da9d41ac checkin from browser Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	4285	"/ SMALLTALK_LIBDIR, STX_LIBDIR and STX_TOPDIR from the environment
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4286	"/
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4287	#(
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4288	'SMALLTALK_LIBDIR'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4289	'STX_LIBDIR'
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4290	'STX_TOPDIR'
5646 5dfccce8e880 no longer automatically add the home-dir to the systemPath Claus Gittinger <cg@exept.de> parents: 5486 diff changeset	4291	) do:[:each \|
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4292	p := OperatingSystem getEnvironment:each.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4293	p notNil ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4294	p := p asFilename pathName.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4295	(p asFilename isDirectory) ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4296	(sysPath includes:p) ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4297	sysPath add:p
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4298	]
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4299	]
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4300	].
5036 a967da9d41ac checkin from browser Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	4301	].
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4302	^ sysPath
5148 1a4b6b99888d * empty log message * Claus Gittinger <cg@exept.de> parents: 5143 diff changeset	4303
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4304	"
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4305	OperatingSystem defaultSystemPath
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4306	"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4307
5148 1a4b6b99888d * empty log message * Claus Gittinger <cg@exept.de> parents: 5143 diff changeset	4308	"Modified: / 24.12.1999 / 00:30:27 / cg"
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4309	! !
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4310
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	4311	!AbstractOperatingSystem class methodsFor:'printing support'!
d8547710430c printer stuff fm parents: 9380 diff changeset	4312
d8547710430c printer stuff fm parents: 9380 diff changeset	4313	getPrinters
d8547710430c printer stuff fm parents: 9380 diff changeset	4314	"return a collection of PrinterInfos"
d8547710430c printer stuff fm parents: 9380 diff changeset	4315
d8547710430c printer stuff fm parents: 9380 diff changeset	4316	self subclassResponsibility
d8547710430c printer stuff fm parents: 9380 diff changeset	4317
d8547710430c printer stuff fm parents: 9380 diff changeset	4318	"Created: / 27-07-2006 / 12:17:31 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	4319	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	4320
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4321	!AbstractOperatingSystem class methodsFor:'private'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4322
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4323	osProcessStatusClass
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4324	^ self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4325
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4326	"Created: / 12.6.1998 / 16:30:29 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4327	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4328
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	4329	!AbstractOperatingSystem class methodsFor:'queries-sockets'!
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4330
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4331	domainCodeOf:aSymbolOrInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4332	"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	4333	Return nil for invalid or unsupported domains.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4334	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	4335	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	4336
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4337	\|domainCode\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4338
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4339	%{ /NOCONTEXT/
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4340
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4341	if (__isSmallInteger(aSymbolOrInteger) \|\| aSymbolOrInteger == nil) {
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4342	RETURN (aSymbolOrInteger);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4343	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4344
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4345	#ifdef AF_INET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4346	else if ((aSymbolOrInteger == @symbol(AF_INET)) \|\| (aSymbolOrInteger == @symbol(inet)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4347	domainCode = __mkSmallInteger(AF_INET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4348	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4349	#ifdef AF_INET6
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4350	else if ((aSymbolOrInteger == @symbol(AF_INET6)) \|\| (aSymbolOrInteger == @symbol(inet6)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4351	domainCode = __mkSmallInteger(AF_INET6);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4352	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4353	#ifdef AF_UNIX
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4354	else if ((aSymbolOrInteger == @symbol(AF_UNIX)) \|\| (aSymbolOrInteger == @symbol(unix)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4355	domainCode = __mkSmallInteger(AF_UNIX);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4356	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4357	#ifdef AF_APPLETALK
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4358	else if ((aSymbolOrInteger == @symbol(AF_APPLETALK)) \|\| (aSymbolOrInteger == @symbol(appletalk)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4359	domainCode = __mkSmallInteger(AF_APPLETALK);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4360	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4361	#ifdef AF_DECnet
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4362	else if ((aSymbolOrInteger == @symbol(AF_DECnet)) \|\| (aSymbolOrInteger == @symbol(decnet)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4363	domainCode = __mkSmallInteger(AF_DECnet);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4364	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4365	#ifdef AF_NS
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4366	else if ((aSymbolOrInteger == @symbol(AF_NS)) \|\| (aSymbolOrInteger == @symbol(ns)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4367	domainCode = __mkSmallInteger(AF_NS);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4368	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4369	#ifdef AF_X25
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4370	else if ((aSymbolOrInteger == @symbol(AF_X25)) \|\| (aSymbolOrInteger == @symbol(x25)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4371	domainCode = __mkSmallInteger(AF_X25);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4372	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4373	#ifdef AF_SNA
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4374	else if (aSymbolOrInteger == @symbol(AF_SNA))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4375	domainCode = __mkSmallInteger(AF_SNA);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4376	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4377	#ifdef AF_RAW
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4378	else if ((aSymbolOrInteger == @symbol(AF_RAW)) \|\| (aSymbolOrInteger == @symbol(raw)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4379	domainCode = __mkSmallInteger(AF_RAW);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4380	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4381	#ifdef AF_ISO
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4382	else if ((aSymbolOrInteger == @symbol(AF_ISO)) \|\| (aSymbolOrInteger == @symbol(iso)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4383	domainCode = __mkSmallInteger(AF_ISO);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4384	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4385	#ifdef AF_ECMA
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4386	else if (aSymbolOrInteger == @symbol(AF_ECMA))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4387	domainCode = __mkSmallInteger(AF_ECMA);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4388	#endif
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4389	#ifdef AF_NETBIOS
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4390	else if ((aSymbolOrInteger == @symbol(AF_NETBIOS)) \|\| (aSymbolOrInteger == @symbol(netbios)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4391	domainCode = __mkSmallInteger(AF_NETBIOS);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4392	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4393	#ifdef AF_NETBEUI
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4394	else if (aSymbolOrInteger == @symbol(AF_NETBEUI))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4395	domainCode = __mkSmallInteger(AF_NETBEUI);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4396	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4397	#ifdef AF_IPX
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4398	else if (aSymbolOrInteger == @symbol(AF_IPX))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4399	domainCode = __mkSmallInteger(AF_IPX);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4400	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4401	#ifdef AF_AX25
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4402	else if (aSymbolOrInteger == @symbol(AF_AX25))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4403	domainCode = __mkSmallInteger(AF_AX25);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4404	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4405	#ifdef AF_NETROM
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4406	else if (aSymbolOrInteger == @symbol(AF_NETROM))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4407	domainCode = __mkSmallInteger(AF_NETROM);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4408	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4409	#ifdef AF_BRIDGE
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4410	else if (aSymbolOrInteger == @symbol(AF_BRIDGE))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4411	domainCode = __mkSmallInteger(AF_BRIDGE);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4412	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4413	#ifdef AF_BSC
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4414	else if (aSymbolOrInteger == @symbol(AF_BSC))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4415	domainCode = __mkSmallInteger(AF_BSC);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4416	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4417	#ifdef AF_ROSE
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4418	else if (aSymbolOrInteger == @symbol(AF_ROSE))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4419	domainCode = __mkSmallInteger(AF_ROSE);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4420	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4421	#ifdef AF_IRDA
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4422	else if ((aSymbolOrInteger == @symbol(AF_IRDA)) \|\| (aSymbolOrInteger == @symbol(irda)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4423	domainCode = __mkSmallInteger(AF_IRDA);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4424	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4425	#ifdef AF_BAN
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4426	else if (aSymbolOrInteger == @symbol(AF_BAN))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4427	domainCode = __mkSmallInteger(AF_BAN);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4428	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4429	#ifdef AF_VOICEVIEW
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4430	else if (aSymbolOrInteger == @symbol(AF_VOICEVIEW))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4431	domainCode = __mkSmallInteger(AF_VOICEVIEW);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4432	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4433	#ifdef AF_ATM
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4434	else if (aSymbolOrInteger == @symbol(AF_ATM))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4435	domainCode = __mkSmallInteger(AF_ATM);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4436	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4437	#ifdef AF_ATMPVC
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4438	else if (aSymbolOrInteger == @symbol(AF_ATMPVC))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4439	domainCode = __mkSmallInteger(AF_ATMPVC);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4440	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4441	#ifdef AF_ATMSVC
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4442	else if (aSymbolOrInteger == @symbol(AF_ATMSVC))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4443	domainCode = __mkSmallInteger(AF_ATMSVC);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4444	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4445	#ifdef AF_SECURITY
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4446	else if (aSymbolOrInteger == @symbol(AF_SECURITY))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4447	domainCode = __mkSmallInteger(AF_SECURITY);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4448	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4449	#ifdef AF_KEY
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4450	else if (aSymbolOrInteger == @symbol(AF_KEY))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4451	domainCode = __mkSmallInteger(AF_KEY);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4452	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4453	#ifdef AF_NETLINK
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4454	else if (aSymbolOrInteger == @symbol(AF_NETLINK))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4455	domainCode = __mkSmallInteger(AF_NETLINK);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4456	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4457	#ifdef AF_PACKET
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4458	else if (aSymbolOrInteger == @symbol(AF_PACKET))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4459	domainCode = __mkSmallInteger(AF_PACKET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4460	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4461	#ifdef AF_ASH
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4462	else if (aSymbolOrInteger == @symbol(AF_ASH))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4463	domainCode = __mkSmallInteger(AF_ASH);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4464	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4465	#ifdef AF_ECONET
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4466	else if (aSymbolOrInteger == @symbol(AF_ECONET))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4467	domainCode = __mkSmallInteger(AF_ECONET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4468	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4469	#ifdef AF_IMPLINK
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4470	else if (aSymbolOrInteger == @symbol(AF_IMPLINK))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4471	domainCode = __mkSmallInteger(AF_IMPLINK);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4472	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4473	#ifdef AF_PUP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4474	else if (aSymbolOrInteger == @symbol(AF_PUP))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4475	domainCode = __mkSmallInteger(AF_PUP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4476	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4477	#ifdef AF_CHAOS
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4478	else if (aSymbolOrInteger == @symbol(AF_CHAOS))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4479	domainCode = __mkSmallInteger(AF_CHAOS);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4480	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4481	#ifdef AF_DLI
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4482	else if (aSymbolOrInteger == @symbol(AF_DLI))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4483	domainCode = __mkSmallInteger(AF_DLI);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4484	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4485	#ifdef AF_LAT
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4486	else if (aSymbolOrInteger == @symbol(AF_LAT))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4487	domainCode = __mkSmallInteger(AF_LAT);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4488	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4489	#ifdef AF_HYLINK
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4490	else if (aSymbolOrInteger == @symbol(AF_HYLINK))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4491	domainCode = __mkSmallInteger(AF_HYLINK);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4492	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4493	#ifdef AF_FIREFOX
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4494	else if (aSymbolOrInteger == @symbol(AF_FIREFOX))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4495	domainCode = __mkSmallInteger(AF_FIREFOX);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4496	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4497	#ifdef AF_CLUSTER
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4498	else if (aSymbolOrInteger == @symbol(AF_CLUSTER))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4499	domainCode = __mkSmallInteger(AF_CLUSTER);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4500	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4501	#ifdef AF_12844
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4502	else if (aSymbolOrInteger == @symbol(AF_12844))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4503	domainCode = __mkSmallInteger(AF_12844);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4504	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4505	#ifdef AF_NETDES
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4506	else if (aSymbolOrInteger == @symbol(AF_NETDES))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4507	domainCode = __mkSmallInteger(AF_NETDES);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4508	#endif
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4509	%}.
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	^ domainCode.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4512
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4513	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4514	self domainCodeOf:#AF_INET
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4515	self domainCodeOf:#AF_INET6
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4516	self domainCodeOf:#AF_UNIX
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4517	self domainCodeOf:#AF_APPLETALK
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4518	self domainCodeOf:#AF_DECNET
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4519	"
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4520	"for backward compatibility only:
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4521	self domainCodeOf:#inet
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4522	self domainCodeOf:#inet6
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4523	self domainCodeOf:#unix
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4524	self domainCodeOf:#appletalk
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4525	self domainCodeOf:#decnet
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4526	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4527	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4528
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4529	domainSymbolOf:anInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4530	"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	4531	Return nil for invalid or unsupported domains."
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4532
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4533	\|domainSymbol\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4534
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4535	%{ /NOCONTEXT/
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4536
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4537	if (__isSmallInteger(anInteger)) {
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4538	switch(__intVal(anInteger)) {
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4539	#ifdef AF_INET
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4540	case AF_INET:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4541	domainSymbol = @symbol(AF_INET);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4542	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4543	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4544	#ifdef AF_INET6
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4545	case AF_INET6:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4546	domainSymbol = @symbol(AF_INET6);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4547	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4548	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4549	#ifdef AF_UNIX
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4550	case AF_UNIX:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4551	domainSymbol = @symbol(AF_UNIX);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4552	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4553	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4554	#ifdef AF_APPLETALK
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4555	case AF_APPLETALK:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4556	domainSymbol = @symbol(AF_APPLETALK);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4557	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4558	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4559	#ifdef AF_DECnet
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4560	case AF_DECnet:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4561	domainSymbol = @symbol(AF_DECnet);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4562	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4563	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4564	#ifdef AF_NS
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4565	case AF_NS:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4566	domainSymbol = @symbol(AF_NS);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4567	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4568	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4569	#ifdef AF_X25
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4570	case AF_X25:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4571	domainSymbol = @symbol(AF_X25);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4572	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4573	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4574	#ifdef AF_SNA
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4575	case AF_SNA:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4576	domainSymbol = @symbol(AF_SNA);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4577	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4578	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4579	#ifdef AF_RAW
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4580	case AF_RAW:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4581	domainSymbol = @symbol(AF_RAW);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4582	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4583	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4584	#ifdef AF_ISO
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4585	case AF_ISO:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4586	domainSymbol = @symbol(AF_ISO);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4587	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4588	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4589	#ifdef AF_ECMA
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4590	case AF_ECMA:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4591	domainSymbol = @symbol(AF_ECMA);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4592	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4593	#endif
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4594	#ifdef AF_NETBIOS
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4595	case AF_NETBIOS:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4596	domainSymbol = @symbol(AF_NETBIOS);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4597	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4598	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4599	#ifdef AF_IPX
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4600	case AF_IPX:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4601	domainSymbol = @symbol(AF_IPX);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4602	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4603	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4604	#ifdef AF_AX25
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4605	case AF_AX25:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4606	domainSymbol = @symbol(AF_AX25);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4607	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4608	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4609	#ifdef AF_NETROM
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4610	case AF_NETROM:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4611	domainSymbol = @symbol(AF_NETROM);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4612	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4613	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4614	#ifdef AF_BRIDGE
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4615	case AF_BRIDGE:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4616	domainSymbol = @symbol(AF_BRIDGE);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4617	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4618	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4619	#ifdef AF_BSC
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4620	case AF_BSC:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4621	domainSymbol = @symbol(AF_BSC);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4622	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4623	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4624	#ifdef AF_ROSE
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4625	case AF_ROSE:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4626	domainSymbol = @symbol(AF_ROSE);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4627	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4628	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4629	#ifdef AF_IRDA
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4630	case AF_IRDA:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4631	domainSymbol = @symbol(AF_IRDA);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4632	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4633	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4634	#ifdef AF_BAN
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4635	case AF_BAN:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4636	domainSymbol = @symbol(AF_BAN);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4637	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4638	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4639	#ifdef AF_VOICEVIEW
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4640	case AF_VOICEVIEW:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4641	domainSymbol = @symbol(AF_VOICEVIEW);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4642	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4643	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4644	#ifdef AF_ATM
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4645	case AF_ATM:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4646	domainSymbol = @symbol(AF_ATM);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4647	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4648	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4649	#ifdef AF_ATMPVC
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4650	case AF_ATMPVC:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4651	domainSymbol = @symbol(AF_ATMPVC);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4652	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4653	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4654	#ifdef AF_ATMSVC
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4655	case AF_ATMSVC:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4656	domainSymbol = @symbol(AF_ATMSVC);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4657	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4658	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4659	#ifdef AF_SECURITY
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4660	case AF_SECURITY:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4661	domainSymbol = @symbol(AF_SECURITY);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4662	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4663	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4664	#ifdef AF_KEY
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4665	case AF_KEY:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4666	domainSymbol = @symbol(AF_KEY);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4667	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4668	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4669	#ifdef AF_NETLINK
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4670	case AF_NETLINK:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4671	domainSymbol = @symbol(AF_NETLINK);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4672	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4673	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4674	#ifdef AF_PACKET
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4675	case AF_PACKET:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4676	domainSymbol = @symbol(AF_PACKET);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4677	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4678	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4679	#ifdef AF_ASH
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4680	case AF_ASH:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4681	domainSymbol = @symbol(AF_ASH);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4682	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4683	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4684	#ifdef AF_ECONET
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4685	case AF_ECONET:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4686	domainSymbol = @symbol(AF_ECONET);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4687	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4688	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4689	#ifdef AF_IMPLINK
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4690	case AF_IMPLINK:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4691	domainSymbol = @symbol(AF_IMPLINK);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4692	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4693	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4694	#ifdef AF_PUP
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4695	case AF_PUP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4696	domainSymbol = @symbol(AF_PUP);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4697	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4698	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4699	#ifdef AF_CHAOS
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4700	case AF_CHAOS:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4701	domainSymbol = @symbol(AF_CHAOS);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4702	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4703	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4704	#ifdef AF_DLI
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4705	case AF_DLI:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4706	domainSymbol = @symbol(AF_DLI);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4707	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4708	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4709	#ifdef AF_LAT
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4710	case AF_LAT:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4711	domainSymbol = @symbol(AF_LAT);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4712	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4713	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4714	#ifdef AF_HYLINK
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4715	case AF_HYLINK:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4716	domainSymbol = @symbol(AF_HYLINK);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4717	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4718	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4719	#ifdef AF_FIREFOX
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4720	case AF_FIREFOX:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4721	domainSymbol = @symbol(AF_FIREFOX);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4722	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4723	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4724	#ifdef AF_CLUSTER
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4725	case AF_CLUSTER:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4726	domainSymbol = @symbol(AF_CLUSTER);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4727	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4728	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4729	#ifdef AF_12844
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4730	case AF_12844:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4731	domainSymbol = @symbol(AF_12844);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4732	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4733	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4734	#ifdef AF_NETDES
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4735	case AF_NETDES:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4736	domainSymbol = @symbol(AF_NETDES);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4737	break;
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4738	#endif
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4739	}
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4740	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4741	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4742
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4743	^ domainSymbol.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4744
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4745	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4746	self domainSymbolOf:(self domainCodeOf:#inet)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4747	self domainSymbolOf:(self domainCodeOf:#inet6)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4748	self domainSymbolOf:(self domainCodeOf:#unix)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4749	self domainSymbolOf:(self domainCodeOf:#appletalk)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4750	self domainSymbolOf:(self domainCodeOf:#decnet)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4751	self domainSymbolOf:(self domainCodeOf:#raw)
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4752	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4753	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4754
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4755	protocolCodeOf:aSymbolOrInteger
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4756	"return the numeric IPPROTO_xxx code of a given symbolic protocol name.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4757	Return nil for invalid or unsupported protocols.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4758	For backward compatibility, the obsolete (non-IPPROTO-prefixed) names
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4759	are still supported for a while - this support will vanish."
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4760
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4761	\|protocolCode\|
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4762
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4763	%{ /NOCONTEXT/
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4764
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4765	if (__isSmallInteger(aSymbolOrInteger) \|\| aSymbolOrInteger == nil) {
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4766	RETURN (aSymbolOrInteger);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4767	}
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4768
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4769	#ifdef IPPROTO_IP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4770	else if ((aSymbolOrInteger == @symbol(IPPROTO_IP)) \|\| (aSymbolOrInteger == @symbol(ip)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4771	protocolCode = __mkSmallInteger(IPPROTO_IP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4772	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4773	#ifdef IPPROTO_ICMP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4774	else if ((aSymbolOrInteger == @symbol(IPPROTO_ICMP)) \|\| (aSymbolOrInteger == @symbol(icmp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4775	protocolCode = __mkSmallInteger(IPPROTO_ICMP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4776	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4777	#ifdef IPPROTO_IGMP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4778	else if ((aSymbolOrInteger == @symbol(IPPROTO_IGMP)) \|\| (aSymbolOrInteger == @symbol(igmp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4779	protocolCode = __mkSmallInteger(IPPROTO_IGMP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4780	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4781	#ifdef IPPROTO_GGP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4782	else if ((aSymbolOrInteger == @symbol(IPPROTO_GGP)) \|\| (aSymbolOrInteger == @symbol(ggp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4783	protocolCode = __mkSmallInteger(IPPROTO_GGP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4784	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4785	#ifdef IPPROTO_TCP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4786	else if ((aSymbolOrInteger == @symbol(IPPROTO_TCP)) \|\| (aSymbolOrInteger == @symbol(tcp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4787	protocolCode = __mkSmallInteger(IPPROTO_TCP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4788	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4789	#ifdef IPPROTO_UDP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4790	else if ((aSymbolOrInteger == @symbol(IPPROTO_UDP)) \|\| (aSymbolOrInteger == @symbol(udp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4791	protocolCode = __mkSmallInteger(IPPROTO_UDP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4792	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4793	#ifdef IPPROTO_IDP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4794	else if ((aSymbolOrInteger == @symbol(IPPROTO_IDP)) \|\| (aSymbolOrInteger == @symbol(idp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4795	protocolCode = __mkSmallInteger(IPPROTO_IDP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4796	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4797	#ifdef IPPROTO_ND
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4798	else if ((aSymbolOrInteger == @symbol(IPPROTO_ND)) \|\| (aSymbolOrInteger == @symbol(nd)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4799	protocolCode = __mkSmallInteger(IPPROTO_ND);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4800	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4801	#ifdef IPPROTO_RAW
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4802	else if ((aSymbolOrInteger == @symbol(IPPROTO_RAW)) \|\| (aSymbolOrInteger == @symbol(raw)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4803	protocolCode = __mkSmallInteger(IPPROTO_RAW);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4804	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4805	%}.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4806
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4807	^ protocolCode.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4808
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4809	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4810	self protocolCodeOf:#IPPROTO_UDP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4811	self protocolCodeOf:#IPPROTO_TCP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4812	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4813	"for backward compatibility only:
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4814	self protocolCodeOf:#udp
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4815	self protocolCodeOf:#tcp
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4816	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4817	!
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4818
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4819	protocolSymbolOf:anInteger
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4820	"return the symbolic protocolName of a given numeric IPPROTO_xxx code.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4821	Return nil for invalid or unsupported protocols."
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4822
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4823	\|protocolSymbol\|
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4824
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4825	%{ /NOCONTEXT/
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4826
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4827	if (__isSmallInteger(anInteger)) {
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4828	switch(__intVal(anInteger)) {
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4829	#ifdef IPPROTO_IP
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4830	case IPPROTO_IP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4831	// protocolSymbol = @symbol(IPPROTO_IP);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4832	protocolSymbol = @symbol(ip);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4833	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4834	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4835	#ifdef IPPROTO_ICMP
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4836	case IPPROTO_ICMP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4837	// protocolSymbol = @symbol(IPPROTO_ICMP);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4838	protocolSymbol = @symbol(icmp);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4839	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4840	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4841	#ifdef IPPROTO_IGMP
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4842	case IPPROTO_IGMP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4843	// protocolSymbol = @symbol(IPPROTO_IGMP);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4844	protocolSymbol = @symbol(igmp);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4845	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4846	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4847	#ifdef IPPROTO_GGP
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4848	case IPPROTO_GGP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4849	// protocolSymbol = @symbol(IPPROTO_GGP);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4850	protocolSymbol = @symbol(ggp);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4851	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4852	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4853	#ifdef IPPROTO_TCP
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4854	case IPPROTO_TCP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4855	// protocolSymbol = @symbol(IPPROTO_TCP);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4856	protocolSymbol = @symbol(tcp);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4857	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4858	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4859	#ifdef IPPROTO_PUP
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4860	case IPPROTO_PUP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4861	// protocolSymbol = @symbol(IPPROTO_PUP);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4862	protocolSymbol = @symbol(pup);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4863	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4864	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4865	#ifdef IPPROTO_UDP
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4866	case IPPROTO_UDP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4867	// protocolSymbol = @symbol(IPPROTO_UDP);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4868	protocolSymbol = @symbol(udp);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4869	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4870	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4871	#ifdef IPPROTO_IDP
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4872	case IPPROTO_IDP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4873	// protocolSymbol = @symbol(IPPROTO_IDP);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4874	protocolSymbol = @symbol(idp);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4875	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4876	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4877	#ifdef IPPROTO_ND
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4878	case IPPROTO_ND:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4879	// protocolSymbol = @symbol(IPPROTO_ND);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4880	protocolSymbol = @symbol(nd);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4881	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4882	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4883	#ifdef IPPROTO_RAW
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4884	case IPPROTO_RAW:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4885	// protocolSymbol = @symbol(IPPROTO_RAW);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4886	protocolSymbol = @symbol(raw);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4887	break;
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4888	#endif
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4889	}
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4890	}
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4891	%}.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4892
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4893	^ protocolSymbol.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4894
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4895	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4896	self protocolSymbolOf:(self protocolCodeOf:#tcp)
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4897	self protocolSymbolOf:(self protocolCodeOf:#udp)
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4898	self protocolSymbolOf:(self protocolCodeOf:#raw)
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4899	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4900	!
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4901
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4902	socketAddressSizeOfDomain:aSymbolOrInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4903	"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	4904	Return nil, if unknown or unsupported."
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4905
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4906	\|socketSize domainCode\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4907
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4908	domainCode := OperatingSystem domainCodeOf:aSymbolOrInteger.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4909
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4910	%{
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4911	if (__isSmallInteger(domainCode)) {
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4912	switch (__intVal(domainCode)) {
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4913	#ifdef AF_INET
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4914	case AF_INET:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4915	socketSize = __mkSmallInteger( sizeof(struct sockaddr_in) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4916	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4917	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4918	#ifdef AF_INET6
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4919	case AF_INET6:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4920	socketSize = __mkSmallInteger( sizeof(struct sockaddr_in6) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4921	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4922	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4923	#ifdef AF_UNIX
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4924	case AF_UNIX:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4925	socketSize = __mkSmallInteger( sizeof(struct sockaddr_un) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4926	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4927	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4928	#ifdef AF_APPLETALK
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4929	case AF_APPLETALK:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4930	socketSize = __mkSmallInteger( sizeof(struct sockaddr_at) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4931	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4932	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4933	#ifdef AF_DECnet
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4934	case AF_DECnet:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4935	socketSize = __mkSmallInteger( sizeof(struct sockaddr_dn) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4936	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4937	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4938	#ifdef AF_NS
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4939	case AF_NS:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4940	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ns) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4941	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4942	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4943	#ifdef AF_X25
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4944	case AF_X25:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4945	socketSize = __mkSmallInteger( sizeof(struct sockaddr_x25) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4946	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4947	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4948	#ifdef AF_SNA
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4949	case AF_SNA:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4950	socketSize = __mkSmallInteger( sizeof(struct sockaddr_sna) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4951	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4952	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4953	#ifdef AF_RAW
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4954	case AF_RAW:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4955	socketSize = __mkSmallInteger( sizeof(struct sockaddr_raw) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4956	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4957	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4958	#ifdef AF_ISO
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4959	case AF_ISO:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4960	socketSize = __mkSmallInteger( sizeof(struct sockaddr_iso) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4961	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4962	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4963	#ifdef AF_ECMA
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4964	# if 0
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4965	case AF_ECMA:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4966	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ecma) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4967	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4968	# endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4969	#endif
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4970	#ifdef AF_NETBIOS
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4971	case AF_NETBIOS:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4972	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netbios) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4973	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4974	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4975	#ifdef AF_NETBEUI
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4976	case AF_NETBEUI:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4977	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netbeui) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4978	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4979	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4980	#ifdef AF_IPX
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4981	case AF_IPX:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4982	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ipx) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4983	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4984	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4985	#ifdef AF_AX25
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4986	case AF_AX25:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4987	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ax25) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4988	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4989	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4990	#ifdef AF_NETROM
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4991	case AF_NETROM:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4992	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netrom) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4993	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4994	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4995	#ifdef AF_BRIDGE
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4996	case AF_BRIDGE:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4997	socketSize = __mkSmallInteger( sizeof(struct sockaddr_bridge) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4998	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4999	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5000	#ifdef AF_BSC
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5001	case AF_BSC:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5002	socketSize = __mkSmallInteger( sizeof(struct sockaddr_bsc) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5003	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5004	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5005	#ifdef AF_ROSE
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5006	case AF_ROSE:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5007	socketSize = __mkSmallInteger( sizeof(struct sockaddr_rose) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5008	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5009	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5010	#ifdef AF_IRDA
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5011	case AF_IRDA:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5012	socketSize = __mkSmallInteger( sizeof(struct sockaddr_irda) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5013	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5014	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5015	#ifdef AF_BAN
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5016	case AF_BAN:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5017	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ban) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5018	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5019	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5020	#ifdef AF_VOICEVIEW
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5021	case AF_VOICEVIEW:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5022	socketSize = __mkSmallInteger( sizeof(struct sockaddr_voiceview) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5023	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5024	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5025	#ifdef AF_ATM
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5026	case AF_ATM:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5027	socketSize = __mkSmallInteger( sizeof(struct sockaddr_atm) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5028	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5029	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5030	#ifdef AF_ATMPVC
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5031	case AF_ATMPVC:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5032	socketSize = __mkSmallInteger( sizeof(struct sockaddr_atmpvc) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5033	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5034	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5035	#ifdef AF_ATMSVC
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5036	case AF_ATMSVC:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5037	socketSize = __mkSmallInteger( sizeof(struct sockaddr_atmsvc) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5038	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5039	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5040	#ifdef AF_NETLINK
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5041	case AF_NETLINK:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5042	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netlink) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5043	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5044	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5045	#ifdef AF_PACKET
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5046	case AF_PACKET:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5047	socketSize = __mkSmallInteger( sizeof(struct sockaddr_packet) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5048	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5049	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5050	#ifdef AF_ASH
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5051	case AF_ASH:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5052	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ash) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5053	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5054	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5055	#ifdef AF_ECONET
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5056	case AF_ECONET:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5057	socketSize = __mkSmallInteger( sizeof(struct sockaddr_eco) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5058	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5059	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5060	#ifdef AF_IMPLINK
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5061	case AF_IMPLINK:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5062	socketSize = __mkSmallInteger( sizeof(struct sockaddr_implink) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5063	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5064	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	5065	#ifdef AF_PUP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	5066	# if 0
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5067	case AF_PUP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5068	socketSize = __mkSmallInteger( sizeof(struct sockaddr_pup) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5069	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	5070	# endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	5071	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5072	#ifdef AF_CHAOS
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5073	case AF_CHAOS:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5074	socketSize = __mkSmallInteger( sizeof(struct sockaddr_chaos) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5075	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5076	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5077	#ifdef AF_DLI
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5078	case AF_DLI:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5079	socketSize = __mkSmallInteger( sizeof(struct sockaddr_dli) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5080	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5081	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5082	#ifdef AF_LAT
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5083	case AF_LAT:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5084	socketSize = __mkSmallInteger( sizeof(struct sockaddr_lat) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5085	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5086	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5087	#ifdef AF_HYLINK
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5088	case AF_HYLINK:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5089	socketSize = __mkSmallInteger( sizeof(struct sockaddr_hylink) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5090	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5091	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5092	#ifdef AF_FIREFOX
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5093	case AF_FIREFOX:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5094	socketSize = __mkSmallInteger( sizeof(struct sockaddr_firefox) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5095	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5096	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5097	#ifdef AF_CLUSTER
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5098	case AF_CLUSTER:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5099	socketSize = __mkSmallInteger( sizeof(struct sockaddr_cluster) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5100	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5101	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5102	#ifdef AF_12844
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5103	case AF_12844:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5104	socketSize = __mkSmallInteger( sizeof(struct sockaddr_12844) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5105	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5106	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5107	#ifdef AF_NETDES
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5108	case AF_NETDES:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5109	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netdes) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5110	break;
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5111	#endif
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5112	}
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5113	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5114	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5115	^ socketSize
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5116
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5117	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5118	self socketAddressSizeOfDomain:#'AF_INET'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5119	self socketAddressSizeOfDomain:#'AF_UNIX'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5120	self socketAddressSizeOfDomain:#'Foo'
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5121	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5122	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5123
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5124	socketTypeCodeOf:aSymbolOrInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5125	"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	5126	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	5127
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5128	\|typeCode\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5129
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5130	%{ /NOCONTEXT/
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5131
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5132	if (__isSmallInteger(aSymbolOrInteger) \|\| aSymbolOrInteger == nil) {
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5133	typeCode = aSymbolOrInteger;
7509 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	#ifdef SOCK_STREAM
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5137	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	5138	typeCode = __mkSmallInteger(SOCK_STREAM);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5139	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5140	#ifdef SOCK_DGRAM
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5141	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	5142	typeCode = __mkSmallInteger(SOCK_DGRAM);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5143	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5144	#ifdef SOCK_RAW
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5145	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	5146	typeCode = __mkSmallInteger(SOCK_RAW);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5147	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5148	#ifdef SOCK_RDM
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5149	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	5150	typeCode = __mkSmallInteger(SOCK_RDM);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5151	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5152	#ifdef SOCK_SEQPACKET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5153	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	5154	typeCode = __mkSmallInteger(SOCK_SEQPACKET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5155	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5156	#ifdef SOCK_PACKET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5157	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	5158	typeCode = __mkSmallInteger(SOCK_PACKET);
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	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5161
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5162	^ typeCode.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5163
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5164	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5165	self socketTypeCodeOf:#stream
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5166	self socketTypeCodeOf:#datagram
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5167	self socketTypeCodeOf:#raw
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5168	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5169	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5170
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5171	socketTypeSymbolOf:anInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5172	"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	5173	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	5174
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5175	\|socketTypeSymbol\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5176
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5177	%{ /NOCONTEXT/
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5178
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5179	if (__isSmallInteger(anInteger)) {
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5180	switch(__intVal(anInteger)) {
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5181	#ifdef SOCK_STREAM
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5182	case SOCK_STREAM:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5183	socketTypeSymbol = @symbol(SOCK_STREAM);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5184	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5185	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5186	#ifdef SOCK_DGRAM
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5187	case SOCK_DGRAM:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5188	socketTypeSymbol = @symbol(SOCK_DGRAM);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5189	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5190	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5191	#ifdef SOCK_RAW
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5192	case SOCK_RAW:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5193	socketTypeSymbol = @symbol(SOCK_RAW);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5194	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5195	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5196	#ifdef SOCK_RDM
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5197	case SOCK_RDM:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5198	socketTypeSymbol = @symbol(SOCK_RDM);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5199	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5200	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5201	#ifdef SOCK_SEQPACKET
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5202	case SOCK_SEQPACKET:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5203	socketTypeSymbol = @symbol(SOCK_SEQPACKET);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5204	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5205	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5206	#ifdef SOCK_PACKET
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5207	case SOCK_PACKET:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5208	socketTypeSymbol = @symbol(SOCK_PACKET);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5209	break;
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5210	#endif
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5211	}
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5212	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5213	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5214	^ socketTypeSymbol.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5215	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5216
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5217	supportedProtocolFamilies
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5218	"return a collection of supported protocol families.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5219	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	5220	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	5221	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	5222	(non-AF-prefixed) symbols; these will vanish."
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5223
7713 c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5224	^ #(
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5225	#AF_INET #inet
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5226	#AF_UNIX #unix
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5227	#AF_INET6 #inet6
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5228	#AF_APPLETALK #appletalk
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5229	#AF_DECnet #decnet
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5230	#AF_NS #ns
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5231	#AF_X25 #x25
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5232	#AF_SNA
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5233	#AF_RAW
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5234	#AF_ISO
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5235	#AF_ECMA
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5236	#AF_NETBIOS #netbios
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5237	#AF_IPX
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5238	#AF_AX25
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5239	#AF_NETROM
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5240	#AF_BRIDGE
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5241	#AF_BSC
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5242	#AF_ROSE
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5243	#AF_IRDA #irda
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5244	#AF_NETLINK
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5245	#AF_NETLINK
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5246	#AF_NETBEUI
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5247	#AF_ATM
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5248	#AF_ATMPVC
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5249	#AF_ATMSVC
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5250	#AF_BAN
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5251	#AF_VOICEVIEW
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5252	#AF_ECONET
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5253	#AF_IMPLINK
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5254	#AF_PUP
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5255	#AF_CHAOS
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5256	#AF_DLI
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5257	#AF_LAT
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5258	#AF_HYLINK
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5259	#AF_FIREFOX
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5260	#AF_CLUSTER
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5261	#AF_12844
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5262	#AF_NETDES
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5263	) select:[:sym \| (AbstractOperatingSystem domainCodeOf:sym) isNumber ]
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5264
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5265	"
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5266	AbstractOperatingSystem supportedProtocolFamilies
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5267	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5268	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5269
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5270	supportedSocketTypes
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5271	"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	5272	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	5273
7713 c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5274	^ #(
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5275	#SOCK_STREAM
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5276	#SOCK_DGRAM
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5277	#SOCK_RAW
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5278	#SOCK_RDM
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5279	#SOCK_SEQPACKET
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5280	#SOCK_PACKET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5281	) select:[:sym \| (AbstractOperatingSystem socketTypeCodeOf:sym) isNumber ]
7713 c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5282
c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5283	"
c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5284	AbstractOperatingSystem supportedSocketTypes
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5285	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5286	! !
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5287
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5288	!AbstractOperatingSystem class methodsFor:'shared memory access'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5289
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5290	shmAttach:id address:addr flags:flags
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5291	"low level entry to shmat()-system call.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5292	Not supported on all operatingSystems"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5293
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5294	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5295
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5296	"Modified: / 19.5.1999 / 14:21:35 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5297	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5298
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5299	shmDetach:addr
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5300	"low level entry to shmdt()-system call.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5301	Not supported on all operatingSystems"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5302
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5303	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5304
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5305	"Modified: / 19.5.1999 / 14:21:37 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5306	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5307
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5308	shmGet:key size:size flags:flags
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5309	"low level entry to shmget()-system call.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5310	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	5311	- use the provided wrapper class SharedExternalBytes instead."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5312
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5313	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5314
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5315	"Modified: / 19.5.1999 / 14:21:41 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5316	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5317
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5318	!AbstractOperatingSystem class methodsFor:'time and date'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5319
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5320	computeDatePartsOf:osTime for:aBlock
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5321	"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	5322	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	5323	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	5324
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5325	<resource:#obsolete>
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5326
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5327	\|i\|
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5328
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5329	self obsoleteMethodWarning:'use #computeTimeAndDateFrom:osTime'.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5330
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5331	i := self computeTimeAndDateFrom:osTime.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5332	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	5333
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5334	"
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5335	OperatingSystem computeDatePartsOf:0 for:[:y :m :d \|
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5336	y printCR. m printCR. d printCR
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5337	]
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5338	"
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5339	!
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5340
4377 59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5341	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	5342	"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	5343	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	5344
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5345	self subclassResponsibility
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5346
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5347	"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	5348	!
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5349
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5350	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	5351	"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	5352	The arguments are assumed to be in localtime including
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5353	any daylight saving adjustings."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5354
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5355	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5356	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5357
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5358	computeTimeAndDateFrom:osTime
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5359	"given an OS-dependent time in osTime, return an Array
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5360	containing (full-) year, month, day, hour, minute and seconds,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5361	offset to UTC, daylight savings time flag, milliseconds,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5362	dayInYear (1..) and dayInWeek (1..).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5363	Conversion is to localtime including any daylight saving adjustments."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5364
7733 f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5365	\|divMod ret\|
f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5366
f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5367	divMod := osTime divMod:1000.
7739 d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5368	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	5369	^ ret
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5370
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5371	"
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5372	OperatingSystem computeTimeAndDateFrom:0
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5373	OperatingSystem computeTimeAndDateFrom:1011
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5374	"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5375	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5376
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5377	computeTimePartsOf:osTime for:aBlock
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5378	"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	5379	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	5380	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	5381
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5382	<resource:#obsolete>
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5383
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5384	\|hours minutes seconds millis i\|
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5385
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5386	self obsoleteMethodWarning:'use #computeTimeAndDateFrom:osTime'.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5387
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5388	i := self computeTimeAndDateFrom:osTime.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5389	hours := i hours.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5390	minutes := i minutes.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5391	seconds := i seconds.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5392	millis := i milliseconds.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5393
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5394	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	5395
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5396	"
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5397	OperatingSystem computeTimePartsOf:100 for:[:h :m :s :milli \|
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5398	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	5399	]
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5400	"
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5401	!
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5402
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5403	computeUTCTimeAndDateFrom:osTime
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5404	"given an OS-dependent time in osTime, return an Array
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5405	containing:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5406	(full-) year,
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5407	month, (1..)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5408	day, (1..)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5409	hour, (0..23)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5410	minute (0..59)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5411	seconds, (0..59)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5412	offset to UTC, (seconds)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5413	daylight savings time flag,
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5414	milliseconds, (0..999)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5415	dayInYear (1..)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5416	dayInWeek (1..).
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5417	Conversion is to utc."
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5418
7733 f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5419	\|divMod ret\|
f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5420
f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5421	divMod := osTime divMod:1000.
7739 d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5422	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	5423	^ ret
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5424
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5425	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5426	OperatingSystem computeUTCTimeAndDateFrom:0
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5427	OperatingSystem computeUTCTimeAndDateFrom:1011
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5428	"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5429	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5430
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5431	computeUTCTimePartsOf:osTime for:aBlock
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5432	"compute hours, minutes, seconds and milliseconds from the osTime
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5433	and evaluate the argument, a 4-arg block with these.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5434	Conversion is to UTC."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5435
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5436	<resource:#obsolete>
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5437
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5438	\|hours minutes seconds millis i\|
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5439
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5440	self obsoleteMethodWarning:'use #computeTimeAndDateFrom:osTime'.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5441
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5442	i := self computeUTCTimeAndDateFrom:osTime.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5443	hours := i hours.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5444	minutes := i minutes.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5445	seconds := i seconds.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5446	millis := i milliseconds.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5447
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5448	aBlock value:hours value:minutes value:seconds value:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5449	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5450
17909 0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5451	getCPUCycleCount
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5452	"get a CPU specific cycle counter value.
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5453	Can be used for exact timing & performance measurements.
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5454	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	5455
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5456	For x86:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5457	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	5458	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	5459	For others:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5460	currently fails"
17909 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	%{ /* NOCONTEXT */
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5463	unsigned int low, high;
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5464
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5465	#ifdef i386
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5466	// 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	5467
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5468	# if defined(__BORLANDC__)
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5469	_asm { push edx };
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5470	__emit__(0x0F,0x31); /* RDTSC instruction */
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5471	_asm { mov low,eax };
17909 0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5472	_asm { mov high,edx };
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5473	_asm { pop edx };
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5474	# elif defined(__MINGW_H) \|\| defined(__GNUC__)
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5475	asm volatile("rdtsc" : "=a"(low), "=d"(high));
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5476	# else
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5477	goto unsupported;
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5478	# endif
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5479	#endif /* i386 */
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5480
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5481	RETURN ( __MKLARGEINT64(1, low, high) );
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5482	unsupported: ;
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5483	%}.
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5484	self primitiveFailed:'no CPU cycle register on this architecture'
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5485
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5486	"Created: / 05-01-2012 / 13:23:31 / cg"
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5487	!
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5488
3689 f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5489	getMicrosecondTime
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5490	"This returns the microsecond timers value - if available.
3689 f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5491	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	5492	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	5493	clock resolution value."
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5494
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5495	"/ fallBack - use getMillisecondTime, which must be implemented
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5496	"/ for all OS's
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5497
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5498	^ self getMillisecondTime * 1000
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5499
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5500	"Created: / 30.7.1998 / 16:38:26 / cg"
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5501	!
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5502
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5503	getMillisecondTime
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5504	"This returns the millisecond timers value.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5505	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	5506	LargeInteger arithmetic when doing timeouts and delays.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5507	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	5508	short relative time deltas.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5509	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	5510
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5511	BAD DESIGN:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5512	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	5513	and these computations moved there.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5514
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5515	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	5516	interface. For compatibility with ST-80, use Time millisecondClockValue.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5517	"
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	self subclassResponsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5522	getOSTime
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5523	"This returns the OS time.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5524	The base of the returned value is not consistent across
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5525	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	5526	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	5527	converts as appropriate (by using my fromOSTime: conversion methods).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5528
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5529	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	5530	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	5531	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	5532	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5533
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5534	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5535	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5536
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5537	maximumMillisecondTimeDelta
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5538	"this returns the maximum delta supported by millisecondCounter
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5539	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	5540	timer wraps."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5541
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5542	%{ /* NOCONTEXT */
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	5543	RETURN ( __mkSmallInteger(0x0FFFFFFF) );
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5544	%}
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5547	millisecondDelay:millis
7681 7c63f0b47f0d oops: millisecondDelay: was duplicated Claus Gittinger <cg@exept.de> parents: 7656 diff changeset	5548	"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	5549	All other threads proceed as usual.
7849 40819a29fdcd comment ca parents: 7835 diff changeset	5550	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	5551
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5552	\|now then delta\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5553
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5554	now := self getMillisecondTime.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5555	then := self millisecondTimeAdd:now and:millis.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5556
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5557	[(delta := self millisecondTimeDeltaBetween:then and:now) > 0] whileTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5558	self selectOnAnyReadable:nil writable:nil exception:nil withTimeOut:delta.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5559	now := self getMillisecondTime.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5560	]
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5561
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5562	"
7849 40819a29fdcd comment ca parents: 7835 diff changeset	5563	OperatingSystem millisecondDelay:5000
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5564	"
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5567	millisecondTime:msTime1 isAfter:msTime2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5568	"return true if msTime1 is after msTime2, false if not.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5569	The two arguments are supposed to be millisecond times
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5570	(such as returned getMillisecondTime) which wrap at 16r1FFFFFFF.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5571
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5572	This should really be moved to some RelativeTime class."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5573
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5574	(msTime1 > msTime2) ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5575	((msTime1 - msTime2) < 16r10000000) ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5576	^ true
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5577	].
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5578	] ifFalse:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5579	((msTime2 - msTime1) > 16r10000000) ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5580	^ true
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5581	].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5582	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5583	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5584	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5585
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5586	millisecondTimeAdd:msTime1 and:msTime2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5587	"Add two millisecond times (such as returned getMillisecondTime).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5588	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	5589
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5590	This should really be moved to some RelativeTime class."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5591
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5592	\|sum\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5593
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5594	sum := msTime1 + msTime2.
17892 d86c8bd5ece3 Merged with CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17869 diff changeset	5595	(sum > 16r1FFFFFFF) ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5596	self assert:(sum <= 16r3FFFFFFF) message:'overflow in timer computation'.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5597	^ sum - 16r20000000.
17892 d86c8bd5ece3 Merged with CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17869 diff changeset	5598	].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5599	(sum < 0) ifTrue:[^ sum + 16r20000000].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5600	^ sum
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5601	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5602
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5603	millisecondTimeDeltaBetween:msTime1 and:msTime2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5604	"subtract two millisecond times (such as returned getMillisecondTime)
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5605	and return the difference. Since milli-times wrap (at 16r01FFFFFFF),
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5606	some special handling is built-in here.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5607	The returned value is msTime1 - msTime2. The returned value is invalid
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5608	if the delta is >= 0x10000000.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5609
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5610	This should really be moved to some RelativeTime class;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5611	better yet: create a subclass of Integer named LimitedRangeInteger."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5612
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5613	\|diff\|
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5614
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5615	diff := msTime1 - msTime2.
11166 52c2ccfc0d4c Make last change better looking Stefan Vogel <sv@exept.de> parents: 11165 diff changeset	5616	diff > 16r-10000000 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5617	(diff < 16r10000000) ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5618	^ diff.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5619	] ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5620	^ diff - 16r20000000.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5621	].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5622	].
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5623	^ diff + 16r20000000
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5624
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5625
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5626	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5627	OperatingSystem millisecondTimeAdd:16r0FFFFFFF and:1
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5628	OperatingSystem millisecondTimeAdd:16r0FFFFFFF and:(16 / 3)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5629	OperatingSystem millisecondTimeAdd:16r0FFFFFFF and:1000
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5630
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5631	OperatingSystem millisecondTimeDeltaBetween:0 and:16r0FFFFFFF
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5632	OperatingSystem millisecondTimeDeltaBetween:0 and:16r1FFFFFFF
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5633	OperatingSystem millisecondTimeDeltaBetween:16r1FFFFFFF and:0
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5634
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5635	OperatingSystem millisecondTimeDeltaBetween:(13/3) and:16r0FFFFFFF
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5636	OperatingSystem millisecondTimeDeltaBetween:999 and:16r0FFFFFFF
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5637
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5638	OperatingSystem millisecondTime:0 isAfter:16r0FFFFFFF
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5639	OperatingSystem millisecondTime:0 isAfter:16r1FFFFFFF
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5640	OperatingSystem millisecondTime:(13/3) isAfter:16r0FFFFFFF
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5641	OperatingSystem millisecondTime:999 isAfter:16r0FFFFFFF
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5642
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5643	OperatingSystem millisecondTime:0 isAfter:0
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5644	OperatingSystem millisecondTime:(13/3) isAfter:0
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5645	OperatingSystem millisecondTime:999 isAfter:0
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5646
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5647	OperatingSystem millisecondTime:1 isAfter:0
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5648	OperatingSystem millisecondTime:(13/3) isAfter:2
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5649	OperatingSystem millisecondTime:999 isAfter:900
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5650
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5651	\|t1 t2\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5652
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5653	t1 := Time millisecondClockValue.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5654	(Delay forMilliseconds:1) wait.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5655	t2 := Time millisecondClockValue.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5656	OperatingSystem millisecondTimeDeltaBetween:t2 and:t1
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5657	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5658	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5659
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5660	sleep:numberOfSeconds
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5661	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5662
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5663	"cease ANY action for some time. This suspends the whole smalltalk
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5664	(unix-) process for some time.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5665	Not really useful since not even low-prio processes and interrupt
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5666	handling will run during the sleep.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5667	Use either OperatingSystem>>millisecondDelay: (which makes all
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5668	threads sleep, but handles interrupts) or use a Delay (which makes
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5669	only the calling thread sleep)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5670
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5671	self subclassResponsibility
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5672	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5673
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5674	timeInfoClass
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5675	^ TimeInfo
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5676	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5677
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5678	timeInfoFromSeconds:osSeconds localTime:isLocalTime
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5679	"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	5680	An internal helper"
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5681
7739 d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5682	^ self timeInfoFromSeconds:osSeconds milliseconds:0 localTime:isLocalTime
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5683	!
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5684
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5685	timeInfoFromSeconds:osSeconds milliseconds:osMilliSeconds localTime:isLocalTime
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5686	"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	5687	An internal helper"
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5688
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5689	self subclassResponsibility
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5690	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5691
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5692	!AbstractOperatingSystem class methodsFor:'users & groups'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5693
17795 569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5694	getApplicationDataDirectoryFor:appName
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5695	"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	5696	located (ini-files, preferences etc.).
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5697	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	5698	is returned, here, the fallback ~/.<appName> is returned.
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5699	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	5700
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5701	"{ Pragma: +optSpace }"
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5702
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5703	^ self getHomeDirectory asFilename constructString:('.',appName)
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5704
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5705	"
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5706	OperatingSystem getApplicationDataDirectoryFor:'expecco'
17795 569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5707	"
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5708
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5709	"Created: / 29-07-2010 / 12:07:25 / sr"
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5710	!
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5711
10544 83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5712	getDesktopDirectory
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5713	"{ Pragma: +optSpace }"
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5714
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5715	"return the name of the users desktop directory.
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5716	The fallback here returns the users home directory."
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5717
10545 8806e5e326c0 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10544 diff changeset	5718	^ self getHomeDirectory
8806e5e326c0 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10544 diff changeset	5719
8806e5e326c0 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10544 diff changeset	5720	"
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5721	OperatingSystem getDesktopDirectory
10544 83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5722	"
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5723
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5724	"Created: / 16-05-2007 / 13:20:53 / cg"
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5725	!
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5726
11760 84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5727	getDocumentsDirectory
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5728	"return your documents directory.
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5729	Under windows, thats the real 'Documents' or 'My Documents'.
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5730	The fallback here returns the users home directory."
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5731
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5732	"{ Pragma: +optSpace }"
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5733
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5734	^ self getHomeDirectory
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5735
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5736	"
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5737	OperatingSystem getDocumentsDirectory
11760 84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5738	"
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5739	!
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5740
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5741	getEffectiveGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5742	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5743
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5744	"return the current users (thats you) effective numeric group id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5745	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	5746	as a setuid program (of which you should think about twice)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5747
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5748	^ self getGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5749
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	OperatingSystem getEffectiveGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5752	"
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	getEffectiveUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5756	"{ Pragma: +optSpace }"
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	"return the current users (thats you) effective numeric user id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5759	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	5760	as a setuid program (of which you should think about twice)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5761
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5762	^ self getUserID
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	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5765	OperatingSystem getEffectiveUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5766	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5767	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5768
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5769	getFullUserName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5770	"{ Pragma: +optSpace }"
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	"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	5773	If not, return the login name as a fallBack."
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	^ self getFullUserNameFromID:(self getUserID)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5776
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5777	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5778	OperatingSystem getFullUserName
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5779	"
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	"Modified: 24.1.1997 / 11:31:55 / cg"
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	getFullUserNameFromID:userID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5785	"{ Pragma: +optSpace }"
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	"return a string with the users full name - if available.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5788	If not, return the login name as a fallBack."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5789
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5790	^ self getUserNameFromID:userID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5791
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5792	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5793	OperatingSystem getFullUserNameFromID:0
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5794	OperatingSystem getFullUserNameFromID:(OperatingSystem getUserID)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5795
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5796	OperatingSystem getUserNameFromID:(OperatingSystem getUserID)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5797	"
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	"Modified: 15.7.1996 / 12:44:21 / cg"
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5802	getGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5803	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5804
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5805	"return the current users (thats you) numeric group id"
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	^ 1 "/ just a dummy for systems which do not have userIDs
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5808
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	OperatingSystem getGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5811	"
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	getGroupNameFromID:aNumber
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 the group-name-string for a given numeric group-id"
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	^ '???' "/ just a dummy for systems which do not have groups
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	OperatingSystem getGroupNameFromID:0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5823	OperatingSystem getGroupNameFromID:10
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	!
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	getHomeDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5828	"return the name of the users home directory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5829	(i.e. yours)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5830
11760 84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5831	^ self subclassResponsibility
3576 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	OperatingSystem getHomeDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5835	"
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	"Modified: 24.1.1997 / 11:32:13 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5838	!
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	getLoginName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5841	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5842
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5843	"return a string with the users login name (thats yours)"
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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5846	!
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	getUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5849	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5850
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5851	"return the current users (thats you) numeric user id"
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	^ 1 "just a dummy for systems which do not have userIDs"
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	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5856	OperatingSystem getUserID
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	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5859
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5860	getUserNameFromID:aNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5861	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5862
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5863	"return the user-name-string for a given numeric user-id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5864	This is the login name, not the fullName."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5865
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5866	"/ fallBack dummy
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5867
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5868	aNumber == self getUserID ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5869	^ self getLoginName
3576 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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5872	^ '? (' , aNumber printString , ')'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5873
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5874	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5875	OperatingSystem getUserNameFromID:0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5876	OperatingSystem getUserNameFromID:100
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5877	OperatingSystem getUserNameFromID:9991
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5878	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5879	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5880
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5881	userInfoOf:aNameOrID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5882	"{ Pragma: +optSpace }"
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	"return a dictionary filled with userinfo. The argument can be either
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5885	a string with the users name or its numeric id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5886	Notice, that not all systems provide (all of) this info;
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5887	DOS systems return nothing;
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5888	non-SYSV4 systems have no age/comment.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5889	Portable applications may want to check the systemType and NOT depend
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5890	on all keys to be present in the returned dictionary.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5891	Another notice: on some systems (SYSV4), the gecos field includes multiple
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5892	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	5893	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	5894
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5895	\|info\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5896
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5897	"/ fallBack dummy
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5898	info := IdentityDictionary new.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5899	info at:#name put:(self getLoginName).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5900	info at:#dir put:(self getHomeDirectory).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5901	^ info
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5902
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5903	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5904	OperatingSystem userInfoOf:'root'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5905	OperatingSystem userInfoOf:1
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5906	OperatingSystem userInfoOf:'claus'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5907	OperatingSystem userInfoOf:'fooBar'
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5908	OperatingSystem userInfoOf:(OperatingSystem getUserID)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5909	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5910	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5911
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5912	!AbstractOperatingSystem class methodsFor:'waiting for events'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5913
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5914	blockingChildProcessWait
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5915	"return true, if childProcessWait: blocks, if no children are ready.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5916	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	5917	a subprocesses status (to avoid blocking)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5918
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5919	^ true
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5920	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5921
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5922	childProcessWait:blocking pid:pidToWait
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5923	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5924
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5925	"get status changes from child processes.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5926	Return an OSProcessStatus or nil, if no process has terminated.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5927	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	5928	otherwise we return immediately.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5929	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	5930	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	5931
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5932	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5933	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5934
7802 79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5935	isBlockingOn:fd
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5936	"{ Pragma: +optSpace }"
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5937
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5938	"return the blocking attribute - if set (which is the default)
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5939	a read on the fileDescriptor will block until data is available.
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5940	If clear, a read operation will immediately return with a value nil.
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5941	Also affects write operations, which may perform partial writes when
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5942	blocking is off"
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5943
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5944	self subclassResponsibility
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5945	!
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5946
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5947	numAvailableForReadOn:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5948	"return the number of bytes available for reading, without blocking."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5949
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5950	"/ fallBack for systems which do not provide this info
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5951	^ (self readCheck:fd) ifTrue:[1] ifFalse:[0]
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5952	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5953
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5954	readCheck:fd
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5955	"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	5956	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	5957	or the read would return an error.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5958	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	5959
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5960	\|result\|
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5961
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5962	self supportsSelect ifFalse:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5963	"/ mhmh - what should we do then ?
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5964	"/ For now, return true as if data was present,
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5965	"/ and let the thread fall into the read.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5966	"/ It will then (hopefully) be descheduled there and
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5967	"/ effectively polling for input.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5968
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5969	^ true
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5970	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5971
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5972	result := self
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5973	selectOnAnyReadable:(Array with:fd)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5974	writable:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5975	exception:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5976	withTimeOut:0.
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5977
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5978	"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	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	readWriteCheck:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5983	"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	5984	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	5985	or the read or write would return an error.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5986	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	5987	be finished."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5988
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5989	\|result\|
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5990
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5991	self supportsSelect ifFalse:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5992	"/ mhmh - what should we do then ?
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5993	"/ For now, return true as if data was present,
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5994	"/ and let the thread fall into the write.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5995	"/ It will then (hopefully) be desceduled there and
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5996	"/ effectively polling for output.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5997	^ true
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5998	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5999
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6000	result := self selectOnAnyReadable:(Array with:fd)
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6001	writable:(Array with:fd)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6002	exception:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6003	withTimeOut:0.
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6004
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6005	^ result == fd or:[result == #error].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6006	!
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	selectOn:fd1 and:fd2 withTimeOut:millis
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6009	<resource: #obsolete>
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6010	"wait for any fd to become ready; timeout after t milliseconds.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6011	A zero timeout-time will immediately return (i.e. poll).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6012	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	6013	Obsolete:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6014	This is a leftover method and will vanish."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6015
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6016	^ self selectOnAnyReadable:(Array with:fd1 with:fd2)
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6017	writable:(Array with:fd1 with:fd2)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6018	exception:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6019	withTimeOut:millis
3576 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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6022	selectOn:fd withTimeOut:millis
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6023	"wait for aFileDesriptor to become ready; timeout after t milliseconds.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6024	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	6025	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	6026	of read-data.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6027	Experimental."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6028
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6029	^ self selectOnAnyReadable:(Array with:fd)
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6030	writable:(Array with:fd)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6031	exception:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6032	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6033	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6034
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6035	selectOnAny:fdArray withTimeOut:millis
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6036	"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	6037	timeout after t milliseconds. An empty set will always wait.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6038	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	6039	Experimental."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6040
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6041	^ self selectOnAnyReadable:fdArray
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6042	writable:fdArray
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6043	exception:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6044	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6045	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6046
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6047	selectOnAnyReadable:fdArray withTimeOut:millis
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6048	"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	6049	reading. Timeout after t milliseconds. An empty set will always wait.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6050	A zero timeout-time will immediately return (i.e. poll).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6051	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	6052	Experimental."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6053
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6054	^ self selectOnAnyReadable:fdArray
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6055	writable:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6056	exception:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6057	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6058	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6059
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6060	selectOnAnyReadable:readFdArray writable:writeFdArray exception:exceptFdArray
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6061	readableInto:readableResultFdArray writableInto:writableResultFdArray
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6062	exceptionInto:exceptionResultFdArray
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6063	withTimeOut:millis
7510 46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	6064
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6065	"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	6066	writeFdArray to become ready for writing,
7510 46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	6067	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	6068	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	6069	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	6070	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	6071	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	6072	writableResultFdArray and exceptionResultFdArray respectively.
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	6073
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	6074	Return the (overall) number of selected filedescriptors.
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	6075	readableResultFdArray, writableResultFdArray and exceptionResultFdArray will
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	6076	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	6077	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	6078
f2bf4935e7eb New select for fair scheduling (not giving low filedescriptors Stefan Vogel <sv@exept.de> parents: 7488 diff changeset	6079	self subclassResponsibility
f2bf4935e7eb New select for fair scheduling (not giving low filedescriptors Stefan Vogel <sv@exept.de> parents: 7488 diff changeset	6080	!
f2bf4935e7eb New select for fair scheduling (not giving low filedescriptors Stefan Vogel <sv@exept.de> parents: 7488 diff changeset	6081
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6082	selectOnAnyReadable:readFdArray writable:writeFdArray exception:exceptFdArray withTimeOut:millis
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6083	"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	6084	reading, writeFdArray to become ready for writing, or exceptFdArray to
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6085	arrive exceptional data (i.e. out-of-band data).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6086	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	6087	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	6088	descriptors (i.e. to check if I/O possible without blocking).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6089	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	6090
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6091	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6092	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6093
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6094	setBlocking:aBoolean on:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6095	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6096
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6097	"set/clear the blocking attribute - if set (which is the default)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6098	a read on the fileDescriptor will block until data is available.
7803 2238df4944ca comments; Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	6099	If cleared, a read operation will immediately return with a value of nil.
2238df4944ca comments; Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	6100	Also affects write operations, which may perform partial writes when
2238df4944ca comments; Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	6101	blocking is off"
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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6104	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6105
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6106	writeCheck:fd
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6107	"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	6108	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	6109	or the write would return an error."
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6110
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6111	\|result\|
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6112
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6113	self supportsSelect ifFalse:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6114	"/ mhmh - what should we do then ?
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6115	"/ For now, return true as if data was present,
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6116	"/ and let the thread fall into the write.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6117	"/ It will then (hopefully) be desceduled there and
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6118	"/ effectively polling for output.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6119	^ true
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6120	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6121
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6122	result := self selectOnAnyReadable:nil
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6123	writable:(Array with:fd)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6124	exception:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6125	withTimeOut:0.
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6126
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6127	^ result == fd or:[result == #error].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6128	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6129
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6130	!AbstractOperatingSystem::PrinterInfo class methodsFor:'constants'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6131
d8547710430c printer stuff fm parents: 9380 diff changeset	6132	paperSizeNameForNumber:aNumber
d8547710430c printer stuff fm parents: 9380 diff changeset	6133	^ self paperSizeNumberToNameMapping at:aNumber
d8547710430c printer stuff fm parents: 9380 diff changeset	6134
d8547710430c printer stuff fm parents: 9380 diff changeset	6135	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6136	self paperSizeNameForNumber:1
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	"Created: / 31-07-2006 / 15:35:36 / fm"
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	paperSizeNameForNumber:aNumber ifAbsent: aBlock
d8547710430c printer stuff fm parents: 9380 diff changeset	6143	^ self paperSizeNumberToNameMapping at:aNumber ifAbsent: aBlock
d8547710430c printer stuff fm parents: 9380 diff changeset	6144
d8547710430c printer stuff fm parents: 9380 diff changeset	6145	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6146	self paperSizeNameForNumber:11212 ifAbsent: [nil]
d8547710430c printer stuff fm parents: 9380 diff changeset	6147	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6148
d8547710430c printer stuff fm parents: 9380 diff changeset	6149	"Created: / 31-07-2006 / 15:35:36 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6150	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6151
d8547710430c printer stuff fm parents: 9380 diff changeset	6152	paperSizeNames
d8547710430c printer stuff fm parents: 9380 diff changeset	6153	\|codes\|
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6154	codes := self paperSizeNumberToNameTable values asSortedCollection:[:a :b \| a < b].
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6155	^codes collect:[:each \| self paperSizeNameForNumber: each]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6156
d8547710430c printer stuff fm parents: 9380 diff changeset	6157	"Created: / 31-07-2006 / 15:35:36 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6158	"Modified: / 16-04-2007 / 12:03:55 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6159	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6160
d8547710430c printer stuff fm parents: 9380 diff changeset	6161	paperSizeNumberForName:aName
d8547710430c printer stuff fm parents: 9380 diff changeset	6162	^ self paperSizeNumberToNameMapping at:aName
d8547710430c printer stuff fm parents: 9380 diff changeset	6163
d8547710430c printer stuff fm parents: 9380 diff changeset	6164	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6165	self paperSizeNumberForName:'Letter, 8 1/2- by 11-inches'
d8547710430c printer stuff fm parents: 9380 diff changeset	6166	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6167
d8547710430c printer stuff fm parents: 9380 diff changeset	6168	"Created: / 31-07-2006 / 15:35:37 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6169	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6170
d8547710430c printer stuff fm parents: 9380 diff changeset	6171	paperSizeNumberToNameMapping
d8547710430c printer stuff fm parents: 9380 diff changeset	6172	\|d\|
d8547710430c printer stuff fm parents: 9380 diff changeset	6173
d8547710430c printer stuff fm parents: 9380 diff changeset	6174	d := self paperSizeNumberToNameTable.
d8547710430c printer stuff fm parents: 9380 diff changeset	6175
d8547710430c printer stuff fm parents: 9380 diff changeset	6176	d keys copy do:[:k \| d at:(d at:k) put:k].
d8547710430c printer stuff fm parents: 9380 diff changeset	6177	^ d.
d8547710430c printer stuff fm parents: 9380 diff changeset	6178
d8547710430c printer stuff fm parents: 9380 diff changeset	6179	"Created: / 31-07-2006 / 15:35:37 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6180	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6181
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6182	paperSizeNumberToNameTable
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6183
d8547710430c printer stuff fm parents: 9380 diff changeset	6184	^Dictionary withKeysAndValues:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6185	#(
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6186	'Letter, 8 1/2- by 11-inches' 1 "/ Letter
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6187	'Legal 8 1/2- by 14-inches' 5 "/ Legal
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6188	'10- by 14-inch sheet' 16 "/ 10x14
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6189	'11- by 17-inch sheet' 17 "/ 11x17
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6190	"/ '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	6191	'A3 sheet, 297- by 420-millimeters' 8 "/ A3
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6192	'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	6193	'A4 sheet, 210- by 297-millimeters' 9 "/ A4
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6194	'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	6195	'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	6196	'A5 sheet, 148- by 210-millimeters' 11 "/ A5
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6197	'A5 rotated sheet, 210- by 148-millimeters' 61 "/ A5 rotated
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6198	"/ 'a6' "/ Windows 98/Me, Windows NT 4.0 and later: A6 sheet, 105- by 148-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	6199	"/ '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	6200	'B4 sheet, 250- by 354-millimeters' 12 "/ B4
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6201	"/ 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	6202	'B5 sheet, 182- by 257-millimeter paper' 13 "/ B5
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6203	"/ 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	6204	"/ 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	6205	"/ 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	6206	"/ csheet C Sheet, 17- by 22-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6207	"/ 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	6208	"/ 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	6209	"/ dsheet D Sheet, 22- by 34-inches
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6210	'#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	6211	'#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	6212	'#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	6213	'#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	6214	'#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	6215	'C5 Envelope, 162- by 229-millimeters' 28 "/ env_c5
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6216	'C3 Envelope, 324- by 458-millimeters' 29 "/ env_c3
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6217	'C4 Envelope, 229- by 324-millimeters' 30 "/ env_c4
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6218	'C6 Envelope, 114- by 162-millimeters' 31 "/ env_c6
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6219	'C65 Envelope, 114- by 229-millimeters' 32 "/ env_c65
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6220	'B4 Envelope, 250- by 353-millimeters' 33 "/ env_b4
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6221	'B5 Envelope, 176- by 250-millimeters' 34 "/ env_b5
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6222	'B6 Envelope, 176- by 125-millimeters' 35 "/ env_b6
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6223	'DL Envelope, 110- by 220-millimeters' 27 "/ env_dl
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6224	'Italy Envelope, 110- by 230-millimeters' 36 "/ env_italy
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6225	'Monarch Envelope, 3 7/8- by 7 1/2-inches' 37 "/ env_monarch
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6226	"/ env_personal 6 3/4 Envelope, 3 5/8- by 6 1/2-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6227	"/ esheet E Sheet, 34- by 44-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6228	"/ executive Executive, 7 1/4- by 10 1/2-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6229	"/ fanfold_us US Std Fanfold, 14 7/8- by 11-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6230	"/ fanfold_std_german German Std Fanfold, 8 1/2- by 12-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6231	"/ fanfold_lgl_german German Legal Fanfold, 8 - by 13-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6232	"/ folio Folio, 8 1/2- by 13-inch paper
d8547710430c printer stuff fm parents: 9380 diff changeset	6233	"/ 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	6234	"/ jenv_chou3 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Chou #3
d8547710430c printer stuff fm parents: 9380 diff changeset	6235	"/ 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	6236	"/ jenv_chou4 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Chou #4
d8547710430c printer stuff fm parents: 9380 diff changeset	6237	"/ 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	6238	"/ jenv_kaku2 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Kaku #2
d8547710430c printer stuff fm parents: 9380 diff changeset	6239	"/ 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	6240	"/ jenv_kaku3 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Kaku #3
d8547710430c printer stuff fm parents: 9380 diff changeset	6241	"/ 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	6242	"/ jenv_you4 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope You #4
d8547710430c printer stuff fm parents: 9380 diff changeset	6243	"/ 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	6244	"/ last Windows 2000/XP: PENV_10_ROTATED
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6245	'Ledger, 17- by 11-inches' 4 "/ ledger
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6246	'Letter Rotated 11 by 8 1/2 11 inches' 54 "/ letter_rotated
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6247	"/ lettersmall Letter Small, 8 1/2- by 11-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6248	"/ note Note, 8 1/2- by 11-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6249	"/ p16k Windows 98/Me, Windows NT 4.0 and later: PRC 16K, 146- by 215-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	6250	"/ 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	6251	"/ p32k Windows 98/Me, Windows NT 4.0 and later: PRC 32K, 97- by 151-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	6252	"/ 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	6253	"/ 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	6254	"/ 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	6255	"/ 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	6256	"/ 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	6257	"/ 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	6258	"/ 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	6259	"/ 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	6260	"/ 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	6261	"/ 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	6262	"/ 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	6263	"/ 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	6264	"/ 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	6265	"/ 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	6266	"/ 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	6267	"/ 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	6268	"/ 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	6269	"/ 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	6270	"/ 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	6271	"/ 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	6272	"/ 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	6273	"/ 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	6274	"/ 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	6275	"/ quarto Quarto, 215- by 275-millimeter paper
d8547710430c printer stuff fm parents: 9380 diff changeset	6276	"/ statement Statement, 5 1/2- by 8 1/2-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6277	"/ tabloid Tabloid, 11- by 17-inches
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6278	).
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6279
d8547710430c printer stuff fm parents: 9380 diff changeset	6280	"Created: / 31-07-2006 / 15:35:37 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6281	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6282
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6283	statusNumberToDescriptionForNumber:aNumber
11403 0a34ea95a57b changed: #statusNumberToDescriptionForNumber: fm parents: 11180 diff changeset	6284	^ self statusNumberToDescriptionMapping at:aNumber ifAbsent:[('Unknown (%1)' bindWith:aNumber printString)]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6285
d8547710430c printer stuff fm parents: 9380 diff changeset	6286	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6287	self statusNumberToDescriptionForNumber:1
d8547710430c printer stuff fm parents: 9380 diff changeset	6288	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6289
d8547710430c printer stuff fm parents: 9380 diff changeset	6290	"Created: / 01-08-2006 / 14:31:18 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6291	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6292
d8547710430c printer stuff fm parents: 9380 diff changeset	6293	statusNumberToDescriptionMapping
d8547710430c printer stuff fm parents: 9380 diff changeset	6294	\|d\|
d8547710430c printer stuff fm parents: 9380 diff changeset	6295
d8547710430c printer stuff fm parents: 9380 diff changeset	6296	d := self statusNumberToDescriptionTable.
d8547710430c printer stuff fm parents: 9380 diff changeset	6297
d8547710430c printer stuff fm parents: 9380 diff changeset	6298	d keys copy do:[:k \| d at:(d at:k) put:k].
d8547710430c printer stuff fm parents: 9380 diff changeset	6299	^ d.
d8547710430c printer stuff fm parents: 9380 diff changeset	6300
d8547710430c printer stuff fm parents: 9380 diff changeset	6301	"Created: / 01-08-2006 / 14:31:05 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6302	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6303
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6304	statusNumberToDescriptionTable
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6305
d8547710430c printer stuff fm parents: 9380 diff changeset	6306	^Dictionary withKeysAndValues:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6307	#( 'Ready' 0 "/ PRINTER_STATUS_READY
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6308	'Paused' 1 "/ PRINTER_STATUS_PAUSED
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6309	'Error' 2 "/ PRINTER_STATUS_ERROR
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6310	'Deleting...' 4 "/ PRINTER_STATUS_PENDING_DELETION
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6311	'Paper Jam' 8 "/ PRINTER_STATUS_PAPER_JAM
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6312	'Paper Out' 16 "/ PRINTER_STATUS_PAPER_OUT
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6313	'Manual Feed Required' 32 "/ PRINTER_STATUS_MANUAL_FEED
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6314	'Paper Problem' 64 "/ PRINTER_STATUS_PAPER_PROBLEM
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6315	'Offline' 128 "/ PRINTER_STATUS_OFFLINE
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6316	'Downloading Job' 256 "/ PRINTER_STATUS_IO_ACTIVE
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6317	'Busy' 512 "/ PRINTER_STATUS_BUSY
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6318	'Printing' 1024 "/ PRINTER_STATUS_PRINTING
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6319	'Output Bill Full' 2048 "/ PRINTER_STATUS_OUTPUT_BIN_FULL
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6320	'Not Available' 4096 "/ PRINTER_STATUS_NOT_AVAILABLE
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6321	'Waiting' 8192 "/ PRINTER_STATUS_WAITING
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6322	'Processing Job' 16384 "/ PRINTER_STATUS_PROCESSING
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6323	'Initializing' 32768 "/ PRINTER_STATUS_INITIALIZING
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6324	'Warming Up' 65536 "/ PRINTER_STATUS_WARMING_UP
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6325	'Toner Low' 131072 "/ PRINTER_STATUS_TONER_LOW
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6326	'Toner Out' 262144 "/ PRINTER_STATUS_NO_TONER
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6327	'Page too Complex' 524288 "/ PRINTER_STATUS_PAGE_PUNT
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6328	'User Intervention Required'1048576 "/ PRINTER_STATUS_USER_INTERVENTION
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6329	'Out of Memory' 2097152 "/ PRINTER_STATUS_OUT_OF_MEMORY
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6330	'Door Open' 4194304 "/ PRINTER_STATUS_DOOR_OPEN
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6331	'Unable to connect' 8388608 "/ PRINTER_STATUS_SERVER_UNKNOWN
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6332	'Power Save Mode' 16777216 "/ PRINTER_STATUS_POWER_SAVE
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6333	).
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6334
d8547710430c printer stuff fm parents: 9380 diff changeset	6335	"Created: / 01-08-2006 / 14:23:33 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6336	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6337
d8547710430c printer stuff fm parents: 9380 diff changeset	6338	!AbstractOperatingSystem::PrinterInfo methodsFor:'accessing'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6339
d8547710430c printer stuff fm parents: 9380 diff changeset	6340	attributes
d8547710430c printer stuff fm parents: 9380 diff changeset	6341	^ attributes
d8547710430c printer stuff fm parents: 9380 diff changeset	6342
d8547710430c printer stuff fm parents: 9380 diff changeset	6343	"Created: / 27-07-2006 / 12:16:59 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6344	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6345
d8547710430c printer stuff fm parents: 9380 diff changeset	6346	collate
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6347	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6348
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6349	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6350	^ properties isNil ifTrue:[ nil ] ifFalse:[ properties collate = 1 ]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6351
d8547710430c printer stuff fm parents: 9380 diff changeset	6352	"Created: / 01-08-2006 / 09:56:14 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6353	"Modified: / 01-08-2006 / 11:49:18 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6354	"Modified: / 18-10-2006 / 12:02:29 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6355	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6356
d8547710430c printer stuff fm parents: 9380 diff changeset	6357	collate: aBoolean
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6358	\|integer\|
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6359
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6360	integer:= aBoolean
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6361	ifTrue:[1] "DMCOLLATE_TRUE"
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6362	ifFalse:[0]. "DMCOLLATE_FALSE"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6363	self documentProperties collate: integer
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6364
d8547710430c printer stuff fm parents: 9380 diff changeset	6365	"Created: / 01-08-2006 / 09:56:01 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6366	"Modified: / 16-04-2007 / 12:01:30 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6367	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6368
d8547710430c printer stuff fm parents: 9380 diff changeset	6369	comment
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6370	^self printerInfo2 pComment
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6371
d8547710430c printer stuff fm parents: 9380 diff changeset	6372	"Created: / 01-08-2006 / 15:06:20 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6373	"Modified: / 16-04-2007 / 12:01:42 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6374	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6375
d8547710430c printer stuff fm parents: 9380 diff changeset	6376	copies
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6377	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6378
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6379	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6380	^ properties isNil ifTrue:[ nil ] ifFalse:[ properties copies ]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6381
d8547710430c printer stuff fm parents: 9380 diff changeset	6382	"Created: / 31-07-2006 / 13:46:53 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6383	"Modified: / 18-10-2006 / 12:02:14 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6384	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6385
d8547710430c printer stuff fm parents: 9380 diff changeset	6386	copies: anInteger
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6387	self documentProperties copies: anInteger
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6388
d8547710430c printer stuff fm parents: 9380 diff changeset	6389	"Created: / 31-07-2006 / 13:54:55 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6390	"Modified: / 16-04-2007 / 12:01:48 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6391	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6392
d8547710430c printer stuff fm parents: 9380 diff changeset	6393	documentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6394
d8547710430c printer stuff fm parents: 9380 diff changeset	6395	^documentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6396
d8547710430c printer stuff fm parents: 9380 diff changeset	6397	"Created: / 28-07-2006 / 11:50:04 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6398	"Modified: / 31-07-2006 / 13:06:24 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6399	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6400
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6401	documentProperties: aDevModeStructure
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6402
d8547710430c printer stuff fm parents: 9380 diff changeset	6403	documentProperties := aDevModeStructure.
d8547710430c printer stuff fm parents: 9380 diff changeset	6404
d8547710430c printer stuff fm parents: 9380 diff changeset	6405	"Created: / 28-07-2006 / 11:47:31 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6406	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6407
d8547710430c printer stuff fm parents: 9380 diff changeset	6408	driverName
d8547710430c printer stuff fm parents: 9380 diff changeset	6409
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6410	^self attributes at:#driverName
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6411
d8547710430c printer stuff fm parents: 9380 diff changeset	6412	"Created: / 01-08-2006 / 15:33:08 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6413	"Modified: / 16-04-2007 / 12:01:53 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6414	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6415
d8547710430c printer stuff fm parents: 9380 diff changeset	6416	location
d8547710430c printer stuff fm parents: 9380 diff changeset	6417
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6418	^self printerInfo2 pLocation
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6419
d8547710430c printer stuff fm parents: 9380 diff changeset	6420	"Created: / 01-08-2006 / 15:06:28 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6421	"Modified: / 16-04-2007 / 12:02:07 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6422	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6423
d8547710430c printer stuff fm parents: 9380 diff changeset	6424	longName
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6425	^attributes at:#longName ifAbsent:['']
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6426
d8547710430c printer stuff fm parents: 9380 diff changeset	6427	"Created: / 28-07-2006 / 12:06:32 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6428	"Modified: / 16-04-2007 / 12:02:11 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6429	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6430
d8547710430c printer stuff fm parents: 9380 diff changeset	6431	medium
d8547710430c printer stuff fm parents: 9380 diff changeset	6432
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6433	^self attributes at:#medium
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6434
d8547710430c printer stuff fm parents: 9380 diff changeset	6435	"Created: / 01-08-2006 / 15:34:26 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6436	"Modified: / 16-04-2007 / 12:02:14 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6437	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6438
d8547710430c printer stuff fm parents: 9380 diff changeset	6439	orientation
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6440	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6441
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6442	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6443	^ properties isNil ifTrue:[ nil ] ifFalse:[ properties orientation ]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6444
d8547710430c printer stuff fm parents: 9380 diff changeset	6445	"Created: / 28-07-2006 / 16:44:26 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6446	"Modified: / 18-10-2006 / 12:01:36 / User"
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6447	!
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6448
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6449	orientation:anInteger
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6450	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6451
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6452	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6453	properties notNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6454	properties orientation:anInteger
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6455	]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6456
d8547710430c printer stuff fm parents: 9380 diff changeset	6457	"Created: / 28-07-2006 / 17:22:44 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6458	"Modified: / 18-10-2006 / 12:01:40 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6459	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6460
d8547710430c printer stuff fm parents: 9380 diff changeset	6461	pDriverName
d8547710430c printer stuff fm parents: 9380 diff changeset	6462
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6463	^self printerInfo2 pDriverName
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6464
d8547710430c printer stuff fm parents: 9380 diff changeset	6465	"Created: / 01-08-2006 / 15:33:08 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6466	"Modified: / 16-04-2007 / 12:02:21 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6467	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6468
d8547710430c printer stuff fm parents: 9380 diff changeset	6469	paperSize
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6470	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6471
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6472	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6473	^ properties isNil ifTrue:[ nil ] ifFalse:[ properties paperSize ]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6474
d8547710430c printer stuff fm parents: 9380 diff changeset	6475	"Created: / 31-07-2006 / 15:23:29 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6476	"Modified: / 31-07-2006 / 16:25:58 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6477	"Modified: / 18-10-2006 / 12:01:45 / User"
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6478	!
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6479
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6480	paperSize:anInteger
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6481	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6482
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6483	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6484	properties notNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6485	properties paperSize:anInteger
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6486	]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6487
d8547710430c printer stuff fm parents: 9380 diff changeset	6488	"Created: / 31-07-2006 / 15:23:20 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6489	"Modified: / 18-10-2006 / 12:01:48 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6490	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6491
d8547710430c printer stuff fm parents: 9380 diff changeset	6492	paperSizeName
d8547710430c printer stuff fm parents: 9380 diff changeset	6493	^ self class paperSizeNameForNumber:self paperSize ifAbsent:[nil].
d8547710430c printer stuff fm parents: 9380 diff changeset	6494
d8547710430c printer stuff fm parents: 9380 diff changeset	6495	"Created: / 31-07-2006 / 15:35:12 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6496	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6497
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6498	paperSizeName:aString
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6499	self paperSize:(self class paperSizeNumberForName:aString)
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6500
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6501	"Modified: / 18-10-2006 / 12:01:56 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6502	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6503
d8547710430c printer stuff fm parents: 9380 diff changeset	6504	printQuality
d8547710430c printer stuff fm parents: 9380 diff changeset	6505	^self documentProperties printQuality
d8547710430c printer stuff fm parents: 9380 diff changeset	6506
d8547710430c printer stuff fm parents: 9380 diff changeset	6507	"Created: / 04-08-2006 / 13:10:06 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6508	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6509
d8547710430c printer stuff fm parents: 9380 diff changeset	6510	printerName
d8547710430c printer stuff fm parents: 9380 diff changeset	6511	^ printerName
d8547710430c printer stuff fm parents: 9380 diff changeset	6512
d8547710430c printer stuff fm parents: 9380 diff changeset	6513	"Created: / 27-07-2006 / 12:16:59 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6514	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6515
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6516	printerName:printerNameArg attributes:attributesArg
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6517
d8547710430c printer stuff fm parents: 9380 diff changeset	6518	printerName := printerNameArg.
d8547710430c printer stuff fm parents: 9380 diff changeset	6519	attributes := attributesArg.
d8547710430c printer stuff fm parents: 9380 diff changeset	6520
d8547710430c printer stuff fm parents: 9380 diff changeset	6521	"Created: / 27-07-2006 / 12:29:18 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6522	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6523
d8547710430c printer stuff fm parents: 9380 diff changeset	6524	remotePrinterHost
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6525	^attributes at:#remotePrinterHost ifAbsent:['']
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6526
d8547710430c printer stuff fm parents: 9380 diff changeset	6527	"Created: / 28-07-2006 / 16:30:13 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6528	"Modified: / 16-04-2007 / 12:02:32 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6529	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6530
d8547710430c printer stuff fm parents: 9380 diff changeset	6531	remotePrinterName
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6532	^attributes at:#remotePrinterName ifAbsent:['']
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6533
d8547710430c printer stuff fm parents: 9380 diff changeset	6534	"Created: / 28-07-2006 / 16:30:06 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6535	"Modified: / 16-04-2007 / 12:03:23 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6536	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6537
d8547710430c printer stuff fm parents: 9380 diff changeset	6538	status
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6539	self isAvailable ifFalse:[^''].
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6540	^self class statusNumberToDescriptionForNumber: self getPrinterInfo2 status
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6541
d8547710430c printer stuff fm parents: 9380 diff changeset	6542	"Created: / 01-08-2006 / 13:48:58 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6543	"Modified: / 16-04-2007 / 12:03:41 / 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	userFriendlyName
d8547710430c printer stuff fm parents: 9380 diff changeset	6547	^self remotePrinterName isEmpty
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6548	ifTrue:[self printerName]
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6549	ifFalse:[self remotePrinterName, ' on ', self remotePrinterHost]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6550
d8547710430c printer stuff fm parents: 9380 diff changeset	6551	"Created: / 03-08-2006 / 12:50:09 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6552	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6553
d8547710430c printer stuff fm parents: 9380 diff changeset	6554	!AbstractOperatingSystem::PrinterInfo methodsFor:'dc creation'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6555
d8547710430c printer stuff fm parents: 9380 diff changeset	6556	createDC
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6557	\|driverName pName\|
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6558
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6559	driverName := self driverName.
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6560	pName := self printerName.
10513 0a27c8d86154 * empty log message * Claus Gittinger <cg@exept.de> parents: 10510 diff changeset	6561	"/ Transcript show:driverName; show:' '; showCR:printerName.
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6562
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6563	^OperatingSystem createPrinterDC:driverName
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6564	device:pName
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6565	output:self medium
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6566	initData:self documentProperties.
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6567
d8547710430c printer stuff fm parents: 9380 diff changeset	6568	"Created: / 02-08-2006 / 16:51:02 / fm"
10513 0a27c8d86154 * empty log message * Claus Gittinger <cg@exept.de> parents: 10510 diff changeset	6569	"Modified: / 16-04-2007 / 13:56:56 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6570	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6571
d8547710430c printer stuff fm parents: 9380 diff changeset	6572	!AbstractOperatingSystem::PrinterInfo methodsFor:'dialogs'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6573
d8547710430c printer stuff fm parents: 9380 diff changeset	6574	openPropertiesDialog
9844 c92a32fa507d * empty log message * Claus Gittinger <cg@exept.de> parents: 9721 diff changeset	6575	"Returns true if the documentProperties have been accepted. Otherwise, returns false"
c92a32fa507d * empty log message * Claus Gittinger <cg@exept.de> parents: 9721 diff changeset	6576
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6577	\|h newDocumentProperties\|
d8547710430c printer stuff fm parents: 9380 diff changeset	6578
d8547710430c printer stuff fm parents: 9380 diff changeset	6579	h := OperatingSystem openPrinter: self printerName.
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6580	newDocumentProperties := OperatingSystem documentPropertiesDialogFor:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6581	hPrinter:h
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6582	pDeviceName: self printerName
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6583	devModeInput:self documentProperties.
9844 c92a32fa507d * empty log message * Claus Gittinger <cg@exept.de> parents: 9721 diff changeset	6584	(newDocumentProperties contains:[:el \| el ~= 0])
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6585	ifFalse:[^false].
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6586	self documentProperties: newDocumentProperties.
d8547710430c printer stuff fm parents: 9380 diff changeset	6587	OperatingSystem closePrinter:h.
d8547710430c printer stuff fm parents: 9380 diff changeset	6588	^true
d8547710430c printer stuff fm parents: 9380 diff changeset	6589
d8547710430c printer stuff fm parents: 9380 diff changeset	6590	"Created: / 28-07-2006 / 11:44:01 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6591	"Modified: / 01-08-2006 / 11:55:49 / fm"
9844 c92a32fa507d * empty log message * Claus Gittinger <cg@exept.de> parents: 9721 diff changeset	6592	"Modified: / 13-09-2006 / 11:36:10 / 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:'modifying'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6596
d8547710430c printer stuff fm parents: 9380 diff changeset	6597	setLandscapeOrientation
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6598	"DMORIENT_LANDSCAPE = 2"
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6599	self documentProperties orientation: 2
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6600
d8547710430c printer stuff fm parents: 9380 diff changeset	6601	"Created: / 28-07-2006 / 15:53:35 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6602	"Modified: / 16-04-2007 / 12:03:30 / cg"
9476 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	setNumberOfCopies: n
d8547710430c printer stuff fm parents: 9380 diff changeset	6606
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6607	self documentProperties copies: n
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6608
d8547710430c printer stuff fm parents: 9380 diff changeset	6609	"Created: / 28-07-2006 / 16:04:04 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6610	"Modified: / 16-04-2007 / 12:03:33 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6611	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6612
d8547710430c printer stuff fm parents: 9380 diff changeset	6613	setPortraitOrientation
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6614	"DMORIENT_PORTRAIT = 1"
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6615	self documentProperties orientation: 1
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6616
d8547710430c printer stuff fm parents: 9380 diff changeset	6617	"Created: / 28-07-2006 / 15:49:45 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6618	"Modified: / 16-04-2007 / 12:03:36 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6619	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6620
d8547710430c printer stuff fm parents: 9380 diff changeset	6621	!AbstractOperatingSystem::PrinterInfo methodsFor:'printing & storing'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6622
d8547710430c printer stuff fm parents: 9380 diff changeset	6623	printOn:aStream
d8547710430c printer stuff fm parents: 9380 diff changeset	6624	aStream nextPutAll:(self class name); nextPutAll:'('.
d8547710430c printer stuff fm parents: 9380 diff changeset	6625	printerName printOn:aStream.
d8547710430c printer stuff fm parents: 9380 diff changeset	6626	aStream nextPutAll:')'.
d8547710430c printer stuff fm parents: 9380 diff changeset	6627
d8547710430c printer stuff fm parents: 9380 diff changeset	6628	"Created: / 27-07-2006 / 12:30:28 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6629	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6630
d8547710430c printer stuff fm parents: 9380 diff changeset	6631	!AbstractOperatingSystem::PrinterInfo methodsFor:'private'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6632
d8547710430c printer stuff fm parents: 9380 diff changeset	6633	getDocumentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6634	"Returns a aDevModeStructure"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6635
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6636	\|h devMode \|
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6637
d8547710430c printer stuff fm parents: 9380 diff changeset	6638	h := OperatingSystem openPrinter: self printerName.
d8547710430c printer stuff fm parents: 9380 diff changeset	6639	devMode := OperatingSystem getDocumentProperties:nil
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6640	hPrinter:h
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6641	pDeviceName: self printerName.
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6642	OperatingSystem closePrinter: h.
d8547710430c printer stuff fm parents: 9380 diff changeset	6643	^devMode
d8547710430c printer stuff fm parents: 9380 diff changeset	6644
d8547710430c printer stuff fm parents: 9380 diff changeset	6645	"Created: / 28-07-2006 / 11:49:33 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6646	"Modified: / 31-07-2006 / 10:33:04 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6647	"Modified: / 16-04-2007 / 12:02:00 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6648	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6649
d8547710430c printer stuff fm parents: 9380 diff changeset	6650	getPrinterInfo2
d8547710430c printer stuff fm parents: 9380 diff changeset	6651	"Returns a aPrinterInfo2 structure"
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6652
10097 2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6653	printerInfo2 := OperatingSystem getPrinterInfo2:self printerName.
2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6654	^ printerInfo2
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6655
d8547710430c printer stuff fm parents: 9380 diff changeset	6656	"Created: / 01-08-2006 / 13:50:55 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6657	"Modified: / 01-08-2006 / 15:11:03 / fm"
10097 2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6658	"Modified: / 18-10-2006 / 12:03:54 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6659	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6660
d8547710430c printer stuff fm parents: 9380 diff changeset	6661	printerInfo2
d8547710430c printer stuff fm parents: 9380 diff changeset	6662	"Returns a aPrinterInfo2 structure"
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6663
10097 2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6664	printerInfo2 isNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6665	self getPrinterInfo2.
10097 2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6666	].
2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6667	^ printerInfo2
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6668
d8547710430c printer stuff fm parents: 9380 diff changeset	6669	"Created: / 01-08-2006 / 15:10:18 / fm"
10097 2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6670	"Modified: / 18-10-2006 / 12:03:57 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6671	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6672
d8547710430c printer stuff fm parents: 9380 diff changeset	6673	setDocumentProperties
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6674	"Sets a aDevModeStructure or nil if the printer is not available"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6675
d8547710430c printer stuff fm parents: 9380 diff changeset	6676	self documentProperties: self getDocumentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6677
d8547710430c printer stuff fm parents: 9380 diff changeset	6678	"Created: / 31-07-2006 / 13:04:58 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6679	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6680
d8547710430c printer stuff fm parents: 9380 diff changeset	6681	!AbstractOperatingSystem::PrinterInfo methodsFor:'queries'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6682
d8547710430c printer stuff fm parents: 9380 diff changeset	6683	isAvailable
d8547710430c printer stuff fm parents: 9380 diff changeset	6684
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6685	^self documentProperties notNil
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6686
d8547710430c printer stuff fm parents: 9380 diff changeset	6687	"Created: / 31-07-2006 / 13:08:58 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6688	"Modified: / 16-04-2007 / 12:02:05 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6689	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6690
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6691	!AbstractOperatingSystem::TimeInfo methodsFor:'accessing'!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6692
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6693	at:index
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6694	"backward compatibility"
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6695
8357 64be78ef1e77 Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 8250 diff changeset	6696	<resource: #obsolete>
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6697	self obsoleteMethodWarning:'use accessor for index ', index printString.
7739 d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6698
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6699	index == 1 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6700	^ self year.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6701	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6702	index == 2 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6703	^ self month.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6704	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6705	index == 3 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6706	^ self day.
7514 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	index == 4 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6709	^ self hours.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6710	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6711	index == 5 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6712	^ self minutes.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6713	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6714	index == 6 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6715	^ self seconds.
7514 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	index == 7 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6718	^ self utcOffset.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6719	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6720	index == 8 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6721	^ self dst.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6722	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6723	index == 9 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6724	^ self milliseconds.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6725	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6726	index == 10 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6727	^ self dayInYear.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6728	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6729	index == 11 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6730	^ self dayInWeek.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6731	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6732	self subscriptBoundsError:index
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6733	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6734
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6735	day
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6736	^ day
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6737	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6738
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6739	dayInWeek
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6740	^ dayInWeek
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6741	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6742
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6743	dayInYear
17757 73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6744	"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	6745	(it is not set in windows)"
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6746
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6747	\|dayCount\|
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6748
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6749	dayInYear notNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6750	^ dayInYear.
17757 73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6751	].
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6752
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6753	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	6754	(month > 2
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6755	and:[(year \\ 4 == 0)
17757 73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6756	and:[(year \\ 100 ~~ 0)
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6757	and:[(year \\ 400 == 0)]]]) ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6758	"leap year and month after February"
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6759	dayCount := dayCount + 1.
17757 73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6760	].
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6761
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6762	^ dayCount + day.
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6763
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6764
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6765	"
17757 73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6766	\|daysSoFar\|
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6767
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6768	daysSoFar := 0.
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6769	#(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	6770	"
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6771	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6772
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6773	dst
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6774	^ dst
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6775	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6776
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6777	hours
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6778	^ hours
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6779	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6780
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6781	milliseconds
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6782	^ milliseconds
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6783	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6784
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6785	milliseconds:something
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6786	milliseconds := something.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6787	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6788
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6789	minutes
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6790	^ minutes
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6791	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6792
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6793	month
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6794	^ month
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6795	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6796
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6797	seconds
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6798	^ seconds
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6799	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6800
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6801	utcOffset
8887 0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6802	"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	6803	If daylight saving time applies to ourself, take that into account.
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6804	Add utcOffset to convert from local time to UTC time.
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6805	Subtract utcOffset to convert from UTC time to local time.
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6806
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6807	If utcOffset is negative, the local timezone is east of Greenwich.
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6808	If utcOffset is positive, the local timezone is west of Greenwich."
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6809
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6810	^ utcOffset
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6811
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6812	"
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6813	OperatingSystem utcOffset
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6814	"
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6815	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6816
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6817	year
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6818	^ year
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6819	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6820
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6821	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	6822	"set instance variables (automatically generated)"
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6823
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6824	year := yearArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6825	month := monthArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6826	day := dayArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6827	hours := hoursArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6828	minutes := minutesArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6829	seconds := secondsArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6830	milliseconds := millisecondsArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6831	utcOffset := utcOffsetArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6832	dst := dstArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6833	dayInYear := dayInYearArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6834	dayInWeek := dayInWeekArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6835	!
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6836
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6837	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	6838	"set instance variables (automatically generated)"
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6839
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6840	year := yearArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6841	month := monthArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6842	day := dayArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6843	hours := hoursArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6844	minutes := minutesArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6845	seconds := secondsArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6846	utcOffset := utcOffsetArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6847	dst := dstArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6848	dayInYear := dayInYearArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6849	dayInWeek := dayInWeekArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6850	! !
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6851
17815 956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6852	!AbstractOperatingSystem::TimeInfo methodsFor:'converting'!
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6853
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6854	asDate
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6855	^ Date new year:year month:month day:day.
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6856	!
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6857
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6858	asTime
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6859	^ Time hours:hours minutes:minutes seconds:seconds
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6860	! !
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6861
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6862	!AbstractOperatingSystem::TimeZoneInfo class methodsFor:'documentation'!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6863
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6864	documentation
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6865	"
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6866	Bias
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6867	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	6868	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	6869	and local time.
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6870	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	6871
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6872	UTC = local time + bias
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6873
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6874	StandardName
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6875	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	6876	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	6877	This string can be empty.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6878	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	6879
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6880	StandardDate
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6881	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	6882	time to standard time occurs on this operating system.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6883	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	6884	daylight saving time, the standardDate is nil.
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6885	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	6886	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	6887
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6888	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	6889	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	6890	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	6891	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	6892
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6893	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	6894	wHour = 2, wMonth = 4, wDayOfWeek = 0, wDay = 1.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6895	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	6896	wHour = 2, wMonth = 10, wDayOfWeek = 4, wDay = 5.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6897
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6898	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	6899	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	6900
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6901	StandardBias
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6902	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	6903	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	6904
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6905	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	6906	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	6907
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6908	DaylightName
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6909	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	6910	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	6911	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	6912
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6913	DaylightDate
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6914	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	6915	to daylight saving time occurs on this operating system.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6916	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	6917	saving time, this entry is nil.
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6918	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	6919	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	6920
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6921	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	6922	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	6923	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	6924	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	6925
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6926	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	6927	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	6928
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6929	DaylightBias
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6930	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	6931	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	6932
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6933	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	6934	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	6935	"
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6936	! !
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6937
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6938	!AbstractOperatingSystem::TimeZoneInfo methodsFor:'accessing'!
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	bias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6941	^ bias
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	bias:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6945	bias := 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
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6948	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	6949	bias := biasArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6950	name := nameArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6951	standardBias := standardBiasArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6952	daylightName := daylightNameArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6953	daylightBias := daylightBiasArg.
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
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6956	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	6957	bias := biasArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6958	name := nameArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6959	standardDate := standardDateArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6960	standardBias := standardBiasArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6961	daylightName := daylightNameArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6962	daylightDate := daylightDateArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6963	daylightBias := daylightBiasArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6964	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6965
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6966	daylightBias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6967	^ daylightBias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6968	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6969
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6970	daylightBias:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6971	daylightBias := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6972	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6973
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6974	daylightDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6975	^ daylightDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6976	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6977
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6978	daylightDay:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6979	daylightDay := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6980	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6981
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6982	daylightHour
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6983	^ daylightHour
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6984	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6985
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6986	daylightHour:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6987	daylightHour := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6988	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6989
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6990	daylightMinute
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6991	^ daylightMinute
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6992	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6993
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6994	daylightMinute:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6995	daylightMinute := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6996	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6997
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6998	daylightMonth
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6999	^ daylightMonth
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7000	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7001
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7002	daylightMonth:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7003	daylightMonth := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7004	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7005
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7006	daylightName
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7007	^ daylightName
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7008	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7009
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7010	daylightName:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7011	daylightName := something.
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7014	daylightWeekDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7015	^ daylightWeekDay
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7018	daylightWeekDay:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7019	daylightWeekDay := something.
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7022	daylightYear
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7023	^ daylightYear
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7026	daylightYear:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7027	daylightYear := something.
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
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	7030	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	7031	daylightYear := daylightYearArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7032	daylightMonth := daylightMonthArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7033	daylightDay := daylightDayArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7034	daylightWeekDay := daylightWeekDayArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7035	daylightHour := daylightHourArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7036	daylightMinute := daylightMinuteArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7037	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7038
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7039	name
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7040	^ name
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7041	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7042
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7043	name:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7044	name := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7045	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7046
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7047	standardBias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7048	^ standardBias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7049	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7050
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7051	standardBias:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7052	standardBias := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7053	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7054
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7055	standardDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7056	^ standardDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7057	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7058
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7059	standardDay:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7060	standardDay := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7061	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7062
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7063	standardHour
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7064	^ standardHour
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7065	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7066
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7067	standardHour:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7068	standardHour := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7069	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7070
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7071	standardMinute
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7072	^ standardMinute
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7073	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7074
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7075	standardMinute:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7076	standardMinute := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7077	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7078
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7079	standardMonth
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7080	^ standardMonth
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7081	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7082
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7083	standardMonth:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7084	standardMonth := something.
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7087	standardWeekDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7088	^ standardWeekDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7089	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7090
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7091	standardWeekDay:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7092	standardWeekDay := something.
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7095	standardYear
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7096	^ standardYear
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7097	!
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	standardYear:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7100	standardYear := something.
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
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	7103	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	7104	standardYear := standardYearArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7105	standardMonth := standardMonthArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7106	standardDay := standardDayArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7107	standardWeekDay := standardWeekDayArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7108	standardHour := standardHourArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7109	standardMinute := standardMinuteArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7110	! !
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7111
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7112	!AbstractOperatingSystem::TimeZoneInfo methodsFor:'queries'!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7113
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7114	utcOffset
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7115	"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	7116	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	7117	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	7118	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	7119
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7120	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	7121	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	7122
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7123	^ (bias + daylightBias) * 60
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7124
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7125	"
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7126	OperatingSystem utcOffset
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7127	"
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7128	! !
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7129
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	7130	!AbstractOperatingSystem class methodsFor:'documentation'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	7131
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	7132	version
17921 4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	7133	^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.220 2012/01/23 13:08:04 cg Exp $'
17735 6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	7134	!
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	7135
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	7136	version_CVS
17921 4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	7137	^ 'Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.220 2012/01/23 13:08:04 cg Exp '
17865 598963c6ff8e Recommited from itself Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17847 diff changeset	7138	!
598963c6ff8e Recommited from itself Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17847 diff changeset	7139
598963c6ff8e Recommited from itself Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17847 diff changeset	7140	version_SVN
17921 4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	7141	^ '$Id: AbstractOperatingSystem.st 10777 2012-02-13 19:19:41Z vranyj1 $'
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	7142	! !
6772 6bfdc2522ea2 isMountPoint penk parents: 6720 diff changeset	7143
17846 24edc476ac18 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17845 diff changeset	7144	AbstractOperatingSystem initialize!
17892 d86c8bd5ece3 Merged with CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17869 diff changeset	7145
17909 0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	7146
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	7147
17911 a99f15c5efa5 Updated with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17910 diff changeset	7148
17912 80eb31a5a622 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	7149
17921 4069fe8e9039 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17912 diff changeset	7150

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 13 Feb 2012 19:19:41 +0000
branch	jv
changeset 17921	4069fe8e9039
parent 17912	80eb31a5a622
child 18005	e67ae1bced52
permissions	-rw-r--r--