hg/stx-libbasic: AbstractOperatingSystem.st@e67ae1bced52 (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
18005 e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4113	decodePath:encodedPathName
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4114	"decode the pathName as returned by system calls.
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4115	E.g. linux system calls return sigle byte strings only,
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4116	so the pathName has been UTF-8 decoded."
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4117
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4118	^ encodedPathName
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4119	!
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4120
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4121	defaultPackagePath
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4122	"return a default packagePath - thats a collection of
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4123	dirnames, where ST/X searches for its package subdirs.
5159 ca0524ab2576 defaultPackagePath initialization fixed Claus Gittinger <cg@exept.de> parents: 5148 diff changeset	4124	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	4125	OS-specific directory names."
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4126
17834 04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4127	\|packagePath dirName homeDirName priv userPrivateSTXDir appDirName appDir topDirName\|
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4128
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4129	"
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4130	the path is set to search files first locally
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4131	- this allows private stuff to override global stuff
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4132	"
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4133	packagePath := OrderedCollection new.
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4134
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4135	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4136	"/ the current (default) directory:
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4137	"/ ./packages
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4138	"/
17807 06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	4139	packagePath add:('.' "Filename currentDirectory pathName").
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4140
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4141	"/
17834 04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4142	"/ the executable's directory:
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4143	"/ (/opt/stx/bin/stx -> /opt/stx/bin)
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4144	"/
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4145	appDirName := self pathOfSTXExecutable asFilename directory.
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4146	(packagePath includes:appDirName) ifFalse:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4147	packagePath add:appDirName.
17834 04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4148	].
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4149
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4150	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4151	"/ 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	4152	"/ (/opt/stx/bin/stx -> /opt/stx/packages)
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4153	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4154	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	4155	dirName := appDir pathName.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4156	(packagePath includes:dirName) ifFalse:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4157	packagePath add:dirName.
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4158	].
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4159
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4160	homeDirName := OperatingSystem getHomeDirectory.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4161	homeDirName notNil ifTrue:[
17910 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	"/ 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	4164	"/ $HOME/.smalltalk/packages or $HOME\smalltalk\packages
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4165	"/
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4166	OperatingSystem isUNIXlike ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4167	priv := '.smalltalk'.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4168	] ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4169	priv := 'smalltalk'.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4170	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4171	userPrivateSTXDir := homeDirName asFilename / priv.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4172	(userPrivateSTXDir isDirectory) ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4173	dirName := userPrivateSTXDir pathName.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4174	(packagePath includes:dirName) ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4175	packagePath add:dirName
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4176	]
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4177	].
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4178	].
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4179
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4180	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4181	"/ 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	4182	"/ $STX_TOPDIR/packages
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4183	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4184	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	4185	topDirName notNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4186	(packagePath includes:topDirName) ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4187	packagePath add:topDirName
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4188	].
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4189	].
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4190
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4191	packagePath := packagePath select:[:each \| (each asFilename / 'packages') exists]
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4192	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	4193
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4194	"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4195	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	4196	"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4197	(dirName := OperatingSystem getEnvironment:'STX_PACKAGEPATH') notNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4198	dirName := dirName asCollectionOfSubstringsSeparatedBy:$:.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4199	dirName reverseDo:[:eachDirectoryName\|
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4200	(packagePath includes:eachDirectoryName) ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4201	packagePath addFirst:eachDirectoryName.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4202	].
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4203	].
5654 96a2142a2c04 Use for packagePath Stefan Vogel <sv@exept.de> parents: 5646 diff changeset	4204	].
96a2142a2c04 Use for packagePath Stefan Vogel <sv@exept.de> parents: 5646 diff changeset	4205
17814 b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4206	"maybe the sources are kept in a central place..."
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4207	(appDir / 'source') isDirectory ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4208	packagePath add:(appDir / 'source') pathName.
17814 b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4209	].
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4210
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4211	"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	4212	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	4213	- 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	4214
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4215	topDirName isNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4216	"appdir is now: projects"
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4217	appDir := appDir directory directory.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4218	(appDir / 'stx' / 'libbasic') isDirectory ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4219	packagePath add:appDir pathName.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4220	].
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4221	].
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4222
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4223	^ packagePath
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4224
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4225	"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4226	OperatingSystem defaultPackagePath
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4227	"
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4228
17834 04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4229	"Modified: / 04-02-2011 / 16:27:15 / cg"
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4230	!
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4231
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4232	defaultSystemPath
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4233	"return a default systemPath - thats a collection of
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4234	dirnames, where ST/X searches for its files.
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4235	This method is redefined in concrete OS's to add
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4236	OS-specific directory names."
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4237
17754 5322906cdb6a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17746 diff changeset	4238	\|sysPath p appDir homePath priv userPrivateSTXDir appPath\|
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4239
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4240	"
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4241	the path is set to search files first locally
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4242	- this allows private stuff to override global stuff
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4243	"
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4244	sysPath := OrderedCollection new.
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4245
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4246	"/
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4247	"/ the current (default) directory
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4248	"/
17807 06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	4249	sysPath add:('.' "Filename currentDirectory pathName").
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4250
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4251	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4252	"/ the executable's directory
17814 b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4253	"/ 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	4254	"/
17754 5322906cdb6a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17746 diff changeset	4255	appPath := self pathOfSTXExecutable.
5322906cdb6a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17746 diff changeset	4256	appPath notNil ifTrue:[
18005 e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4257	appDir := appPath asFilename directory.
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4258	appPath := appDir pathName.
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4259	(sysPath includes:appPath) ifFalse:[
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4260	sysPath add:appPath.
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4261	].
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4262	appDir baseName = 'bin' ifTrue:[
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4263	appPath := appDir directory pathName.
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4264	(sysPath includes:appPath) ifFalse:[
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4265	sysPath add:appPath.
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4266	].
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4267	].
9021 6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4268	].
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4269
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4270	"/
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4271	"/ the users home (login) directory
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4272	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4273	homePath := self getHomeDirectory.
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4274	homePath notNil ifTrue:[
18005 e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4275	"/
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4276	"/ a users private smalltalk directory in its home (login) directory
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4277	"/
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4278	OperatingSystem isUNIXlike ifTrue:[
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4279	priv := '.smalltalk'.
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4280	] ifFalse:[
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4281	priv := 'smalltalk'.
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4282	].
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4283	userPrivateSTXDir := homePath asFilename construct:priv.
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4284	(userPrivateSTXDir isDirectory) ifTrue:[
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4285	userPrivateSTXDir := userPrivateSTXDir pathName.
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4286	(sysPath includes:userPrivateSTXDir) ifFalse:[
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4287	sysPath add:userPrivateSTXDir
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4288	]
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4289	].
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4290	].
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4291
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4292	"/
5036 a967da9d41ac checkin from browser Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	4293	"/ SMALLTALK_LIBDIR, STX_LIBDIR and STX_TOPDIR from the environment
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4294	"/
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4295	#(
18005 e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4296	'SMALLTALK_LIBDIR'
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4297	'STX_LIBDIR'
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4298	'STX_TOPDIR'
5646 5dfccce8e880 no longer automatically add the home-dir to the systemPath Claus Gittinger <cg@exept.de> parents: 5486 diff changeset	4299	) do:[:each \|
18005 e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4300	p := OperatingSystem decodePath:(OperatingSystem getEnvironment:each).
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4301	p notNil ifTrue:[
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4302	p := p asFilename pathName.
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4303	(p asFilename isDirectory) ifTrue:[
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4304	(sysPath includes:p) ifFalse:[
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4305	sysPath add:p
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4306	]
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4307	]
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4308	].
5036 a967da9d41ac checkin from browser Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	4309	].
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4310	^ sysPath
5148 1a4b6b99888d * empty log message * Claus Gittinger <cg@exept.de> parents: 5143 diff changeset	4311
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4312	"
18005 e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4313	OperatingSystem defaultSystemPath
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4314	"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4315
5148 1a4b6b99888d * empty log message * Claus Gittinger <cg@exept.de> parents: 5143 diff changeset	4316	"Modified: / 24.12.1999 / 00:30:27 / cg"
18005 e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4317	!
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4318
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4319	encodePath:pathName
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4320	"encode the pathName for use with system calls.
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4321	E.g. linux system calls accept sigle byte strings only,
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4322	so the pathName has been UTF-8 encoded, before using it in a system call."
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4323
e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	4324	^ pathName
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4325	! !
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4326
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	4327	!AbstractOperatingSystem class methodsFor:'printing support'!
d8547710430c printer stuff fm parents: 9380 diff changeset	4328
d8547710430c printer stuff fm parents: 9380 diff changeset	4329	getPrinters
d8547710430c printer stuff fm parents: 9380 diff changeset	4330	"return a collection of PrinterInfos"
d8547710430c printer stuff fm parents: 9380 diff changeset	4331
d8547710430c printer stuff fm parents: 9380 diff changeset	4332	self subclassResponsibility
d8547710430c printer stuff fm parents: 9380 diff changeset	4333
d8547710430c printer stuff fm parents: 9380 diff changeset	4334	"Created: / 27-07-2006 / 12:17:31 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	4335	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	4336
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4337	!AbstractOperatingSystem class methodsFor:'private'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4338
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4339	osProcessStatusClass
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4340	^ self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4341
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4342	"Created: / 12.6.1998 / 16:30:29 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4343	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4344
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	4345	!AbstractOperatingSystem class methodsFor:'queries-sockets'!
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4346
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4347	domainCodeOf:aSymbolOrInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4348	"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	4349	Return nil for invalid or unsupported domains.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4350	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	4351	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	4352
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4353	\|domainCode\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4354
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4355	%{ /NOCONTEXT/
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4356
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4357	if (__isSmallInteger(aSymbolOrInteger) \|\| aSymbolOrInteger == nil) {
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4358	RETURN (aSymbolOrInteger);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4359	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4360
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4361	#ifdef AF_INET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4362	else if ((aSymbolOrInteger == @symbol(AF_INET)) \|\| (aSymbolOrInteger == @symbol(inet)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4363	domainCode = __mkSmallInteger(AF_INET);
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_INET6
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4366	else if ((aSymbolOrInteger == @symbol(AF_INET6)) \|\| (aSymbolOrInteger == @symbol(inet6)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4367	domainCode = __mkSmallInteger(AF_INET6);
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_UNIX
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4370	else if ((aSymbolOrInteger == @symbol(AF_UNIX)) \|\| (aSymbolOrInteger == @symbol(unix)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4371	domainCode = __mkSmallInteger(AF_UNIX);
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_APPLETALK
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4374	else if ((aSymbolOrInteger == @symbol(AF_APPLETALK)) \|\| (aSymbolOrInteger == @symbol(appletalk)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4375	domainCode = __mkSmallInteger(AF_APPLETALK);
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_DECnet
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4378	else if ((aSymbolOrInteger == @symbol(AF_DECnet)) \|\| (aSymbolOrInteger == @symbol(decnet)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4379	domainCode = __mkSmallInteger(AF_DECnet);
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_NS
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4382	else if ((aSymbolOrInteger == @symbol(AF_NS)) \|\| (aSymbolOrInteger == @symbol(ns)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4383	domainCode = __mkSmallInteger(AF_NS);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4384	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4385	#ifdef AF_X25
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4386	else if ((aSymbolOrInteger == @symbol(AF_X25)) \|\| (aSymbolOrInteger == @symbol(x25)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4387	domainCode = __mkSmallInteger(AF_X25);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4388	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4389	#ifdef AF_SNA
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4390	else if (aSymbolOrInteger == @symbol(AF_SNA))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4391	domainCode = __mkSmallInteger(AF_SNA);
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_RAW
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4394	else if ((aSymbolOrInteger == @symbol(AF_RAW)) \|\| (aSymbolOrInteger == @symbol(raw)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4395	domainCode = __mkSmallInteger(AF_RAW);
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_ISO
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4398	else if ((aSymbolOrInteger == @symbol(AF_ISO)) \|\| (aSymbolOrInteger == @symbol(iso)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4399	domainCode = __mkSmallInteger(AF_ISO);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4400	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4401	#ifdef AF_ECMA
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4402	else if (aSymbolOrInteger == @symbol(AF_ECMA))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4403	domainCode = __mkSmallInteger(AF_ECMA);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4404	#endif
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4405	#ifdef AF_NETBIOS
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4406	else if ((aSymbolOrInteger == @symbol(AF_NETBIOS)) \|\| (aSymbolOrInteger == @symbol(netbios)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4407	domainCode = __mkSmallInteger(AF_NETBIOS);
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_NETBEUI
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4410	else if (aSymbolOrInteger == @symbol(AF_NETBEUI))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4411	domainCode = __mkSmallInteger(AF_NETBEUI);
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_IPX
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4414	else if (aSymbolOrInteger == @symbol(AF_IPX))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4415	domainCode = __mkSmallInteger(AF_IPX);
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_AX25
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4418	else if (aSymbolOrInteger == @symbol(AF_AX25))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4419	domainCode = __mkSmallInteger(AF_AX25);
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_NETROM
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4422	else if (aSymbolOrInteger == @symbol(AF_NETROM))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4423	domainCode = __mkSmallInteger(AF_NETROM);
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_BRIDGE
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4426	else if (aSymbolOrInteger == @symbol(AF_BRIDGE))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4427	domainCode = __mkSmallInteger(AF_BRIDGE);
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_BSC
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4430	else if (aSymbolOrInteger == @symbol(AF_BSC))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4431	domainCode = __mkSmallInteger(AF_BSC);
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_ROSE
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4434	else if (aSymbolOrInteger == @symbol(AF_ROSE))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4435	domainCode = __mkSmallInteger(AF_ROSE);
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_IRDA
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4438	else if ((aSymbolOrInteger == @symbol(AF_IRDA)) \|\| (aSymbolOrInteger == @symbol(irda)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4439	domainCode = __mkSmallInteger(AF_IRDA);
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_BAN
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4442	else if (aSymbolOrInteger == @symbol(AF_BAN))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4443	domainCode = __mkSmallInteger(AF_BAN);
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_VOICEVIEW
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4446	else if (aSymbolOrInteger == @symbol(AF_VOICEVIEW))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4447	domainCode = __mkSmallInteger(AF_VOICEVIEW);
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_ATM
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4450	else if (aSymbolOrInteger == @symbol(AF_ATM))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4451	domainCode = __mkSmallInteger(AF_ATM);
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_ATMPVC
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4454	else if (aSymbolOrInteger == @symbol(AF_ATMPVC))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4455	domainCode = __mkSmallInteger(AF_ATMPVC);
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_ATMSVC
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4458	else if (aSymbolOrInteger == @symbol(AF_ATMSVC))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4459	domainCode = __mkSmallInteger(AF_ATMSVC);
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_SECURITY
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4462	else if (aSymbolOrInteger == @symbol(AF_SECURITY))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4463	domainCode = __mkSmallInteger(AF_SECURITY);
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_KEY
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4466	else if (aSymbolOrInteger == @symbol(AF_KEY))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4467	domainCode = __mkSmallInteger(AF_KEY);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4468	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4469	#ifdef AF_NETLINK
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4470	else if (aSymbolOrInteger == @symbol(AF_NETLINK))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4471	domainCode = __mkSmallInteger(AF_NETLINK);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4472	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4473	#ifdef AF_PACKET
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4474	else if (aSymbolOrInteger == @symbol(AF_PACKET))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4475	domainCode = __mkSmallInteger(AF_PACKET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4476	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4477	#ifdef AF_ASH
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4478	else if (aSymbolOrInteger == @symbol(AF_ASH))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4479	domainCode = __mkSmallInteger(AF_ASH);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4480	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4481	#ifdef AF_ECONET
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4482	else if (aSymbolOrInteger == @symbol(AF_ECONET))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4483	domainCode = __mkSmallInteger(AF_ECONET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4484	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4485	#ifdef AF_IMPLINK
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4486	else if (aSymbolOrInteger == @symbol(AF_IMPLINK))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4487	domainCode = __mkSmallInteger(AF_IMPLINK);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4488	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4489	#ifdef AF_PUP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4490	else if (aSymbolOrInteger == @symbol(AF_PUP))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4491	domainCode = __mkSmallInteger(AF_PUP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4492	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4493	#ifdef AF_CHAOS
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4494	else if (aSymbolOrInteger == @symbol(AF_CHAOS))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4495	domainCode = __mkSmallInteger(AF_CHAOS);
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_DLI
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4498	else if (aSymbolOrInteger == @symbol(AF_DLI))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4499	domainCode = __mkSmallInteger(AF_DLI);
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_LAT
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4502	else if (aSymbolOrInteger == @symbol(AF_LAT))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4503	domainCode = __mkSmallInteger(AF_LAT);
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_HYLINK
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4506	else if (aSymbolOrInteger == @symbol(AF_HYLINK))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4507	domainCode = __mkSmallInteger(AF_HYLINK);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4508	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4509	#ifdef AF_FIREFOX
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4510	else if (aSymbolOrInteger == @symbol(AF_FIREFOX))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4511	domainCode = __mkSmallInteger(AF_FIREFOX);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4512	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4513	#ifdef AF_CLUSTER
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4514	else if (aSymbolOrInteger == @symbol(AF_CLUSTER))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4515	domainCode = __mkSmallInteger(AF_CLUSTER);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4516	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4517	#ifdef AF_12844
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4518	else if (aSymbolOrInteger == @symbol(AF_12844))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4519	domainCode = __mkSmallInteger(AF_12844);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4520	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4521	#ifdef AF_NETDES
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4522	else if (aSymbolOrInteger == @symbol(AF_NETDES))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4523	domainCode = __mkSmallInteger(AF_NETDES);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4524	#endif
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4525	%}.
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	^ domainCode.
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	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4530	self domainCodeOf:#AF_INET
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4531	self domainCodeOf:#AF_INET6
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4532	self domainCodeOf:#AF_UNIX
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4533	self domainCodeOf:#AF_APPLETALK
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4534	self domainCodeOf:#AF_DECNET
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4535	"
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4536	"for backward compatibility only:
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4537	self domainCodeOf:#inet
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4538	self domainCodeOf:#inet6
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4539	self domainCodeOf:#unix
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4540	self domainCodeOf:#appletalk
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4541	self domainCodeOf:#decnet
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4542	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4543	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4544
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4545	domainSymbolOf:anInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4546	"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	4547	Return nil for invalid or unsupported domains."
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4548
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4549	\|domainSymbol\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4550
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4551	%{ /NOCONTEXT/
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4552
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4553	if (__isSmallInteger(anInteger)) {
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4554	switch(__intVal(anInteger)) {
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4555	#ifdef AF_INET
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4556	case AF_INET:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4557	domainSymbol = @symbol(AF_INET);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4558	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4559	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4560	#ifdef AF_INET6
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4561	case AF_INET6:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4562	domainSymbol = @symbol(AF_INET6);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4563	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4564	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4565	#ifdef AF_UNIX
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4566	case AF_UNIX:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4567	domainSymbol = @symbol(AF_UNIX);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4568	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4569	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4570	#ifdef AF_APPLETALK
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4571	case AF_APPLETALK:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4572	domainSymbol = @symbol(AF_APPLETALK);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4573	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4574	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4575	#ifdef AF_DECnet
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4576	case AF_DECnet:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4577	domainSymbol = @symbol(AF_DECnet);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4578	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4579	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4580	#ifdef AF_NS
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4581	case AF_NS:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4582	domainSymbol = @symbol(AF_NS);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4583	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4584	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4585	#ifdef AF_X25
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4586	case AF_X25:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4587	domainSymbol = @symbol(AF_X25);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4588	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4589	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4590	#ifdef AF_SNA
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4591	case AF_SNA:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4592	domainSymbol = @symbol(AF_SNA);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4593	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4594	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4595	#ifdef AF_RAW
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4596	case AF_RAW:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4597	domainSymbol = @symbol(AF_RAW);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4598	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4599	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4600	#ifdef AF_ISO
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4601	case AF_ISO:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4602	domainSymbol = @symbol(AF_ISO);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4603	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4604	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4605	#ifdef AF_ECMA
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4606	case AF_ECMA:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4607	domainSymbol = @symbol(AF_ECMA);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4608	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4609	#endif
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4610	#ifdef AF_NETBIOS
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4611	case AF_NETBIOS:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4612	domainSymbol = @symbol(AF_NETBIOS);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4613	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4614	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4615	#ifdef AF_IPX
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4616	case AF_IPX:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4617	domainSymbol = @symbol(AF_IPX);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4618	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4619	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4620	#ifdef AF_AX25
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4621	case AF_AX25:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4622	domainSymbol = @symbol(AF_AX25);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4623	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4624	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4625	#ifdef AF_NETROM
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4626	case AF_NETROM:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4627	domainSymbol = @symbol(AF_NETROM);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4628	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4629	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4630	#ifdef AF_BRIDGE
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4631	case AF_BRIDGE:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4632	domainSymbol = @symbol(AF_BRIDGE);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4633	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4634	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4635	#ifdef AF_BSC
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4636	case AF_BSC:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4637	domainSymbol = @symbol(AF_BSC);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4638	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4639	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4640	#ifdef AF_ROSE
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4641	case AF_ROSE:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4642	domainSymbol = @symbol(AF_ROSE);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4643	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4644	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4645	#ifdef AF_IRDA
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4646	case AF_IRDA:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4647	domainSymbol = @symbol(AF_IRDA);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4648	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4649	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4650	#ifdef AF_BAN
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4651	case AF_BAN:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4652	domainSymbol = @symbol(AF_BAN);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4653	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4654	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4655	#ifdef AF_VOICEVIEW
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4656	case AF_VOICEVIEW:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4657	domainSymbol = @symbol(AF_VOICEVIEW);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4658	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4659	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4660	#ifdef AF_ATM
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4661	case AF_ATM:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4662	domainSymbol = @symbol(AF_ATM);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4663	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4664	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4665	#ifdef AF_ATMPVC
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4666	case AF_ATMPVC:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4667	domainSymbol = @symbol(AF_ATMPVC);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4668	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4669	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4670	#ifdef AF_ATMSVC
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4671	case AF_ATMSVC:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4672	domainSymbol = @symbol(AF_ATMSVC);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4673	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4674	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4675	#ifdef AF_SECURITY
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4676	case AF_SECURITY:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4677	domainSymbol = @symbol(AF_SECURITY);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4678	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4679	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4680	#ifdef AF_KEY
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4681	case AF_KEY:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4682	domainSymbol = @symbol(AF_KEY);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4683	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4684	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4685	#ifdef AF_NETLINK
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4686	case AF_NETLINK:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4687	domainSymbol = @symbol(AF_NETLINK);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4688	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4689	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4690	#ifdef AF_PACKET
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4691	case AF_PACKET:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4692	domainSymbol = @symbol(AF_PACKET);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4693	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4694	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4695	#ifdef AF_ASH
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4696	case AF_ASH:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4697	domainSymbol = @symbol(AF_ASH);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4698	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4699	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4700	#ifdef AF_ECONET
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4701	case AF_ECONET:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4702	domainSymbol = @symbol(AF_ECONET);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4703	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4704	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4705	#ifdef AF_IMPLINK
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4706	case AF_IMPLINK:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4707	domainSymbol = @symbol(AF_IMPLINK);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4708	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4709	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4710	#ifdef AF_PUP
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4711	case AF_PUP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4712	domainSymbol = @symbol(AF_PUP);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4713	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4714	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4715	#ifdef AF_CHAOS
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4716	case AF_CHAOS:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4717	domainSymbol = @symbol(AF_CHAOS);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4718	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4719	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4720	#ifdef AF_DLI
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4721	case AF_DLI:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4722	domainSymbol = @symbol(AF_DLI);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4723	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4724	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4725	#ifdef AF_LAT
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4726	case AF_LAT:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4727	domainSymbol = @symbol(AF_LAT);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4728	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4729	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4730	#ifdef AF_HYLINK
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4731	case AF_HYLINK:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4732	domainSymbol = @symbol(AF_HYLINK);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4733	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4734	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4735	#ifdef AF_FIREFOX
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4736	case AF_FIREFOX:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4737	domainSymbol = @symbol(AF_FIREFOX);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4738	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4739	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4740	#ifdef AF_CLUSTER
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4741	case AF_CLUSTER:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4742	domainSymbol = @symbol(AF_CLUSTER);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4743	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4744	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4745	#ifdef AF_12844
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4746	case AF_12844:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4747	domainSymbol = @symbol(AF_12844);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4748	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4749	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4750	#ifdef AF_NETDES
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4751	case AF_NETDES:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4752	domainSymbol = @symbol(AF_NETDES);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4753	break;
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4754	#endif
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4755	}
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4756	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4757	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4758
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4759	^ domainSymbol.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4760
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4761	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4762	self domainSymbolOf:(self domainCodeOf:#inet)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4763	self domainSymbolOf:(self domainCodeOf:#inet6)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4764	self domainSymbolOf:(self domainCodeOf:#unix)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4765	self domainSymbolOf:(self domainCodeOf:#appletalk)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4766	self domainSymbolOf:(self domainCodeOf:#decnet)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4767	self domainSymbolOf:(self domainCodeOf:#raw)
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4768	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4769	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4770
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4771	protocolCodeOf:aSymbolOrInteger
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4772	"return the numeric IPPROTO_xxx code of a given symbolic protocol name.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4773	Return nil for invalid or unsupported protocols.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4774	For backward compatibility, the obsolete (non-IPPROTO-prefixed) names
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4775	are still supported for a while - this support will vanish."
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4776
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4777	\|protocolCode\|
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4778
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4779	%{ /NOCONTEXT/
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4780
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4781	if (__isSmallInteger(aSymbolOrInteger) \|\| aSymbolOrInteger == nil) {
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4782	RETURN (aSymbolOrInteger);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4783	}
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4784
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4785	#ifdef IPPROTO_IP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4786	else if ((aSymbolOrInteger == @symbol(IPPROTO_IP)) \|\| (aSymbolOrInteger == @symbol(ip)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4787	protocolCode = __mkSmallInteger(IPPROTO_IP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4788	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4789	#ifdef IPPROTO_ICMP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4790	else if ((aSymbolOrInteger == @symbol(IPPROTO_ICMP)) \|\| (aSymbolOrInteger == @symbol(icmp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4791	protocolCode = __mkSmallInteger(IPPROTO_ICMP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4792	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4793	#ifdef IPPROTO_IGMP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4794	else if ((aSymbolOrInteger == @symbol(IPPROTO_IGMP)) \|\| (aSymbolOrInteger == @symbol(igmp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4795	protocolCode = __mkSmallInteger(IPPROTO_IGMP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4796	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4797	#ifdef IPPROTO_GGP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4798	else if ((aSymbolOrInteger == @symbol(IPPROTO_GGP)) \|\| (aSymbolOrInteger == @symbol(ggp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4799	protocolCode = __mkSmallInteger(IPPROTO_GGP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4800	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4801	#ifdef IPPROTO_TCP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4802	else if ((aSymbolOrInteger == @symbol(IPPROTO_TCP)) \|\| (aSymbolOrInteger == @symbol(tcp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4803	protocolCode = __mkSmallInteger(IPPROTO_TCP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4804	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4805	#ifdef IPPROTO_UDP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4806	else if ((aSymbolOrInteger == @symbol(IPPROTO_UDP)) \|\| (aSymbolOrInteger == @symbol(udp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4807	protocolCode = __mkSmallInteger(IPPROTO_UDP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4808	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4809	#ifdef IPPROTO_IDP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4810	else if ((aSymbolOrInteger == @symbol(IPPROTO_IDP)) \|\| (aSymbolOrInteger == @symbol(idp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4811	protocolCode = __mkSmallInteger(IPPROTO_IDP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4812	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4813	#ifdef IPPROTO_ND
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4814	else if ((aSymbolOrInteger == @symbol(IPPROTO_ND)) \|\| (aSymbolOrInteger == @symbol(nd)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4815	protocolCode = __mkSmallInteger(IPPROTO_ND);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4816	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4817	#ifdef IPPROTO_RAW
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4818	else if ((aSymbolOrInteger == @symbol(IPPROTO_RAW)) \|\| (aSymbolOrInteger == @symbol(raw)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4819	protocolCode = __mkSmallInteger(IPPROTO_RAW);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4820	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4821	%}.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4822
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4823	^ protocolCode.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4824
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4825	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4826	self protocolCodeOf:#IPPROTO_UDP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4827	self protocolCodeOf:#IPPROTO_TCP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4828	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4829	"for backward compatibility only:
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4830	self protocolCodeOf:#udp
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4831	self protocolCodeOf:#tcp
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4832	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4833	!
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4834
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4835	protocolSymbolOf:anInteger
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4836	"return the symbolic protocolName of a given numeric IPPROTO_xxx code.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4837	Return nil for invalid or unsupported protocols."
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4838
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4839	\|protocolSymbol\|
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4840
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4841	%{ /NOCONTEXT/
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4842
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4843	if (__isSmallInteger(anInteger)) {
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4844	switch(__intVal(anInteger)) {
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4845	#ifdef IPPROTO_IP
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4846	case IPPROTO_IP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4847	// protocolSymbol = @symbol(IPPROTO_IP);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4848	protocolSymbol = @symbol(ip);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4849	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4850	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4851	#ifdef IPPROTO_ICMP
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4852	case IPPROTO_ICMP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4853	// protocolSymbol = @symbol(IPPROTO_ICMP);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4854	protocolSymbol = @symbol(icmp);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4855	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4856	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4857	#ifdef IPPROTO_IGMP
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4858	case IPPROTO_IGMP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4859	// protocolSymbol = @symbol(IPPROTO_IGMP);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4860	protocolSymbol = @symbol(igmp);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4861	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4862	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4863	#ifdef IPPROTO_GGP
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4864	case IPPROTO_GGP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4865	// protocolSymbol = @symbol(IPPROTO_GGP);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4866	protocolSymbol = @symbol(ggp);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4867	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4868	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4869	#ifdef IPPROTO_TCP
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4870	case IPPROTO_TCP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4871	// protocolSymbol = @symbol(IPPROTO_TCP);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4872	protocolSymbol = @symbol(tcp);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4873	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4874	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4875	#ifdef IPPROTO_PUP
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4876	case IPPROTO_PUP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4877	// protocolSymbol = @symbol(IPPROTO_PUP);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4878	protocolSymbol = @symbol(pup);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4879	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4880	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4881	#ifdef IPPROTO_UDP
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4882	case IPPROTO_UDP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4883	// protocolSymbol = @symbol(IPPROTO_UDP);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4884	protocolSymbol = @symbol(udp);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4885	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4886	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4887	#ifdef IPPROTO_IDP
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4888	case IPPROTO_IDP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4889	// protocolSymbol = @symbol(IPPROTO_IDP);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4890	protocolSymbol = @symbol(idp);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4891	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4892	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4893	#ifdef IPPROTO_ND
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4894	case IPPROTO_ND:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4895	// protocolSymbol = @symbol(IPPROTO_ND);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4896	protocolSymbol = @symbol(nd);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4897	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4898	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4899	#ifdef IPPROTO_RAW
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4900	case IPPROTO_RAW:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4901	// protocolSymbol = @symbol(IPPROTO_RAW);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4902	protocolSymbol = @symbol(raw);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4903	break;
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4904	#endif
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4905	}
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4906	}
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4907	%}.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4908
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4909	^ protocolSymbol.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4910
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4911	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4912	self protocolSymbolOf:(self protocolCodeOf:#tcp)
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4913	self protocolSymbolOf:(self protocolCodeOf:#udp)
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4914	self protocolSymbolOf:(self protocolCodeOf:#raw)
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4915	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4916	!
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4917
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4918	socketAddressSizeOfDomain:aSymbolOrInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4919	"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	4920	Return nil, if unknown or unsupported."
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4921
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4922	\|socketSize domainCode\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4923
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4924	domainCode := OperatingSystem domainCodeOf:aSymbolOrInteger.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4925
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4926	%{
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4927	if (__isSmallInteger(domainCode)) {
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4928	switch (__intVal(domainCode)) {
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4929	#ifdef AF_INET
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4930	case AF_INET:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4931	socketSize = __mkSmallInteger( sizeof(struct sockaddr_in) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4932	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4933	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4934	#ifdef AF_INET6
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4935	case AF_INET6:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4936	socketSize = __mkSmallInteger( sizeof(struct sockaddr_in6) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4937	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4938	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4939	#ifdef AF_UNIX
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4940	case AF_UNIX:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4941	socketSize = __mkSmallInteger( sizeof(struct sockaddr_un) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4942	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4943	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4944	#ifdef AF_APPLETALK
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4945	case AF_APPLETALK:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4946	socketSize = __mkSmallInteger( sizeof(struct sockaddr_at) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4947	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4948	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4949	#ifdef AF_DECnet
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4950	case AF_DECnet:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4951	socketSize = __mkSmallInteger( sizeof(struct sockaddr_dn) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4952	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4953	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4954	#ifdef AF_NS
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4955	case AF_NS:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4956	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ns) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4957	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4958	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4959	#ifdef AF_X25
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4960	case AF_X25:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4961	socketSize = __mkSmallInteger( sizeof(struct sockaddr_x25) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4962	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4963	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4964	#ifdef AF_SNA
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4965	case AF_SNA:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4966	socketSize = __mkSmallInteger( sizeof(struct sockaddr_sna) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4967	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4968	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4969	#ifdef AF_RAW
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4970	case AF_RAW:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4971	socketSize = __mkSmallInteger( sizeof(struct sockaddr_raw) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4972	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4973	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4974	#ifdef AF_ISO
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4975	case AF_ISO:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4976	socketSize = __mkSmallInteger( sizeof(struct sockaddr_iso) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4977	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4978	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4979	#ifdef AF_ECMA
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4980	# if 0
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4981	case AF_ECMA:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4982	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ecma) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4983	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4984	# endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4985	#endif
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4986	#ifdef AF_NETBIOS
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4987	case AF_NETBIOS:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4988	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netbios) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4989	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4990	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4991	#ifdef AF_NETBEUI
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4992	case AF_NETBEUI:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4993	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netbeui) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4994	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4995	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4996	#ifdef AF_IPX
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4997	case AF_IPX:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4998	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ipx) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	4999	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5000	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5001	#ifdef AF_AX25
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5002	case AF_AX25:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5003	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ax25) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5004	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5005	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5006	#ifdef AF_NETROM
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5007	case AF_NETROM:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5008	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netrom) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5009	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5010	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5011	#ifdef AF_BRIDGE
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5012	case AF_BRIDGE:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5013	socketSize = __mkSmallInteger( sizeof(struct sockaddr_bridge) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5014	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5015	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5016	#ifdef AF_BSC
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5017	case AF_BSC:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5018	socketSize = __mkSmallInteger( sizeof(struct sockaddr_bsc) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5019	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5020	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5021	#ifdef AF_ROSE
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5022	case AF_ROSE:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5023	socketSize = __mkSmallInteger( sizeof(struct sockaddr_rose) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5024	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5025	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5026	#ifdef AF_IRDA
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5027	case AF_IRDA:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5028	socketSize = __mkSmallInteger( sizeof(struct sockaddr_irda) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5029	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5030	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5031	#ifdef AF_BAN
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5032	case AF_BAN:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5033	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ban) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5034	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5035	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5036	#ifdef AF_VOICEVIEW
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5037	case AF_VOICEVIEW:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5038	socketSize = __mkSmallInteger( sizeof(struct sockaddr_voiceview) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5039	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5040	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5041	#ifdef AF_ATM
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5042	case AF_ATM:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5043	socketSize = __mkSmallInteger( sizeof(struct sockaddr_atm) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5044	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5045	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5046	#ifdef AF_ATMPVC
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5047	case AF_ATMPVC:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5048	socketSize = __mkSmallInteger( sizeof(struct sockaddr_atmpvc) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5049	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5050	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5051	#ifdef AF_ATMSVC
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5052	case AF_ATMSVC:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5053	socketSize = __mkSmallInteger( sizeof(struct sockaddr_atmsvc) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5054	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5055	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5056	#ifdef AF_NETLINK
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5057	case AF_NETLINK:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5058	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netlink) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5059	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5060	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5061	#ifdef AF_PACKET
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5062	case AF_PACKET:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5063	socketSize = __mkSmallInteger( sizeof(struct sockaddr_packet) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5064	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5065	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5066	#ifdef AF_ASH
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5067	case AF_ASH:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5068	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ash) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5069	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5070	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5071	#ifdef AF_ECONET
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5072	case AF_ECONET:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5073	socketSize = __mkSmallInteger( sizeof(struct sockaddr_eco) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5074	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5075	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5076	#ifdef AF_IMPLINK
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5077	case AF_IMPLINK:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5078	socketSize = __mkSmallInteger( sizeof(struct sockaddr_implink) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5079	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5080	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	5081	#ifdef AF_PUP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	5082	# if 0
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5083	case AF_PUP:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5084	socketSize = __mkSmallInteger( sizeof(struct sockaddr_pup) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5085	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	5086	# endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	5087	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5088	#ifdef AF_CHAOS
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5089	case AF_CHAOS:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5090	socketSize = __mkSmallInteger( sizeof(struct sockaddr_chaos) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5091	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5092	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5093	#ifdef AF_DLI
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5094	case AF_DLI:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5095	socketSize = __mkSmallInteger( sizeof(struct sockaddr_dli) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5096	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5097	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5098	#ifdef AF_LAT
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5099	case AF_LAT:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5100	socketSize = __mkSmallInteger( sizeof(struct sockaddr_lat) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5101	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5102	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5103	#ifdef AF_HYLINK
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5104	case AF_HYLINK:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5105	socketSize = __mkSmallInteger( sizeof(struct sockaddr_hylink) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5106	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5107	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5108	#ifdef AF_FIREFOX
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5109	case AF_FIREFOX:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5110	socketSize = __mkSmallInteger( sizeof(struct sockaddr_firefox) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5111	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5112	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5113	#ifdef AF_CLUSTER
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5114	case AF_CLUSTER:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5115	socketSize = __mkSmallInteger( sizeof(struct sockaddr_cluster) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5116	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5117	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5118	#ifdef AF_12844
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5119	case AF_12844:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5120	socketSize = __mkSmallInteger( sizeof(struct sockaddr_12844) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5121	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5122	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5123	#ifdef AF_NETDES
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5124	case AF_NETDES:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5125	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netdes) );
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5126	break;
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5127	#endif
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5128	}
7509 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	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5131	^ socketSize
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5132
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5133	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5134	self socketAddressSizeOfDomain:#'AF_INET'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5135	self socketAddressSizeOfDomain:#'AF_UNIX'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5136	self socketAddressSizeOfDomain:#'Foo'
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5137	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5138	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5139
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5140	socketTypeCodeOf:aSymbolOrInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5141	"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	5142	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	5143
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5144	\|typeCode\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5145
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5146	%{ /NOCONTEXT/
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5147
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5148	if (__isSmallInteger(aSymbolOrInteger) \|\| aSymbolOrInteger == nil) {
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5149	typeCode = aSymbolOrInteger;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5150	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5151
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5152	#ifdef SOCK_STREAM
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5153	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	5154	typeCode = __mkSmallInteger(SOCK_STREAM);
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_DGRAM
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5157	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	5158	typeCode = __mkSmallInteger(SOCK_DGRAM);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5159	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5160	#ifdef SOCK_RAW
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5161	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	5162	typeCode = __mkSmallInteger(SOCK_RAW);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5163	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5164	#ifdef SOCK_RDM
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5165	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	5166	typeCode = __mkSmallInteger(SOCK_RDM);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5167	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5168	#ifdef SOCK_SEQPACKET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5169	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	5170	typeCode = __mkSmallInteger(SOCK_SEQPACKET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5171	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5172	#ifdef SOCK_PACKET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5173	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	5174	typeCode = __mkSmallInteger(SOCK_PACKET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5175	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5176	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5177
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5178	^ typeCode.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5179
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5180	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5181	self socketTypeCodeOf:#stream
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5182	self socketTypeCodeOf:#datagram
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5183	self socketTypeCodeOf:#raw
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5184	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5185	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5186
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5187	socketTypeSymbolOf:anInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5188	"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	5189	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	5190
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5191	\|socketTypeSymbol\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5192
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5193	%{ /NOCONTEXT/
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5194
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5195	if (__isSmallInteger(anInteger)) {
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5196	switch(__intVal(anInteger)) {
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5197	#ifdef SOCK_STREAM
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5198	case SOCK_STREAM:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5199	socketTypeSymbol = @symbol(SOCK_STREAM);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5200	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5201	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5202	#ifdef SOCK_DGRAM
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5203	case SOCK_DGRAM:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5204	socketTypeSymbol = @symbol(SOCK_DGRAM);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5205	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5206	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5207	#ifdef SOCK_RAW
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5208	case SOCK_RAW:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5209	socketTypeSymbol = @symbol(SOCK_RAW);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5210	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5211	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5212	#ifdef SOCK_RDM
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5213	case SOCK_RDM:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5214	socketTypeSymbol = @symbol(SOCK_RDM);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5215	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5216	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5217	#ifdef SOCK_SEQPACKET
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5218	case SOCK_SEQPACKET:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5219	socketTypeSymbol = @symbol(SOCK_SEQPACKET);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5220	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5221	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5222	#ifdef SOCK_PACKET
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5223	case SOCK_PACKET:
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5224	socketTypeSymbol = @symbol(SOCK_PACKET);
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5225	break;
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5226	#endif
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5227	}
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5228	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5229	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5230	^ socketTypeSymbol.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5231	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5232
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5233	supportedProtocolFamilies
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5234	"return a collection of supported protocol families.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5235	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	5236	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	5237	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	5238	(non-AF-prefixed) symbols; these will vanish."
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5239
7713 c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5240	^ #(
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5241	#AF_INET #inet
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5242	#AF_UNIX #unix
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5243	#AF_INET6 #inet6
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5244	#AF_APPLETALK #appletalk
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5245	#AF_DECnet #decnet
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5246	#AF_NS #ns
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5247	#AF_X25 #x25
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5248	#AF_SNA
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5249	#AF_RAW
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5250	#AF_ISO
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5251	#AF_ECMA
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5252	#AF_NETBIOS #netbios
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5253	#AF_IPX
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5254	#AF_AX25
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5255	#AF_NETROM
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5256	#AF_BRIDGE
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5257	#AF_BSC
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5258	#AF_ROSE
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5259	#AF_IRDA #irda
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5260	#AF_NETLINK
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5261	#AF_NETLINK
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5262	#AF_NETBEUI
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5263	#AF_ATM
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5264	#AF_ATMPVC
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5265	#AF_ATMSVC
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5266	#AF_BAN
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5267	#AF_VOICEVIEW
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5268	#AF_ECONET
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5269	#AF_IMPLINK
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5270	#AF_PUP
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5271	#AF_CHAOS
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5272	#AF_DLI
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5273	#AF_LAT
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5274	#AF_HYLINK
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5275	#AF_FIREFOX
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5276	#AF_CLUSTER
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5277	#AF_12844
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5278	#AF_NETDES
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5279	) select:[:sym \| (AbstractOperatingSystem domainCodeOf:sym) isNumber ]
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5280
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5281	"
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5282	AbstractOperatingSystem supportedProtocolFamilies
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5283	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5284	!
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	supportedSocketTypes
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5287	"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	5288	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	5289
7713 c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5290	^ #(
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5291	#SOCK_STREAM
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5292	#SOCK_DGRAM
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5293	#SOCK_RAW
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5294	#SOCK_RDM
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5295	#SOCK_SEQPACKET
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5296	#SOCK_PACKET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5297	) select:[:sym \| (AbstractOperatingSystem socketTypeCodeOf:sym) isNumber ]
7713 c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5298
c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5299	"
c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5300	AbstractOperatingSystem supportedSocketTypes
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5301	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5302	! !
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5303
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5304	!AbstractOperatingSystem class methodsFor:'shared memory access'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5305
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5306	shmAttach:id address:addr flags:flags
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5307	"low level entry to shmat()-system call.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5308	Not supported on all operatingSystems"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5309
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5310	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5311
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5312	"Modified: / 19.5.1999 / 14:21:35 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5313	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5314
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5315	shmDetach:addr
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5316	"low level entry to shmdt()-system call.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5317	Not supported on all operatingSystems"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5318
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5319	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5320
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5321	"Modified: / 19.5.1999 / 14:21:37 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5322	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5323
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5324	shmGet:key size:size flags:flags
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5325	"low level entry to shmget()-system call.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5326	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	5327	- use the provided wrapper class SharedExternalBytes instead."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5328
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5329	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5330
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5331	"Modified: / 19.5.1999 / 14:21:41 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5332	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5333
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5334	!AbstractOperatingSystem class methodsFor:'time and date'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5335
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5336	computeDatePartsOf:osTime for:aBlock
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5337	"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	5338	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	5339	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	5340
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5341	<resource:#obsolete>
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5342
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5343	\|i\|
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5344
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5345	self obsoleteMethodWarning:'use #computeTimeAndDateFrom:osTime'.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5346
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5347	i := self computeTimeAndDateFrom:osTime.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5348	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	5349
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5350	"
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5351	OperatingSystem computeDatePartsOf:0 for:[:y :m :d \|
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5352	y printCR. m printCR. d printCR
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5353	]
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5354	"
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5355	!
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5356
4377 59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5357	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	5358	"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	5359	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	5360
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5361	self subclassResponsibility
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5362
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5363	"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	5364	!
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5365
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5366	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	5367	"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	5368	The arguments are assumed to be in localtime including
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5369	any daylight saving adjustings."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5370
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5371	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5372	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5373
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5374	computeTimeAndDateFrom:osTime
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5375	"given an OS-dependent time in osTime, return an Array
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5376	containing (full-) year, month, day, hour, minute and seconds,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5377	offset to UTC, daylight savings time flag, milliseconds,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5378	dayInYear (1..) and dayInWeek (1..).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5379	Conversion is to localtime including any daylight saving adjustments."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5380
7733 f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5381	\|divMod ret\|
f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5382
f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5383	divMod := osTime divMod:1000.
7739 d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5384	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	5385	^ ret
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5386
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5387	"
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5388	OperatingSystem computeTimeAndDateFrom:0
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5389	OperatingSystem computeTimeAndDateFrom:1011
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5390	"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5391	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5392
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5393	computeTimePartsOf:osTime for:aBlock
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5394	"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	5395	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	5396	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	5397
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5398	<resource:#obsolete>
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	\|hours minutes seconds millis i\|
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	self obsoleteMethodWarning:'use #computeTimeAndDateFrom:osTime'.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5403
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5404	i := self computeTimeAndDateFrom:osTime.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5405	hours := i hours.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5406	minutes := i minutes.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5407	seconds := i seconds.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5408	millis := i milliseconds.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5409
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5410	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	5411
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5412	"
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5413	OperatingSystem computeTimePartsOf:100 for:[:h :m :s :milli \|
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5414	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	5415	]
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5416	"
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5417	!
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5418
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5419	computeUTCTimeAndDateFrom:osTime
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5420	"given an OS-dependent time in osTime, return an Array
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5421	containing:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5422	(full-) year,
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5423	month, (1..)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5424	day, (1..)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5425	hour, (0..23)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5426	minute (0..59)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5427	seconds, (0..59)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5428	offset to UTC, (seconds)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5429	daylight savings time flag,
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5430	milliseconds, (0..999)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5431	dayInYear (1..)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5432	dayInWeek (1..).
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5433	Conversion is to utc."
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5434
7733 f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5435	\|divMod ret\|
f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5436
f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5437	divMod := osTime divMod:1000.
7739 d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5438	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	5439	^ ret
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5440
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5441	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5442	OperatingSystem computeUTCTimeAndDateFrom:0
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5443	OperatingSystem computeUTCTimeAndDateFrom:1011
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5444	"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5445	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5446
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5447	computeUTCTimePartsOf:osTime for:aBlock
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5448	"compute hours, minutes, seconds and milliseconds from the osTime
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5449	and evaluate the argument, a 4-arg block with these.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5450	Conversion is to UTC."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5451
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5452	<resource:#obsolete>
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5453
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5454	\|hours minutes seconds millis i\|
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5455
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5456	self obsoleteMethodWarning:'use #computeTimeAndDateFrom:osTime'.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5457
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5458	i := self computeUTCTimeAndDateFrom:osTime.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5459	hours := i hours.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5460	minutes := i minutes.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5461	seconds := i seconds.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5462	millis := i milliseconds.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5463
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5464	aBlock value:hours value:minutes value:seconds value:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5465	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5466
17909 0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5467	getCPUCycleCount
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5468	"get a CPU specific cycle counter value.
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5469	Can be used for exact timing & performance measurements.
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5470	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	5471
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5472	For x86:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5473	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	5474	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	5475	For others:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5476	currently fails"
17909 0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5477
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5478	%{ /* NOCONTEXT */
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5479	unsigned int low, high;
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	#ifdef i386
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5482	// 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	5483
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5484	# if defined(__BORLANDC__)
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5485	_asm { push edx };
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5486	__emit__(0x0F,0x31); /* RDTSC instruction */
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5487	_asm { mov low,eax };
17909 0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5488	_asm { mov high,edx };
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5489	_asm { pop edx };
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5490	# elif defined(__MINGW_H) \|\| defined(__GNUC__)
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5491	asm volatile("rdtsc" : "=a"(low), "=d"(high));
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5492	# else
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5493	goto unsupported;
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5494	# endif
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5495	#endif /* i386 */
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5496
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5497	RETURN ( __MKLARGEINT64(1, low, high) );
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5498	unsupported: ;
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5499	%}.
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5500	self primitiveFailed:'no CPU cycle register on this architecture'
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5501
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5502	"Created: / 05-01-2012 / 13:23:31 / cg"
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5503	!
0ab1deab8e9c Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	5504
3689 f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5505	getMicrosecondTime
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5506	"This returns the microsecond timers value - if available.
3689 f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5507	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	5508	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	5509	clock resolution value."
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5510
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5511	"/ fallBack - use getMillisecondTime, which must be implemented
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5512	"/ for all OS's
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5513
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5514	^ self getMillisecondTime * 1000
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5515
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5516	"Created: / 30.7.1998 / 16:38:26 / cg"
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5517	!
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5518
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5519	getMillisecondTime
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5520	"This returns the millisecond timers value.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5521	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	5522	LargeInteger arithmetic when doing timeouts and delays.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5523	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	5524	short relative time deltas.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5525	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	5526
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5527	BAD DESIGN:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5528	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	5529	and these computations moved there.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5530
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5531	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	5532	interface. For compatibility with ST-80, use Time millisecondClockValue.
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5535	self subclassResponsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5538	getOSTime
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5539	"This returns the OS time.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5540	The base of the returned value is not consistent across
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5541	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	5542	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	5543	converts as appropriate (by using my fromOSTime: conversion methods).
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	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	5546	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	5547	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	5548	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5549
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5550	self subclassResponsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5553	maximumMillisecondTimeDelta
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5554	"this returns the maximum delta supported by millisecondCounter
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5555	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	5556	timer wraps."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5557
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5558	%{ /* NOCONTEXT */
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	5559	RETURN ( __mkSmallInteger(0x0FFFFFFF) );
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5563	millisecondDelay:millis
7681 7c63f0b47f0d oops: millisecondDelay: was duplicated Claus Gittinger <cg@exept.de> parents: 7656 diff changeset	5564	"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	5565	All other threads proceed as usual.
7849 40819a29fdcd comment ca parents: 7835 diff changeset	5566	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	5567
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5568	\|now then delta\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5569
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5570	now := self getMillisecondTime.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5571	then := self millisecondTimeAdd:now and:millis.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5572
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5573	[(delta := self millisecondTimeDeltaBetween:then and:now) > 0] whileTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5574	self selectOnAnyReadable:nil writable:nil exception:nil withTimeOut:delta.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5575	now := self getMillisecondTime.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5576	]
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5577
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5578	"
7849 40819a29fdcd comment ca parents: 7835 diff changeset	5579	OperatingSystem millisecondDelay:5000
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5580	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5581	!
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	millisecondTime:msTime1 isAfter:msTime2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5584	"return true if msTime1 is after msTime2, false if not.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5585	The two arguments are supposed to be millisecond times
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5586	(such as returned getMillisecondTime) which wrap at 16r1FFFFFFF.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5587
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5588	This should really be moved to some RelativeTime class."
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	(msTime1 > msTime2) ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5591	((msTime1 - msTime2) < 16r10000000) ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5592	^ true
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5593	].
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5594	] ifFalse:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5595	((msTime2 - msTime1) > 16r10000000) ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5596	^ true
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5597	].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5598	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5599	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5600	!
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	millisecondTimeAdd:msTime1 and:msTime2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5603	"Add two millisecond times (such as returned getMillisecondTime).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5604	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	5605
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5606	This should really be moved to some RelativeTime class."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5607
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5608	\|sum\|
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	sum := msTime1 + msTime2.
17892 d86c8bd5ece3 Merged with CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17869 diff changeset	5611	(sum > 16r1FFFFFFF) ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5612	self assert:(sum <= 16r3FFFFFFF) message:'overflow in timer computation'.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5613	^ sum - 16r20000000.
17892 d86c8bd5ece3 Merged with CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17869 diff changeset	5614	].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5615	(sum < 0) ifTrue:[^ sum + 16r20000000].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5616	^ sum
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5617	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5618
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5619	millisecondTimeDeltaBetween:msTime1 and:msTime2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5620	"subtract two millisecond times (such as returned getMillisecondTime)
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5621	and return the difference. Since milli-times wrap (at 16r01FFFFFFF),
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5622	some special handling is built-in here.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5623	The returned value is msTime1 - msTime2. The returned value is invalid
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5624	if the delta is >= 0x10000000.
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	This should really be moved to some RelativeTime class;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5627	better yet: create a subclass of Integer named LimitedRangeInteger."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5628
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5629	\|diff\|
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5630
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5631	diff := msTime1 - msTime2.
11166 52c2ccfc0d4c Make last change better looking Stefan Vogel <sv@exept.de> parents: 11165 diff changeset	5632	diff > 16r-10000000 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5633	(diff < 16r10000000) ifTrue:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5634	^ diff.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5635	] ifFalse:[
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5636	^ diff - 16r20000000.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5637	].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5638	].
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5639	^ diff + 16r20000000
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5640
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5641
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5642	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5643	OperatingSystem millisecondTimeAdd:16r0FFFFFFF and:1
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5644	OperatingSystem millisecondTimeAdd:16r0FFFFFFF and:(16 / 3)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5645	OperatingSystem millisecondTimeAdd:16r0FFFFFFF and:1000
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 millisecondTimeDeltaBetween:0 and:16r0FFFFFFF
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5648	OperatingSystem millisecondTimeDeltaBetween:0 and:16r1FFFFFFF
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5649	OperatingSystem millisecondTimeDeltaBetween:16r1FFFFFFF and:0
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5650
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5651	OperatingSystem millisecondTimeDeltaBetween:(13/3) and:16r0FFFFFFF
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5652	OperatingSystem millisecondTimeDeltaBetween:999 and:16r0FFFFFFF
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5653
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5654	OperatingSystem millisecondTime:0 isAfter:16r0FFFFFFF
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5655	OperatingSystem millisecondTime:0 isAfter:16r1FFFFFFF
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5656	OperatingSystem millisecondTime:(13/3) isAfter:16r0FFFFFFF
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5657	OperatingSystem millisecondTime:999 isAfter:16r0FFFFFFF
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5658
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5659	OperatingSystem millisecondTime:0 isAfter:0
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5660	OperatingSystem millisecondTime:(13/3) isAfter:0
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5661	OperatingSystem millisecondTime:999 isAfter:0
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5662
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5663	OperatingSystem millisecondTime:1 isAfter:0
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5664	OperatingSystem millisecondTime:(13/3) isAfter:2
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5665	OperatingSystem millisecondTime:999 isAfter:900
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5666
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5667	\|t1 t2\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5668
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5669	t1 := Time millisecondClockValue.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5670	(Delay forMilliseconds:1) wait.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5671	t2 := Time millisecondClockValue.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5672	OperatingSystem millisecondTimeDeltaBetween:t2 and:t1
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5673	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5674	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5675
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5676	sleep:numberOfSeconds
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5677	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5678
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5679	"cease ANY action for some time. This suspends the whole smalltalk
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5680	(unix-) process for some time.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5681	Not really useful since not even low-prio processes and interrupt
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5682	handling will run during the sleep.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5683	Use either OperatingSystem>>millisecondDelay: (which makes all
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5684	threads sleep, but handles interrupts) or use a Delay (which makes
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5685	only the calling thread sleep)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5686
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5687	self subclassResponsibility
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5688	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5689
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5690	timeInfoClass
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5691	^ TimeInfo
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5692	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5693
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5694	timeInfoFromSeconds:osSeconds localTime:isLocalTime
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5695	"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	5696	An internal helper"
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5697
7739 d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5698	^ self timeInfoFromSeconds:osSeconds milliseconds:0 localTime:isLocalTime
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5699	!
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5700
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5701	timeInfoFromSeconds:osSeconds milliseconds:osMilliSeconds localTime:isLocalTime
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5702	"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	5703	An internal helper"
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5704
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5705	self subclassResponsibility
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5706	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5707
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5708	!AbstractOperatingSystem class methodsFor:'users & groups'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5709
17795 569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5710	getApplicationDataDirectoryFor:appName
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5711	"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	5712	located (ini-files, preferences etc.).
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5713	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	5714	is returned, here, the fallback ~/.<appName> is returned.
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5715	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	5716
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5717	"{ Pragma: +optSpace }"
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5718
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5719	^ self getHomeDirectory asFilename constructString:('.',appName)
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5720
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5721	"
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5722	OperatingSystem getApplicationDataDirectoryFor:'expecco'
17795 569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5723	"
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5724
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5725	"Created: / 29-07-2010 / 12:07:25 / sr"
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5726	!
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5727
10544 83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5728	getDesktopDirectory
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5729	"{ Pragma: +optSpace }"
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5730
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5731	"return the name of the users desktop directory.
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5732	The fallback here returns the users home directory."
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5733
10545 8806e5e326c0 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10544 diff changeset	5734	^ self getHomeDirectory
8806e5e326c0 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10544 diff changeset	5735
8806e5e326c0 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10544 diff changeset	5736	"
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5737	OperatingSystem getDesktopDirectory
10544 83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5738	"
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5739
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5740	"Created: / 16-05-2007 / 13:20:53 / cg"
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5741	!
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5742
11760 84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5743	getDocumentsDirectory
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5744	"return your documents directory.
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5745	Under windows, thats the real 'Documents' or 'My Documents'.
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5746	The fallback here returns the users home directory."
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5747
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5748	"{ Pragma: +optSpace }"
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5749
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5750	^ self getHomeDirectory
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5751
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5752	"
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5753	OperatingSystem getDocumentsDirectory
11760 84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5754	"
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5755	!
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5756
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5757	getEffectiveGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5758	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5759
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5760	"return the current users (thats you) effective numeric group id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5761	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	5762	as a setuid program (of which you should think about twice)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5763
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5764	^ self getGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5765
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5766	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5767	OperatingSystem getEffectiveGroupID
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	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5770
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5771	getEffectiveUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5772	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5773
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5774	"return the current users (thats you) effective numeric user id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5775	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	5776	as a setuid program (of which you should think about twice)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5777
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5778	^ self getUserID
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	OperatingSystem getEffectiveUserID
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5785	getFullUserName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5786	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5787
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5788	"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	5789	If not, return the login name as a fallBack."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5790
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5791	^ self getFullUserNameFromID:(self getUserID)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5792
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5793	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5794	OperatingSystem getFullUserName
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5795	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5796
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5797	"Modified: 24.1.1997 / 11:31:55 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5798	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5799
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5800	getFullUserNameFromID:userID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5801	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5802
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5803	"return a string with the users full name - if available.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5804	If not, return the login name as a fallBack."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5805
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5806	^ self getUserNameFromID:userID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5807
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5808	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5809	OperatingSystem getFullUserNameFromID:0
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5810	OperatingSystem getFullUserNameFromID:(OperatingSystem getUserID)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5811
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5812	OperatingSystem getUserNameFromID:(OperatingSystem getUserID)
3576 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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5815	"Modified: 15.7.1996 / 12:44:21 / cg"
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5818	getGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5819	"{ Pragma: +optSpace }"
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	"return the current users (thats you) numeric group id"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5822
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5823	^ 1 "/ just a dummy for systems which do not have userIDs
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	OperatingSystem getGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5827	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5828	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5829
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5830	getGroupNameFromID:aNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5831	"{ Pragma: +optSpace }"
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	"return the group-name-string for a given numeric group-id"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5834
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5835	^ '???' "/ just a dummy for systems which do not have groups
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	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5838	OperatingSystem getGroupNameFromID:0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5839	OperatingSystem getGroupNameFromID:10
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5840	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5841	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5842
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5843	getHomeDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5844	"return the name of the users home directory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5845	(i.e. yours)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5846
11760 84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5847	^ self subclassResponsibility
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5848
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5849	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5850	OperatingSystem getHomeDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5851	"
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	"Modified: 24.1.1997 / 11:32:13 / cg"
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	getLoginName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5857	"{ Pragma: +optSpace }"
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	"return a string with the users login name (thats yours)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5860
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5861	self subclassResponsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5864	getUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5865	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5866
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5867	"return the current users (thats you) numeric user id"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5868
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5869	^ 1 "just a dummy for systems which do not have userIDs"
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	OperatingSystem getUserID
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5876	getUserNameFromID:aNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5877	"{ Pragma: +optSpace }"
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	"return the user-name-string for a given numeric user-id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5880	This is the login name, not the fullName."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5881
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5882	"/ fallBack dummy
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	aNumber == self getUserID ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5885	^ self getLoginName
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5886	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5887
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5888	^ '? (' , aNumber printString , ')'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5889
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5890	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5891	OperatingSystem getUserNameFromID:0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5892	OperatingSystem getUserNameFromID:100
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5893	OperatingSystem getUserNameFromID:9991
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5894	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5895	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5896
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5897	userInfoOf:aNameOrID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5898	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5899
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5900	"return a dictionary filled with userinfo. The argument can be either
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5901	a string with the users name or its numeric id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5902	Notice, that not all systems provide (all of) this info;
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5903	DOS systems return nothing;
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5904	non-SYSV4 systems have no age/comment.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5905	Portable applications may want to check the systemType and NOT depend
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5906	on all keys to be present in the returned dictionary.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5907	Another notice: on some systems (SYSV4), the gecos field includes multiple
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5908	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	5909	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	5910
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5911	\|info\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5912
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5913	"/ fallBack dummy
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5914	info := IdentityDictionary new.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5915	info at:#name put:(self getLoginName).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5916	info at:#dir put:(self getHomeDirectory).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5917	^ info
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	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5920	OperatingSystem userInfoOf:'root'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5921	OperatingSystem userInfoOf:1
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5922	OperatingSystem userInfoOf:'claus'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5923	OperatingSystem userInfoOf:'fooBar'
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5924	OperatingSystem userInfoOf:(OperatingSystem getUserID)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5925	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5926	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5927
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5928	!AbstractOperatingSystem class methodsFor:'waiting for events'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5929
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5930	blockingChildProcessWait
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5931	"return true, if childProcessWait: blocks, if no children are ready.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5932	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	5933	a subprocesses status (to avoid blocking)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5934
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5935	^ true
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5936	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5937
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5938	childProcessWait:blocking pid:pidToWait
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5939	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5940
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5941	"get status changes from child processes.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5942	Return an OSProcessStatus or nil, if no process has terminated.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5943	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	5944	otherwise we return immediately.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5945	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	5946	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	5947
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5948	self subclassResponsibility
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
7802 79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5951	isBlockingOn:fd
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5952	"{ Pragma: +optSpace }"
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5953
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5954	"return the blocking attribute - if set (which is the default)
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5955	a read on the fileDescriptor will block until data is available.
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5956	If clear, a read operation will immediately return with a value nil.
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5957	Also affects write operations, which may perform partial writes when
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5958	blocking is off"
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5959
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5960	self subclassResponsibility
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5961	!
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5962
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5963	numAvailableForReadOn:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5964	"return the number of bytes available for reading, without blocking."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5965
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5966	"/ fallBack for systems which do not provide this info
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5967	^ (self readCheck:fd) ifTrue:[1] ifFalse:[0]
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5968	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5969
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5970	readCheck:fd
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5971	"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	5972	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	5973	or the read would return an error.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5974	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	5975
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5976	\|result\|
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5977
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5978	self supportsSelect ifFalse:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5979	"/ mhmh - what should we do then ?
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5980	"/ For now, return true as if data was present,
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5981	"/ and let the thread fall into the read.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5982	"/ It will then (hopefully) be descheduled there and
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5983	"/ effectively polling for input.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5984
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5985	^ true
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5986	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5987
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5988	result := self
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5989	selectOnAnyReadable:(Array with:fd)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5990	writable:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5991	exception:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	5992	withTimeOut:0.
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5993
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5994	"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	5995	^ result == fd or:[result == #error].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5996	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5997
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5998	readWriteCheck:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5999	"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	6000	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	6001	or the read or write would return an error.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6002	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	6003	be finished."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6004
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6005	\|result\|
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6006
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6007	self supportsSelect ifFalse:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6008	"/ mhmh - what should we do then ?
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6009	"/ For now, return true as if data was present,
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6010	"/ and let the thread fall into the write.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6011	"/ It will then (hopefully) be desceduled there and
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6012	"/ effectively polling for output.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6013	^ true
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6014	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6015
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6016	result := self selectOnAnyReadable:(Array with:fd)
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6017	writable:(Array with:fd)
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:0.
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6020
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6021	^ result == fd or:[result == #error].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6022	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6023
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6024	selectOn:fd1 and:fd2 withTimeOut:millis
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6025	<resource: #obsolete>
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6026	"wait for any fd to become ready; timeout after t milliseconds.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6027	A zero timeout-time will immediately return (i.e. poll).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6028	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	6029	Obsolete:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6030	This is a leftover method and will vanish."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6031
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6032	^ self selectOnAnyReadable:(Array with:fd1 with:fd2)
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6033	writable:(Array with:fd1 with:fd2)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6034	exception:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6035	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6036	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6037
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6038	selectOn:fd withTimeOut:millis
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6039	"wait for aFileDesriptor to become ready; timeout after t milliseconds.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6040	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	6041	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	6042	of read-data.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6043	Experimental."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6044
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6045	^ self selectOnAnyReadable:(Array with:fd)
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6046	writable:(Array with:fd)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6047	exception:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6048	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6049	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6050
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6051	selectOnAny:fdArray withTimeOut:millis
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6052	"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	6053	timeout after t milliseconds. An empty set will always wait.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6054	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	6055	Experimental."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6056
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6057	^ self selectOnAnyReadable:fdArray
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6058	writable:fdArray
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6059	exception:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6060	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6061	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6062
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6063	selectOnAnyReadable:fdArray withTimeOut:millis
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6064	"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	6065	reading. Timeout after t milliseconds. An empty set will always wait.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6066	A zero timeout-time will immediately return (i.e. poll).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6067	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	6068	Experimental."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6069
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6070	^ self selectOnAnyReadable:fdArray
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6071	writable:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6072	exception:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6073	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6074	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6075
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6076	selectOnAnyReadable:readFdArray writable:writeFdArray exception:exceptFdArray
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6077	readableInto:readableResultFdArray writableInto:writableResultFdArray
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6078	exceptionInto:exceptionResultFdArray
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6079	withTimeOut:millis
7510 46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	6080
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6081	"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	6082	writeFdArray to become ready for writing,
7510 46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	6083	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	6084	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	6085	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	6086	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	6087	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	6088	writableResultFdArray and exceptionResultFdArray respectively.
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	6089
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	6090	Return the (overall) number of selected filedescriptors.
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	6091	readableResultFdArray, writableResultFdArray and exceptionResultFdArray will
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	6092	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	6093	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	6094
f2bf4935e7eb New select for fair scheduling (not giving low filedescriptors Stefan Vogel <sv@exept.de> parents: 7488 diff changeset	6095	self subclassResponsibility
f2bf4935e7eb New select for fair scheduling (not giving low filedescriptors Stefan Vogel <sv@exept.de> parents: 7488 diff changeset	6096	!
f2bf4935e7eb New select for fair scheduling (not giving low filedescriptors Stefan Vogel <sv@exept.de> parents: 7488 diff changeset	6097
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6098	selectOnAnyReadable:readFdArray writable:writeFdArray exception:exceptFdArray withTimeOut:millis
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6099	"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	6100	reading, writeFdArray to become ready for writing, or exceptFdArray to
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6101	arrive exceptional data (i.e. out-of-band data).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6102	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	6103	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	6104	descriptors (i.e. to check if I/O possible without blocking).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6105	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	6106
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6107	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6108	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6109
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6110	setBlocking:aBoolean on:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6111	"{ Pragma: +optSpace }"
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	"set/clear the blocking attribute - if set (which is the default)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6114	a read on the fileDescriptor will block until data is available.
7803 2238df4944ca comments; Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	6115	If cleared, a read operation will immediately return with a value of nil.
2238df4944ca comments; Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	6116	Also affects write operations, which may perform partial writes when
2238df4944ca comments; Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	6117	blocking is off"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6118
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6119	self subclassResponsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6122	writeCheck:fd
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6123	"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	6124	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	6125	or the write would return an error."
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\|
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	self supportsSelect ifFalse:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6130	"/ mhmh - what should we do then ?
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6131	"/ For now, return true as if data was present,
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6132	"/ and let the thread fall into the write.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6133	"/ It will then (hopefully) be desceduled there and
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6134	"/ effectively polling for output.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6135	^ true
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6136	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6137
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6138	result := self selectOnAnyReadable:nil
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6139	writable:(Array with:fd)
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6140	exception:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6141	withTimeOut:0.
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6142
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6143	^ result == fd or:[result == #error].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6144	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6145
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6146	!AbstractOperatingSystem::PrinterInfo class methodsFor:'constants'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6147
d8547710430c printer stuff fm parents: 9380 diff changeset	6148	paperSizeNameForNumber:aNumber
d8547710430c printer stuff fm parents: 9380 diff changeset	6149	^ self paperSizeNumberToNameMapping at:aNumber
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	self paperSizeNameForNumber:1
d8547710430c printer stuff fm parents: 9380 diff changeset	6153	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6154
d8547710430c printer stuff fm parents: 9380 diff changeset	6155	"Created: / 31-07-2006 / 15:35:36 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6156	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6157
d8547710430c printer stuff fm parents: 9380 diff changeset	6158	paperSizeNameForNumber:aNumber ifAbsent: aBlock
d8547710430c printer stuff fm parents: 9380 diff changeset	6159	^ self paperSizeNumberToNameMapping at:aNumber ifAbsent: aBlock
d8547710430c printer stuff fm parents: 9380 diff changeset	6160
d8547710430c printer stuff fm parents: 9380 diff changeset	6161	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6162	self paperSizeNameForNumber:11212 ifAbsent: [nil]
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	"Created: / 31-07-2006 / 15:35:36 / fm"
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	paperSizeNames
d8547710430c printer stuff fm parents: 9380 diff changeset	6169	\|codes\|
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6170	codes := self paperSizeNumberToNameTable values asSortedCollection:[:a :b \| a < b].
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6171	^codes collect:[:each \| self paperSizeNameForNumber: each]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6172
d8547710430c printer stuff fm parents: 9380 diff changeset	6173	"Created: / 31-07-2006 / 15:35:36 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6174	"Modified: / 16-04-2007 / 12:03:55 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6175	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6176
d8547710430c printer stuff fm parents: 9380 diff changeset	6177	paperSizeNumberForName:aName
d8547710430c printer stuff fm parents: 9380 diff changeset	6178	^ self paperSizeNumberToNameMapping at:aName
d8547710430c printer stuff fm parents: 9380 diff changeset	6179
d8547710430c printer stuff fm parents: 9380 diff changeset	6180	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6181	self paperSizeNumberForName:'Letter, 8 1/2- by 11-inches'
d8547710430c printer stuff fm parents: 9380 diff changeset	6182	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6183
d8547710430c printer stuff fm parents: 9380 diff changeset	6184	"Created: / 31-07-2006 / 15:35:37 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6185	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6186
d8547710430c printer stuff fm parents: 9380 diff changeset	6187	paperSizeNumberToNameMapping
d8547710430c printer stuff fm parents: 9380 diff changeset	6188	\|d\|
d8547710430c printer stuff fm parents: 9380 diff changeset	6189
d8547710430c printer stuff fm parents: 9380 diff changeset	6190	d := self paperSizeNumberToNameTable.
d8547710430c printer stuff fm parents: 9380 diff changeset	6191
d8547710430c printer stuff fm parents: 9380 diff changeset	6192	d keys copy do:[:k \| d at:(d at:k) put:k].
d8547710430c printer stuff fm parents: 9380 diff changeset	6193	^ d.
d8547710430c printer stuff fm parents: 9380 diff changeset	6194
d8547710430c printer stuff fm parents: 9380 diff changeset	6195	"Created: / 31-07-2006 / 15:35:37 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6196	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6197
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6198	paperSizeNumberToNameTable
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6199
d8547710430c printer stuff fm parents: 9380 diff changeset	6200	^Dictionary withKeysAndValues:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6201	#(
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6202	'Letter, 8 1/2- by 11-inches' 1 "/ Letter
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6203	'Legal 8 1/2- by 14-inches' 5 "/ Legal
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6204	'10- by 14-inch sheet' 16 "/ 10x14
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6205	'11- by 17-inch sheet' 17 "/ 11x17
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6206	"/ '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	6207	'A3 sheet, 297- by 420-millimeters' 8 "/ A3
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6208	'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	6209	'A4 sheet, 210- by 297-millimeters' 9 "/ A4
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6210	'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	6211	'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	6212	'A5 sheet, 148- by 210-millimeters' 11 "/ A5
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6213	'A5 rotated sheet, 210- by 148-millimeters' 61 "/ A5 rotated
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6214	"/ 'a6' "/ Windows 98/Me, Windows NT 4.0 and later: A6 sheet, 105- by 148-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	6215	"/ '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	6216	'B4 sheet, 250- by 354-millimeters' 12 "/ B4
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6217	"/ 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	6218	'B5 sheet, 182- by 257-millimeter paper' 13 "/ B5
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6219	"/ 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	6220	"/ 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	6221	"/ 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	6222	"/ csheet C Sheet, 17- by 22-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6223	"/ 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	6224	"/ 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	6225	"/ dsheet D Sheet, 22- by 34-inches
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6226	'#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	6227	'#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	6228	'#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	6229	'#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	6230	'#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	6231	'C5 Envelope, 162- by 229-millimeters' 28 "/ env_c5
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6232	'C3 Envelope, 324- by 458-millimeters' 29 "/ env_c3
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6233	'C4 Envelope, 229- by 324-millimeters' 30 "/ env_c4
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6234	'C6 Envelope, 114- by 162-millimeters' 31 "/ env_c6
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6235	'C65 Envelope, 114- by 229-millimeters' 32 "/ env_c65
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6236	'B4 Envelope, 250- by 353-millimeters' 33 "/ env_b4
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6237	'B5 Envelope, 176- by 250-millimeters' 34 "/ env_b5
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6238	'B6 Envelope, 176- by 125-millimeters' 35 "/ env_b6
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6239	'DL Envelope, 110- by 220-millimeters' 27 "/ env_dl
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6240	'Italy Envelope, 110- by 230-millimeters' 36 "/ env_italy
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6241	'Monarch Envelope, 3 7/8- by 7 1/2-inches' 37 "/ env_monarch
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6242	"/ env_personal 6 3/4 Envelope, 3 5/8- by 6 1/2-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6243	"/ esheet E Sheet, 34- by 44-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6244	"/ executive Executive, 7 1/4- by 10 1/2-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6245	"/ fanfold_us US Std Fanfold, 14 7/8- by 11-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6246	"/ fanfold_std_german German Std Fanfold, 8 1/2- by 12-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6247	"/ fanfold_lgl_german German Legal Fanfold, 8 - by 13-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6248	"/ folio Folio, 8 1/2- by 13-inch paper
d8547710430c printer stuff fm parents: 9380 diff changeset	6249	"/ 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	6250	"/ jenv_chou3 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Chou #3
d8547710430c printer stuff fm parents: 9380 diff changeset	6251	"/ 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	6252	"/ jenv_chou4 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Chou #4
d8547710430c printer stuff fm parents: 9380 diff changeset	6253	"/ 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	6254	"/ jenv_kaku2 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Kaku #2
d8547710430c printer stuff fm parents: 9380 diff changeset	6255	"/ 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	6256	"/ jenv_kaku3 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Kaku #3
d8547710430c printer stuff fm parents: 9380 diff changeset	6257	"/ 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	6258	"/ jenv_you4 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope You #4
d8547710430c printer stuff fm parents: 9380 diff changeset	6259	"/ 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	6260	"/ last Windows 2000/XP: PENV_10_ROTATED
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6261	'Ledger, 17- by 11-inches' 4 "/ ledger
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6262	'Letter Rotated 11 by 8 1/2 11 inches' 54 "/ letter_rotated
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6263	"/ lettersmall Letter Small, 8 1/2- by 11-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6264	"/ note Note, 8 1/2- by 11-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6265	"/ p16k Windows 98/Me, Windows NT 4.0 and later: PRC 16K, 146- by 215-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	6266	"/ 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	6267	"/ p32k Windows 98/Me, Windows NT 4.0 and later: PRC 32K, 97- by 151-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	6268	"/ 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	6269	"/ 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	6270	"/ 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	6271	"/ 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	6272	"/ 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	6273	"/ 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	6274	"/ 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	6275	"/ 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	6276	"/ 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	6277	"/ 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	6278	"/ 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	6279	"/ 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	6280	"/ 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	6281	"/ 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	6282	"/ 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	6283	"/ 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	6284	"/ 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	6285	"/ 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	6286	"/ 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	6287	"/ 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	6288	"/ 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	6289	"/ 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	6290	"/ 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	6291	"/ quarto Quarto, 215- by 275-millimeter paper
d8547710430c printer stuff fm parents: 9380 diff changeset	6292	"/ statement Statement, 5 1/2- by 8 1/2-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6293	"/ tabloid Tabloid, 11- by 17-inches
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6294	).
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6295
d8547710430c printer stuff fm parents: 9380 diff changeset	6296	"Created: / 31-07-2006 / 15:35:37 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6297	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6298
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6299	statusNumberToDescriptionForNumber:aNumber
11403 0a34ea95a57b changed: #statusNumberToDescriptionForNumber: fm parents: 11180 diff changeset	6300	^ self statusNumberToDescriptionMapping at:aNumber ifAbsent:[('Unknown (%1)' bindWith:aNumber printString)]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6301
d8547710430c printer stuff fm parents: 9380 diff changeset	6302	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6303	self statusNumberToDescriptionForNumber:1
d8547710430c printer stuff fm parents: 9380 diff changeset	6304	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6305
d8547710430c printer stuff fm parents: 9380 diff changeset	6306	"Created: / 01-08-2006 / 14:31:18 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6307	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6308
d8547710430c printer stuff fm parents: 9380 diff changeset	6309	statusNumberToDescriptionMapping
d8547710430c printer stuff fm parents: 9380 diff changeset	6310	\|d\|
d8547710430c printer stuff fm parents: 9380 diff changeset	6311
d8547710430c printer stuff fm parents: 9380 diff changeset	6312	d := self statusNumberToDescriptionTable.
d8547710430c printer stuff fm parents: 9380 diff changeset	6313
d8547710430c printer stuff fm parents: 9380 diff changeset	6314	d keys copy do:[:k \| d at:(d at:k) put:k].
d8547710430c printer stuff fm parents: 9380 diff changeset	6315	^ d.
d8547710430c printer stuff fm parents: 9380 diff changeset	6316
d8547710430c printer stuff fm parents: 9380 diff changeset	6317	"Created: / 01-08-2006 / 14:31:05 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6318	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6319
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6320	statusNumberToDescriptionTable
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6321
d8547710430c printer stuff fm parents: 9380 diff changeset	6322	^Dictionary withKeysAndValues:
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6323	#( 'Ready' 0 "/ PRINTER_STATUS_READY
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6324	'Paused' 1 "/ PRINTER_STATUS_PAUSED
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6325	'Error' 2 "/ PRINTER_STATUS_ERROR
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6326	'Deleting...' 4 "/ PRINTER_STATUS_PENDING_DELETION
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6327	'Paper Jam' 8 "/ PRINTER_STATUS_PAPER_JAM
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6328	'Paper Out' 16 "/ PRINTER_STATUS_PAPER_OUT
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6329	'Manual Feed Required' 32 "/ PRINTER_STATUS_MANUAL_FEED
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6330	'Paper Problem' 64 "/ PRINTER_STATUS_PAPER_PROBLEM
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6331	'Offline' 128 "/ PRINTER_STATUS_OFFLINE
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6332	'Downloading Job' 256 "/ PRINTER_STATUS_IO_ACTIVE
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6333	'Busy' 512 "/ PRINTER_STATUS_BUSY
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6334	'Printing' 1024 "/ PRINTER_STATUS_PRINTING
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6335	'Output Bill Full' 2048 "/ PRINTER_STATUS_OUTPUT_BIN_FULL
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6336	'Not Available' 4096 "/ PRINTER_STATUS_NOT_AVAILABLE
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6337	'Waiting' 8192 "/ PRINTER_STATUS_WAITING
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6338	'Processing Job' 16384 "/ PRINTER_STATUS_PROCESSING
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6339	'Initializing' 32768 "/ PRINTER_STATUS_INITIALIZING
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6340	'Warming Up' 65536 "/ PRINTER_STATUS_WARMING_UP
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6341	'Toner Low' 131072 "/ PRINTER_STATUS_TONER_LOW
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6342	'Toner Out' 262144 "/ PRINTER_STATUS_NO_TONER
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6343	'Page too Complex' 524288 "/ PRINTER_STATUS_PAGE_PUNT
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6344	'User Intervention Required'1048576 "/ PRINTER_STATUS_USER_INTERVENTION
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6345	'Out of Memory' 2097152 "/ PRINTER_STATUS_OUT_OF_MEMORY
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6346	'Door Open' 4194304 "/ PRINTER_STATUS_DOOR_OPEN
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6347	'Unable to connect' 8388608 "/ PRINTER_STATUS_SERVER_UNKNOWN
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6348	'Power Save Mode' 16777216 "/ PRINTER_STATUS_POWER_SAVE
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6349	).
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6350
d8547710430c printer stuff fm parents: 9380 diff changeset	6351	"Created: / 01-08-2006 / 14:23:33 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6352	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6353
d8547710430c printer stuff fm parents: 9380 diff changeset	6354	!AbstractOperatingSystem::PrinterInfo methodsFor:'accessing'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6355
d8547710430c printer stuff fm parents: 9380 diff changeset	6356	attributes
d8547710430c printer stuff fm parents: 9380 diff changeset	6357	^ attributes
d8547710430c printer stuff fm parents: 9380 diff changeset	6358
d8547710430c printer stuff fm parents: 9380 diff changeset	6359	"Created: / 27-07-2006 / 12:16:59 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6360	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6361
d8547710430c printer stuff fm parents: 9380 diff changeset	6362	collate
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6363	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6364
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6365	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6366	^ properties isNil ifTrue:[ nil ] ifFalse:[ properties collate = 1 ]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6367
d8547710430c printer stuff fm parents: 9380 diff changeset	6368	"Created: / 01-08-2006 / 09:56:14 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6369	"Modified: / 01-08-2006 / 11:49:18 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6370	"Modified: / 18-10-2006 / 12:02:29 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6371	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6372
d8547710430c printer stuff fm parents: 9380 diff changeset	6373	collate: aBoolean
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6374	\|integer\|
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6375
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6376	integer:= aBoolean
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6377	ifTrue:[1] "DMCOLLATE_TRUE"
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6378	ifFalse:[0]. "DMCOLLATE_FALSE"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6379	self documentProperties collate: integer
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6380
d8547710430c printer stuff fm parents: 9380 diff changeset	6381	"Created: / 01-08-2006 / 09:56:01 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6382	"Modified: / 16-04-2007 / 12:01:30 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6383	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6384
d8547710430c printer stuff fm parents: 9380 diff changeset	6385	comment
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6386	^self printerInfo2 pComment
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6387
d8547710430c printer stuff fm parents: 9380 diff changeset	6388	"Created: / 01-08-2006 / 15:06:20 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6389	"Modified: / 16-04-2007 / 12:01:42 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6390	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6391
d8547710430c printer stuff fm parents: 9380 diff changeset	6392	copies
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6393	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6394
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6395	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6396	^ properties isNil ifTrue:[ nil ] ifFalse:[ properties copies ]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6397
d8547710430c printer stuff fm parents: 9380 diff changeset	6398	"Created: / 31-07-2006 / 13:46:53 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6399	"Modified: / 18-10-2006 / 12:02:14 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6400	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6401
d8547710430c printer stuff fm parents: 9380 diff changeset	6402	copies: anInteger
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6403	self documentProperties copies: anInteger
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6404
d8547710430c printer stuff fm parents: 9380 diff changeset	6405	"Created: / 31-07-2006 / 13:54:55 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6406	"Modified: / 16-04-2007 / 12:01:48 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6407	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6408
d8547710430c printer stuff fm parents: 9380 diff changeset	6409	documentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6410
d8547710430c printer stuff fm parents: 9380 diff changeset	6411	^documentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6412
d8547710430c printer stuff fm parents: 9380 diff changeset	6413	"Created: / 28-07-2006 / 11:50:04 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6414	"Modified: / 31-07-2006 / 13:06:24 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6415	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6416
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6417	documentProperties: aDevModeStructure
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6418
d8547710430c printer stuff fm parents: 9380 diff changeset	6419	documentProperties := aDevModeStructure.
d8547710430c printer stuff fm parents: 9380 diff changeset	6420
d8547710430c printer stuff fm parents: 9380 diff changeset	6421	"Created: / 28-07-2006 / 11:47:31 / fm"
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	driverName
d8547710430c printer stuff fm parents: 9380 diff changeset	6425
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6426	^self attributes at:#driverName
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6427
d8547710430c printer stuff fm parents: 9380 diff changeset	6428	"Created: / 01-08-2006 / 15:33:08 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6429	"Modified: / 16-04-2007 / 12:01:53 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6430	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6431
d8547710430c printer stuff fm parents: 9380 diff changeset	6432	location
d8547710430c printer stuff fm parents: 9380 diff changeset	6433
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6434	^self printerInfo2 pLocation
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6435
d8547710430c printer stuff fm parents: 9380 diff changeset	6436	"Created: / 01-08-2006 / 15:06:28 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6437	"Modified: / 16-04-2007 / 12:02:07 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6438	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6439
d8547710430c printer stuff fm parents: 9380 diff changeset	6440	longName
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6441	^attributes at:#longName ifAbsent:['']
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6442
d8547710430c printer stuff fm parents: 9380 diff changeset	6443	"Created: / 28-07-2006 / 12:06:32 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6444	"Modified: / 16-04-2007 / 12:02:11 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6445	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6446
d8547710430c printer stuff fm parents: 9380 diff changeset	6447	medium
d8547710430c printer stuff fm parents: 9380 diff changeset	6448
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6449	^self attributes at:#medium
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6450
d8547710430c printer stuff fm parents: 9380 diff changeset	6451	"Created: / 01-08-2006 / 15:34:26 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6452	"Modified: / 16-04-2007 / 12:02:14 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6453	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6454
d8547710430c printer stuff fm parents: 9380 diff changeset	6455	orientation
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6456	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6457
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6458	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6459	^ properties isNil ifTrue:[ nil ] ifFalse:[ properties orientation ]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6460
d8547710430c printer stuff fm parents: 9380 diff changeset	6461	"Created: / 28-07-2006 / 16:44:26 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6462	"Modified: / 18-10-2006 / 12:01:36 / User"
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6463	!
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6464
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6465	orientation:anInteger
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6466	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6467
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6468	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6469	properties notNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6470	properties orientation:anInteger
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6471	]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6472
d8547710430c printer stuff fm parents: 9380 diff changeset	6473	"Created: / 28-07-2006 / 17:22:44 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6474	"Modified: / 18-10-2006 / 12:01:40 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6475	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6476
d8547710430c printer stuff fm parents: 9380 diff changeset	6477	pDriverName
d8547710430c printer stuff fm parents: 9380 diff changeset	6478
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6479	^self printerInfo2 pDriverName
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6480
d8547710430c printer stuff fm parents: 9380 diff changeset	6481	"Created: / 01-08-2006 / 15:33:08 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6482	"Modified: / 16-04-2007 / 12:02:21 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6483	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6484
d8547710430c printer stuff fm parents: 9380 diff changeset	6485	paperSize
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6486	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6487
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6488	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6489	^ properties isNil ifTrue:[ nil ] ifFalse:[ properties paperSize ]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6490
d8547710430c printer stuff fm parents: 9380 diff changeset	6491	"Created: / 31-07-2006 / 15:23:29 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6492	"Modified: / 31-07-2006 / 16:25:58 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6493	"Modified: / 18-10-2006 / 12:01:45 / User"
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6494	!
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6495
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6496	paperSize:anInteger
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6497	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6498
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6499	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6500	properties notNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6501	properties paperSize:anInteger
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6502	]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6503
d8547710430c printer stuff fm parents: 9380 diff changeset	6504	"Created: / 31-07-2006 / 15:23:20 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6505	"Modified: / 18-10-2006 / 12:01:48 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6506	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6507
d8547710430c printer stuff fm parents: 9380 diff changeset	6508	paperSizeName
d8547710430c printer stuff fm parents: 9380 diff changeset	6509	^ self class paperSizeNameForNumber:self paperSize ifAbsent:[nil].
d8547710430c printer stuff fm parents: 9380 diff changeset	6510
d8547710430c printer stuff fm parents: 9380 diff changeset	6511	"Created: / 31-07-2006 / 15:35:12 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6512	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6513
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6514	paperSizeName:aString
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6515	self paperSize:(self class paperSizeNumberForName:aString)
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6516
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6517	"Modified: / 18-10-2006 / 12:01:56 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6518	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6519
d8547710430c printer stuff fm parents: 9380 diff changeset	6520	printQuality
d8547710430c printer stuff fm parents: 9380 diff changeset	6521	^self documentProperties printQuality
d8547710430c printer stuff fm parents: 9380 diff changeset	6522
d8547710430c printer stuff fm parents: 9380 diff changeset	6523	"Created: / 04-08-2006 / 13:10:06 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6524	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6525
d8547710430c printer stuff fm parents: 9380 diff changeset	6526	printerName
d8547710430c printer stuff fm parents: 9380 diff changeset	6527	^ printerName
d8547710430c printer stuff fm parents: 9380 diff changeset	6528
d8547710430c printer stuff fm parents: 9380 diff changeset	6529	"Created: / 27-07-2006 / 12:16:59 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6530	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6531
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6532	printerName:printerNameArg attributes:attributesArg
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6533
d8547710430c printer stuff fm parents: 9380 diff changeset	6534	printerName := printerNameArg.
d8547710430c printer stuff fm parents: 9380 diff changeset	6535	attributes := attributesArg.
d8547710430c printer stuff fm parents: 9380 diff changeset	6536
d8547710430c printer stuff fm parents: 9380 diff changeset	6537	"Created: / 27-07-2006 / 12:29:18 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6538	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6539
d8547710430c printer stuff fm parents: 9380 diff changeset	6540	remotePrinterHost
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6541	^attributes at:#remotePrinterHost ifAbsent:['']
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6542
d8547710430c printer stuff fm parents: 9380 diff changeset	6543	"Created: / 28-07-2006 / 16:30:13 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6544	"Modified: / 16-04-2007 / 12:02:32 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6545	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6546
d8547710430c printer stuff fm parents: 9380 diff changeset	6547	remotePrinterName
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6548	^attributes at:#remotePrinterName ifAbsent:['']
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6549
d8547710430c printer stuff fm parents: 9380 diff changeset	6550	"Created: / 28-07-2006 / 16:30:06 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6551	"Modified: / 16-04-2007 / 12:03:23 / cg"
9476 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	status
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6555	self isAvailable ifFalse:[^''].
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6556	^self class statusNumberToDescriptionForNumber: self getPrinterInfo2 status
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6557
d8547710430c printer stuff fm parents: 9380 diff changeset	6558	"Created: / 01-08-2006 / 13:48:58 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6559	"Modified: / 16-04-2007 / 12:03:41 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6560	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6561
d8547710430c printer stuff fm parents: 9380 diff changeset	6562	userFriendlyName
d8547710430c printer stuff fm parents: 9380 diff changeset	6563	^self remotePrinterName isEmpty
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6564	ifTrue:[self printerName]
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6565	ifFalse:[self remotePrinterName, ' on ', self remotePrinterHost]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6566
d8547710430c printer stuff fm parents: 9380 diff changeset	6567	"Created: / 03-08-2006 / 12:50:09 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6568	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6569
d8547710430c printer stuff fm parents: 9380 diff changeset	6570	!AbstractOperatingSystem::PrinterInfo methodsFor:'dc creation'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6571
d8547710430c printer stuff fm parents: 9380 diff changeset	6572	createDC
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6573	\|driverName pName\|
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6574
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6575	driverName := self driverName.
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6576	pName := self printerName.
10513 0a27c8d86154 * empty log message * Claus Gittinger <cg@exept.de> parents: 10510 diff changeset	6577	"/ Transcript show:driverName; show:' '; showCR:printerName.
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6578
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6579	^OperatingSystem createPrinterDC:driverName
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6580	device:pName
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6581	output:self medium
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6582	initData:self documentProperties.
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6583
d8547710430c printer stuff fm parents: 9380 diff changeset	6584	"Created: / 02-08-2006 / 16:51:02 / fm"
10513 0a27c8d86154 * empty log message * Claus Gittinger <cg@exept.de> parents: 10510 diff changeset	6585	"Modified: / 16-04-2007 / 13:56:56 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6586	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6587
d8547710430c printer stuff fm parents: 9380 diff changeset	6588	!AbstractOperatingSystem::PrinterInfo methodsFor:'dialogs'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6589
d8547710430c printer stuff fm parents: 9380 diff changeset	6590	openPropertiesDialog
9844 c92a32fa507d * empty log message * Claus Gittinger <cg@exept.de> parents: 9721 diff changeset	6591	"Returns true if the documentProperties have been accepted. Otherwise, returns false"
c92a32fa507d * empty log message * Claus Gittinger <cg@exept.de> parents: 9721 diff changeset	6592
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6593	\|h newDocumentProperties\|
d8547710430c printer stuff fm parents: 9380 diff changeset	6594
d8547710430c printer stuff fm parents: 9380 diff changeset	6595	h := OperatingSystem openPrinter: self printerName.
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6596	newDocumentProperties := OperatingSystem documentPropertiesDialogFor:nil
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6597	hPrinter:h
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6598	pDeviceName: self printerName
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6599	devModeInput:self documentProperties.
9844 c92a32fa507d * empty log message * Claus Gittinger <cg@exept.de> parents: 9721 diff changeset	6600	(newDocumentProperties contains:[:el \| el ~= 0])
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6601	ifFalse:[^false].
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6602	self documentProperties: newDocumentProperties.
d8547710430c printer stuff fm parents: 9380 diff changeset	6603	OperatingSystem closePrinter:h.
d8547710430c printer stuff fm parents: 9380 diff changeset	6604	^true
d8547710430c printer stuff fm parents: 9380 diff changeset	6605
d8547710430c printer stuff fm parents: 9380 diff changeset	6606	"Created: / 28-07-2006 / 11:44:01 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6607	"Modified: / 01-08-2006 / 11:55:49 / fm"
9844 c92a32fa507d * empty log message * Claus Gittinger <cg@exept.de> parents: 9721 diff changeset	6608	"Modified: / 13-09-2006 / 11:36:10 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6609	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6610
d8547710430c printer stuff fm parents: 9380 diff changeset	6611	!AbstractOperatingSystem::PrinterInfo methodsFor:'modifying'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6612
d8547710430c printer stuff fm parents: 9380 diff changeset	6613	setLandscapeOrientation
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6614	"DMORIENT_LANDSCAPE = 2"
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6615	self documentProperties orientation: 2
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6616
d8547710430c printer stuff fm parents: 9380 diff changeset	6617	"Created: / 28-07-2006 / 15:53:35 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6618	"Modified: / 16-04-2007 / 12:03:30 / 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	setNumberOfCopies: n
d8547710430c printer stuff fm parents: 9380 diff changeset	6622
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6623	self documentProperties copies: n
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6624
d8547710430c printer stuff fm parents: 9380 diff changeset	6625	"Created: / 28-07-2006 / 16:04:04 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6626	"Modified: / 16-04-2007 / 12:03:33 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6627	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6628
d8547710430c printer stuff fm parents: 9380 diff changeset	6629	setPortraitOrientation
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6630	"DMORIENT_PORTRAIT = 1"
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6631	self documentProperties orientation: 1
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6632
d8547710430c printer stuff fm parents: 9380 diff changeset	6633	"Created: / 28-07-2006 / 15:49:45 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6634	"Modified: / 16-04-2007 / 12:03:36 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6635	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6636
d8547710430c printer stuff fm parents: 9380 diff changeset	6637	!AbstractOperatingSystem::PrinterInfo methodsFor:'printing & storing'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6638
d8547710430c printer stuff fm parents: 9380 diff changeset	6639	printOn:aStream
d8547710430c printer stuff fm parents: 9380 diff changeset	6640	aStream nextPutAll:(self class name); nextPutAll:'('.
d8547710430c printer stuff fm parents: 9380 diff changeset	6641	printerName printOn:aStream.
d8547710430c printer stuff fm parents: 9380 diff changeset	6642	aStream nextPutAll:')'.
d8547710430c printer stuff fm parents: 9380 diff changeset	6643
d8547710430c printer stuff fm parents: 9380 diff changeset	6644	"Created: / 27-07-2006 / 12:30:28 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6645	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6646
d8547710430c printer stuff fm parents: 9380 diff changeset	6647	!AbstractOperatingSystem::PrinterInfo methodsFor:'private'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6648
d8547710430c printer stuff fm parents: 9380 diff changeset	6649	getDocumentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6650	"Returns a aDevModeStructure"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6651
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6652	\|h devMode \|
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6653
d8547710430c printer stuff fm parents: 9380 diff changeset	6654	h := OperatingSystem openPrinter: self printerName.
d8547710430c printer stuff fm parents: 9380 diff changeset	6655	devMode := OperatingSystem getDocumentProperties:nil
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6656	hPrinter:h
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6657	pDeviceName: self printerName.
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6658	OperatingSystem closePrinter: h.
d8547710430c printer stuff fm parents: 9380 diff changeset	6659	^devMode
d8547710430c printer stuff fm parents: 9380 diff changeset	6660
d8547710430c printer stuff fm parents: 9380 diff changeset	6661	"Created: / 28-07-2006 / 11:49:33 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6662	"Modified: / 31-07-2006 / 10:33:04 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6663	"Modified: / 16-04-2007 / 12:02:00 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6664	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6665
d8547710430c printer stuff fm parents: 9380 diff changeset	6666	getPrinterInfo2
d8547710430c printer stuff fm parents: 9380 diff changeset	6667	"Returns a aPrinterInfo2 structure"
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6668
10097 2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6669	printerInfo2 := OperatingSystem getPrinterInfo2:self printerName.
2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6670	^ printerInfo2
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6671
d8547710430c printer stuff fm parents: 9380 diff changeset	6672	"Created: / 01-08-2006 / 13:50:55 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6673	"Modified: / 01-08-2006 / 15:11:03 / fm"
10097 2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6674	"Modified: / 18-10-2006 / 12:03:54 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6675	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6676
d8547710430c printer stuff fm parents: 9380 diff changeset	6677	printerInfo2
d8547710430c printer stuff fm parents: 9380 diff changeset	6678	"Returns a aPrinterInfo2 structure"
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6679
10097 2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6680	printerInfo2 isNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6681	self getPrinterInfo2.
10097 2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6682	].
2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6683	^ printerInfo2
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6684
d8547710430c printer stuff fm parents: 9380 diff changeset	6685	"Created: / 01-08-2006 / 15:10:18 / fm"
10097 2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6686	"Modified: / 18-10-2006 / 12:03:57 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6687	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6688
d8547710430c printer stuff fm parents: 9380 diff changeset	6689	setDocumentProperties
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6690	"Sets a aDevModeStructure or nil if the printer is not available"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6691
d8547710430c printer stuff fm parents: 9380 diff changeset	6692	self documentProperties: self getDocumentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6693
d8547710430c printer stuff fm parents: 9380 diff changeset	6694	"Created: / 31-07-2006 / 13:04:58 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6695	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6696
d8547710430c printer stuff fm parents: 9380 diff changeset	6697	!AbstractOperatingSystem::PrinterInfo methodsFor:'queries'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6698
d8547710430c printer stuff fm parents: 9380 diff changeset	6699	isAvailable
d8547710430c printer stuff fm parents: 9380 diff changeset	6700
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6701	^self documentProperties notNil
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6702
d8547710430c printer stuff fm parents: 9380 diff changeset	6703	"Created: / 31-07-2006 / 13:08:58 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6704	"Modified: / 16-04-2007 / 12:02:05 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6705	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6706
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6707	!AbstractOperatingSystem::TimeInfo methodsFor:'accessing'!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6708
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6709	at:index
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6710	"backward compatibility"
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6711
8357 64be78ef1e77 Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 8250 diff changeset	6712	<resource: #obsolete>
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6713	self obsoleteMethodWarning:'use accessor for index ', index printString.
7739 d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6714
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6715	index == 1 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6716	^ self year.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6717	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6718	index == 2 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6719	^ self month.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6720	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6721	index == 3 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6722	^ self day.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6723	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6724	index == 4 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6725	^ self hours.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6726	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6727	index == 5 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6728	^ self minutes.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6729	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6730	index == 6 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6731	^ self seconds.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6732	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6733	index == 7 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6734	^ self utcOffset.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6735	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6736	index == 8 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6737	^ self dst.
7514 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	index == 9 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6740	^ self milliseconds.
7514 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	index == 10 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6743	^ self dayInYear.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6744	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6745	index == 11 ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6746	^ self dayInWeek.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6747	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6748	self subscriptBoundsError:index
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6749	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6750
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6751	day
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6752	^ day
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6753	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6754
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6755	dayInWeek
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6756	^ dayInWeek
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6757	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6758
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6759	dayInYear
17757 73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6760	"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	6761	(it is not set in windows)"
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6762
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6763	\|dayCount\|
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6764
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6765	dayInYear notNil ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6766	^ dayInYear.
17757 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
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6769	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	6770	(month > 2
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6771	and:[(year \\ 4 == 0)
17757 73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6772	and:[(year \\ 100 ~~ 0)
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6773	and:[(year \\ 400 == 0)]]]) ifTrue:[
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6774	"leap year and month after February"
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6775	dayCount := dayCount + 1.
17757 73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6776	].
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6777
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6778	^ dayCount + day.
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6779
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6780
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6781	"
17757 73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6782	\|daysSoFar\|
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6783
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6784	daysSoFar := 0.
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6785	#(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	6786	"
7514 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	dst
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6790	^ dst
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	hours
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6794	^ hours
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	milliseconds
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6798	^ milliseconds
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	milliseconds:something
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6802	milliseconds := something.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6803	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6804
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6805	minutes
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6806	^ minutes
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6807	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6808
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6809	month
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6810	^ month
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6811	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6812
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6813	seconds
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6814	^ seconds
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	utcOffset
8887 0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6818	"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	6819	If daylight saving time applies to ourself, take that into account.
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6820	Add utcOffset to convert from local time to UTC time.
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6821	Subtract utcOffset to convert from UTC time to local time.
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6822
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6823	If utcOffset is negative, the local timezone is east of Greenwich.
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6824	If utcOffset is positive, the local timezone is west of Greenwich."
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6825
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6826	^ utcOffset
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6827
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6828	"
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6829	OperatingSystem utcOffset
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6830	"
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6831	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6832
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6833	year
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6834	^ year
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6835	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 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 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	6838	"set instance variables (automatically generated)"
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6839
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6840	year := yearArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6841	month := monthArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6842	day := dayArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6843	hours := hoursArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6844	minutes := minutesArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6845	seconds := secondsArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6846	milliseconds := millisecondsArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6847	utcOffset := utcOffsetArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6848	dst := dstArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6849	dayInYear := dayInYearArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6850	dayInWeek := dayInWeekArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6851	!
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6852
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6853	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	6854	"set instance variables (automatically generated)"
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6855
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6856	year := yearArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6857	month := monthArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6858	day := dayArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6859	hours := hoursArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6860	minutes := minutesArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6861	seconds := secondsArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6862	utcOffset := utcOffsetArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6863	dst := dstArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6864	dayInYear := dayInYearArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6865	dayInWeek := dayInWeekArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6866	! !
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6867
17815 956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6868	!AbstractOperatingSystem::TimeInfo methodsFor:'converting'!
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6869
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6870	asDate
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6871	^ Date new year:year month:month day:day.
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6872	!
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6873
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6874	asTime
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6875	^ Time hours:hours minutes:minutes seconds:seconds
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6876	! !
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6877
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6878	!AbstractOperatingSystem::TimeZoneInfo class methodsFor:'documentation'!
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	documentation
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6881	"
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6882	Bias
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6883	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	6884	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	6885	and local time.
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6886	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	6887
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6888	UTC = local time + bias
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6889
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6890	StandardName
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6891	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	6892	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	6893	This string can be empty.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6894	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	6895
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6896	StandardDate
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6897	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	6898	time to standard time occurs on this operating system.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6899	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	6900	daylight saving time, the standardDate is nil.
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6901	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	6902	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	6903
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6904	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	6905	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	6906	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	6907	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	6908
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6909	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	6910	wHour = 2, wMonth = 4, wDayOfWeek = 0, wDay = 1.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6911	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	6912	wHour = 2, wMonth = 10, wDayOfWeek = 4, wDay = 5.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6913
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6914	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	6915	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	6916
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6917	StandardBias
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6918	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	6919	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	6920
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6921	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	6922	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	6923
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6924	DaylightName
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6925	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	6926	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	6927	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	6928
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6929	DaylightDate
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6930	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	6931	to daylight saving time occurs on this operating system.
8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6932	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	6933	saving time, this entry is nil.
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6934	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	6935	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	6936
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6937	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	6938	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	6939	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	6940	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	6941
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6942	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	6943	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	6944
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6945	DaylightBias
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6946	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	6947	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	6948
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6949	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	6950	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	6951	"
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6952	! !
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6953
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6954	!AbstractOperatingSystem::TimeZoneInfo methodsFor:'accessing'!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6955
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6956	bias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6957	^ bias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6958	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6959
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6960	bias:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6961	bias := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6962	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6963
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6964	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	6965	bias := biasArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6966	name := nameArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6967	standardBias := standardBiasArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6968	daylightName := daylightNameArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6969	daylightBias := daylightBiasArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6970	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6971
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	6972	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	6973	bias := biasArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6974	name := nameArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6975	standardDate := standardDateArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6976	standardBias := standardBiasArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6977	daylightName := daylightNameArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6978	daylightDate := daylightDateArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6979	daylightBias := daylightBiasArg.
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	daylightBias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6983	^ daylightBias
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	daylightBias:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6987	daylightBias := 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	daylightDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6991	^ daylightDay
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	daylightDay:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6995	daylightDay := 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	daylightHour
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6999	^ daylightHour
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	daylightHour:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7003	daylightHour := 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	daylightMinute
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7007	^ daylightMinute
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	daylightMinute:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7011	daylightMinute := 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	daylightMonth
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7015	^ daylightMonth
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	daylightMonth:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7019	daylightMonth := 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	daylightName
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7023	^ daylightName
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	daylightName:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7027	daylightName := 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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7030	daylightWeekDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7031	^ daylightWeekDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7032	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7033
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7034	daylightWeekDay:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7035	daylightWeekDay := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7036	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7037
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7038	daylightYear
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7039	^ daylightYear
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7040	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7041
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7042	daylightYear:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7043	daylightYear := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7044	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7045
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	7046	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	7047	daylightYear := daylightYearArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7048	daylightMonth := daylightMonthArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7049	daylightDay := daylightDayArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7050	daylightWeekDay := daylightWeekDayArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7051	daylightHour := daylightHourArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7052	daylightMinute := daylightMinuteArg.
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	name
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7056	^ name
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	name:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7060	name := 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	standardBias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7064	^ standardBias
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	standardBias:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7068	standardBias := 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	standardDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7072	^ standardDay
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	standardDay:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7076	standardDay := 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	standardHour
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7080	^ standardHour
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	standardHour:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7084	standardHour := 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	standardMinute
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7088	^ standardMinute
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	standardMinute:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7092	standardMinute := 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	standardMonth
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7096	^ standardMonth
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	standardMonth:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7100	standardMonth := 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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7103	standardWeekDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7104	^ standardWeekDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7105	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7106
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7107	standardWeekDay:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7108	standardWeekDay := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7109	!
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	standardYear
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7112	^ standardYear
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7115	standardYear:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7116	standardYear := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7117	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7118
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17909 diff changeset	7119	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	7120	standardYear := standardYearArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7121	standardMonth := standardMonthArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7122	standardDay := standardDayArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7123	standardWeekDay := standardWeekDayArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7124	standardHour := standardHourArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7125	standardMinute := standardMinuteArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7126	! !
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	!AbstractOperatingSystem::TimeZoneInfo methodsFor:'queries'!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7129
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7130	utcOffset
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7131	"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	7132	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	7133	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	7134	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	7135
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7136	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	7137	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	7138
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7139	^ (bias + daylightBias) * 60
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7140
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7141	"
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7142	OperatingSystem utcOffset
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7143	"
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7144	! !
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7145
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	7146	!AbstractOperatingSystem class methodsFor:'documentation'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	7147
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	7148	version
18005 e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	7149	^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.222 2012/12/13 13:52:25 stefan Exp $'
17735 6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	7150	!
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	7151
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	7152	version_CVS
18005 e67ae1bced52 Fixes for encode/decodePath Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17921 diff changeset	7153	^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.222 2012/12/13 13:52:25 stefan Exp $'
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	7154	! !
6772 6bfdc2522ea2 isMountPoint penk parents: 6720 diff changeset	7155
17846 24edc476ac18 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17845 diff changeset	7156	AbstractOperatingSystem initialize!

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Sun, 16 Dec 2012 00:20:16 +0000
branch	jv
changeset 18005	e67ae1bced52
parent 17921	4069fe8e9039
child 18011	deb0c3355881
permissions	-rw-r--r--