hg/stx-libbasic: AbstractOperatingSystem.st@d86c8bd5ece3 (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
10528 cbc252eb060f PrinterInfo fm parents: 10513 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
10528 cbc252eb060f PrinterInfo fm parents: 10513 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:]
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	80	ConcreteClass <Class> the real OS class
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	81
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	82	LocaleInfo <Dictionary> if non nil, that is taken instead of the operating
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	83	systems locale definitions (allows for overwriting
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	84	these, or provide a compatible info on systems which do
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	85	not support locales)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	86
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	87	LastErrorNumber <Integer> the last value of errno
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	88
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	89	OSSignals <Array> Array of signals to be raised for corresponding
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	90	OperatingSystem signals.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	91
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	92	PipeFailed <Boolean> set if a fork (or popen) has failed;
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	93	ST/X will avoid doing more forks/popens
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	94	if this flag is set, for a slightly
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	95	smoother operation.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	96
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	97	ErrorSignal <Signal> Parentsignal of all OS error signals.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	98	not directly raised.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	99
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	100	AccessDeniedErrorSignal misc concrete error reporting signals
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	101	FileNotFoundErrorSignal
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	102	UnsupportedOperationSignal
cbc252eb060f PrinterInfo fm parents: 10513 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:]
10528 cbc252eb060f PrinterInfo fm parents: 10513 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:]
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	109	OSProcessStatus
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	110	Filename Date Time
cbc252eb060f PrinterInfo fm parents: 10513 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
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	118	[exBegin]
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	119	Transcript
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	120	showCR:'hello ' , (OperatingSystem getLoginName)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	121	[exEnd]
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	122
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	123	[exBegin]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	124	OperatingSystem isUNIXlike ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 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:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 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	]
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	129	[exEnd]
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	130
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	131	[exBegin]
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	132	Transcript
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	133	showCR:'this machine is called ' , OperatingSystem getHostName
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	134	[exEnd]
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	135
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	136	[exBegin]
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	137	Transcript
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	138	showCR:('this machine is in the '
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	139	, OperatingSystem getDomainName
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	140	, ' domain')
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	141	[exEnd]
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	142
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	143	[exBegin]
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	144	Transcript
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	145	showCR:('this machine''s CPU is a '
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	146	, OperatingSystem getCPUType
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	147	)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	148	[exEnd]
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	149
cbc252eb060f PrinterInfo fm parents: 10513 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.'.
10528 cbc252eb060f PrinterInfo fm parents: 10513 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):
10528 cbc252eb060f PrinterInfo fm parents: 10513 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:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	164	'about to lock ...' printCR.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	165	[
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	166	OperatingSystem
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	167	lockFD:(f fileDescriptor)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	168	shared:false
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	169	blocking:false
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	170	] whileFalse:[
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	171	'process ' print. OperatingSystem getProcessId print. ' is waiting' printCR.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	172	Delay waitForSeconds:1
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	173	].
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	174	'LOCKED ...' printCR.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	175	Delay waitForSeconds:10.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	176	'unlock ...' printCR.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	177	(OperatingSystem
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	178	unlockFD:(f fileDescriptor)) printCR.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	179	Delay waitForSeconds:3.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	180	]
10528 cbc252eb060f PrinterInfo fm parents: 10513 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:[
10734 47c85e53a9d0 handle & ignore error when loading resources; Claus Gittinger <cg@exept.de> parents: 10733 diff changeset	191	Error handle:[:ex \|
17841 7abcc4aef871 Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17834 diff changeset	192	'OS [warning]: error when reading resources for libbasic:' errorPrintCR.
7abcc4aef871 Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17834 diff changeset	193	'OS [info]: 'errorPrint. ex description errorPrintCR.
7abcc4aef871 Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17834 diff changeset	194	'OS [info]: backtrace: ' errorPrintCR.
7abcc4aef871 Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17834 diff changeset	195	self withErrorStreamDo:[:s \|
7abcc4aef871 Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17834 diff changeset	196	ex suspendedContext fullPrintAllOn:s.
7abcc4aef871 Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17834 diff changeset	197	].
10734 47c85e53a9d0 handle & ignore error when loading resources; Claus Gittinger <cg@exept.de> parents: 10733 diff changeset	198	] do:[
47c85e53a9d0 handle & ignore error when loading resources; Claus Gittinger <cg@exept.de> parents: 10733 diff changeset	199	Resources := ResourcePack forPackage:(self package).
47c85e53a9d0 handle & ignore error when loading resources; Claus Gittinger <cg@exept.de> parents: 10733 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:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	212	OSErrorHolder initialize.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	213	ErrorSignal := OsError.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	214	InvalidArgumentsSignal := OsInvalidArgumentsError.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	215	AccessDeniedErrorSignal := OSErrorHolder noPermissionsSignal.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	216	FileNotFoundErrorSignal := OSErrorHolder nonexistentSignal.
cbc252eb060f PrinterInfo fm parents: 10513 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:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	227	cls := Win32OperatingSystem
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	228	] ifFalse:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	229	osType = 'os2' ifTrue:[
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	230	cls := OS2OperatingSystem
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	231	] ifFalse:[
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	232	osType = 'macos' ifTrue:[
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	233	cls := MacOperatingSystem
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	234	] ifFalse:[
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	235	((osType = 'VMS') or:[osType = 'openVMS']) ifTrue:[
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	236	cls := OpenVMSOperatingSystem
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	237	] ifFalse:[
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	238	cls := UnixOperatingSystem
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	239	]
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	240	]
cbc252eb060f PrinterInfo fm parents: 10513 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:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 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:
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	606	open
17834 04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	607	edit
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	608	explore
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
10528 cbc252eb060f PrinterInfo fm parents: 10513 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:[
17841 7abcc4aef871 Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17834 diff changeset	676	"/ do not care to load resource strings, if the error happens durig early initialization
7abcc4aef871 Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17834 diff changeset	677	Smalltalk isInitialized ifFalse:[
7abcc4aef871 Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17834 diff changeset	678	^ errorSymbol
7abcc4aef871 Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17834 diff changeset	679	].
10734 47c85e53a9d0 handle & ignore error when loading resources; Claus Gittinger <cg@exept.de> parents: 10733 diff changeset	680	self initResources.
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	681	Resources isNil ifTrue:[
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	682	^ errorSymbol
cbc252eb060f PrinterInfo fm parents: 10513 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
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	705	with:errSym
cbc252eb060f PrinterInfo fm parents: 10513 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
10528 cbc252eb060f PrinterInfo fm parents: 10513 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
10528 cbc252eb060f PrinterInfo fm parents: 10513 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
10528 cbc252eb060f PrinterInfo fm parents: 10513 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:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 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:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	835	aLock critical:[
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	836	self
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	837	shuffleFrom:anInStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	838	to:anOutStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	839	lineWise:lineWise
cbc252eb060f PrinterInfo fm parents: 10513 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:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	850	\|data\|
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	851
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	852	data := anInStream nextLine.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	853	data notNil ifTrue:[
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	854	anOutStream nextPutLine:data
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	855	] .
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	856	] ifFalse:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 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:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	863	self
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	864	shuffleFrom:anInStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	865	to:anOutStream
cbc252eb060f PrinterInfo fm parents: 10513 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
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	880	startProcess:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	881	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	882	outputTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	883	errorTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	884	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 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
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	905	startProcess:'dir/l'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	906	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	907	outputTo:Stdout
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	908	errorTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 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
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	928	startProcess:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	929	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	930	outputTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	931	errorTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	932	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 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
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	959	startProcess:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	960	inputFrom:anExternalInStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	961	outputTo:anExternalOutStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	962	errorTo:anExternalErrStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	963	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 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
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	973	startProcess:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	974	inputFrom:anExternalInStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	975	outputTo:anExternalOutStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	976	errorTo:anExternalErrStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	977	auxFrom:anAuxiliaryStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	978	environment:nil
cbc252eb060f PrinterInfo fm parents: 10513 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
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	994	startProcess:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	995	inputFrom:anExternalInStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	996	outputTo:anExternalOutStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	997	errorTo:anExternalErrStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	998	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 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
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1011	executeCommand:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1012	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1013	outputTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1014	errorTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1015	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1016	inDirectory:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1017	lineWise:false
cbc252eb060f PrinterInfo fm parents: 10513 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
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1053	executeCommand:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1054	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1055	outputTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1056	errorTo:errorStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1057	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1058	inDirectory:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1059	lineWise:false
cbc252eb060f PrinterInfo fm parents: 10513 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
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1077	executeCommand:aCommandString
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1078	inputFrom:nil
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1079	outputTo:nil
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1080	errorTo:errorStream
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1081	auxFrom:nil
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1082	inDirectory:aDirectory
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1083	lineWise:false
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1084	onError:[:status\| false]
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
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1103	executeCommand:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1104	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1105	outputTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1106	errorTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1107	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1108	inDirectory:aDirectory
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1109	lineWise:false
cbc252eb060f PrinterInfo fm parents: 10513 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
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1124	executeCommand:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1125	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1126	outputTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1127	errorTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1128	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1129	inDirectory:aDirectory
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1130	lineWise:false
cbc252eb060f PrinterInfo fm parents: 10513 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:[
10387 7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1166	pIn := NonPositionableExternalStream makePipe.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1167	inStreamToClose := externalInStream := pIn at:1.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1168	shuffledInStream := pIn at:2.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1169	anInStream isBinary ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1170	shuffledInStream binary
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1171	].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1172	lineWise ifFalse:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1173	shuffledInStream blocking:false.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1174	].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1175
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1176	"/ start a reader process, shuffling data from the given
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1177	"/ inStream to the pipe (which is connected to the commands input)
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1178	inputShufflerProcess :=
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1179	[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1180	[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1181	[anInStream atEnd] whileFalse:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1182	self shuffleFrom:anInStream to:shuffledInStream lineWise:lineWise.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1183	shuffledInStream flush
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1184	]
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1185	] ensure:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1186	shuffledInStream close
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1187	]
10491 41c9bfd7fe86 Make auxilliary processes to system processes Stefan Vogel <sv@exept.de> parents: 10387 diff changeset	1188	] newProcess
41c9bfd7fe86 Make auxilliary processes to system processes Stefan Vogel <sv@exept.de> parents: 10387 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;
10491 41c9bfd7fe86 Make auxilliary processes to system processes Stefan Vogel <sv@exept.de> parents: 10387 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:[
10387 7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1195	pOut := NonPositionableExternalStream makePipe.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1196	shuffledOutStream := (pOut at:1).
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1197	anOutStream isBinary ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1198	shuffledOutStream binary
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1199	].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1200	outStreamToClose := externalOutStream := pOut at:2.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1201	outputShufflerProcess :=
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1202	[
11180 ce009dee5161 care for write error in the output shuffler Michael Beyl <mb@exept.de> parents: 11170 diff changeset	1203	WriteError handle:[:ex \|
ce009dee5161 care for write error in the output shuffler Michael Beyl <mb@exept.de> parents: 11170 diff changeset	1204	"/ ignored
ce009dee5161 care for write error in the output shuffler Michael Beyl <mb@exept.de> parents: 11170 diff changeset	1205	] do:[
ce009dee5161 care for write error in the output shuffler Michael Beyl <mb@exept.de> parents: 11170 diff changeset	1206	self shuffleAllFrom:shuffledOutStream to:anOutStream lineWise:lineWise lockWith:terminateLock.
ce009dee5161 care for write error in the output shuffler Michael Beyl <mb@exept.de> parents: 11170 diff changeset	1207	].
10491 41c9bfd7fe86 Make auxilliary processes to system processes Stefan Vogel <sv@exept.de> parents: 10387 diff changeset	1208	] newProcess
41c9bfd7fe86 Make auxilliary processes to system processes Stefan Vogel <sv@exept.de> parents: 10387 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;
10491 41c9bfd7fe86 Make auxilliary processes to system processes Stefan Vogel <sv@exept.de> parents: 10387 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:[
10387 7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1214	anErrStream == anOutStream ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1215	externalErrStream := externalOutStream
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1216	] ifFalse:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1217	anErrStream isExternalStream ifFalse:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1218	pErr := NonPositionableExternalStream makePipe.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1219	shuffledErrStream := (pErr at:1).
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1220	anErrStream isBinary ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1221	shuffledErrStream binary
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1222	].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1223	errStreamToClose := externalErrStream := pErr at:2.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1224	errorShufflerProcess :=
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1225	[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1226	self shuffleAllFrom:shuffledErrStream to:anErrStream lineWise:lineWise lockWith:terminateLock.
10491 41c9bfd7fe86 Make auxilliary processes to system processes Stefan Vogel <sv@exept.de> parents: 10387 diff changeset	1227	] newProcess
41c9bfd7fe86 Make auxilliary processes to system processes Stefan Vogel <sv@exept.de> parents: 10387 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;
10491 41c9bfd7fe86 Make auxilliary processes to system processes Stefan Vogel <sv@exept.de> parents: 10387 diff changeset	1230	resume.
10387 7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1231	]
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 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:[
10387 7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1236	pAux := NonPositionableExternalStream makePipe.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1237	auxStreamToClose := externalAuxStream := pAux at:1.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1238	shuffledAuxStream := pAux at:2.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1239	shuffledAuxStream blocking:false.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1240	anAuxStream isBinary ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1241	shuffledAuxStream binary
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1242	].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1243
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1244	"/ start a reader process, shuffling data from the given
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1245	"/ auxStream to the pipe (which is connected to the commands aux)
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1246	auxShufflerProcess :=
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1247	[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1248	[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1249	[anAuxStream atEnd] whileFalse:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1250	self shuffleFrom:anAuxStream to:shuffledAuxStream lineWise:false.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1251	shuffledAuxStream flush
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1252	]
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1253	] ensure:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1254	shuffledAuxStream close
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1255	]
10491 41c9bfd7fe86 Make auxilliary processes to system processes Stefan Vogel <sv@exept.de> parents: 10387 diff changeset	1256	] newProcess
41c9bfd7fe86 Make auxilliary processes to system processes Stefan Vogel <sv@exept.de> parents: 10387 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;
10491 41c9bfd7fe86 Make auxilliary processes to system processes Stefan Vogel <sv@exept.de> parents: 10387 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 := [
10387 7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1263	inputShufflerProcess notNil ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1264	terminateLock critical:[inputShufflerProcess terminate].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1265	inputShufflerProcess waitUntilTerminated
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1266	].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1267	auxShufflerProcess notNil ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1268	terminateLock critical:[auxShufflerProcess terminate].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1269	auxShufflerProcess waitUntilTerminated
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1270	].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1271	outputShufflerProcess notNil ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1272	terminateLock critical:[outputShufflerProcess terminate].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1273	outputShufflerProcess waitUntilTerminated.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1274	self shuffleRestFrom:shuffledOutStream to:anOutStream lineWise:lineWise.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1275	shuffledOutStream close.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1276	].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1277	errorShufflerProcess notNil ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1278	terminateLock critical:[errorShufflerProcess terminate].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1279	errorShufflerProcess waitUntilTerminated.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1280	self shuffleRestFrom:shuffledErrStream to:anErrStream lineWise:lineWise.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1281	shuffledErrStream close.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1282	].
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 := [
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1286	inStreamToClose notNil ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1287	inStreamToClose close
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1288	].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1289	errStreamToClose notNil ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1290	errStreamToClose close
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1291	].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1292	outStreamToClose notNil ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1293	outStreamToClose close
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1294	].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1295	auxStreamToClose notNil ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1296	auxStreamToClose close
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 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	[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1303	pid := Processor
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1304	monitor:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1305	self
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1306	startProcess:aCommandString
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1307	inputFrom:externalInStream
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1308	outputTo:externalOutStream
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1309	errorTo:externalErrStream
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1310	auxFrom:externalAuxStream
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1311	environment:environmentDictionary
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1312	inDirectory:dirOrNil
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1313	]
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1314	action:[:status \|
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1315	status stillAlive ifFalse:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1316	exitStatus := status.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1317	sema signal.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1318	self closePid:pid
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1319	]
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1320	].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1321
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1322	pid isNil ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1323	exitStatus := self osProcessStatusClass processCreationFailure
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1324	] ifFalse:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1325	sema wait.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1326	].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1327	] ifCurtailed:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1328	closeStreams value.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1329	pid notNil ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1330	"/ terminate the os-command (and all of its forked commands)
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1331	self terminateProcessGroup:pid.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1332	self terminateProcess:pid.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1333	self closePid:pid.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1334	].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 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:[
10387 7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 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	"
10387 7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1346	\|outStream errStream\|
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1347
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1348	outStream := '' writeStream.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1349
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1350	OperatingSystem executeCommand:'ls -l'
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1351	inputFrom:'abc' readStream
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1352	outputTo:outStream
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1353	errorTo:nil
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1354	inDirectory:nil
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1355	lineWise:true
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1356	onError:[:exitStatus \| ^ false].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1357	outStream contents
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1358	"
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1359
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1360	"
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1361	\|outStream errStream\|
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1362
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1363	outStream := #[] writeStream.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1364
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1365	OperatingSystem executeCommand:'cat'
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1366	inputFrom:(ByteArray new:5000000) readStream
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1367	outputTo:outStream
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1368	errorTo:nil
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1369	inDirectory:nil
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1370	lineWise:false
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1371	onError:[:exitStatus \| ^ false].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1372	outStream size
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1373	"
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1374
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1375	"
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1376	\|outStream errStream\|
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1377
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1378	outStream := '' writeStream.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1379
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1380	OperatingSystem executeCommand:'gpg -s --batch --no-tty --passphrase-fd 0 /tmp/passwd'
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1381	inputFrom:'bla' readStream
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1382	outputTo:outStream
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1383	errorTo:nil
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1384	inDirectory:nil
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1385	lineWise:true
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1386	onError:[:exitStatus \| false].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1387	outStream contents
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
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1395	executeCommand:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1396	inputFrom:anInStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1397	outputTo:anOutStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1398	errorTo:anErrStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1399	auxFrom:anAuxStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1400	environment:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1401	inDirectory:dirOrNil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1402	lineWise:lineWise
cbc252eb060f PrinterInfo fm parents: 10513 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
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1412	executeCommand:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1413	inputFrom:inputStreamOrNil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1414	outputTo:outStreamOrNil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1415	errorTo:errStreamOrNil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1416	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1417	inDirectory:aDirectory
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1418	lineWise:false
cbc252eb060f PrinterInfo fm parents: 10513 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
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1448	executeCommand:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1449	inputFrom:anInStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1450	outputTo:anOutStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1451	errorTo:anErrStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1452	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1453	inDirectory:dirOrNil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1454	lineWise:lineWise
cbc252eb060f PrinterInfo fm parents: 10513 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
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1473	executeCommand:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1474	inputFrom:anInStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1475	outputTo:anOutStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1476	errorTo:anErrStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1477	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1478	inDirectory:dirOrNil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1479	lineWise:false
cbc252eb060f PrinterInfo fm parents: 10513 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
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1484	executeCommand:'dir'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1485	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1486	outputTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1487	errorTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1488	inDirectory:'c:'
cbc252eb060f PrinterInfo fm parents: 10513 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
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1492	executeCommand:'foo'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1493	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1494	outputTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1495	errorTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1496	inDirectory:'/etc'
cbc252eb060f PrinterInfo fm parents: 10513 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
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1502	executeCommand:'ls -l'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1503	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1504	outputTo:s
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1505	errorTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 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
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1512	executeCommand:'sh foo'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1513	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1514	outputTo:s
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1515	errorTo:s
cbc252eb060f PrinterInfo fm parents: 10513 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
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1535	executeCommand:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1536	inputFrom:anInStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1537	outputTo:anOutStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1538	errorTo:anErrStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1539	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1540	inDirectory:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1541	lineWise:false
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1542	onError:aBlock
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1543
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1544	"
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1545	OperatingSystem
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1546	executeCommand:'dir'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1547	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1548	outputTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1549	errorTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1550	onError:[:status \| Transcript flash]
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1551
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1552	OperatingSystem
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1553	executeCommand:'foo'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1554	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1555	outputTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1556	errorTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1557	onError:[:status \| Transcript flash]
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1558	"
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1559	"
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1560	\|outStr errStr\|
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1561
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1562	outStr := '' writeStream.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1563	errStr := '' writeStream.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1564	OperatingSystem
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1565	executeCommand:'ls'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1566	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1567	outputTo:outStr
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1568	errorTo:errStr
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1569	onError:[:status \| Transcript flash].
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1570	Transcript show:'out:'; showCR:outStr contents.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1571	Transcript show:'err:'; showCR:errStr contents.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1572	"
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1573	"
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1574	\|outStr errStr\|
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1575
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1576	outStr := '' writeStream.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1577	errStr := '' writeStream.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1578	OperatingSystem
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1579	executeCommand:'ls /fooBar'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1580	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1581	outputTo:outStr
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1582	errorTo:errStr
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1583	onError:[:status \| Transcript flash].
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1584	Transcript show:'out:'; showCR:outStr contents.
cbc252eb060f PrinterInfo fm parents: 10513 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
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1600	executeCommand:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1601	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1602	outputTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1603	errorTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1604	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1605	inDirectory:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1606	lineWise:false
cbc252eb060f PrinterInfo fm parents: 10513 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
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1642	executeCommand:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1643	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1644	outputTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1645	errorTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1646	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1647	inDirectory:aDirectory
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1648	lineWise:false
cbc252eb060f PrinterInfo fm parents: 10513 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
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1661	executeCommand:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1662	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1663	outputTo:anOutStreamOrNil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1664	errorTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1665	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1666	inDirectory:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1667	lineWise:false
cbc252eb060f PrinterInfo fm parents: 10513 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
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1672	executeCommand:'ls'
cbc252eb060f PrinterInfo fm parents: 10513 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
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1679	executeCommand:'pwd'
cbc252eb060f PrinterInfo fm parents: 10513 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
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1691	executeCommand:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1692	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1693	outputTo:outStreamOrNil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1694	errorTo:errStreamOrNil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1695	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1696	inDirectory:aDirectory
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1697	lineWise:false
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1698	onError:[:status\| false]
4849 439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1699
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1700	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1701	OperatingSystem executeCommand:'tdump date.obj' inDirectory:'c:\winstx\stx\libbasic\objbc'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1702	OperatingSystem executeCommand:'xxdir date.obj' inDirectory:'c:\winstx\stx\libbasic\objbc'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1703	OperatingSystem executeCommand:'dir' inDirectory:'c:\'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1704	OperatingSystem executeCommand:'dir'
4849 439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1705	"
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1706
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1707	"Modified: / 20.1.1998 / 17:03:03 / md"
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1708	"Modified: / 10.11.1998 / 20:28:10 / cg"
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1709	"Created: / 10.11.1998 / 21:05:45 / cg"
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1710	!
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1711
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1712	getCommandOutputFrom:aCommand
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1713	"execute a simple command (such as hostname) and
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1714	return the commands first line of output as a string (forget stdErr).
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1715	If the command generates multiple output lines, only the first line is returned.
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1716	If the commands does not generate any output, an empty string is returned;
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1717	if the command fails, nil is returned."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1718
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1719	\|result\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1720
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1721	result := self getCommandOutputFrom:aCommand maxNumberOfLines:1 errorDisposition:#discard.
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1722	result notNil ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1723	^ result firstIfEmpty:['']
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1724	].
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1725	^ result
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1726
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1727	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1728	OperatingSystem getCommandOutputFrom:'hostname'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1729	OperatingSystem getCommandOutputFrom:'pwd'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1730	OperatingSystem getCommandOutputFrom:'sleep 1'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1731	OperatingSystem getCommandOutputFrom:'foo'
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1732	"
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1733
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1734	!
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1735
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1736	getCommandOutputFrom:aCommand maxNumberOfLines:numLinesOrNil errorDisposition:errorDisposition
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1737	"execute a simple command (such as hostname) and
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1738	return the commands output as a collection of strings,
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1739	but only up to the given number of lines (if non-nil).
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1740	If the command generates more output, only the first nLines are returned
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1741	(but the command is allowed to finish execution).
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1742	If the commands does not generate any output, an empty string is returned;
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1743	if the command fails, nil is returned.
433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1744	errorDisposition controls where the stdErr output should go,
433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1745	and may be one of #discard, #inline or #stderr (default).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1746	#discard causes stderr to be discarded (/dev/null),
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1747	#inline causes it to be written to smalltalks own stdout and
433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1748	#stderr causes it to be written to smalltalks own stderr.
433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1749	Nil is treated like #stderr"
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1750
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1751	\|result\|
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1752
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	1753	PipeFailed ~~ true ifTrue:[
10344 f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1754	PipeStream openErrorSignal handle:[:ex \|
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1755	PipeFailed := true.
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1756	'OperatingSystem [warning]: cannot fork/popen' errorPrintCR.
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1757	ex return.
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1758	] do:[
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1759	\|p line\|
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1760
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1761	p := PipeStream
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1762	readingFrom:aCommand
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1763	errorDisposition:errorDisposition
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1764	inDirectory:nil.
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1765	result := StringCollection new.
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1766	[p atEnd] whileFalse:[
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1767	line := p nextLine.
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1768	(numLinesOrNil isNil
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1769	or:[result size < numLinesOrNil]) ifTrue:[
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1770	result add:line
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1771	].
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1772	].
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1773	p close.
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1774	(p exitStatus notNil
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1775	and:[p exitStatus success]) ifFalse:[
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1776	result isEmpty ifTrue:[
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1777	result := nil
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1778	]
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1779	].
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1780	].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1781	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1782	^ result
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1783
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1784	"
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1785	OperatingSystem getCommandOutputFrom:'ls' maxNumberOfLines:1
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1786	OperatingSystem getCommandOutputFrom:'ls' maxNumberOfLines:10
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1787	OperatingSystem getCommandOutputFrom:'ls' maxNumberOfLines:nil
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1788	OperatingSystem getCommandOutputFrom:'foo' maxNumberOfLines:nil
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1789	"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1790
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1791	"Modified: / 19.5.1999 / 14:25:02 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1792	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1793
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1794	getFullCommandOutputFrom:aCommand
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1795	"execute a command and
5483 1d81b1ad42d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5482 diff changeset	1796	return the commands output as a collection of strings (ignoring stdErr).
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1797	If the commands does not generate any output, an empty string is returned;
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1798	if the command fails, nil is returned."
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1799
5483 1d81b1ad42d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5482 diff changeset	1800	^ self getCommandOutputFrom:aCommand maxNumberOfLines:nil errorDisposition:#discard
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1801
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1802	"
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1803	OperatingSystem getFullCommandOutputFrom:'mt status'
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1804	"
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1805
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1806	! !
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1807
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1808	!AbstractOperatingSystem class methodsFor:'executing OS commands-queries'!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1809
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1810	canExecuteCommand:aCommandString
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1811	"return true, if the OS can execute aCommand.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1812	For now, this only works with UNIX."
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1813
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1814	\|fn fullPath\|
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1815
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1816	fullPath := (self pathOfCommand:aCommandString).
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1817	fullPath isNil ifTrue:[^ false].
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1818	fn := fullPath asFilename.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1819	^ fn exists and:[fn isExecutableProgram].
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1820
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1821	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1822	OperatingSystem canExecuteCommand:'fooBar'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1823	OperatingSystem canExecuteCommand:'ls'
9380 31213ffdf7c1 comment Michael Beyl <mb@exept.de> parents: 9021 diff changeset	1824	OperatingSystem canExecuteCommand:'cvs'
8801 02d568c0e298 comment Claus Gittinger <cg@exept.de> parents: 8784 diff changeset	1825	OperatingSystem canExecuteCommand:'diff'
9380 31213ffdf7c1 comment Michael Beyl <mb@exept.de> parents: 9021 diff changeset	1826	OperatingSystem canExecuteCommand:'cvs.exe'
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1827	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1828
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1829	"Created: 4.11.1995 / 19:13:54 / cg"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1830	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1831
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1832	commandAndArgsForOSCommand:aCommandString
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1833	"get a shell and shell arguments for command execution"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1834
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1835	self subclassResponsibility
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1836	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1837
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1838	executableFileExtensions
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1839	"return a collection of extensions for executable program files.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1840	Only req'd for msdos & vms like systems ..."
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	^ #('')
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1843
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1844	"Created: 2.5.1997 / 11:42:29 / cg"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1845	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1846
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1847	nameOfSTXExecutable
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1848	"return the name of the running ST/X executable program.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1849	Usually, 'stx' is returned -
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1850	but may be different for standAlone apps (or winstx.exe)."
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1851
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1852	%{
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1853	extern char *__stxExecutableName__();
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1854
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1855	RETURN (__MKSTRING(__stxExecutableName__()));
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1856	%}
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1857	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1858	OperatingSystem nameOfSTXExecutable
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1859	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1860	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1861
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1862	pathOfCommand:aCommand
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1863	"find where aCommand's executable file is;
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1864	return its full pathName if there is such a command, otherwise
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1865	return nil."
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1866
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1867	^ self subclassResponsibility
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1868	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1869
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1870	pathOfSTXExecutable
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1871	"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	1872	Usually, '.../stx' is returned -
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1873	but may be different for standAlone apps (or winstx.exe)."
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	^ self pathOfCommand:(self nameOfSTXExecutable)
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1876
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1877	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1878	OperatingSystem pathOfSTXExecutable
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
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1882	!AbstractOperatingSystem class methodsFor:'executing OS commands-wrappers'!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1883
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1884	exec:aCommandPath withArguments:argArray
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1885	"execute the OS command specified by the argument, aCommandPath, with
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1886	arguments in argArray (no arguments, if nil).
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1887	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	1888	If not successful, it does return.
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1889	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	1890
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1891	^ self
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1892	exec:aCommandPath
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1893	withArguments:argArray
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1894	environment:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1895	fileDescriptors:#(0 1 2)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1896	fork:false
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1897	newPgrp:false
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1898	inDirectory:nil
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1899
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1900	"/ never reached ...
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1901
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1902	"Modified: / 12.11.1998 / 14:44:26 / cg"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1903	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1904
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1905	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	1906	^ self
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1907	exec:aCommandPath
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1908	withArguments:argArray
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1909	environment:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1910	fileDescriptors:fileDescriptors
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1911	fork:doFork
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1912	newPgrp:newPgrp
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1913	inDirectory:aDirectory
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	exec:aCommandPath withArguments:argArray fork:doFork
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1917	"execute an OS command without I/O redirection.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1918	The command reads its input and writes its output
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1919	from/to whatever terminal device ST/X was started
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1920	(typically, the terminal window)"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1921
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1922	^ self
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1923	exec:aCommandPath
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1924	withArguments:argArray
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1925	environment:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1926	fileDescriptors:#(0 1 2)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1927	fork:doFork
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1928	newPgrp:false
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1929	inDirectory:nil
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1930
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1931	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1932	\|id\|
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	id := OperatingSystem fork.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1935	id == 0 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1936	'I am the child'.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1937	OperatingSystem
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1938	exec:'/bin/ls'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1939	withArguments:#('ls' '/tmp')
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1940	fork:false.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1941	'not reached'.
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1942	]
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1943	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1944
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1945	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1946	\|id\|
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1947
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1948	id := OperatingSystem fork.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1949	id == 0 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1950	'I am the child'.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1951	OperatingSystem
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1952	exec:'/bin/sh'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1953	withArguments:#('sh' '-c' 'sleep 2;echo 1;sleep 2;echo 2')
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1954	fork:false.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1955	'not reached'.
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1956	].
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1957	id printNL.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1958	(Delay forSeconds:3.5) wait.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1959	'killing ...' printNL.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1960	OperatingSystem sendSignal:(OperatingSystem sigTERM) to:id.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1961	OperatingSystem sendSignal:(OperatingSystem sigKILL) to:id
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1962	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1963
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1964	"Modified: / 15.7.1997 / 15:54:32 / stefan"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1965	"Modified: / 12.11.1998 / 14:44:46 / cg"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1966	!
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	exec:aCommandPath withArguments:argArray fork:doFork inDirectory:aDirectory
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1969	"execute an OS command without I/O redirection.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1970	The command reads its input and writes its output
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1971	from/to whatever terminal device ST/X was started
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1972	(typically, the terminal window)"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1973
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1974	^ self
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1975	exec:aCommandPath
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1976	withArguments:argArray
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1977	environment:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1978	fileDescriptors:#(0 1 2)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1979	fork:doFork
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1980	newPgrp:false
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1981	inDirectory:aDirectory
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1982
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1983	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1984	\|id\|
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1985
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1986	id := OperatingSystem fork.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1987	id == 0 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1988	'I am the child'.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1989	OperatingSystem
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1990	exec:'/bin/ls'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1991	withArguments:#('ls' '/tmp')
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1992	fork:false.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1993	'not reached'.
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1994	]
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1995	"
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	\|id\|
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1999
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2000	id := OperatingSystem fork.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2001	id == 0 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2002	'I am the child'.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2003	OperatingSystem
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2004	exec:'/bin/sh'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2005	withArguments:#('sh' '-c' 'sleep 2;echo 1;sleep 2;echo 2')
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2006	fork:false.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2007	'not reached'.
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2008	].
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2009	id printNL.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2010	(Delay forSeconds:3.5) wait.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2011	'killing ...' printNL.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2012	OperatingSystem sendSignal:(OperatingSystem sigTERM) to:id.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2013	OperatingSystem sendSignal:(OperatingSystem sigKILL) to:id
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2014	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2015
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2016	"Created: / 28.1.1998 / 14:14:03 / md"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2017	"Modified: / 28.1.1998 / 14:14:45 / md"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2018	"Modified: / 12.11.1998 / 14:45:06 / cg"
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	2019	! !
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	2020
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2021	!AbstractOperatingSystem class methodsFor:'file access'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2022
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2023	closeFd:anInteger
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2024	"low level close of a filedescriptor"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2025
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2026	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2027	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2028
7699 9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	2029	copyFromFd:inFd toFd:outFd startIndex:startIdx count:count
9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	2030	"directly copy from one FD to another (if supported by the OS)"
9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	2031
9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	2032	^ 0 "/ not supported
9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	2033	!
9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	2034
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2035	createDirectory:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2036	"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	2037	path, or relative to the current directory.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2038	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	2039	This is a low-level entry - use Filename protocol for compatibility."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2040
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2041	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2042	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2043
6292 f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2044	createFileForReadAppend:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2045	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2046	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2047
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2048	createFileForReadWrite:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2049	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2050	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2051
3758 1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2052	createHardLinkFrom:oldPath to:newPath
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2053	"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	2054	Return true if successful, false if not."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2055
3758 1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2056	"/
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2057	"/ assume that this OperatingSystem does not support links
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2058	"/
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2059	^ UnsupportedOperationSignal raise
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2060
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2061	"Created: / 13.8.1998 / 21:37:12 / cg"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2062	"Modified: / 13.8.1998 / 21:38:39 / cg"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2063	!
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2064
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2065	createSymbolicLinkFrom:oldPath to:newPath
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2066	"make a link from the file 'oldPath' to the file 'newPath'.
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2067	The link will be a soft (symbolic) link.
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2068	Return true if successful, false if not."
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2069
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2070	"/
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2071	"/ assume that this OperatingSystem does not support symbolic links
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2072	"/
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2073	^ UnsupportedOperationSignal raise
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2074
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2075	"Created: / 13.8.1998 / 21:38:24 / cg"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2076	"Modified: / 13.8.1998 / 21:38:43 / cg"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2077	!
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2078
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2079	linkFile:oldPath to:newPath
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2080	"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	2081	Return true if successful, false if not.
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2082	This method has been renamed - it remains in existance for
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2083	backward compatibility."
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2084
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2085	^ self createHardLinkFrom:oldPath to:newPath
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2086
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2087	"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2088	OperatingSystem linkFile:'foo' to:'bar'
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2089	"
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	"Modified: / 13.8.1998 / 21:37:24 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2092	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2093
6292 f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2094	openFileForAppend:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2095	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2096	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2097
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2098	openFileForRead:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2099	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2100	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2101
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2102	openFileForReadAppend:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2103	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2104	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2105
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2106	openFileForReadWrite:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2107	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2108	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2109
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2110	openFileForWrite:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2111	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2112	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2113
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2114	recursiveCopyDirectory:fullPathName to:destinationPathName
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2115	"copy the directory named 'fullPathName' and all contained
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2116	files/directories recursively to destinationPathName.
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2117	Return true if successful.
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2118	Here, false is returned and the caller should be prepared
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2119	for a fallBack solution.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2120	Notice:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2121	this is not a public interface; instead, it is used
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2122	internally by the Filename class, to try a fast copy
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2123	before doing things manually.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2124	Please use Filename recursiveCopyTo:"
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2125
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2126	^ false
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2127
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2128	"
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2129	OperatingSystem recursiveCopyDirectory:'.' to:'/tmp/foo'
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2130	OperatingSystem recursiveRemoveDirectory:'/tmp/foo'
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2131	"
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2132
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2133	"Modified: / 5.5.1999 / 13:29:16 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2134	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2135
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2136	recursiveCreateDirectory:dirName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2137	"create a directory - with all parent dirs if needed.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2138	Return true if successful, false otherwise. If false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2139	is returned, a partial created tree may be left,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2140	which is not cleaned-up here."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2141
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2142	self createDirectory:dirName.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2143	(self isDirectory:dirName) ifFalse:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2144	(self recursiveCreateDirectory:(dirName asFilename directoryName)) ifFalse:[^ false].
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2145	^ self createDirectory:dirName
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2146	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2147	^ true
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2148
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2149	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2150	OperatingSystem recursiveCreateDirectory:'foo/bar/baz'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2151	OperatingSystem recursiveRemoveDirectory:'foo'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2152	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2153
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2154	"Modified: 7.3.1996 / 15:26:22 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2155	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2156
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2157	recursiveRemoveDirectory:fullPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2158	"remove the directory named 'fullPathName' and all contained files/directories.
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2159	Return true if successful.
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2160	Here, false is returned and the caller should be prepared
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2161	for a fallBack solution.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2162	Notice:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2163	this is not a public interface; instead, it is used
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2164	internally by the Filename class, to try a fast remove
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2165	before doing things manually.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2166	Please use Filename recursiveRemoveDirectory:"
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2167
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2168	^ false
3576 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	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2171	OperatingSystem recursiveCreateDirectory:'foo/bar/baz'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2172	OperatingSystem recursiveRemoveDirectory:'foo'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2173	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2174
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2175	"Modified: / 5.5.1999 / 13:30:11 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2176	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2177
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2178	removeDirectory:fullPathName
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2179	"remove the directory named 'fullPathName'.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2180	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	2181	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	2182	This is a lowLevel entry - use Filename protocol for compatibility."
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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2185	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2186
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2187	removeFile:fullPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2188	"remove the file named 'fullPathName'; return true if successful.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2189	This is a lowLevel entry - use Filename protocol for compatibility."
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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2192	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2193
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2194	renameFile:oldPath to:newPath
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2195	"rename the file 'oldPath' to 'newPath'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2196	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	2197	correct for the OS used - therefore, this should not be called
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2198	directlt. Instead, use Filename protocol to rename; this cares for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2199	any invalid names.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2200	Returns true if successful, false if not"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2201
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2202	self subclassResponsibility
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	truncateFile:aPathName to:newSize
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2206	"change a files size return true on success, false on failure.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2207	This may not be supported on all architectures.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2208
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2209	This is a low-level entry - use Filename protocol."
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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2212	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2213
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2214	!AbstractOperatingSystem class methodsFor:'file access rights'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2215
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2216	accessMaskFor:aSymbol
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2217	"return the access bits mask for numbers as returned by
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2218	OperatingSystem>>accessModeOf:
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2219	and expected by OperatingSystem>>changeAccessModeOf:to:.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2220	Since these numbers are OS dependent, always use the mask
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2221	(never hardcode 8rxxx into your code)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2222
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2223	self subclassResponsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2226	accessModeOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2227	"return a number representing access rights rwxrwxrwx for owner,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2228	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	2229	Notice that the returned number is OS dependent - use the
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2230	modeMasks as returned by OperatingSystem>>accessMaskFor:"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2231
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2232	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2233	this could have been implemented as:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2234	(self infoOf:aPathName) at:#mode
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2235	but for huge directory searches the code below is faster
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2236	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2237
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2238	^ (self infoOf:aPathName) at:#mode
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2239
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2240	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2241	(OperatingSystem accessModeOf:'/') printStringRadix:8
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	!
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	changeAccessModeOf:aPathName to:modeBits
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2246	"change the access rights of aPathName to the OS dependent modeBits.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2247	You should construct this mask using accessMaskFor, to be OS
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2248	independent. Return true if changed,
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2249	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	2250
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2251	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2252	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2253
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2254	!AbstractOperatingSystem class methodsFor:'file locking'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2255
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2256	lockFD:aFileDescriptor shared:isSharedReadLock blocking:blockIfLocked
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2257	"set a lock on the file represented by aFileDescriptor.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2258	(such as returned by ExternalStream>>fileDescriptor).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2259	On some systems, only advisory locks are available -
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2260	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	2261	If they do not, they may still access the file
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2262	(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	2263	The isSharedReadLock argument (if true) specifies if multiple readers
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2264	are to be allowed - if false, they are not.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2265	On some systems, all locks are non-exclusive locks.
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	Returns true, if the lock was aquired, false otherwise.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2268
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2269	Notice, that not all OS's support these locks;
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2270	on some, this may simply be a no-op.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2271	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	2272	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	2273	argument."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2274
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2275	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2276	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2277
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2278	supportsFileLinks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2279	"return true, if the OS supports file links (hard links).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2280	Typically, only unix returns true here."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2281
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2282	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2283	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2284
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2285	supportsFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2286	"return true, if the OS supports file locking"
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	^ false
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	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2291	OperatingSystem supportsFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2292	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2293	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2294
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2295	supportsNonBlockingFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2296	"return true, if the OS supports nonBlocking file locking
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2297	(i.e. with immediate return instead of waiting for the lock)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2298
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2299	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2300
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2301	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2302	OperatingSystem supportsNonBlockingFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2303	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2304	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2305
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2306	supportsSharedLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2307	"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	2308	file locking. Assume false here - redefined in concrete classes."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2309
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2310	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2311
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2312	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2313	OperatingSystem supportsNonBlockingFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2314	"
4147 1096115c96c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 4146 diff changeset	2315
1096115c96c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 4146 diff changeset	2316	"Modified: / 5.5.1999 / 01:08:03 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2317	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2318
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2319	supportsSymbolicLinks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2320	"return true, if the OS supports symbolic links on files/directories.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2321	Typically, only Unix returns true here"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2322
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2323	^ false
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2326	unlockFD:aFileDescriptor
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2327	"clear a file lock on the file represented by aFileDescriptor,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2328	which was previously aquired by #lockFD:.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2329	Return false, if the unlock failed
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2330	(which may happens when a wrong fd is passed,
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2331	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	2332	Notice, that not all OS's support file locks;
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2333	on some, this may simply be a no-op."
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2334
3826 ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	2335	^ false
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	2336
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	2337	"Modified: / 10.9.1998 / 17:54:15 / cg"
3576 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	!AbstractOperatingSystem class methodsFor:'file queries'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2341
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2342	caseSensitiveFilenames
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2343	"return true, if the OS has caseSensitive file naming.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2344	On MSDOS, this will return false;
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2345	on a real OS, we return true."
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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2348	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2349
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2350	compressPath:pathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2351	"return the pathName compressed - that is, remove all ..-entries
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2352	and . entries. This does not always (in case of symbolic links)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2353	return the true pathName and is therefore used as a fallback
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2354	if realPath and popen failed."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2355
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2356	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2357	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2358
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2359	directoryNameOf:aPath
5861 24ee164045bd Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 5857 diff changeset	2360	<resource:#obsolete>
24ee164045bd Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 5857 diff changeset	2361
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2362	self obsoleteMethodWarning:'use asFilename directoryName'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2363	^ aPath asFilename directoryName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2364	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2365
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2366	fileSeparator
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2367	"return the character used to separate names in a path.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2368	This character differs for MSDOS and other systems,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2369	(but those are currently not supported - so this is some
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2370	preparation for the future)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2371
3736 718513f3284e checkin from browser Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	2372	^ $/ "/ 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	2373	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2374
17807 06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	2375	getCurrentDirectory
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	2376	"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	2377
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	2378	^ self subclassResponsibility
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	2379	!
06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	2380
4224 5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2381	getDiskInfoOf:aDirectoryPath
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2382	"return some disk info.
4224 5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2383	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	2384	not guaranteed to be consistent across architectures.
4226 429b13ce2028 * empty log message * Claus Gittinger <cg@exept.de> parents: 4224 diff changeset	2385	On unix and msdos, the information returned is (at least):
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2386	freeBytes
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2387	totalBytes
4224 5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2388	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	2389	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	2390	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	2391	"
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2392
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2393	^ nil
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2394
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2395	"
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2396	OperatingSystem getDiskInfoOf:'/'
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2397	OperatingSystem getDiskInfoOf:'.'
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2398	"
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2399
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2400	"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	2401	!
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2402
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2403	getDriveList
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2404	"return a list of volumes in the system.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2405	On unix, no such thing like a volume exists
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2406	- there, a syntetic list with root, home & current is returned.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2407	On MSDOS, a list of drive letters is (eventually) returned.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2408	On VMS, a list of volumes is (eventually) returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2409
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2410	"/
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	2411	"/ default: return an array filled with
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2412	"/ root, home and current directories.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2413	"/
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2414	^ Array
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2415	with:'/'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2416	with:(self getHomeDirectory)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2417	with:(Filename currentDirectory pathName)
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	2418
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	2419	"Modified: / 5.5.1999 / 01:06:26 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2420	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2421
4852 ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2422	getMountedVolumes
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2423	"return info about mounted volumes.
4852 ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2424	The amount of information returned depends upon the OS, and is
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2425	not guaranteed to be consistent across architectures.
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2426	On unix, the information returned is (at least):
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2427	mountPoint - mount point
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2428	fileSystem - device or NFS-remotePath
4852 ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2429	"
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2430
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2431	^ #()
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2432
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2433	"
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2434	OperatingSystem getMountedVolumes
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2435	"
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2436
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2437	"Modified: / 22.5.1999 / 00:36:06 / cg"
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2438	!
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2439
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2440	getNullDevice
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2441	"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	2442
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2443	^ nil
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2444
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2445	"Created: / 19.5.1999 / 12:24:59 / cg"
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2446	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2447
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2448	idOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2449	"return the fileNumber (i.e. inode number) of a file.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2450
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2451	Not all operatingSystems may provide this - on those that do not,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2452	some dummy id will be returned.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2453	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	2454	physically identical, even if found in different directories
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2455	(i.e. if they are hardLinked)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2456
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2457	\|i id\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2458
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2459	id := self primIdOf:aPathName.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2460	id notNil ifTrue:[^ id].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2461
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2462	i := self infoOf:aPathName.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2463	i notNil ifTrue:[^ i id].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2464	^ nil.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2465
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2466	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2467	OperatingSystem idOf:'/'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2468	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2469	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2470
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2471	infoOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2472	"return some object filled with info for the file 'aPathName';
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2473	the info (for which corresponding access methods are understood by
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2474	the returned object) is:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2475	type - a symbol giving the files type
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2476	mode - numeric access mode
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2477	uid - owners user id
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2478	gid - owners group id
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2479	size - files size
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2480	id - files number (i.e. inode number)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2481	accessed - last access time (as Timestamp)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2482	modified - last modification time (as Timestamp)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2483	statusChanged - last status change time (as Timestamp)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2484	alternativeName - (windows only: the MSDOS name of the file)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2485
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2486	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	2487	all of the information.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2488	Return nil if such a file does not exist.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2489	For symbolic links (if supported by the OS),
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2490	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	2491	use #linkInfoOf: to get info about the link itself.
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2494	self subclassResponsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2497	isDirectory:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2498	"return true, if 'aPathName' is a valid directory path name.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2499	(i.e. exists and is a directory).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2500	This also returns true for symbolic links pointing to a directory;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2501	if you need to check for this, use #linkInfo:."
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	^ (self infoOf:aPathName) type == #directory
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2506	isExecutable:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2507	"return true, if the given file is executable.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2508	For symbolic links, the pointed-to-file is checked."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2509
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2510	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2511	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2512
6772 6bfdc2522ea2 isMountPoint penk parents: 6720 diff changeset	2513	isMountPoint:aPathName
6781 97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2514	"return true, if the given file is a mounted fileSystems mountPoint"
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2515
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2516	^ self mountPoints contains:[:mountInfo \| mountInfo mountPointPath = aPathName].
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2517
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2518	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2519	OperatingSystem isMountPoint:'/phys/qnx'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2520	OperatingSystem isMountPoint:'/proc'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2521	OperatingSystem isMountPoint:'/'
6781 97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2522	"
6772 6bfdc2522ea2 isMountPoint penk parents: 6720 diff changeset	2523	!
6bfdc2522ea2 isMountPoint penk parents: 6720 diff changeset	2524
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2525	isReadable:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2526	"return true, if the file/dir 'aPathName' is readable.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2527	For symbolic links, the pointed-to-file is checked."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2528
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2529	self subclassResponsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2532	isSymbolicLink:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2533	"return true, if the given file is a symbolic link"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2534
8474 f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2535	\|info\|
f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2536
f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2537	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	2538	^ 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	2539
f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2540	"
f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2541	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	2542	OperatingSystem isSymbolicLink:'/usr/tmp'
3576 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	!
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	isValidPath:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2547	"return true, if 'aPathName' is a valid path name
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2548	(i.e. the file or directory exists)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2549
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2550	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2551	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2552
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2553	isWritable:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2554	"return true, if the given file is writable.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2555	For symbolic links, the pointed-to-file is checked."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2556
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2557	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2558	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2559
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2560	linkInfoOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2561	"return a dictionary filled with info for the file 'aPathName',
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2562	IFF aPathName is a symbolic link.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2563	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	2564	(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	2565
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2566	The contents of the dictionary gives info about the link itself,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2567	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	2568	in case of a symbolic link."
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2569
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2570	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2571	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2572
5031 50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2573	mimeTypeForFilename:aFilename
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2574	"given a filename, return a corresponding mimeType.
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2575	This is placed here, to allow for OS-specific configuration
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2576	files and/or the win32 registry to be consultet.
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2577	Returns nil if no mimeType for the given name is known."
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2578
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2579	^ nil
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2580	!
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2581
4240 e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2582	mimeTypeForSuffix:aFileSuffix
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2583	"given a file suffix, return a corresponding mimeType.
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2584	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	2585	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	2586	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	2587
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2588	^ nil
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2589	!
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2590
6781 97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2591	mountPoints
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2592	"return a collection of mountPoints (aka. topDirectories of mounted file systems)"
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2593
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2594	^ #() "/ dont know here
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2595	!
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2596
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2597	parentDirectoryName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2598	"return the name used to refer to parent directories.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2599	In MSDOS, Unix and other systems this is '..', but maybe different
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2600	for other systems.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2601	(but those are currently not supported - so this is some
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2602	preparation for the future)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2603
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2604	^ '..'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2605	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2606
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2607	pathNameOf:pathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2608	"return the pathName of the argument, aPathString,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2609	- thats the full pathname of the directory, starting at '/'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2610	This method needs the path to be valid
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2611	(i.e. all directories must exist, be readable and executable).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2612	Notice: if symbolic links are involved, the result may look different
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2613	from what you expect."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2614
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2615	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2616	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2617
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2618	primIdOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2619	"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	2620
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2621	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2622	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2623
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2624	primPathNameOf:pathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2625	"return the pathName of the argument, aPathString,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2626	- thats the full pathname of the directory, starting at '/'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2627	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	2628	realPath library function.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2629	Notice: if symbolic links are involved, the result may look different
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2630	from what you expect."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2631
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2632	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2633	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2634
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2635	timeOfLastAccess:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2636	"return the time, when the file was last accessed.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2637	For nonexistent files, nil is returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2638
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2639	^ (self infoOf:aPathName) accessTime
3576 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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2642	timeOfLastChange:aPathName
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2643	"return the time, when the file was last changed.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2644	For nonexistent files, nil is returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2645
6793 0d3e3fd18a70 modified -> modificationTime Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	2646	^ (self infoOf:aPathName) modificationTime
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2647	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2648
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2649	typeOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2650	"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	2651	nil is returned.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2652	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	2653
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2654	^ (self infoOf:aPathName) type
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2655	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2656
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2657	volumeNameOf:aPathString
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2658	"return the volumeName of the argument, aPath
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2659	- thats the name of the volume where aPath is.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2660	Not all OperatingSystems support/use volumes; on unix,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2661	this always returns an empty string."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2662
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2663	^ ''
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2664	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2665
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2666	!AbstractOperatingSystem class methodsFor:'interprocess communication'!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2667
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2668	createCOMFileForVMSCommand:aCommandString in:aDirectory
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2669	"this is only implemented/required for VMS systems, to execute commands"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2670
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2671	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2672
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2673	"Created: / 19.5.1999 / 12:16:31 / cg"
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2674	"Modified: / 19.5.1999 / 14:22:05 / cg"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2675	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2676
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2677	createMailBox
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2678	"this is only implemented/required for VMS systems, to emulate pipes"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2679
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2680	^ UnsupportedOperationSignal raise
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2681
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2682	"Created: / 19.5.1999 / 12:14:56 / cg"
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2683	"Modified: / 19.5.1999 / 14:22:22 / cg"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2684	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2685
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2686	destroyMailBox:mbx
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2687	"this is only implemented/required for VMS systems, to emulate pipes"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2688
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2689	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2690
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2691	"Created: / 19.5.1999 / 12:16:43 / cg"
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2692	"Modified: / 19.5.1999 / 14:22:33 / cg"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2693	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2694
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2695	mailBoxNameOf:mbx
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2696	"this is only implemented/required for VMS systems, to emulate pipes"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2697
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2698	^ UnsupportedOperationSignal raise
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2699
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2700	"Created: / 19.5.1999 / 12:14:56 / cg"
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2701	"Modified: / 19.5.1999 / 14:22:40 / cg"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2702	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2703
8967 30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2704	makeBidirectionalPipe
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2705	"answer an array with 2 filedescriptors representing
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2706	the two ends of a bidirectional pipe - see also #makePipe"
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2707
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2708	^ self subclassResponsibility
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2709	!
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2710
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2711	makePipe
8967 30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2712	"answer an array with 2 filedescriptors representing
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2713	the two ends of a unidirectional pipe- see also #makeSocketPair"
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2714
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2715	^ self subclassResponsibility
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2716	!
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2717
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2718	shutdownBidirectionalPipeOutput:fileDescriptor
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2719	"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	2720	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	2721
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2722	^ self subclassResponsibility
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2723	! !
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2724
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2725	!AbstractOperatingSystem class methodsFor:'interrupts & signals'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2726
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2727	blockInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2728	"disable interrupt processing - if disabled, incoming
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2729	interrupts will be registered and handled as soon as
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2730	interrupts are reenabled by OperatingSystemclass>>unblockInterrupts.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2731	Returns the previous blocking status i.e. true if interrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2732	where already blocked. You need this information for proper
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2733	unblocking, in case of nested block/unblock calls."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2734
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2735	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2736	RETURN ( __BLOCKINTERRUPTS() );
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2737	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2738	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2739
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2740	defaultSignal:signalNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2741	"revert to the default action on arrival of a (Unix-)signal.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2742	Dont confuse Unix signals with smalltalk signals.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2743	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	2744	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	2745	default for SIGQUIT (^ \) is to dump core.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2746	Also, NOTICE that signal numbers are not portable between unix
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2747	systems - use OperatingSystem sigXXX to get the numeric value for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2748	a signal."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2749
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2750	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2751	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2752
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2753	disableChildSignalInterrupts
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2754	"disable childSignal interrupts
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2755	(SIGCHLD, if the architecture supports it).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2756	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	2757	SIGCHLD breaks wait & co"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2758
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2759	^ self defaultSignal:(self sigCHLD)
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	"Created: 5.1.1996 / 15:45:28 / stefan"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2762	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2763
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2764	disableIOInterruptsOn:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2765	"turn off IO interrupts for a filedescriptor"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2766
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2767	self subclassResponsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2770	disableSignal:signalNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2771	"disable (Unix-) signal processing for signalNumber.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2772	Dont confuse Unix signals with smalltalk signals.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2773	WARNING: for some signals, it is no good idea to disable
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2774	them; for example, disabling the SIGINT signal turns off ^C
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2775	handling.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2776	Also, NOTICE that signal numbers are not portable between unix
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2777	systems - use OperatingSystem sigXXX to get the numeric value for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2778	a signal.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2779	Use only for fully debugged stand alone applications."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2780
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2781	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2782	!
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	disableTimer
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2785	"disable timer interrupts.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2786	WARNING:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2787	the system will not operate correctly with timer interrupts
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2788	disabled, because no scheduling or timeouts are possible."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2789
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2790	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2791	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2792
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2793	disableUserInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2794	"disable userInterrupt processing;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2795	when disabled, no ^C processing takes place.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2796	WARNING:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2797	If at all, use this only for debugged stand-alone applications, since
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2798	no exit to the debugger is possible with user interrupts disabled.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2799	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	2800
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2801	self disableSignal:(self sigBREAK).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2802	self disableSignal:(self sigINT).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2803	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2804
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2805	enableAbortInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2806	"enable abort signalhandling, and make it a regular signalInterrupt.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2807	(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	2808	end-user applications ...).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2809	This is especially useful, if linked-in C-libraries call abort() ..."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2810
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2811	self enableSignal:(self sigABRT)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2812	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2813
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2814	enableChildSignalInterrupts
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2815	"enable childSignal interrupts
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2816	(SIGCHLD, if the architecture supports it).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2817	After enabling, these signals will send the message
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2818	'childSignalInterrupt' to the ChildSignalInterruptHandler object."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2819
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2820	self enableSignal:(self sigCHLD)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2821	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2822
6389 8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2823	enableCrashSignalInterrupts
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2824	"enable powerFail signal exception interrupts (sigPWR).
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2825	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	2826
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2827	self enableSignal:(self sigPWR).
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2828	self enableSignal:(self sigHUP)
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2829	!
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2830
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2831	enableFpExceptionInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2832	"enable floating point exception interrupts (if the
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2833	architecture supports it).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2834	After enabling, fpu-exceptions will send the message
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2835	'fpuExceptionInterrupt' to the FPUExceptionInterruptHandler object."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2836
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2837	self enableSignal:(self sigFP)
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2840	enableHardSignalInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2841	"enable hard signal exception interrupts (trap, buserror & segm. violation).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2842	After enabling, these exceptions will send the message
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2843	'signalInterrupt' to the SignalInterruptHandler object."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2844
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2845	"/ leads to trouble ...
6389 8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2846	"/ self enableSignal:(self sigPIPE).
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2847	"/ ... 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	2848
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2849	self disableSignal:(self sigPIPE).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2850
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2851	self enableSignal:(self sigILL).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2852	self enableSignal:(self sigBUS).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2853	self enableSignal:(self sigSEGV).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2854	self enableSignal:(self sigFP).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2855	self enableSignal:(self sigEMT).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2856	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2857
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2858	enableIOInterruptsOn:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2859	"turn on IO interrupts for a filedescriptor"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2860
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2861	self subclassResonsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2862	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2863
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2864	enableQuitInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2865	"enable quitInterrupt (usually ^\) handling, and make it a userInterrupt.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2866	(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	2867	end-user applications ...)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2868
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2869	self enableSignal:(self sigQUIT)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2870	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2871
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2872	enableSignal:signalNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2873	"enable (Unix-)signal processing for signalNumber.
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2874	Don't confuse Unix signals with smalltalk signals.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2875	The signal will be delivered to one of the standard handlers
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2876	(SIGINT, SIGQUIT, etc) or to a general handler, which
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2877	sends #signalInterrupt:.
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	NOTICE that signal numbers are not portable between unix
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2880	systems - use OperatingSystem sigXXX to get the numeric value for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2881	a signal."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2882
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2883	self subclassResponsibility
3576 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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2886	enableTimer:milliSeconds
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2887	"setup for a timerInterrupt, to be signalled after some (real) time."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2888
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2889	self subclassResonsibility
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	enableUserInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2893	"enable userInterrupt (^C) handling;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2894	when enabled, ^C in the terminal window will send the message
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2895	'userInterrupt' to the UserInterruptHandler object."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2896
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2897	self enableSignal:(self sigINT).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2898	self enableSignal:(self sigBREAK).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2899	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2900
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2901	interruptPending
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2902	"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	2903	invalid if interrupts are not currently blocked, since otherwise
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2904	the interrupt is usually already handled before arriving here,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2905	or may be served while returning from here."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2906
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2907	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2908	extern OBJ __INTERRUPTPENDING();
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2909
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2910	RETURN ( __INTERRUPTPENDING() );
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2911	%}
3576 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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2914	interruptsBlocked
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2915	"return true, if interrupt handling is currently disabled;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2916	false otherwise."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2917
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2918	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2919	extern OBJ __INTERRUPTS_BLOCKED();
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2920
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2921	RETURN ( __INTERRUPTS_BLOCKED() );
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	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2924
6536 bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2925	isFatalSignal:aNumber
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2926	"return true if a signal with number aNumber is a fatal signal,
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2927	i.e. some severe internal error occured"
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2928
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2929	^ self subclassResponsibility
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2930	!
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2931
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2932	killProcess:processId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2933	"kill an OS process.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2934	The process has a no chance to do some cleanup.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2935
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2936	WARNING: in order to avoid zombie processes (on unix),
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2937	you may have to fetch the processes exitstatus with
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2938	OperatingSystem>>getStatusOfProcess:aProcessId."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2939
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2940	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2941
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2942	"Modified: / 10.6.1998 / 12:00:07 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2943	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2944
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2945	killProcessGroup:processGroupId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2946	"kill an OS process group.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2947	The process has NO chance to do some cleanup.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2948
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2949	WARNING: in order to avoid zombie processes (on unix),
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2950	you may have to fetch the processes exitstatus with
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2951	OperatingSystem>>getStatusOfProcess:aProcessId."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2952
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2953	self subclassResponsibility
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	"Created: / 10.6.1998 / 12:00:26 / cg"
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	nameForSignal:aSignalNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2959	"for a given Unix signalnumber, return a descriptive string"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2960
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2961	aSignalNumber == self sigHUP ifTrue:[^ 'hangup'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2962	aSignalNumber == self sigINT ifTrue:[^ 'interrupt'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2963	aSignalNumber == self sigKILL ifTrue:[^ 'kill'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2964	aSignalNumber == self sigQUIT ifTrue:[^ 'quit'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2965	aSignalNumber == self sigILL ifTrue:[^ 'illegal instruction'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2966	aSignalNumber == self sigTRAP ifTrue:[^ 'trap'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2967	aSignalNumber == self sigABRT ifTrue:[^ 'abort'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2968	aSignalNumber == self sigIOT ifTrue:[^ 'iot trap'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2969	aSignalNumber == self sigEMT ifTrue:[^ 'emt trap'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2970	aSignalNumber == self sigFP ifTrue:[^ 'fp exception'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2971	aSignalNumber == self sigBUS ifTrue:[^ 'bus error'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2972	aSignalNumber == self sigSEGV ifTrue:[^ 'segmentation violation'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2973	aSignalNumber == self sigSYS ifTrue:[^ 'bad system call'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2974	aSignalNumber == self sigPIPE ifTrue:[^ 'broken pipe'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2975	aSignalNumber == self sigALRM ifTrue:[^ 'alarm timer'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2976	aSignalNumber == self sigTERM ifTrue:[^ 'termination'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2977	aSignalNumber == self sigSTOP ifTrue:[^ 'stop'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2978	aSignalNumber == self sigTSTP ifTrue:[^ 'tty stop'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2979	aSignalNumber == self sigCONT ifTrue:[^ 'continue'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2980	aSignalNumber == self sigCHLD ifTrue:[^ 'child death'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2981	aSignalNumber == self sigTTIN ifTrue:[^ 'background tty input'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2982	aSignalNumber == self sigTTOU ifTrue:[^ 'background tty output'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2983	aSignalNumber == self sigIO ifTrue:[^ 'io available'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2984	aSignalNumber == self sigXCPU ifTrue:[^ 'cpu time expired'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2985	aSignalNumber == self sigXFSZ ifTrue:[^ 'file size limit'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2986	aSignalNumber == self sigVTALRM ifTrue:[^ 'virtual alarm timer'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2987	aSignalNumber == self sigPROF ifTrue:[^ 'profiling timer'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2988	aSignalNumber == self sigWINCH ifTrue:[^ 'winsize changed'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2989	aSignalNumber == self sigLOST ifTrue:[^ 'resource lost'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2990	aSignalNumber == self sigUSR1 ifTrue:[^ 'user signal 1'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2991	aSignalNumber == self sigUSR2 ifTrue:[^ 'user signal 2'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2992	aSignalNumber == self sigMSG ifTrue:[^ 'HFT message'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2993	aSignalNumber == self sigPWR ifTrue:[^ 'power-fail'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2994	aSignalNumber == self sigPRE ifTrue:[^ 'programming exception'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2995	aSignalNumber == self sigGRANT ifTrue:[^ 'HFT access wanted'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2996	aSignalNumber == self sigRETRACT ifTrue:[^ 'HFT access relinquish'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2997	aSignalNumber == self sigSOUND ifTrue:[^ 'HFT sound complete'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2998	aSignalNumber == self sigDANGER ifTrue:[^ 'low on paging space'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2999
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3000	"notice: many systems map SIGPOLL and/or SIGUSR onto SIGIO
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3001	therefore, keep SIGIO always above the two below"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3002	aSignalNumber == self sigPOLL ifTrue:[^ 'io available'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3003	aSignalNumber == self sigURG ifTrue:[^ 'urgent'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3004
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3005	^ 'unknown signal'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3006
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3007	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3008	OperatingSystem nameForSignal:9
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3009	OperatingSystem nameForSignal:(OperatingSystem sigPOLL)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3010	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3011	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3012
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3013	operatingSystemSignal:signalNumber
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3014	"return the signal to be raised when an
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3015	operatingSystem-signal occurs, or nil"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3016
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3017	OSSignals notNil ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3018	^ OSSignals at:signalNumber ifAbsent:[nil]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3019	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3020	^ nil
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3021	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3022
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3023	operatingSystemSignal:signalNumber install:aSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3024	"install a signal to be raised when an operatingSystem-signal occurs"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3025
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3026	OSSignals isNil ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3027	OSSignals := Array new:32
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3028	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3029	OSSignals at:signalNumber put:aSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3030	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3031
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3032	sendSignal:signalNumber to:processId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3033	"send a unix signal to some process (maybe myself).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3034	Returns false if any error occurred, true otherwise.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3035
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	3036	Do not confuse UNIX signals with Smalltalk-Signals."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3037
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3038	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3039	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3040
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3041	startSpyTimer
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3042	"trigger a spyInterrupt, to be signalled after some short (virtual) time.
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	3043	Return true, if the spy-timerInterrupt was enabled.
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	3044	This was used by the old MessageTally for profiling.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3045	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	3046	(which is of course less correct).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3047	OBSOLETE: the new messageTally runs as a high prio process, not using
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3048	spy interrupts."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3049
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	3050	^ false
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3051	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3052
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3053	stopSpyTimer
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3054	"stop spy timing - disable spy timer.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3055	OBSOLETE: the new messageTally runs as a high prio process, not using
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3056	spy interrupts."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3057
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	3058	^ false
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3059	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3060
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3061	terminateProcess:processId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3062	"terminate a unix process.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3063	The process has a chance to do some cleanup.
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	WARNING: in order to avoid zombie processes (on unix),
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3066	you may have to fetch the processes exitstatus with
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3067	OperatingSystem>>getStatusOfProcess:aProcessId."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3068
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3069	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3070	!
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	terminateProcessGroup:processGroupId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3073	"terminate a unix process group.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3074	The process has a chance to do some cleanup.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3075
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3076	WARNING: in order to avoid zombie processes (on unix),
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3077	you may have to fetch the processes exitstatus with
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3078	OperatingSystem>>getStatusOfProcess:aProcessId."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3079
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3080	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3081	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3082
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3083	unblockInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3084	"enable interrupt processing - if any interrupts are pending,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3085	these will be handled immediately.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3086	When unblocking interrupts, take care of nested block/unblock
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3087	calls - you must only unblock after a blockcall if they where
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3088	really not blocked before. See OperatingSystemclass>>blockInterrupts."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3089	%{
8505 4456ffd20005 #unblockInterrupts returns the prvious blocking state Stefan Vogel <sv@exept.de> parents: 8497 diff changeset	3090	RETURN(__UNBLOCKINTERRUPTS());
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3091	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3092	! !
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	!AbstractOperatingSystem class methodsFor:'misc'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3095
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3096	closePid:pid
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3097	"free pid resource"
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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3100	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3101
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3102	exit
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3103	"shutdown smalltalk immediately - this method does not return.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3104	Return 'good'-status (0) to the parent unix process."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3105
5429 f4a52365fc97 checkin from browser Claus Gittinger <cg@exept.de> parents: 5407 diff changeset	3106	self exit:0.
f4a52365fc97 checkin from browser Claus Gittinger <cg@exept.de> parents: 5407 diff changeset	3107
8804 b7eefb374b37 spelling in comments Stefan Vogel <sv@exept.de> parents: 8801 diff changeset	3108	"OperatingSystem exit - don't evaluate this"
3576 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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3111	exit:exitCode
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3112	"shutdown smalltalk immediately -
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3113	returning an exit-code to the parent unix process."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3114
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3115	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3116	int code = 1;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3117
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3118	if (__isSmallInteger(exitCode)) {
8804 b7eefb374b37 spelling in comments Stefan Vogel <sv@exept.de> parents: 8801 diff changeset	3119	code = __intVal(exitCode);
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3120	}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3121	__mainExit(code);
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3122	%}
8804 b7eefb374b37 spelling in comments Stefan Vogel <sv@exept.de> parents: 8801 diff changeset	3123	"OperatingSystem exit:1 - don't evaluate this"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3124	!
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	exitWithCoreDump
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3127	"shutdown smalltalk immediately - dumping core.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3128	This always returns 'bad'-status to the parent unix process.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3129	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	3130	manually remove any tempfiles.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3131	Use this only for debugging ST/X itself"
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	%{ /* NOCONTEXT */
10293 9cd817cd6bc9 Declare abort() Stefan Vogel <sv@exept.de> parents: 10097 diff changeset	3134	extern void abort();
9cd817cd6bc9 Declare abort() Stefan Vogel <sv@exept.de> parents: 10097 diff changeset	3135
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3136	abort();
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3137	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3138	"
8804 b7eefb374b37 spelling in comments Stefan Vogel <sv@exept.de> parents: 8801 diff changeset	3139	OperatingSystem exitWithCoreDump - don't evaluate this
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3140	"
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3141	!
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3142
17834 04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	3143	getAllProcesses
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	3144	"get a list of the running OS processes.
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	3145	Some OperatingSystems (Windows) support this.
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	3146	The default is to answer an empty list."
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	3147
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	3148	^ #().
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	3149	!
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	3150
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3151	getVMSSymbol:aSymbolString
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3152	"get a symbols value, or nil if there is none"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3153
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3154	^ nil
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3155
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3156	"Created: / 5.6.1998 / 19:02:50 / cg"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3157	"Modified: / 5.6.1998 / 19:03:15 / cg"
11768 23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3158	!
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3159
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3160	playSound:fileName
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3161	"unsupported - simply stay silent"
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3162
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3163	^ self.
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3164	!
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3165
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3166	playSound:fileName mode:modeInteger
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3167	"unsupported - simply stay silent"
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3168
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3169	^ self.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3170	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3171
7289 ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3172	!AbstractOperatingSystem class methodsFor:'obsolete'!
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3173
8236 ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3174	baseNameOf:aPath
ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3175	<resource:#obsolete>
ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3176
ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3177	self obsoleteMethodWarning:'use asFilename baseName'.
ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3178	^ aPath asFilename baseName
7289 ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3179	! !
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3180
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3181	!AbstractOperatingSystem class methodsFor:'os queries'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3182
3806 37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3183	getCCDefine
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3184	"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	3185	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	3186	For example, on linux, this is '__GNUC__';
3806 37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3187	on windows, this is either '__MSC__' or '__BORLANDC__'"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3188
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3189	%{ /* NOCONTEXT */
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3190	#ifndef CC_DEFINE
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3191	# ifdef WIN32
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3192	# ifdef __BORLANDC__
3829 4690e0bc7ce7 added isWINDOWSNT query Claus Gittinger <cg@exept.de> parents: 3826 diff changeset	3193	# define CC_DEFINE "__BORLANDC__"
3806 37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3194	# else
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3195	# define CC_DEFINE "__MSC__"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3196	# endif
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3197	# else
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3198	# ifdef __GNUC__
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3199	# define CC_DEFINE "__GNUC__"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3200	# else
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3201	# define CC_DEFINE "__CC__"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3202	# endif
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3203	# endif
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3204	#endif
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3205	RETURN ( __MKSTRING(CC_DEFINE));
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3206	%}
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3207	"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3208	OperatingSystem getCCDefine
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3209	"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3210	!
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3211
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3212	getCPUDefine
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3213	"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	3214	compiled, and which should be passed down when compiling methods.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3215	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	3216	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	3217	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	3218
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3219	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3220	# ifndef CPU_DEFINE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3221	# define CPU_DEFINE "-DunknownCPU"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3222	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3223
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3224	RETURN ( __MKSTRING(CPU_DEFINE));
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3225	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3226	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3227	OperatingSystem getCPUDefine
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3228	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3229	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3230
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3231	getCPUType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3232	"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	3233	Here, the machine for which ST/X was compiled is returned
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3234	(i.e. for all x86's, the same i386 is returned).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3235	This may normally not be of any interest to you ..."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3236
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3237	\|cpu\|
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3238
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3239	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3240
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3241	# ifdef __vax__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3242	# define CPU_SYMBOL @symbol(vax)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3243	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3244	# ifdef __mips__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3245	# define CPU_SYMBOL @symbol(mips)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3246	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3247	# ifdef __i386__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3248	# define CPU_SYMBOL @symbol(i386)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3249	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3250	# ifdef __i860__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3251	# define CPU_SYMBOL @symbol(i860)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3252	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3253	# ifdef __ns32k__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3254	# define CPU_SYMBOL @symbol(ns32k)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3255	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3256	# ifdef __mc68k__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3257	# define CPU_SYMBOL @symbol(mc68k)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3258	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3259	# ifdef __mc88k__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3260	# define CPU_SYMBOL @symbol(mc88k)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3261	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3262	# ifdef __sparc__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3263	# define CPU_SYMBOL @symbol(sparc)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3264	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3265	# ifdef __hppa__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3266	# define CPU_SYMBOL @symbol(hppa)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3267	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3268	# ifdef __rs6000__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3269	# define CPU_SYMBOL @symbol(rs6000)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3270	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3271	# ifdef __powerPC__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3272	# define CPU_SYMBOL @symbol(powerPC)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3273	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3274	# ifdef __alpha__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3275	# define CPU_SYMBOL @symbol(alpha)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3276	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3277	# ifdef __transputer__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3278	# define CPU_SYMBOL @symbol(transputer)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3279	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3280	# ifdef __ibm370__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3281	# define CPU_SYMBOL @symbol(ibm370)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3282	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3283	# ifdef __s390__
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3284	# define CPU_SYMBOL @symbol(s390)
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3285	# endif
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3286	# ifdef __arm__
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3287	# define CPU_SYMBOL @symbol(arm)
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3288	# endif
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3289	# ifdef __ia64__
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3290	# define CPU_SYMBOL @symbol(ia64)
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3291	# endif
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3292
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3293	# ifndef CPU_SYMBOL
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3294	# define CPU_SYMBOL @symbol(unknown)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3295	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3296
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3297	cpu = CPU_SYMBOL;
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3298	# undef CPU_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3299	%}.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3300	^ cpu
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3301
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3302	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3303	OperatingSystem getCPUType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3304	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3305
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3306	"examples: are we running on a ss-10/solaris ?"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3307	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3308	(OperatingSystem getCPUType = 'sparc')
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3309	and:[OperatingSystem getOSType = 'solaris']
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3310	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3311
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3312	"or on a pc/solaris ?"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3313	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3314	(OperatingSystem getCPUType = 'i386')
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3315	and:[OperatingSystem getOSType = 'solaris']
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3316	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3317	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3318
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3319	getDomainName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3320	"return the domain this host is in.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3321	Notice:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3322	not all systems support this; on some, 'unknown' is returned."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3323
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3324	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3325	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3326
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3327	getEnvironment:aStringOrSymbol
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3328	"get an environment string"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3329
5407 d6729266a95b * empty log message * Claus Gittinger <cg@exept.de> parents: 5172 diff changeset	3330	^ self subclassResponsibility
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3331	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3332
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3333	getHostName
17795 569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	3334	"return the hostname we are running on -
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	3335	a fully qalified hostname at best.
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	3336
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3337	Notice:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3338	not all systems support this; on some, 'unknown' is returned."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3339
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3340	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3341	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3342
7778 cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3343	getLanguage
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3344	"get the LANGUAGE setting (example: de_DE.iso8859-15@euro)"
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3345
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3346	^ self getEnvironment:'LANG'.
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3347	!
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3348
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3349	getLocaleInfo
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3350	"return a dictionary filled with values from the locale information;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3351	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	3352	Possible fields are:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3353	decimalPoint <String>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3354
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3355	thousandsSep <String>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3356
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3357	internationalCurrencySymbol <String>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3358
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3359	currencySymbol <String>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3360
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3361	monetaryDecimalPoint <String>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3362
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3363	monetaryThousandsSeparator <String>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3364
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3365	positiveSign <String>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3366
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3367	negativeSign <String>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3368
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3369	internationalFractionalDigits <Integer>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3370
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3371	fractionalDigits <Integer>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3372
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3373	positiveSignPrecedesCurrencySymbol <Boolean>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3374
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3375	negativeSignPrecedesCurrencySymbol <Boolean>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3376
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3377	positiveSignSeparatedBySpaceFromCurrencySymbol <Boolean>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3378
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3379	negativeSignSeparatedBySpaceFromCurrencySymbol <Boolean>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3380
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3381	positiveSignPosition <Symbol>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3382	one of: #parenthesesAround,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3383	#signPrecedes,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3384	#signSuceeds,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3385	#signPrecedesCurrencySymbol,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3386	#signSuceedsCurrencySymbol
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3387
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3388	negativeSignPosition <like above>
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3389
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3390	it is up to the application to deal with undefined values.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3391
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3392	Notice, that (for now), the system does not use this information;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3393	it should be used by applications as required.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3394	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3395
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3396	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3397	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3398
8997 e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3399	getNetworkAddresses
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3400	"return a dictionary with key:name of interface and
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3401	value:the network address for each interface"
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3402
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3403	self subclassResponsibility
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3404	!
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3405
7289 ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3406	getNetworkMACAddresses
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3407	"return a dictionary with key:name of interface and
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3408	value:the MAC adress for each interface"
6363 4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3409
4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3410	self subclassResponsibility
4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3411	!
4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3412
7289 ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3413	getNetworkMACAddressesForIf:ifName
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3414	"return the MAC adress for interface ifName"
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3415
8641 1b45626f0e50 noMacAddress fallBack (NT4.0) Claus Gittinger <cg@exept.de> parents: 8587 diff changeset	3416	self getNetworkMACAddresses at:ifName ifAbsent:nil
1b45626f0e50 noMacAddress fallBack (NT4.0) Claus Gittinger <cg@exept.de> parents: 8587 diff changeset	3417
1b45626f0e50 noMacAddress fallBack (NT4.0) Claus Gittinger <cg@exept.de> parents: 8587 diff changeset	3418	"Modified: / 17-11-2004 / 01:43:35 / cg"
6363 4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3419	!
4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3420
10684 b5ca16223480 * empty log message * sr parents: 10545 diff changeset	3421	getNumberOfProcessors
17746 2c33aabf3828 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17742 diff changeset	3422	"answer the number of physical processors in the system"
2c33aabf3828 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17742 diff changeset	3423
10684 b5ca16223480 * empty log message * sr parents: 10545 diff changeset	3424	self subclassResponsibility
b5ca16223480 * empty log message * sr parents: 10545 diff changeset	3425	!
b5ca16223480 * empty log message * sr parents: 10545 diff changeset	3426
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3427	getOSDefine
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3428	"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	3429	compiled, and which should be passed down when compiling methods.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3430	For example, on linux, this is '-DLINUX'."
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	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3433
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3434	#ifndef OS_DEFINE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3435	# ifdef WIN32
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3436	# define OS_DEFINE "-DWIN32"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3437	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3438
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3439	# ifndef OS_DEFINE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3440	# define OS_DEFINE "-DunknownOS"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3441	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3442	#endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3443
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3444	RETURN ( __MKSTRING(OS_DEFINE));
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3445
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3446	#undef OS_DEFINE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3447	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3448	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3449	OperatingSystem getOSDefine
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3450	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3451	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3452
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3453	getOSType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3454	"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	3455	This can be used to adapt programs to certain environment
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3456	differences (for example: mail-lock strategy ...)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3457
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3458	\|os\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3459
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3460	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3461
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3462	# ifdef MSDOS
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3463	# define OS_SYMBOL @symbol(msdos)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3464	# endif
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	# ifdef WIN32
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3467	# define OS_SYMBOL @symbol(win32)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3468	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3469
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3470	# ifdef MSWINDOWS
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3471	# define OS_SYMBOL @symbol(mswindows)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3472	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3473
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3474	# ifdef VMS
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3475	# ifdef __openVMS__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3476	# define OS_SYMBOL @symbol(openVMS)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3477	# else
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3478	# define OS_SYMBOL @symbol(VMS)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3479	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3480	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3481
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3482	# ifdef MVS /* ;-) */
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3483	# define OS_SYMBOL @symbol(mvs)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3484	# endif
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	# ifdef OS2
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3487	# define OS_SYMBOL @symbol(os2)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3488	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3489
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3490	# ifdef sinix
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3491	# define OS_SYMBOL @symbol(sinix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3492	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3493
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3494	# ifdef ultrix
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3495	# define OS_SYMBOL @symbol(ultrix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3496	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3497
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3498	# ifdef sco
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3499	# define OS_SYMBOL @symbol(sco)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3500	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3501
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3502	# ifdef hpux
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3503	# define OS_SYMBOL @symbol(hpux)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3504	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3505
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3506	# ifdef LINUX
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3507	# define OS_SYMBOL @symbol(linux)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3508	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3509
6651 4bc133e27717 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	3510	# ifdef FREEBSD
4bc133e27717 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	3511	# define OS_SYMBOL @symbol(freeBSD)
4bc133e27717 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	3512	# endif
4bc133e27717 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	3513
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3514	# ifdef sunos
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3515	# define OS_SYMBOL @symbol(sunos)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3516	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3517
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3518	# ifdef solaris
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3519	# define OS_SYMBOL @symbol(solaris)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3520	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3521
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3522	# ifdef IRIS
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3523	# define OS_SYMBOL @symbol(irix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3524	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3525
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3526	# ifdef aix
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3527	# define OS_SYMBOL @symbol(aix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3528	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3529
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3530	# ifdef realIX
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3531	# define OS_SYMBOL @symbol(realIX)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3532	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3533
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3534	# ifdef __osf__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3535	# define OS_SYMBOL @symbol(osf)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3536	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3537
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3538	/*
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3539	* no concrete info; become somewhat vague ...
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3540	*/
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3541	# ifndef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3542	# ifdef MACH
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3543	# define OS_SYMBOL @symbol(mach)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3544	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3545	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3546
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3547	# ifndef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3548	# ifdef BSD
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3549	# define OS_SYMBOL @symbol(bsd)
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 SYSV
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3553	# ifdef SYSV3
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3554	# define OS_SYMBOL @symbol(sys5_3)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3555	# else
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3556	# ifdef SYSV4
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3557	# define OS_SYMBOL @symbol(sys5_4)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3558	# else
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3559	# define OS_SYMBOL @symbol(sys5)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3560	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3561	# endif
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	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3564
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3565	/*
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3566	* become very vague ...
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3567	*/
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3568	# ifndef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3569	# ifdef POSIX
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3570	# define OS_SYMBOL @symbol(posix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3571	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3572	# endif
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3573	# ifndef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3574	# ifdef UNIX
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3575	# define OS_SYMBOL @symbol(unix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3576	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3577	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3578
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3579	# ifndef OS_SYMBOL
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3580	# define OS_SYMBOL @symbol(unknown)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3581	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3582
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3583	os = OS_SYMBOL;
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3584
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3585	# undef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3586	%}.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3587	^ os
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3588
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3589	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3590	OperatingSystem getOSType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3591	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3592	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3593
9698 e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3594	getPlatformDefine
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3595	"return a string which defines the platform,
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3596	and which should be passed down when compiling methods.
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3597	For example, on all unices, this is '-DUNIX'."
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3598
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3599	%{ /* NOCONTEXT */
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3600
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3601	#ifndef PLATFORM_DEFINE
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3602	# ifdef WIN32
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3603	# define PLATFORM_DEFINE "-DWIN32"
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3604	# endif
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3605	# ifdef OS2
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3606	# define PLATFORM_DEFINE "-DOS2"
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3607	# endif
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3608	# ifdef BEOS
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3609	# define PLATFORM_DEFINE "-DBEOS"
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3610	# endif
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3611	# ifdef MACOS
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3612	# define PLATFORM_DEFINE "-DMACOS"
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3613	# endif
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3614	# ifdef VMS
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3615	# define PLATFORM_DEFINE "-DVMS"
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3616	# endif
9698 e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3617	# ifndef PLATFORM_DEFINE
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3618	# define PLATFORM_DEFINE "-DUNIX"
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3619	# endif
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3620	#endif
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3621
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3622	RETURN ( __MKSTRING(PLATFORM_DEFINE));
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3623	%}
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3624	"
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3625	OperatingSystem getPlatformDefine
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3626	"
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3627	!
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3628
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3629	getProcessId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3630	"return the (unix-)processId"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3631
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3632	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3633	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3634
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3635	getSystemID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3636	"if supported by the OS, return the systemID;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3637	a unique per machine identification.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3638	WARNING:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3639	not all systems support this; on some, 'unknown' is returned."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3640
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3641	^ 'unknown'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3642
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3643	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3644	OperatingSystem getSystemID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3645	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3646	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3647
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3648	getSystemInfo
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3649	"return info on the system weare running on.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3650	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	3651	otherwise, some simulated info is returned.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3652
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3653	WARNING:
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3654	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	3655	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	3656	OS, for example, linux returns 'ix86', while WIN32 returns 'x86'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3657
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3658	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	3659	information.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3660	(in case of system/version specific OS errors, conditional workarounds and patches
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3661	may be based upon this info).
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3662	Your application should NOT depend upon this in any way.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3663
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3664	The returned info may (or may not) contain:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3665	#system -> some operating system identification (irix, Linux, nt, win32s ...)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3666	#version -> OS version (some os version identification)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3667	#release -> OS release (3.5, 1.2.1 ...)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3668	#node -> some host identification (hostname)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3669	#domain -> domain name (hosts domain)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3670	#machine -> type of machine (i586, mips ...)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3671	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3672
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3673	\|info\|
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	info := IdentityDictionary new.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3676	info at:#system put:(self getSystemType).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3677	info at:#node put:(self getHostName).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3678	info at:#machine put:(self getCPUType).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3679	info at:#architecture put:'unknown'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3680	info at:#domain put:self getDomainName.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3681	info at:#osType put:(self getOSType).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3682	^ info
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3683
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3684	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3685	OperatingSystem getSystemInfo
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3686	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3687	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3688
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3689	getSystemType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3690	"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	3691	This is almost the same as getOSType, but the returned string
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3692	is slightly different for some systems (i.e. iris vs. irix).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3693	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	3694	here ...
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3695	(except for slight differences between next/mach and other machs)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3696
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3697	^ self getOSType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3698
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3699	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3700	OperatingSystem getSystemType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3701	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3702	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3703
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3704	getWindowsDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3705	"internal interface - only for Windows based systems.
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3706	Return the windows directory, which, depending on the system,
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3707	may be
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3708	'\WINNT', '\WINDOWS'
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3709	or whatever.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3710	On non-windows systems, nil is returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3711
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3712	^ nil
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3713
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3714	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3715	OperatingSystem getWindowsDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3716	"
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	getWindowsSystemDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3720	"internal interface - only for Windows based systems.
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3721	Return the windows system directory, which, depending on the system,
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3722	may be
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3723	'\WINNT\SYSTEM32', '\WINDOWS\SYSTEM'
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3724	or whatever.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3725	On non-windows systems, nil is returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3726
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3727	^ nil
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3728
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3729	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3730	OperatingSystem getWindowsSystemDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3731	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3732	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3733
4207 89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3734	hasConsole
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3735	"return true, if there is some kind of console available
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3736	(i.e. for proper stdIn, stdOut and stdErr handling).
5918 0d8bc97e7106 * empty log message * Claus Gittinger <cg@exept.de> parents: 5861 diff changeset	3737	This only returns false when running under windows, and
4207 89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3738	the system is running as a pure windows application.
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3739	If false, the miniDebugger is useless and not used."
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3740
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3741	^ true
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3742	!
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3743
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3744	isBSDlike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3745	"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	3746
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3747	^ false
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3750	isMAClike
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3751	"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	3752
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3753	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3754	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3755
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3756	isMSDOSlike
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3757	"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	3758	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	3759
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3760	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3761	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3762
3901 3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3763	isMSWINDOWSNTlike
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3764	"This returns true if running in a Windows-NT system."
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3765
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3766	^ false.
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3767	!
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3768
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3769	isMSWINDOWSlike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3770	"return true, if running on a MS-Windows like system.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3771	This returns true for any of win32s, win95 and winNT."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3772
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3773	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3774	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3775
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3776	isOS2like
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3777	"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	3778	Only returns true for a plain OS/2 system."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3779
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3780	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3781	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3782
17746 2c33aabf3828 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17742 diff changeset	3783	isProcessIdPresent:pid
2c33aabf3828 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17742 diff changeset	3784	"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	3785	Raise an error, if an exception occures"
2c33aabf3828 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17742 diff changeset	3786
2c33aabf3828 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17742 diff changeset	3787	^ self subclassResponsibility
2c33aabf3828 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17742 diff changeset	3788	!
2c33aabf3828 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17742 diff changeset	3789
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3790	isUNIXlike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3791	"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	3792
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3793	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3794	!
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	isVMSlike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3797	"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	3798
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3799	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3800	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3801
9697 d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3802	knownPlatformNames
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3803	"return a collection of strings as possibly returned by getPlatformName.
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3804	Should be used instead of getOSType or getSystemType if multiple choice
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3805	dialogs are presented to the user."
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3806
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3807	^#(
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3808	win32
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3809	os2 "/ actually - this is no longer true
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3810	macos "/ actually - this is no longer true
9697 d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3811	vms "/ actually - this is no longer true
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3812	beos "/ actually - this was never true
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3813	unix
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3814	)
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3815
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3816	"
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3817	OperatingSystem knownPlatformNames
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3818	OperatingSystem platformName
9698 e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3819	OperatingSystem getPlatformDefine
9697 d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3820	"
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3821
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3822	"Modified: 20.6.1997 / 17:37:26 / cg"
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3823	!
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3824
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3825	maxFileNameLength
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3826	"return the max number of characters in a filename.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3827	CAVEAT:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3828	Actually, the following is somewhat wrong - some systems
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3829	support different sizes, depending on the volume.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3830	We return a somewhat conservative number here.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3831	Another entry, to query for volume specific max
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3832	will be added in the future."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3833
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3834	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3835	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3836
6578 e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3837	maxNumberOfOpenFiles
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3838	"answer the maximum number of open files for this process"
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3839
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3840	^ self subclassResponsibility
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3841	!
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3842
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3843	maxPathLength
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3844	"return the max number of characters in a pathName."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3845
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3846	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3847	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3848
17847 62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3849	osName
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3850	"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	3851	This returns #unix for all unix derivatives.
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3852	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	3853
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3854	\|info\|
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3855
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3856	info := self getSystemInfo.
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3857	^ ((info at:#system) ? '?')
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3858	,
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3859	((info at:#version) ? '?')
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3860
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3861	"
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3862	OperatingSystem getSystemInfo
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3863	OperatingSystem osName
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3864	"
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3865
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3866	"Modified: / 20-06-1997 / 17:37:26 / cg"
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3867	"Created: / 05-08-2011 / 18:18:53 / cg"
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3868	!
62aa54f44969 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	3869
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3870	pathSeparator
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3871	"return the character which separates items in the PATH variable"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3872
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3873	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3874	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3875
9700 abcbfeb235b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9699 diff changeset	3876	platformDefineForPlatformName:osID
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3877	"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	3878
17735 6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	3879	osID = #win32 ifTrue:[ ^ '-DWIN32'].
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	3880	osID = #os2 ifTrue:[ ^ '-DOS2'].
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	3881	osID = #macos ifTrue:[ ^ '-DMACOS'].
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	3882	osID = #beos ifTrue:[ ^ '-DBEOS'].
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	3883	osID = #vms ifTrue:[ ^ '-DVMS'].
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	3884	osID = #unix ifTrue:[ ^ '-DUNIX'].
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3885	self error:'unknown os'.
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3886
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3887	"
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3888	OperatingSystem platformDefineForName:(OperatingSystem platformName)
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3889	"
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3890
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3891	"Modified: 20.6.1997 / 17:37:26 / cg"
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3892	!
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3893
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3894	platformName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3895	"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	3896	This returns #unix for all unix derivatives.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3897	I.e. it is much less specific than getOSType or getSystemType."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3898
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3899	\|os\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3900
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3901	os := self getSystemType.
11170 ced52c04b215 #platformName - answer symbols Stefan Vogel <sv@exept.de> parents: 11166 diff changeset	3902	os = #win32 ifTrue:[ ^ #win32].
ced52c04b215 #platformName - answer symbols Stefan Vogel <sv@exept.de> parents: 11166 diff changeset	3903	os = #os2 ifTrue:[ ^ #os2].
ced52c04b215 #platformName - answer symbols Stefan Vogel <sv@exept.de> parents: 11166 diff changeset	3904	os = #macos ifTrue:[ ^ #macos].
ced52c04b215 #platformName - answer symbols Stefan Vogel <sv@exept.de> parents: 11166 diff changeset	3905	os = #VMS ifTrue:[ ^ #vms].
ced52c04b215 #platformName - answer symbols Stefan Vogel <sv@exept.de> parents: 11166 diff changeset	3906	os = #openVMS ifTrue:[ ^ #vms].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3907	^ #unix
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	"
9697 d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3910	OperatingSystem knownPlatformNames
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3911	OperatingSystem platformName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3912	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3913
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3914	"Modified: 20.6.1997 / 17:37:26 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3915	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3916
17757 73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3917	randomBytesInto:bufferOrInteger
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3918	"If bufferOrInteger is a String or a ByteArray,
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3919	fill a given buffer with random bytes from the RtlGenRandom function
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3920	and nswer the buffer.
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3921
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3922	If bufferOrInteger is a SmallInteger,
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3923	return this many bytes (max 4) as a SmallInteger.
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3924
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3925	Return nil on error (may raise PrimitiveFailure, too).
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3926
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3927	NOTE: This is a private interface, please use RandomGenerator!!
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3928
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3929	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	3930
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3931	^ nil "not implemented"
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3932	!
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	3933
17742 3fef0ed4c2d5 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17735 diff changeset	3934	setEnvironment:aStringOrSymbol to:newValueString
3fef0ed4c2d5 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17735 diff changeset	3935	"set an environment variable"
3fef0ed4c2d5 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17735 diff changeset	3936
3fef0ed4c2d5 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17735 diff changeset	3937	^ self subclassResponsibility
3fef0ed4c2d5 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17735 diff changeset	3938	!
3fef0ed4c2d5 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17735 diff changeset	3939
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3940	setLocaleInfo:anInfoDictionary
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3941	"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	3942	(internal in ST/X only - the OS's settings remain unaffected)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3943	See description of fields in #getLocaleInfo.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3944
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3945	Notice, that (for now), the system does not use this information;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3946	it should be used by applications as required."
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	LocaleInfo := anInfoDictionary
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	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3951	\|d\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3952
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3953	d := IdentityDictionary new.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3954	d at:#decimalPoint put:'.' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3955	d at:#thousandsSeparator put:',' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3956	d at:#currencySymbol put:'USD' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3957	d at:#monetaryDecimalPoint put:'.' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3958	d at:#monetaryThousandsSeparator put:'.' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3959	d at:#fractionalDigits put:2 .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3960	d at:#positiveSign put:'+' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3961	d at:#negativeSign put:'-' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3962	d at:#positiveSignPrecedesCurrencySymbol put:true .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3963	d at:#negativeSignPrecedesCurrencySymbol put:false .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3964	OperatingSystem setLocaleInfo:d
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3965	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3966	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3967
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3968	supportsChildInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3969	"return true, if the OS supports childProcess termination signalling
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3970	through interrupts (i.e. SIGCHILD)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3971
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3972	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3973
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3974	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3975	OperatingSystem supportsChildInterrupts
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3976	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3977	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3978
3826 ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3979	supportsFileOwnerGroups
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3980	"return true, if the OS's file system supports file
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3981	group ownership - here, we are optimistic assuming that
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3982	we are running under a real OS.
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3983	Redefined in Win32OS to return false."
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3984
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3985	^ true
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3986
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3987	"Modified: / 10.9.1998 / 17:48:20 / cg"
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3988	"Created: / 10.9.1998 / 17:56:28 / cg"
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3989	!
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3990
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3991	supportsFileOwners
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3992	"return true, if the OS's file system supports file
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3993	ownership - here, we are optimistic assuming that
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3994	we are running under a real OS.
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3995	Redefined in Win32OS to return false."
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3996
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3997	^ true
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3998
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3999	"Modified: / 10.9.1998 / 17:48:20 / cg"
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4000	"Created: / 10.9.1998 / 17:56:11 / cg"
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4001	!
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	4002
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4003	supportsIOInterrupts
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4004	"return true, if the OS supports IO availability interrupts
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4005	(i.e. SIGPOLL/SIGIO)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4006
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4007	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4008
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4009	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4010	OperatingSystem supportsIOInterrupts
3576 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	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4013
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4014	supportsNonBlockingIO
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4015	"return true, if the OS supports nonblocking IO."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4016
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4017	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4018
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4019	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4020	OperatingSystem supportsNonBlockingIO
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4021	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4022	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4023
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4024	supportsSelect
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4025	"return true, if the OS supports selecting on multiple
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4026	filedescriptors via select.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4027	If false is returned, ProcessorScheduler will poll in 50ms
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4028	intervals for I/O becoming ready."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4029
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4030	^ true
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4031
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4032	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4033	OperatingSystem supportsSelect
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4034	"
3901 3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4035	!
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4036
5099 bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4037	supportsSelectOnPipes
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4038	"return true, if the OS supports selecting on pipe
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4039	filedescriptors via select.
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4040	If false is returned, ProcessorScheduler will poll in 50ms
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4041	intervals for I/O becoming ready."
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4042
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4043	^ true
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4044
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4045	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4046	OperatingSystem supportsSelectOnPipes
5099 bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4047	"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4048
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4049	"Modified: / 14.12.1999 / 19:40:32 / cg"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4050	"Created: / 14.12.1999 / 19:43:43 / cg"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4051	!
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4052
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4053	supportsSelectOnSockets
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4054	"return true, if the OS supports selecting on socket
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4055	filedescriptors via select.
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4056	If false is returned, ProcessorScheduler will poll in 50ms
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4057	intervals for I/O becoming ready."
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4058
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4059	^ true
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4060
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4061	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4062	OperatingSystem supportsSelectOnSockets
5099 bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4063	"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4064
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4065	"Modified: / 14.12.1999 / 19:40:32 / cg"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4066	!
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	4067
3901 3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4068	supportsVolumes
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4069	"return true, if the OS supports disk volumes.
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4070	False is returned for UNIX, true for MSDOS and VMS"
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4071
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4072	^ false
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4073
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4074	"Created: / 29.10.1998 / 13:20:37 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4075	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4076
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4077	!AbstractOperatingSystem class methodsFor:'path queries'!
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4078
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4079	defaultPackagePath
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4080	"return a default packagePath - thats a collection of
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4081	dirnames, where ST/X searches for its package subdirs.
5159 ca0524ab2576 defaultPackagePath initialization fixed Claus Gittinger <cg@exept.de> parents: 5148 diff changeset	4082	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	4083	OS-specific directory names."
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4084
17834 04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4085	\|packagePath dirName homeDirName priv userPrivateSTXDir appDirName appDir topDirName\|
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4086
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4087	"
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4088	the path is set to search files first locally
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4089	- this allows private stuff to override global stuff
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4090	"
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4091	packagePath := OrderedCollection new.
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4092
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4093	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4094	"/ the current (default) directory:
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4095	"/ ./packages
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4096	"/
17807 06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	4097	packagePath add:('.' "Filename currentDirectory pathName").
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4098
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4099	"/
17834 04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4100	"/ the executable's directory:
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4101	"/ (/opt/stx/bin/stx -> /opt/stx/bin)
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4102	"/
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4103	appDirName := self pathOfSTXExecutable asFilename directory.
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4104	(packagePath includes:appDirName) ifFalse:[
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4105	packagePath add:appDirName.
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4106	].
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4107
04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4108	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4109	"/ 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	4110	"/ (/opt/stx/bin/stx -> /opt/stx/packages)
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4111	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4112	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	4113	dirName := appDir pathName.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4114	(packagePath includes:dirName) ifFalse:[
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4115	packagePath add:dirName.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4116	].
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4117
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4118	homeDirName := OperatingSystem getHomeDirectory.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4119	homeDirName notNil ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4120	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4121	"/ a users private smalltalk directory in its home (login) directory:
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4122	"/ $HOME/.smalltalk/packages or $HOME\smalltalk\packages
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4123	"/
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4124	OperatingSystem isUNIXlike ifTrue:[
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4125	priv := '.smalltalk'.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4126	] ifFalse:[
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4127	priv := 'smalltalk'.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4128	].
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4129	userPrivateSTXDir := homeDirName asFilename / priv.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4130	(userPrivateSTXDir isDirectory) ifTrue:[
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4131	dirName := userPrivateSTXDir pathName.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4132	(packagePath includes:dirName) ifFalse:[
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4133	packagePath add:dirName
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4134	]
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4135	].
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4136	].
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4137
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4138	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4139	"/ 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	4140	"/ $STX_TOPDIR/packages
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4141	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4142	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	4143	topDirName notNil ifTrue:[
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4144	(packagePath includes:topDirName) ifFalse:[
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4145	packagePath add:topDirName
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4146	].
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4147	].
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4148
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4149	packagePath := packagePath select:[:each \| (each asFilename / 'packages') exists]
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4150	thenCollect:[:each \| (each asFilename constructString:'packages')].
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4151
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4152	"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4153	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	4154	"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4155	(dirName := OperatingSystem getEnvironment:'STX_PACKAGEPATH') notNil ifTrue:[
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4156	dirName := dirName asCollectionOfSubstringsSeparatedBy:$:.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4157	dirName reverseDo:[:eachDirectoryName\|
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4158	(packagePath includes:eachDirectoryName) ifFalse:[
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4159	packagePath addFirst:eachDirectoryName.
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4160	].
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4161	].
5654 96a2142a2c04 Use for packagePath Stefan Vogel <sv@exept.de> parents: 5646 diff changeset	4162	].
96a2142a2c04 Use for packagePath Stefan Vogel <sv@exept.de> parents: 5646 diff changeset	4163
17814 b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4164	"maybe the sources are kept in a central place..."
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4165	(appDir / 'source') isDirectory ifTrue:[
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4166	packagePath add:(appDir / 'source') pathName.
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4167	].
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4168
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4169	"maybe we are running in the build environment: XXX/stx /projects /smalltalk
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4170	or: XXX/exept /expecco /application
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4171	- 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	4172
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4173	topDirName isNil ifTrue:[
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4174	"appdir is now: projects"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4175	appDir := appDir directory directory.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4176	(appDir / 'stx' / 'libbasic') isDirectory ifTrue:[
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4177	packagePath add:appDir pathName.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4178	].
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4179	].
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4180
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4181	^ packagePath
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4182
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4183	"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4184	OperatingSystem defaultPackagePath
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4185	"
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4186
17834 04ff72c5039a Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17815 diff changeset	4187	"Modified: / 04-02-2011 / 16:27:15 / cg"
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4188	!
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4189
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4190	defaultSystemPath
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4191	"return a default systemPath - thats a collection of
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4192	dirnames, where ST/X searches for its files.
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4193	This method is redefined in concrete OS's to add
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4194	OS-specific directory names."
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4195
17754 5322906cdb6a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17746 diff changeset	4196	\|sysPath p appDir homePath priv userPrivateSTXDir appPath\|
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4197
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4198	"
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4199	the path is set to search files first locally
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4200	- this allows private stuff to override global stuff
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4201	"
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4202	sysPath := OrderedCollection new.
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4203
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4204	"/
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4205	"/ the current (default) directory
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4206	"/
17807 06cc6c49e291 merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17795 diff changeset	4207	sysPath add:('.' "Filename currentDirectory pathName").
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4208
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4209	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4210	"/ the executable's directory
17814 b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4211	"/ 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	4212	"/
17754 5322906cdb6a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17746 diff changeset	4213	appPath := self pathOfSTXExecutable.
5322906cdb6a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17746 diff changeset	4214	appPath notNil ifTrue:[
17814 b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4215	appDir := appPath asFilename directory.
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4216	appPath := appDir pathName.
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4217	(sysPath includes:appPath) ifFalse:[
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4218	sysPath add:appPath.
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4219	].
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4220	appDir baseName = 'bin' ifTrue:[
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4221	appPath := appDir directory pathName.
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4222	(sysPath includes:appPath) ifFalse:[
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4223	sysPath add:appPath.
b75a7f0c346b Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17807 diff changeset	4224	].
17754 5322906cdb6a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17746 diff changeset	4225	].
9021 6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4226	].
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4227
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4228	"/
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4229	"/ the users home (login) directory
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4230	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4231	homePath := self getHomeDirectory.
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4232	homePath notNil ifTrue:[
9014 f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4233	"/
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4234	"/ a users private smalltalk directory in its home (login) directory
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4235	"/
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4236	OperatingSystem isUNIXlike ifTrue:[
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4237	priv := '.smalltalk'.
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4238	] ifFalse:[
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4239	priv := 'smalltalk'.
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4240	].
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4241	userPrivateSTXDir := homePath asFilename construct:priv.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4242	(userPrivateSTXDir isDirectory) ifTrue:[
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4243	userPrivateSTXDir := userPrivateSTXDir pathName.
9014 f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4244	(sysPath includes:userPrivateSTXDir) ifFalse:[
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4245	sysPath add:userPrivateSTXDir
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4246	]
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4247	].
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4248	].
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4249
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4250	"/
5036 a967da9d41ac checkin from browser Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	4251	"/ SMALLTALK_LIBDIR, STX_LIBDIR and STX_TOPDIR from the environment
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4252	"/
9014 f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4253	#(
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4254	'SMALLTALK_LIBDIR'
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4255	'STX_LIBDIR'
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4256	'STX_TOPDIR'
5646 5dfccce8e880 no longer automatically add the home-dir to the systemPath Claus Gittinger <cg@exept.de> parents: 5486 diff changeset	4257	) do:[:each \|
9014 f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4258	p := OperatingSystem getEnvironment:each.
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4259	p notNil ifTrue:[
9021 6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4260	p := p asFilename pathName.
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4261	(p asFilename isDirectory) ifTrue:[
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4262	(sysPath includes:p) ifFalse:[
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4263	sysPath add:p
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4264	]
9014 f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4265	]
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4266	].
5036 a967da9d41ac checkin from browser Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	4267	].
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4268	^ sysPath
5148 1a4b6b99888d * empty log message * Claus Gittinger <cg@exept.de> parents: 5143 diff changeset	4269
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4270	"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4271	OperatingSystem defaultSystemPath
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4272	"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4273
5148 1a4b6b99888d * empty log message * Claus Gittinger <cg@exept.de> parents: 5143 diff changeset	4274	"Modified: / 24.12.1999 / 00:30:27 / cg"
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4275	! !
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4276
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	4277	!AbstractOperatingSystem class methodsFor:'printing support'!
d8547710430c printer stuff fm parents: 9380 diff changeset	4278
d8547710430c printer stuff fm parents: 9380 diff changeset	4279	getPrinters
d8547710430c printer stuff fm parents: 9380 diff changeset	4280	"return a collection of PrinterInfos"
d8547710430c printer stuff fm parents: 9380 diff changeset	4281
d8547710430c printer stuff fm parents: 9380 diff changeset	4282	self subclassResponsibility
d8547710430c printer stuff fm parents: 9380 diff changeset	4283
d8547710430c printer stuff fm parents: 9380 diff changeset	4284	"Created: / 27-07-2006 / 12:17:31 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	4285	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	4286
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4287	!AbstractOperatingSystem class methodsFor:'private'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4288
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4289	osProcessStatusClass
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4290	^ self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4291
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4292	"Created: / 12.6.1998 / 16:30:29 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4293	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4294
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	4295	!AbstractOperatingSystem class methodsFor:'queries-sockets'!
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4296
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4297	domainCodeOf:aSymbolOrInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4298	"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	4299	Return nil for invalid or unsupported domains.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4300	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	4301	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	4302
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4303	\|domainCode\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4304
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4305	%{ /NOCONTEXT/
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4306
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4307	if (__isSmallInteger(aSymbolOrInteger) \|\| aSymbolOrInteger == nil) {
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4308	RETURN (aSymbolOrInteger);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4309	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4310
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4311	#ifdef AF_INET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4312	else if ((aSymbolOrInteger == @symbol(AF_INET)) \|\| (aSymbolOrInteger == @symbol(inet)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4313	domainCode = __mkSmallInteger(AF_INET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4314	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4315	#ifdef AF_INET6
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4316	else if ((aSymbolOrInteger == @symbol(AF_INET6)) \|\| (aSymbolOrInteger == @symbol(inet6)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4317	domainCode = __mkSmallInteger(AF_INET6);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4318	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4319	#ifdef AF_UNIX
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4320	else if ((aSymbolOrInteger == @symbol(AF_UNIX)) \|\| (aSymbolOrInteger == @symbol(unix)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4321	domainCode = __mkSmallInteger(AF_UNIX);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4322	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4323	#ifdef AF_APPLETALK
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4324	else if ((aSymbolOrInteger == @symbol(AF_APPLETALK)) \|\| (aSymbolOrInteger == @symbol(appletalk)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4325	domainCode = __mkSmallInteger(AF_APPLETALK);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4326	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4327	#ifdef AF_DECnet
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4328	else if ((aSymbolOrInteger == @symbol(AF_DECnet)) \|\| (aSymbolOrInteger == @symbol(decnet)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4329	domainCode = __mkSmallInteger(AF_DECnet);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4330	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4331	#ifdef AF_NS
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4332	else if ((aSymbolOrInteger == @symbol(AF_NS)) \|\| (aSymbolOrInteger == @symbol(ns)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4333	domainCode = __mkSmallInteger(AF_NS);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4334	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4335	#ifdef AF_X25
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4336	else if ((aSymbolOrInteger == @symbol(AF_X25)) \|\| (aSymbolOrInteger == @symbol(x25)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4337	domainCode = __mkSmallInteger(AF_X25);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4338	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4339	#ifdef AF_SNA
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4340	else if (aSymbolOrInteger == @symbol(AF_SNA))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4341	domainCode = __mkSmallInteger(AF_SNA);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4342	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4343	#ifdef AF_RAW
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4344	else if ((aSymbolOrInteger == @symbol(AF_RAW)) \|\| (aSymbolOrInteger == @symbol(raw)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4345	domainCode = __mkSmallInteger(AF_RAW);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4346	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4347	#ifdef AF_ISO
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4348	else if ((aSymbolOrInteger == @symbol(AF_ISO)) \|\| (aSymbolOrInteger == @symbol(iso)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4349	domainCode = __mkSmallInteger(AF_ISO);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4350	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4351	#ifdef AF_ECMA
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4352	else if (aSymbolOrInteger == @symbol(AF_ECMA))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4353	domainCode = __mkSmallInteger(AF_ECMA);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4354	#endif
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4355	#ifdef AF_NETBIOS
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4356	else if ((aSymbolOrInteger == @symbol(AF_NETBIOS)) \|\| (aSymbolOrInteger == @symbol(netbios)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4357	domainCode = __mkSmallInteger(AF_NETBIOS);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4358	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4359	#ifdef AF_NETBEUI
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4360	else if (aSymbolOrInteger == @symbol(AF_NETBEUI))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4361	domainCode = __mkSmallInteger(AF_NETBEUI);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4362	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4363	#ifdef AF_IPX
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4364	else if (aSymbolOrInteger == @symbol(AF_IPX))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4365	domainCode = __mkSmallInteger(AF_IPX);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4366	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4367	#ifdef AF_AX25
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4368	else if (aSymbolOrInteger == @symbol(AF_AX25))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4369	domainCode = __mkSmallInteger(AF_AX25);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4370	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4371	#ifdef AF_NETROM
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4372	else if (aSymbolOrInteger == @symbol(AF_NETROM))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4373	domainCode = __mkSmallInteger(AF_NETROM);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4374	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4375	#ifdef AF_BRIDGE
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4376	else if (aSymbolOrInteger == @symbol(AF_BRIDGE))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4377	domainCode = __mkSmallInteger(AF_BRIDGE);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4378	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4379	#ifdef AF_BSC
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4380	else if (aSymbolOrInteger == @symbol(AF_BSC))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4381	domainCode = __mkSmallInteger(AF_BSC);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4382	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4383	#ifdef AF_ROSE
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4384	else if (aSymbolOrInteger == @symbol(AF_ROSE))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4385	domainCode = __mkSmallInteger(AF_ROSE);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4386	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4387	#ifdef AF_IRDA
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4388	else if ((aSymbolOrInteger == @symbol(AF_IRDA)) \|\| (aSymbolOrInteger == @symbol(irda)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4389	domainCode = __mkSmallInteger(AF_IRDA);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4390	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4391	#ifdef AF_BAN
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4392	else if (aSymbolOrInteger == @symbol(AF_BAN))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4393	domainCode = __mkSmallInteger(AF_BAN);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4394	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4395	#ifdef AF_VOICEVIEW
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4396	else if (aSymbolOrInteger == @symbol(AF_VOICEVIEW))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4397	domainCode = __mkSmallInteger(AF_VOICEVIEW);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4398	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4399	#ifdef AF_ATM
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4400	else if (aSymbolOrInteger == @symbol(AF_ATM))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4401	domainCode = __mkSmallInteger(AF_ATM);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4402	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4403	#ifdef AF_ATMPVC
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4404	else if (aSymbolOrInteger == @symbol(AF_ATMPVC))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4405	domainCode = __mkSmallInteger(AF_ATMPVC);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4406	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4407	#ifdef AF_ATMSVC
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4408	else if (aSymbolOrInteger == @symbol(AF_ATMSVC))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4409	domainCode = __mkSmallInteger(AF_ATMSVC);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4410	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4411	#ifdef AF_SECURITY
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4412	else if (aSymbolOrInteger == @symbol(AF_SECURITY))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4413	domainCode = __mkSmallInteger(AF_SECURITY);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4414	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4415	#ifdef AF_KEY
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4416	else if (aSymbolOrInteger == @symbol(AF_KEY))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4417	domainCode = __mkSmallInteger(AF_KEY);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4418	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4419	#ifdef AF_NETLINK
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4420	else if (aSymbolOrInteger == @symbol(AF_NETLINK))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4421	domainCode = __mkSmallInteger(AF_NETLINK);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4422	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4423	#ifdef AF_PACKET
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4424	else if (aSymbolOrInteger == @symbol(AF_PACKET))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4425	domainCode = __mkSmallInteger(AF_PACKET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4426	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4427	#ifdef AF_ASH
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4428	else if (aSymbolOrInteger == @symbol(AF_ASH))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4429	domainCode = __mkSmallInteger(AF_ASH);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4430	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4431	#ifdef AF_ECONET
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4432	else if (aSymbolOrInteger == @symbol(AF_ECONET))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4433	domainCode = __mkSmallInteger(AF_ECONET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4434	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4435	#ifdef AF_IMPLINK
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4436	else if (aSymbolOrInteger == @symbol(AF_IMPLINK))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4437	domainCode = __mkSmallInteger(AF_IMPLINK);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4438	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4439	#ifdef AF_PUP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4440	else if (aSymbolOrInteger == @symbol(AF_PUP))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4441	domainCode = __mkSmallInteger(AF_PUP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4442	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4443	#ifdef AF_CHAOS
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4444	else if (aSymbolOrInteger == @symbol(AF_CHAOS))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4445	domainCode = __mkSmallInteger(AF_CHAOS);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4446	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4447	#ifdef AF_DLI
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4448	else if (aSymbolOrInteger == @symbol(AF_DLI))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4449	domainCode = __mkSmallInteger(AF_DLI);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4450	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4451	#ifdef AF_LAT
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4452	else if (aSymbolOrInteger == @symbol(AF_LAT))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4453	domainCode = __mkSmallInteger(AF_LAT);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4454	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4455	#ifdef AF_HYLINK
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4456	else if (aSymbolOrInteger == @symbol(AF_HYLINK))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4457	domainCode = __mkSmallInteger(AF_HYLINK);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4458	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4459	#ifdef AF_FIREFOX
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4460	else if (aSymbolOrInteger == @symbol(AF_FIREFOX))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4461	domainCode = __mkSmallInteger(AF_FIREFOX);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4462	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4463	#ifdef AF_CLUSTER
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4464	else if (aSymbolOrInteger == @symbol(AF_CLUSTER))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4465	domainCode = __mkSmallInteger(AF_CLUSTER);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4466	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4467	#ifdef AF_12844
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4468	else if (aSymbolOrInteger == @symbol(AF_12844))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4469	domainCode = __mkSmallInteger(AF_12844);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4470	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4471	#ifdef AF_NETDES
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4472	else if (aSymbolOrInteger == @symbol(AF_NETDES))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4473	domainCode = __mkSmallInteger(AF_NETDES);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4474	#endif
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4475	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4476
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4477	^ domainCode.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4478
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4479	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4480	self domainCodeOf:#AF_INET
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4481	self domainCodeOf:#AF_INET6
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4482	self domainCodeOf:#AF_UNIX
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4483	self domainCodeOf:#AF_APPLETALK
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4484	self domainCodeOf:#AF_DECNET
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4485	"
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4486	"for backward compatibility only:
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4487	self domainCodeOf:#inet
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4488	self domainCodeOf:#inet6
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4489	self domainCodeOf:#unix
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4490	self domainCodeOf:#appletalk
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4491	self domainCodeOf:#decnet
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4492	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4493	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4494
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4495	domainSymbolOf:anInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4496	"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	4497	Return nil for invalid or unsupported domains."
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4498
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4499	\|domainSymbol\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4500
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4501	%{ /NOCONTEXT/
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4502
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4503	if (__isSmallInteger(anInteger)) {
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4504	switch(__intVal(anInteger)) {
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4505	#ifdef AF_INET
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4506	case AF_INET:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4507	domainSymbol = @symbol(AF_INET);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4508	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4509	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4510	#ifdef AF_INET6
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4511	case AF_INET6:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4512	domainSymbol = @symbol(AF_INET6);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4513	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4514	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4515	#ifdef AF_UNIX
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4516	case AF_UNIX:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4517	domainSymbol = @symbol(AF_UNIX);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4518	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4519	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4520	#ifdef AF_APPLETALK
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4521	case AF_APPLETALK:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4522	domainSymbol = @symbol(AF_APPLETALK);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4523	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4524	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4525	#ifdef AF_DECnet
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4526	case AF_DECnet:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4527	domainSymbol = @symbol(AF_DECnet);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4528	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4529	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4530	#ifdef AF_NS
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4531	case AF_NS:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4532	domainSymbol = @symbol(AF_NS);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4533	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4534	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4535	#ifdef AF_X25
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4536	case AF_X25:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4537	domainSymbol = @symbol(AF_X25);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4538	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4539	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4540	#ifdef AF_SNA
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4541	case AF_SNA:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4542	domainSymbol = @symbol(AF_SNA);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4543	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4544	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4545	#ifdef AF_RAW
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4546	case AF_RAW:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4547	domainSymbol = @symbol(AF_RAW);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4548	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4549	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4550	#ifdef AF_ISO
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4551	case AF_ISO:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4552	domainSymbol = @symbol(AF_ISO);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4553	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4554	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4555	#ifdef AF_ECMA
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4556	case AF_ECMA:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4557	domainSymbol = @symbol(AF_ECMA);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4558	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4559	#endif
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4560	#ifdef AF_NETBIOS
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4561	case AF_NETBIOS:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4562	domainSymbol = @symbol(AF_NETBIOS);
cbc252eb060f PrinterInfo fm parents: 10513 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_IPX
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4566	case AF_IPX:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4567	domainSymbol = @symbol(AF_IPX);
cbc252eb060f PrinterInfo fm parents: 10513 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_AX25
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4571	case AF_AX25:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4572	domainSymbol = @symbol(AF_AX25);
cbc252eb060f PrinterInfo fm parents: 10513 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_NETROM
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4576	case AF_NETROM:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4577	domainSymbol = @symbol(AF_NETROM);
cbc252eb060f PrinterInfo fm parents: 10513 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_BRIDGE
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4581	case AF_BRIDGE:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4582	domainSymbol = @symbol(AF_BRIDGE);
cbc252eb060f PrinterInfo fm parents: 10513 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_BSC
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4586	case AF_BSC:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4587	domainSymbol = @symbol(AF_BSC);
cbc252eb060f PrinterInfo fm parents: 10513 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_ROSE
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4591	case AF_ROSE:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4592	domainSymbol = @symbol(AF_ROSE);
cbc252eb060f PrinterInfo fm parents: 10513 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_IRDA
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4596	case AF_IRDA:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4597	domainSymbol = @symbol(AF_IRDA);
cbc252eb060f PrinterInfo fm parents: 10513 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_BAN
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4601	case AF_BAN:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4602	domainSymbol = @symbol(AF_BAN);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4603	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4604	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4605	#ifdef AF_VOICEVIEW
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4606	case AF_VOICEVIEW:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4607	domainSymbol = @symbol(AF_VOICEVIEW);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4608	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4609	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4610	#ifdef AF_ATM
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4611	case AF_ATM:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4612	domainSymbol = @symbol(AF_ATM);
cbc252eb060f PrinterInfo fm parents: 10513 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_ATMPVC
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4616	case AF_ATMPVC:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4617	domainSymbol = @symbol(AF_ATMPVC);
cbc252eb060f PrinterInfo fm parents: 10513 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_ATMSVC
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4621	case AF_ATMSVC:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4622	domainSymbol = @symbol(AF_ATMSVC);
cbc252eb060f PrinterInfo fm parents: 10513 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_SECURITY
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4626	case AF_SECURITY:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4627	domainSymbol = @symbol(AF_SECURITY);
cbc252eb060f PrinterInfo fm parents: 10513 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_KEY
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4631	case AF_KEY:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4632	domainSymbol = @symbol(AF_KEY);
cbc252eb060f PrinterInfo fm parents: 10513 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_NETLINK
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4636	case AF_NETLINK:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4637	domainSymbol = @symbol(AF_NETLINK);
cbc252eb060f PrinterInfo fm parents: 10513 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_PACKET
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4641	case AF_PACKET:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4642	domainSymbol = @symbol(AF_PACKET);
cbc252eb060f PrinterInfo fm parents: 10513 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_ASH
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4646	case AF_ASH:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4647	domainSymbol = @symbol(AF_ASH);
cbc252eb060f PrinterInfo fm parents: 10513 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_ECONET
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4651	case AF_ECONET:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4652	domainSymbol = @symbol(AF_ECONET);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4653	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4654	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4655	#ifdef AF_IMPLINK
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4656	case AF_IMPLINK:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4657	domainSymbol = @symbol(AF_IMPLINK);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4658	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4659	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4660	#ifdef AF_PUP
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4661	case AF_PUP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4662	domainSymbol = @symbol(AF_PUP);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4663	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4664	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4665	#ifdef AF_CHAOS
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4666	case AF_CHAOS:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4667	domainSymbol = @symbol(AF_CHAOS);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4668	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4669	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4670	#ifdef AF_DLI
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4671	case AF_DLI:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4672	domainSymbol = @symbol(AF_DLI);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4673	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4674	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4675	#ifdef AF_LAT
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4676	case AF_LAT:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4677	domainSymbol = @symbol(AF_LAT);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4678	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4679	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4680	#ifdef AF_HYLINK
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4681	case AF_HYLINK:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4682	domainSymbol = @symbol(AF_HYLINK);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4683	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4684	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4685	#ifdef AF_FIREFOX
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4686	case AF_FIREFOX:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4687	domainSymbol = @symbol(AF_FIREFOX);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4688	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4689	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4690	#ifdef AF_CLUSTER
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4691	case AF_CLUSTER:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4692	domainSymbol = @symbol(AF_CLUSTER);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4693	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4694	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4695	#ifdef AF_12844
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4696	case AF_12844:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4697	domainSymbol = @symbol(AF_12844);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4698	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4699	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4700	#ifdef AF_NETDES
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4701	case AF_NETDES:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4702	domainSymbol = @symbol(AF_NETDES);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4703	break;
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4704	#endif
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4705	}
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4706	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4707	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4708
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4709	^ domainSymbol.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4710
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4711	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4712	self domainSymbolOf:(self domainCodeOf:#inet)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4713	self domainSymbolOf:(self domainCodeOf:#inet6)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4714	self domainSymbolOf:(self domainCodeOf:#unix)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4715	self domainSymbolOf:(self domainCodeOf:#appletalk)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4716	self domainSymbolOf:(self domainCodeOf:#decnet)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4717	self domainSymbolOf:(self domainCodeOf:#raw)
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4718	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4719	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4720
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4721	protocolCodeOf:aSymbolOrInteger
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4722	"return the numeric IPPROTO_xxx code of a given symbolic protocol name.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4723	Return nil for invalid or unsupported protocols.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4724	For backward compatibility, the obsolete (non-IPPROTO-prefixed) names
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4725	are still supported for a while - this support will vanish."
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4726
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4727	\|protocolCode\|
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4728
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4729	%{ /NOCONTEXT/
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4730
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4731	if (__isSmallInteger(aSymbolOrInteger) \|\| aSymbolOrInteger == nil) {
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4732	RETURN (aSymbolOrInteger);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4733	}
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4734
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4735	#ifdef IPPROTO_IP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4736	else if ((aSymbolOrInteger == @symbol(IPPROTO_IP)) \|\| (aSymbolOrInteger == @symbol(ip)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4737	protocolCode = __mkSmallInteger(IPPROTO_IP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4738	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4739	#ifdef IPPROTO_ICMP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4740	else if ((aSymbolOrInteger == @symbol(IPPROTO_ICMP)) \|\| (aSymbolOrInteger == @symbol(icmp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4741	protocolCode = __mkSmallInteger(IPPROTO_ICMP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4742	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4743	#ifdef IPPROTO_IGMP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4744	else if ((aSymbolOrInteger == @symbol(IPPROTO_IGMP)) \|\| (aSymbolOrInteger == @symbol(igmp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4745	protocolCode = __mkSmallInteger(IPPROTO_IGMP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4746	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4747	#ifdef IPPROTO_GGP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4748	else if ((aSymbolOrInteger == @symbol(IPPROTO_GGP)) \|\| (aSymbolOrInteger == @symbol(ggp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4749	protocolCode = __mkSmallInteger(IPPROTO_GGP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4750	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4751	#ifdef IPPROTO_TCP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4752	else if ((aSymbolOrInteger == @symbol(IPPROTO_TCP)) \|\| (aSymbolOrInteger == @symbol(tcp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4753	protocolCode = __mkSmallInteger(IPPROTO_TCP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4754	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4755	#ifdef IPPROTO_UDP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4756	else if ((aSymbolOrInteger == @symbol(IPPROTO_UDP)) \|\| (aSymbolOrInteger == @symbol(udp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4757	protocolCode = __mkSmallInteger(IPPROTO_UDP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4758	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4759	#ifdef IPPROTO_IDP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4760	else if ((aSymbolOrInteger == @symbol(IPPROTO_IDP)) \|\| (aSymbolOrInteger == @symbol(idp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4761	protocolCode = __mkSmallInteger(IPPROTO_IDP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4762	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4763	#ifdef IPPROTO_ND
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4764	else if ((aSymbolOrInteger == @symbol(IPPROTO_ND)) \|\| (aSymbolOrInteger == @symbol(nd)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4765	protocolCode = __mkSmallInteger(IPPROTO_ND);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4766	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4767	#ifdef IPPROTO_RAW
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4768	else if ((aSymbolOrInteger == @symbol(IPPROTO_RAW)) \|\| (aSymbolOrInteger == @symbol(raw)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4769	protocolCode = __mkSmallInteger(IPPROTO_RAW);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4770	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4771	%}.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4772
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4773	^ protocolCode.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4774
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4775	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4776	self protocolCodeOf:#IPPROTO_UDP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4777	self protocolCodeOf:#IPPROTO_TCP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4778	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4779	"for backward compatibility only:
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4780	self protocolCodeOf:#udp
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4781	self protocolCodeOf:#tcp
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4782	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4783	!
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4784
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4785	protocolSymbolOf:anInteger
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4786	"return the symbolic protocolName of a given numeric IPPROTO_xxx code.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4787	Return nil for invalid or unsupported protocols."
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4788
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4789	\|protocolSymbol\|
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4790
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4791	%{ /NOCONTEXT/
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4792
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4793	if (__isSmallInteger(anInteger)) {
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4794	switch(__intVal(anInteger)) {
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4795	#ifdef IPPROTO_IP
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4796	case IPPROTO_IP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4797	// protocolSymbol = @symbol(IPPROTO_IP);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4798	protocolSymbol = @symbol(ip);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4799	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4800	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4801	#ifdef IPPROTO_ICMP
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4802	case IPPROTO_ICMP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4803	// protocolSymbol = @symbol(IPPROTO_ICMP);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4804	protocolSymbol = @symbol(icmp);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4805	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4806	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4807	#ifdef IPPROTO_IGMP
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4808	case IPPROTO_IGMP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4809	// protocolSymbol = @symbol(IPPROTO_IGMP);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4810	protocolSymbol = @symbol(igmp);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4811	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4812	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4813	#ifdef IPPROTO_GGP
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4814	case IPPROTO_GGP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4815	// protocolSymbol = @symbol(IPPROTO_GGP);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4816	protocolSymbol = @symbol(ggp);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4817	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4818	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4819	#ifdef IPPROTO_TCP
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4820	case IPPROTO_TCP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4821	// protocolSymbol = @symbol(IPPROTO_TCP);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4822	protocolSymbol = @symbol(tcp);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4823	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4824	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4825	#ifdef IPPROTO_PUP
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4826	case IPPROTO_PUP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4827	// protocolSymbol = @symbol(IPPROTO_PUP);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4828	protocolSymbol = @symbol(pup);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4829	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4830	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4831	#ifdef IPPROTO_UDP
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4832	case IPPROTO_UDP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4833	// protocolSymbol = @symbol(IPPROTO_UDP);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4834	protocolSymbol = @symbol(udp);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4835	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4836	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4837	#ifdef IPPROTO_IDP
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4838	case IPPROTO_IDP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4839	// protocolSymbol = @symbol(IPPROTO_IDP);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4840	protocolSymbol = @symbol(idp);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4841	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4842	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4843	#ifdef IPPROTO_ND
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4844	case IPPROTO_ND:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4845	// protocolSymbol = @symbol(IPPROTO_ND);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4846	protocolSymbol = @symbol(nd);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4847	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4848	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4849	#ifdef IPPROTO_RAW
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4850	case IPPROTO_RAW:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4851	// protocolSymbol = @symbol(IPPROTO_RAW);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4852	protocolSymbol = @symbol(raw);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4853	break;
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4854	#endif
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4855	}
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4856	}
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4857	%}.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4858
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4859	^ protocolSymbol.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4860
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4861	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4862	self protocolSymbolOf:(self protocolCodeOf:#tcp)
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4863	self protocolSymbolOf:(self protocolCodeOf:#udp)
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4864	self protocolSymbolOf:(self protocolCodeOf:#raw)
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4865	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4866	!
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4867
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4868	socketAddressSizeOfDomain:aSymbolOrInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4869	"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	4870	Return nil, if unknown or unsupported."
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4871
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4872	\|socketSize domainCode\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4873
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4874	domainCode := OperatingSystem domainCodeOf:aSymbolOrInteger.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4875
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4876	%{
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4877	if (__isSmallInteger(domainCode)) {
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4878	switch (__intVal(domainCode)) {
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4879	#ifdef AF_INET
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4880	case AF_INET:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4881	socketSize = __mkSmallInteger( sizeof(struct sockaddr_in) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4882	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4883	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4884	#ifdef AF_INET6
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4885	case AF_INET6:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4886	socketSize = __mkSmallInteger( sizeof(struct sockaddr_in6) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4887	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4888	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4889	#ifdef AF_UNIX
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4890	case AF_UNIX:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4891	socketSize = __mkSmallInteger( sizeof(struct sockaddr_un) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4892	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4893	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4894	#ifdef AF_APPLETALK
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4895	case AF_APPLETALK:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4896	socketSize = __mkSmallInteger( sizeof(struct sockaddr_at) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4897	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4898	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4899	#ifdef AF_DECnet
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4900	case AF_DECnet:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4901	socketSize = __mkSmallInteger( sizeof(struct sockaddr_dn) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4902	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4903	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4904	#ifdef AF_NS
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4905	case AF_NS:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4906	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ns) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4907	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4908	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4909	#ifdef AF_X25
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4910	case AF_X25:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4911	socketSize = __mkSmallInteger( sizeof(struct sockaddr_x25) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4912	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4913	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4914	#ifdef AF_SNA
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4915	case AF_SNA:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4916	socketSize = __mkSmallInteger( sizeof(struct sockaddr_sna) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4917	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4918	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4919	#ifdef AF_RAW
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4920	case AF_RAW:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4921	socketSize = __mkSmallInteger( sizeof(struct sockaddr_raw) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4922	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4923	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4924	#ifdef AF_ISO
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4925	case AF_ISO:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4926	socketSize = __mkSmallInteger( sizeof(struct sockaddr_iso) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4927	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4928	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4929	#ifdef AF_ECMA
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4930	# if 0
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4931	case AF_ECMA:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4932	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ecma) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4933	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4934	# endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4935	#endif
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4936	#ifdef AF_NETBIOS
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4937	case AF_NETBIOS:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4938	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netbios) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4939	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4940	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4941	#ifdef AF_NETBEUI
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4942	case AF_NETBEUI:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4943	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netbeui) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4944	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4945	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4946	#ifdef AF_IPX
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4947	case AF_IPX:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4948	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ipx) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4949	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4950	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4951	#ifdef AF_AX25
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4952	case AF_AX25:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4953	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ax25) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4954	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4955	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4956	#ifdef AF_NETROM
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4957	case AF_NETROM:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4958	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netrom) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4959	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4960	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4961	#ifdef AF_BRIDGE
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4962	case AF_BRIDGE:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4963	socketSize = __mkSmallInteger( sizeof(struct sockaddr_bridge) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4964	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4965	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4966	#ifdef AF_BSC
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4967	case AF_BSC:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4968	socketSize = __mkSmallInteger( sizeof(struct sockaddr_bsc) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4969	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4970	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4971	#ifdef AF_ROSE
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4972	case AF_ROSE:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4973	socketSize = __mkSmallInteger( sizeof(struct sockaddr_rose) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4974	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4975	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4976	#ifdef AF_IRDA
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4977	case AF_IRDA:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4978	socketSize = __mkSmallInteger( sizeof(struct sockaddr_irda) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4979	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4980	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4981	#ifdef AF_BAN
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4982	case AF_BAN:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4983	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ban) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4984	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4985	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4986	#ifdef AF_VOICEVIEW
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4987	case AF_VOICEVIEW:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4988	socketSize = __mkSmallInteger( sizeof(struct sockaddr_voiceview) );
cbc252eb060f PrinterInfo fm parents: 10513 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_ATM
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4992	case AF_ATM:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4993	socketSize = __mkSmallInteger( sizeof(struct sockaddr_atm) );
cbc252eb060f PrinterInfo fm parents: 10513 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_ATMPVC
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4997	case AF_ATMPVC:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4998	socketSize = __mkSmallInteger( sizeof(struct sockaddr_atmpvc) );
cbc252eb060f PrinterInfo fm parents: 10513 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_ATMSVC
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5002	case AF_ATMSVC:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5003	socketSize = __mkSmallInteger( sizeof(struct sockaddr_atmsvc) );
cbc252eb060f PrinterInfo fm parents: 10513 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_NETLINK
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5007	case AF_NETLINK:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5008	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netlink) );
cbc252eb060f PrinterInfo fm parents: 10513 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_PACKET
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5012	case AF_PACKET:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5013	socketSize = __mkSmallInteger( sizeof(struct sockaddr_packet) );
cbc252eb060f PrinterInfo fm parents: 10513 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_ASH
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5017	case AF_ASH:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5018	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ash) );
cbc252eb060f PrinterInfo fm parents: 10513 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_ECONET
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5022	case AF_ECONET:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5023	socketSize = __mkSmallInteger( sizeof(struct sockaddr_eco) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5024	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5025	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5026	#ifdef AF_IMPLINK
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5027	case AF_IMPLINK:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5028	socketSize = __mkSmallInteger( sizeof(struct sockaddr_implink) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5029	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5030	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	5031	#ifdef AF_PUP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	5032	# if 0
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5033	case AF_PUP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5034	socketSize = __mkSmallInteger( sizeof(struct sockaddr_pup) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5035	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	5036	# endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	5037	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5038	#ifdef AF_CHAOS
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5039	case AF_CHAOS:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5040	socketSize = __mkSmallInteger( sizeof(struct sockaddr_chaos) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5041	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5042	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5043	#ifdef AF_DLI
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5044	case AF_DLI:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5045	socketSize = __mkSmallInteger( sizeof(struct sockaddr_dli) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5046	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5047	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5048	#ifdef AF_LAT
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5049	case AF_LAT:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5050	socketSize = __mkSmallInteger( sizeof(struct sockaddr_lat) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5051	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5052	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5053	#ifdef AF_HYLINK
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5054	case AF_HYLINK:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5055	socketSize = __mkSmallInteger( sizeof(struct sockaddr_hylink) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5056	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5057	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5058	#ifdef AF_FIREFOX
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5059	case AF_FIREFOX:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5060	socketSize = __mkSmallInteger( sizeof(struct sockaddr_firefox) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5061	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5062	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5063	#ifdef AF_CLUSTER
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5064	case AF_CLUSTER:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5065	socketSize = __mkSmallInteger( sizeof(struct sockaddr_cluster) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5066	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5067	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5068	#ifdef AF_12844
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5069	case AF_12844:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5070	socketSize = __mkSmallInteger( sizeof(struct sockaddr_12844) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5071	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5072	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5073	#ifdef AF_NETDES
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5074	case AF_NETDES:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5075	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netdes) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5076	break;
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5077	#endif
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5078	}
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5079	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5080	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5081	^ socketSize
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5082
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5083	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5084	self socketAddressSizeOfDomain:#'AF_INET'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5085	self socketAddressSizeOfDomain:#'AF_UNIX'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5086	self socketAddressSizeOfDomain:#'Foo'
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5087	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5088	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5089
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5090	socketTypeCodeOf:aSymbolOrInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5091	"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	5092	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	5093
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5094	\|typeCode\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5095
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5096	%{ /NOCONTEXT/
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5097
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5098	if (__isSmallInteger(aSymbolOrInteger) \|\| aSymbolOrInteger == nil) {
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5099	typeCode = aSymbolOrInteger;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5100	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5101
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5102	#ifdef SOCK_STREAM
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5103	else if ((aSymbolOrInteger == @symbol(stream)) \|\| (aSymbolOrInteger == @symbol(SOCK_STREAM)))
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5104	typeCode = __mkSmallInteger(SOCK_STREAM);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5105	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5106	#ifdef SOCK_DGRAM
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5107	else if ((aSymbolOrInteger == @symbol(datagram)) \|\| (aSymbolOrInteger == @symbol(SOCK_DGRAM)))
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5108	typeCode = __mkSmallInteger(SOCK_DGRAM);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5109	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5110	#ifdef SOCK_RAW
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5111	else if ((aSymbolOrInteger == @symbol(raw)) \|\| (aSymbolOrInteger == @symbol(SOCK_RAW)))
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5112	typeCode = __mkSmallInteger(SOCK_RAW);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5113	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5114	#ifdef SOCK_RDM
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5115	else if ((aSymbolOrInteger == @symbol(rdm)) \|\| (aSymbolOrInteger == @symbol(SOCK_RDM)))
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5116	typeCode = __mkSmallInteger(SOCK_RDM);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5117	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5118	#ifdef SOCK_SEQPACKET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5119	else if ((aSymbolOrInteger == @symbol(seqpacket)) \|\| (aSymbolOrInteger == @symbol(SOCK_SEQPACKET)))
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5120	typeCode = __mkSmallInteger(SOCK_SEQPACKET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5121	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5122	#ifdef SOCK_PACKET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5123	else if ((aSymbolOrInteger == @symbol(packet)) \|\| (aSymbolOrInteger == @symbol(SOCK_PACKET)))
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5124	typeCode = __mkSmallInteger(SOCK_PACKET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5125	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5126	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5127
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5128	^ typeCode.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5129
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5130	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5131	self socketTypeCodeOf:#stream
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5132	self socketTypeCodeOf:#datagram
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5133	self socketTypeCodeOf:#raw
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5134	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5135	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5136
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5137	socketTypeSymbolOf:anInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5138	"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	5139	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	5140
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5141	\|socketTypeSymbol\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5142
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5143	%{ /NOCONTEXT/
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5144
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5145	if (__isSmallInteger(anInteger)) {
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5146	switch(__intVal(anInteger)) {
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5147	#ifdef SOCK_STREAM
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5148	case SOCK_STREAM:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5149	socketTypeSymbol = @symbol(SOCK_STREAM);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5150	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5151	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5152	#ifdef SOCK_DGRAM
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5153	case SOCK_DGRAM:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5154	socketTypeSymbol = @symbol(SOCK_DGRAM);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5155	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5156	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5157	#ifdef SOCK_RAW
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5158	case SOCK_RAW:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5159	socketTypeSymbol = @symbol(SOCK_RAW);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5160	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5161	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5162	#ifdef SOCK_RDM
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5163	case SOCK_RDM:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5164	socketTypeSymbol = @symbol(SOCK_RDM);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5165	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5166	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5167	#ifdef SOCK_SEQPACKET
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5168	case SOCK_SEQPACKET:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5169	socketTypeSymbol = @symbol(SOCK_SEQPACKET);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5170	break;
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
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5173	case SOCK_PACKET:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5174	socketTypeSymbol = @symbol(SOCK_PACKET);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5175	break;
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5176	#endif
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5177	}
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5178	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5179	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5180	^ socketTypeSymbol.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5181	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5182
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5183	supportedProtocolFamilies
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5184	"return a collection of supported protocol families.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5185	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	5186	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	5187	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	5188	(non-AF-prefixed) symbols; these will vanish."
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5189
7713 c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5190	^ #(
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5191	#AF_INET #inet
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5192	#AF_UNIX #unix
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5193	#AF_INET6 #inet6
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5194	#AF_APPLETALK #appletalk
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5195	#AF_DECnet #decnet
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5196	#AF_NS #ns
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5197	#AF_X25 #x25
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5198	#AF_SNA
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5199	#AF_RAW
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5200	#AF_ISO
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5201	#AF_ECMA
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5202	#AF_NETBIOS #netbios
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5203	#AF_IPX
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5204	#AF_AX25
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5205	#AF_NETROM
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5206	#AF_BRIDGE
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5207	#AF_BSC
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5208	#AF_ROSE
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5209	#AF_IRDA #irda
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5210	#AF_NETLINK
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5211	#AF_NETLINK
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5212	#AF_NETBEUI
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5213	#AF_ATM
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5214	#AF_ATMPVC
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5215	#AF_ATMSVC
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5216	#AF_BAN
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5217	#AF_VOICEVIEW
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5218	#AF_ECONET
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5219	#AF_IMPLINK
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5220	#AF_PUP
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5221	#AF_CHAOS
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5222	#AF_DLI
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5223	#AF_LAT
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5224	#AF_HYLINK
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5225	#AF_FIREFOX
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5226	#AF_CLUSTER
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5227	#AF_12844
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5228	#AF_NETDES
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5229	) select:[:sym \| (AbstractOperatingSystem domainCodeOf:sym) isNumber ]
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5230
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5231	"
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5232	AbstractOperatingSystem supportedProtocolFamilies
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5233	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5234	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5235
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5236	supportedSocketTypes
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5237	"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	5238	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	5239
7713 c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5240	^ #(
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5241	#SOCK_STREAM
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5242	#SOCK_DGRAM
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5243	#SOCK_RAW
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5244	#SOCK_RDM
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5245	#SOCK_SEQPACKET
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5246	#SOCK_PACKET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5247	) select:[:sym \| (AbstractOperatingSystem socketTypeCodeOf:sym) isNumber ]
7713 c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5248
c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5249	"
c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5250	AbstractOperatingSystem supportedSocketTypes
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5251	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5252	! !
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5253
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5254	!AbstractOperatingSystem class methodsFor:'shared memory access'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5255
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5256	shmAttach:id address:addr flags:flags
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5257	"low level entry to shmat()-system call.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5258	Not supported on all operatingSystems"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5259
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5260	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5261
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5262	"Modified: / 19.5.1999 / 14:21:35 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5263	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5264
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5265	shmDetach:addr
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5266	"low level entry to shmdt()-system call.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5267	Not supported on all operatingSystems"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5268
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5269	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5270
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5271	"Modified: / 19.5.1999 / 14:21:37 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5272	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5273
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5274	shmGet:key size:size flags:flags
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5275	"low level entry to shmget()-system call.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5276	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	5277	- use the provided wrapper class SharedExternalBytes instead."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5278
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5279	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5280
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5281	"Modified: / 19.5.1999 / 14:21:41 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5282	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5283
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5284	!AbstractOperatingSystem class methodsFor:'time and date'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5285
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5286	computeDatePartsOf:osTime for:aBlock
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5287	"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	5288	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	5289	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	5290
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5291	<resource:#obsolete>
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5292
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5293	\|i\|
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5294
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5295	self obsoleteMethodWarning:'use #computeTimeAndDateFrom:osTime'.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5296
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5297	i := self computeTimeAndDateFrom:osTime.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5298	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	5299
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5300	"
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5301	OperatingSystem computeDatePartsOf:0 for:[:y :m :d \|
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5302	y printCR. m printCR. d printCR
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5303	]
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5304	"
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5305	!
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5306
4377 59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5307	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	5308	"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	5309	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	5310
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5311	self subclassResponsibility
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5312
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5313	"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	5314	!
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5315
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5316	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	5317	"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	5318	The arguments are assumed to be in localtime including
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5319	any daylight saving adjustings."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5320
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5321	self subclassResponsibility
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	computeTimeAndDateFrom:osTime
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5325	"given an OS-dependent time in osTime, return an Array
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5326	containing (full-) year, month, day, hour, minute and seconds,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5327	offset to UTC, daylight savings time flag, milliseconds,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5328	dayInYear (1..) and dayInWeek (1..).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5329	Conversion is to localtime including any daylight saving adjustments."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5330
7733 f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5331	\|divMod ret\|
f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5332
f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5333	divMod := osTime divMod:1000.
7739 d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5334	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	5335	^ ret
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5336
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5337	"
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5338	OperatingSystem computeTimeAndDateFrom:0
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5339	OperatingSystem computeTimeAndDateFrom:1011
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5340	"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5341	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5342
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5343	computeTimePartsOf:osTime for:aBlock
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5344	"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	5345	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	5346	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	5347
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5348	<resource:#obsolete>
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	\|hours minutes seconds millis i\|
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5351
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5352	self obsoleteMethodWarning:'use #computeTimeAndDateFrom:osTime'.
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	i := self computeTimeAndDateFrom:osTime.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5355	hours := i hours.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5356	minutes := i minutes.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5357	seconds := i seconds.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5358	millis := i milliseconds.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5359
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5360	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	5361
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5362	"
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5363	OperatingSystem computeTimePartsOf:100 for:[:h :m :s :milli \|
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5364	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	5365	]
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5366	"
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5367	!
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5368
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5369	computeUTCTimeAndDateFrom:osTime
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5370	"given an OS-dependent time in osTime, return an Array
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5371	containing:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5372	(full-) year,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5373	month, (1..)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5374	day, (1..)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5375	hour, (0..23)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5376	minute (0..59)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5377	seconds, (0..59)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5378	offset to UTC, (seconds)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5379	daylight savings time flag,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5380	milliseconds, (0..999)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5381	dayInYear (1..)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5382	dayInWeek (1..).
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5383	Conversion is to utc."
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5384
7733 f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5385	\|divMod ret\|
f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5386
f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5387	divMod := osTime divMod:1000.
7739 d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5388	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	5389	^ ret
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5390
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5391	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5392	OperatingSystem computeUTCTimeAndDateFrom:0
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5393	OperatingSystem computeUTCTimeAndDateFrom:1011
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5394	"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5395	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5396
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5397	computeUTCTimePartsOf:osTime for:aBlock
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5398	"compute hours, minutes, seconds and milliseconds from the osTime
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5399	and evaluate the argument, a 4-arg block with these.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5400	Conversion is to UTC."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5401
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5402	<resource:#obsolete>
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	\|hours minutes seconds millis i\|
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5405
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5406	self obsoleteMethodWarning:'use #computeTimeAndDateFrom:osTime'.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5407
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5408	i := self computeUTCTimeAndDateFrom:osTime.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5409	hours := i hours.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5410	minutes := i minutes.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5411	seconds := i seconds.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5412	millis := i milliseconds.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5413
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5414	aBlock value:hours value:minutes value:seconds value:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5415	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5416
3689 f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5417	getMicrosecondTime
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5418	"This returns the microsecond timers value - if available.
3689 f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5419	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	5420	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	5421	clock resolution value."
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5422
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5423	"/ fallBack - use getMillisecondTime, which must be implemented
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5424	"/ for all OS's
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5425
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5426	^ self getMillisecondTime * 1000
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5427
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5428	"Created: / 30.7.1998 / 16:38:26 / cg"
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5429	!
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5430
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5431	getMillisecondTime
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5432	"This returns the millisecond timers value.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5433	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	5434	LargeInteger arithmetic when doing timeouts and delays.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5435	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	5436	short relative time deltas.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5437	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	5438
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5439	BAD DESIGN:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5440	This should be changed to return some instance of RelativeTime,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5441	and these computations moved there.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5442
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5443	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	5444	interface. For compatibility with ST-80, use Time millisecondClockValue.
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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5448	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5449
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5450	getOSTime
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5451	"This returns the OS time.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5452	The base of the returned value is not consistent across
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5453	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	5454	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	5455	converts as appropriate (by using my fromOSTime: conversion methods).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5456
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5457	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	5458	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	5459	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	5460	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5461
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5462	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5463	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5464
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5465	maximumMillisecondTimeDelta
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5466	"this returns the maximum delta supported by millisecondCounter
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5467	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	5468	timer wraps."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5469
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5470	%{ /* NOCONTEXT */
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	5471	RETURN ( __mkSmallInteger(0x0FFFFFFF) );
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5472	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5473	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5474
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5475	millisecondDelay:millis
7681 7c63f0b47f0d oops: millisecondDelay: was duplicated Claus Gittinger <cg@exept.de> parents: 7656 diff changeset	5476	"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	5477	All other threads proceed as usual.
7849 40819a29fdcd comment ca parents: 7835 diff changeset	5478	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	5479
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5480	\|now then delta\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5481
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5482	now := self getMillisecondTime.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5483	then := self millisecondTimeAdd:now and:millis.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5484
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5485	[(delta := self millisecondTimeDeltaBetween:then and:now) > 0] whileTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5486	self selectOnAnyReadable:nil writable:nil exception:nil withTimeOut:delta.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5487	now := self getMillisecondTime.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5488	]
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5489
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5490	"
7849 40819a29fdcd comment ca parents: 7835 diff changeset	5491	OperatingSystem millisecondDelay:5000
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5492	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5493	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5494
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5495	millisecondTime:msTime1 isAfter:msTime2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5496	"return true if msTime1 is after msTime2, false if not.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5497	The two arguments are supposed to be millisecond times
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5498	(such as returned getMillisecondTime) which wrap at 16r1FFFFFFF.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5499
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5500	This should really be moved to some RelativeTime class."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5501
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5502	(msTime1 > msTime2) ifTrue:[
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5503	((msTime1 - msTime2) < 16r10000000) ifTrue:[
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5504	^ true
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5505	].
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5506	] ifFalse:[
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5507	((msTime2 - msTime1) > 16r10000000) ifTrue:[
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5508	^ true
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5509	].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5510	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5511	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5512	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5513
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5514	millisecondTimeAdd:msTime1 and:msTime2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5515	"Add two millisecond times (such as returned getMillisecondTime).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5516	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	5517
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5518	This should really be moved to some RelativeTime class."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5519
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5520	\|sum\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5521
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5522	sum := msTime1 + msTime2.
17892 d86c8bd5ece3 Merged with CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17869 diff changeset	5523	(sum > 16r1FFFFFFF) ifTrue:[
d86c8bd5ece3 Merged with CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17869 diff changeset	5524	self assert:(sum <= 16r3FFFFFFF) message:'overflow in timer computation'.
d86c8bd5ece3 Merged with CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17869 diff changeset	5525	^ sum - 16r20000000.
d86c8bd5ece3 Merged with CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17869 diff changeset	5526	].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5527	(sum < 0) ifTrue:[^ sum + 16r20000000].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5528	^ sum
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5529	!
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	millisecondTimeDeltaBetween:msTime1 and:msTime2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5532	"subtract two millisecond times (such as returned getMillisecondTime)
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5533	and return the difference. Since milli-times wrap (at 16r01FFFFFFF),
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5534	some special handling is built-in here.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5535	The returned value is msTime1 - msTime2. The returned value is invalid
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5536	if the delta is >= 0x10000000.
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	This should really be moved to some RelativeTime class;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5539	better yet: create a subclass of Integer named LimitedRangeInteger."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5540
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5541	\|diff\|
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5542
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5543	diff := msTime1 - msTime2.
11166 52c2ccfc0d4c Make last change better looking Stefan Vogel <sv@exept.de> parents: 11165 diff changeset	5544	diff > 16r-10000000 ifTrue:[
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5545	(diff < 16r10000000) ifTrue:[
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5546	^ diff.
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5547	] ifFalse:[
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5548	^ diff - 16r20000000.
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5549	].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5550	].
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5551	^ diff + 16r20000000
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5552
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5553
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5554	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5555	OperatingSystem millisecondTimeAdd:16r0FFFFFFF and:1
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5556	OperatingSystem millisecondTimeAdd:16r0FFFFFFF and:(16 / 3)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5557	OperatingSystem millisecondTimeAdd:16r0FFFFFFF and:1000
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5558
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5559	OperatingSystem millisecondTimeDeltaBetween:0 and:16r0FFFFFFF
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5560	OperatingSystem millisecondTimeDeltaBetween:0 and:16r1FFFFFFF
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5561	OperatingSystem millisecondTimeDeltaBetween:16r1FFFFFFF and:0
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5562
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5563	OperatingSystem millisecondTimeDeltaBetween:(13/3) and:16r0FFFFFFF
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5564	OperatingSystem millisecondTimeDeltaBetween:999 and:16r0FFFFFFF
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5565
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5566	OperatingSystem millisecondTime:0 isAfter:16r0FFFFFFF
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5567	OperatingSystem millisecondTime:0 isAfter:16r1FFFFFFF
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5568	OperatingSystem millisecondTime:(13/3) isAfter:16r0FFFFFFF
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5569	OperatingSystem millisecondTime:999 isAfter:16r0FFFFFFF
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5570
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5571	OperatingSystem millisecondTime:0 isAfter:0
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5572	OperatingSystem millisecondTime:(13/3) isAfter:0
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5573	OperatingSystem millisecondTime:999 isAfter:0
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5574
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5575	OperatingSystem millisecondTime:1 isAfter:0
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5576	OperatingSystem millisecondTime:(13/3) isAfter:2
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5577	OperatingSystem millisecondTime:999 isAfter:900
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5578
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5579	\|t1 t2\|
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	t1 := Time millisecondClockValue.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5582	(Delay forMilliseconds:1) wait.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5583	t2 := Time millisecondClockValue.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5584	OperatingSystem millisecondTimeDeltaBetween:t2 and:t1
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5585	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5586	!
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	sleep:numberOfSeconds
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5589	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5590
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5591	"cease ANY action for some time. This suspends the whole smalltalk
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5592	(unix-) process for some time.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5593	Not really useful since not even low-prio processes and interrupt
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5594	handling will run during the sleep.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5595	Use either OperatingSystem>>millisecondDelay: (which makes all
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5596	threads sleep, but handles interrupts) or use a Delay (which makes
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5597	only the calling thread sleep)."
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	self subclassResponsibility
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5600	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5601
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5602	timeInfoClass
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5603	^ TimeInfo
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5604	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5605
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5606	timeInfoFromSeconds:osSeconds localTime:isLocalTime
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5607	"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	5608	An internal helper"
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5609
7739 d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5610	^ self timeInfoFromSeconds:osSeconds milliseconds:0 localTime:isLocalTime
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5611	!
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5612
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5613	timeInfoFromSeconds:osSeconds milliseconds:osMilliSeconds localTime:isLocalTime
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5614	"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	5615	An internal helper"
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5616
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5617	self subclassResponsibility
3576 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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5620	!AbstractOperatingSystem class methodsFor:'users & groups'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5621
17795 569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5622	getApplicationDataDirectoryFor:appName
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5623	"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	5624	located (ini-files, preferences etc.).
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5625	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	5626	is returned, here, the fallback ~/.<appName> is returned.
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5627	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	5628
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5629	"{ Pragma: +optSpace }"
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5630
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5631	^ self getHomeDirectory asFilename constructString:('.',appName)
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5632
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5633	"
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5634	OperatingSystem getApplicationDataDirectoryFor:'expecco'
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5635	"
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5636
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5637	"Created: / 29-07-2010 / 12:07:25 / sr"
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5638	!
569eec7576f1 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17780 diff changeset	5639
10544 83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5640	getDesktopDirectory
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5641	"{ Pragma: +optSpace }"
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5642
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5643	"return the name of the users desktop directory.
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5644	The fallback here returns the users home directory."
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5645
10545 8806e5e326c0 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10544 diff changeset	5646	^ self getHomeDirectory
8806e5e326c0 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10544 diff changeset	5647
8806e5e326c0 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10544 diff changeset	5648	"
8806e5e326c0 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10544 diff changeset	5649	OperatingSystem getDesktopDirectory
10544 83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5650	"
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5651
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5652	"Created: / 16-05-2007 / 13:20:53 / cg"
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5653	!
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5654
11760 84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5655	getDocumentsDirectory
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5656	"return your documents directory.
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5657	Under windows, thats the real 'Documents' or 'My Documents'.
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5658	The fallback here returns the users home directory."
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5659
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5660	"{ Pragma: +optSpace }"
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5661
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5662	^ self getHomeDirectory
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5663
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5664	"
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5665	OperatingSystem getDocumentsDirectory
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5666	"
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5667	!
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5668
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5669	getEffectiveGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5670	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5671
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5672	"return the current users (thats you) effective numeric group id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5673	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	5674	as a setuid program (of which you should think about twice)."
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	^ self getGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5677
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	OperatingSystem getEffectiveGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5680	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5681	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5682
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5683	getEffectiveUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5684	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5685
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5686	"return the current users (thats you) effective numeric user id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5687	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	5688	as a setuid program (of which you should think about twice)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5689
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5690	^ self getUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5691
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5692	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5693	OperatingSystem getEffectiveUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5694	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5695	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5696
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5697	getFullUserName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5698	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5699
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5700	"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	5701	If not, return the login name as a fallBack."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5702
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5703	^ self getFullUserNameFromID:(self getUserID)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5704
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5705	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5706	OperatingSystem getFullUserName
3576 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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5709	"Modified: 24.1.1997 / 11:31:55 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5710	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5711
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5712	getFullUserNameFromID:userID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5713	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5714
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5715	"return a string with the users full name - if available.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5716	If not, return the login name as a fallBack."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5717
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5718	^ self getUserNameFromID:userID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5719
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5720	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5721	OperatingSystem getFullUserNameFromID:0
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5722	OperatingSystem getFullUserNameFromID:(OperatingSystem getUserID)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5723
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5724	OperatingSystem getUserNameFromID:(OperatingSystem getUserID)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5725	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5726
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5727	"Modified: 15.7.1996 / 12:44:21 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5728	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5729
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5730	getGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5731	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5732
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5733	"return the current users (thats you) numeric group id"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5734
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5735	^ 1 "/ just a dummy for systems which do not have userIDs
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5736
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5737	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5738	OperatingSystem getGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5739	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5740	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5741
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5742	getGroupNameFromID:aNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5743	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5744
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5745	"return the group-name-string for a given numeric group-id"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5746
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5747	^ '???' "/ just a dummy for systems which do not have groups
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5748
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5749	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5750	OperatingSystem getGroupNameFromID:0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5751	OperatingSystem getGroupNameFromID:10
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5752	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5753	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5754
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5755	getHomeDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5756	"return the name of the users home directory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5757	(i.e. yours)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5758
11760 84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5759	^ self subclassResponsibility
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5760
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5761	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5762	OperatingSystem getHomeDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5763	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5764
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5765	"Modified: 24.1.1997 / 11:32:13 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5766	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5767
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5768	getLoginName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5769	"{ Pragma: +optSpace }"
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	"return a string with the users login name (thats yours)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5772
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5773	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5774	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5775
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5776	getUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5777	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5778
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5779	"return the current users (thats you) numeric user id"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5780
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5781	^ 1 "just a dummy for systems which do not have userIDs"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5782
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5783	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5784	OperatingSystem getUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5785	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5786	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5787
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5788	getUserNameFromID:aNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5789	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5790
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5791	"return the user-name-string for a given numeric user-id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5792	This is the login name, not the fullName."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5793
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5794	"/ fallBack dummy
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	aNumber == self getUserID ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5797	^ self getLoginName
3576 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	^ '? (' , aNumber printString , ')'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5801
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5802	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5803	OperatingSystem getUserNameFromID:0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5804	OperatingSystem getUserNameFromID:100
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5805	OperatingSystem getUserNameFromID:9991
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5806	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5807	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5808
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5809	userInfoOf:aNameOrID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5810	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5811
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5812	"return a dictionary filled with userinfo. The argument can be either
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5813	a string with the users name or its numeric id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5814	Notice, that not all systems provide (all of) this info;
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5815	DOS systems return nothing;
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5816	non-SYSV4 systems have no age/comment.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5817	Portable applications may want to check the systemType and NOT depend
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5818	on all keys to be present in the returned dictionary.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5819	Another notice: on some systems (SYSV4), the gecos field includes multiple
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5820	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	5821	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	5822
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5823	\|info\|
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	"/ fallBack dummy
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5826	info := IdentityDictionary new.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5827	info at:#name put:(self getLoginName).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5828	info at:#dir put:(self getHomeDirectory).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5829	^ info
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5830
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5831	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5832	OperatingSystem userInfoOf:'root'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5833	OperatingSystem userInfoOf:1
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5834	OperatingSystem userInfoOf:'claus'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5835	OperatingSystem userInfoOf:'fooBar'
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5836	OperatingSystem userInfoOf:(OperatingSystem getUserID)
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	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5839
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5840	!AbstractOperatingSystem class methodsFor:'waiting for events'!
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	blockingChildProcessWait
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5843	"return true, if childProcessWait: blocks, if no children are ready.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5844	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	5845	a subprocesses status (to avoid blocking)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5846
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5847	^ true
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	childProcessWait:blocking pid:pidToWait
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5851	"{ Pragma: +optSpace }"
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	"get status changes from child processes.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5854	Return an OSProcessStatus or nil, if no process has terminated.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5855	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	5856	otherwise we return immediately.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5857	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	5858	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	5859
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5860	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5861	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5862
7802 79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5863	isBlockingOn:fd
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5864	"{ Pragma: +optSpace }"
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5865
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5866	"return the blocking attribute - if set (which is the default)
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5867	a read on the fileDescriptor will block until data is available.
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5868	If clear, a read operation will immediately return with a value nil.
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5869	Also affects write operations, which may perform partial writes when
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5870	blocking is off"
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5871
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5872	self subclassResponsibility
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5873	!
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5874
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5875	numAvailableForReadOn:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5876	"return the number of bytes available for reading, without blocking."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5877
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5878	"/ fallBack for systems which do not provide this info
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5879	^ (self readCheck:fd) ifTrue:[1] ifFalse:[0]
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5880	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5881
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5882	readCheck:fd
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5883	"return true, if a read is possible without blocking.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5884	This is the case if data is available on a filedescriptor
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5885	or the read would return an error.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5886	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	5887
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5888	\|result\|
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5889
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5890	self supportsSelect ifFalse:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5891	"/ mhmh - what should we do then ?
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5892	"/ For now, return true as if data was present,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5893	"/ and let the thread fall into the read.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5894	"/ It will then (hopefully) be descheduled there and
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5895	"/ effectively polling for input.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5896
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5897	^ true
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5898	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5899
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5900	result := self
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5901	selectOnAnyReadable:(Array with:fd)
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5902	writable:nil
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5903	exception:nil
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5904	withTimeOut:0.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5905
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5906	"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	5907	^ result == fd or:[result == #error].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5908	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5909
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5910	readWriteCheck:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5911	"return true, if filedescriptor can be read or written without blocking.
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5912	This is the case if data is available on a filedescriptor
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5913	or the read or write would return an error.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5914	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	5915	be finished."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5916
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5917	\|result\|
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5918
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5919	self supportsSelect ifFalse:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5920	"/ mhmh - what should we do then ?
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5921	"/ For now, return true as if data was present,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5922	"/ and let the thread fall into the write.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5923	"/ It will then (hopefully) be desceduled there and
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5924	"/ effectively polling for output.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5925	^ true
3576 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
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5928	result := self selectOnAnyReadable:(Array with:fd)
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5929	writable:(Array with:fd)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5930	exception:nil
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5931	withTimeOut:0.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5932
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5933	^ result == fd or:[result == #error].
3576 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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5936	selectOn:fd1 and:fd2 withTimeOut:millis
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5937	<resource: #obsolete>
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5938	"wait for any fd to become ready; timeout after t milliseconds.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5939	A zero timeout-time will immediately return (i.e. poll).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5940	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	5941	Obsolete:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5942	This is a leftover method and will vanish."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5943
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5944	^ self selectOnAnyReadable:(Array with:fd1 with:fd2)
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5945	writable:(Array with:fd1 with:fd2)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5946	exception:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5947	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5948	!
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	selectOn:fd withTimeOut:millis
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5951	"wait for aFileDesriptor to become ready; timeout after t milliseconds.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5952	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	5953	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	5954	of read-data.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5955	Experimental."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5956
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5957	^ self selectOnAnyReadable:(Array with:fd)
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5958	writable:(Array with:fd)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5959	exception:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5960	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5961	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5962
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5963	selectOnAny:fdArray withTimeOut:millis
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5964	"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	5965	timeout after t milliseconds. An empty set will always wait.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5966	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	5967	Experimental."
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	^ self selectOnAnyReadable:fdArray
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5970	writable:fdArray
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5971	exception:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5972	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5973	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5974
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5975	selectOnAnyReadable:fdArray withTimeOut:millis
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5976	"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	5977	reading. Timeout after t milliseconds. An empty set will always wait.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5978	A zero timeout-time will immediately return (i.e. poll).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5979	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	5980	Experimental."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5981
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5982	^ self selectOnAnyReadable:fdArray
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5983	writable:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5984	exception:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5985	withTimeOut:millis
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
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5988	selectOnAnyReadable:readFdArray writable:writeFdArray exception:exceptFdArray
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5989	readableInto:readableResultFdArray writableInto:writableResultFdArray
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5990	exceptionInto:exceptionResultFdArray
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5991	withTimeOut:millis
7510 46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	5992
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5993	"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	5994	writeFdArray to become ready for writing,
7510 46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	5995	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	5996	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	5997	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	5998	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	5999	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	6000	writableResultFdArray and exceptionResultFdArray respectively.
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	6001
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	6002	Return the (overall) number of selected filedescriptors.
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	6003	readableResultFdArray, writableResultFdArray and exceptionResultFdArray will
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	6004	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	6005	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	6006
f2bf4935e7eb New select for fair scheduling (not giving low filedescriptors Stefan Vogel <sv@exept.de> parents: 7488 diff changeset	6007	self subclassResponsibility
f2bf4935e7eb New select for fair scheduling (not giving low filedescriptors Stefan Vogel <sv@exept.de> parents: 7488 diff changeset	6008	!
f2bf4935e7eb New select for fair scheduling (not giving low filedescriptors Stefan Vogel <sv@exept.de> parents: 7488 diff changeset	6009
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6010	selectOnAnyReadable:readFdArray writable:writeFdArray exception:exceptFdArray withTimeOut:millis
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6011	"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	6012	reading, writeFdArray to become ready for writing, or exceptFdArray to
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6013	arrive exceptional data (i.e. out-of-band data).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6014	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	6015	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	6016	descriptors (i.e. to check if I/O possible without blocking).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6017	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	6018
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6019	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6020	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6021
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6022	setBlocking:aBoolean on:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6023	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6024
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6025	"set/clear the blocking attribute - if set (which is the default)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6026	a read on the fileDescriptor will block until data is available.
7803 2238df4944ca comments; Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	6027	If cleared, a read operation will immediately return with a value of nil.
2238df4944ca comments; Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	6028	Also affects write operations, which may perform partial writes when
2238df4944ca comments; Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	6029	blocking is off"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6030
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6031	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6032	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6033
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6034	writeCheck:fd
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6035	"return true, if filedescriptor can be written without blocking.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6036	This is the case if data can be written to a filedescriptor
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6037	or the write would return an error."
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6038
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6039	\|result\|
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6040
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6041	self supportsSelect ifFalse:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6042	"/ mhmh - what should we do then ?
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6043	"/ For now, return true as if data was present,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6044	"/ and let the thread fall into the write.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6045	"/ It will then (hopefully) be desceduled there and
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6046	"/ effectively polling for output.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6047	^ true
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6048	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6049
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6050	result := self selectOnAnyReadable:nil
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6051	writable:(Array with:fd)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6052	exception:nil
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6053	withTimeOut:0.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6054
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6055	^ result == fd or:[result == #error].
3576 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
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6058	!AbstractOperatingSystem::PrinterInfo class methodsFor:'constants'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6059
d8547710430c printer stuff fm parents: 9380 diff changeset	6060	paperSizeNameForNumber:aNumber
d8547710430c printer stuff fm parents: 9380 diff changeset	6061	^ self paperSizeNumberToNameMapping at:aNumber
d8547710430c printer stuff fm parents: 9380 diff changeset	6062
d8547710430c printer stuff fm parents: 9380 diff changeset	6063	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6064	self paperSizeNameForNumber:1
d8547710430c printer stuff fm parents: 9380 diff changeset	6065	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6066
d8547710430c printer stuff fm parents: 9380 diff changeset	6067	"Created: / 31-07-2006 / 15:35:36 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6068	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6069
d8547710430c printer stuff fm parents: 9380 diff changeset	6070	paperSizeNameForNumber:aNumber ifAbsent: aBlock
d8547710430c printer stuff fm parents: 9380 diff changeset	6071	^ self paperSizeNumberToNameMapping at:aNumber ifAbsent: aBlock
d8547710430c printer stuff fm parents: 9380 diff changeset	6072
d8547710430c printer stuff fm parents: 9380 diff changeset	6073	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6074	self paperSizeNameForNumber:11212 ifAbsent: [nil]
d8547710430c printer stuff fm parents: 9380 diff changeset	6075	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6076
d8547710430c printer stuff fm parents: 9380 diff changeset	6077	"Created: / 31-07-2006 / 15:35:36 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6078	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6079
d8547710430c printer stuff fm parents: 9380 diff changeset	6080	paperSizeNames
d8547710430c printer stuff fm parents: 9380 diff changeset	6081	\|codes\|
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6082	codes := self paperSizeNumberToNameTable values asSortedCollection:[:a :b \| a < b].
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6083	^codes collect:[:each \| self paperSizeNameForNumber: each]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6084
d8547710430c printer stuff fm parents: 9380 diff changeset	6085	"Created: / 31-07-2006 / 15:35:36 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6086	"Modified: / 16-04-2007 / 12:03:55 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6087	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6088
d8547710430c printer stuff fm parents: 9380 diff changeset	6089	paperSizeNumberForName:aName
d8547710430c printer stuff fm parents: 9380 diff changeset	6090	^ self paperSizeNumberToNameMapping at:aName
d8547710430c printer stuff fm parents: 9380 diff changeset	6091
d8547710430c printer stuff fm parents: 9380 diff changeset	6092	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6093	self paperSizeNumberForName:'Letter, 8 1/2- by 11-inches'
d8547710430c printer stuff fm parents: 9380 diff changeset	6094	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6095
d8547710430c printer stuff fm parents: 9380 diff changeset	6096	"Created: / 31-07-2006 / 15:35:37 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6097	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6098
d8547710430c printer stuff fm parents: 9380 diff changeset	6099	paperSizeNumberToNameMapping
d8547710430c printer stuff fm parents: 9380 diff changeset	6100	\|d\|
d8547710430c printer stuff fm parents: 9380 diff changeset	6101
d8547710430c printer stuff fm parents: 9380 diff changeset	6102	d := self paperSizeNumberToNameTable.
d8547710430c printer stuff fm parents: 9380 diff changeset	6103
d8547710430c printer stuff fm parents: 9380 diff changeset	6104	d keys copy do:[:k \| d at:(d at:k) put:k].
d8547710430c printer stuff fm parents: 9380 diff changeset	6105	^ d.
d8547710430c printer stuff fm parents: 9380 diff changeset	6106
d8547710430c printer stuff fm parents: 9380 diff changeset	6107	"Created: / 31-07-2006 / 15:35:37 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6108	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6109
d8547710430c printer stuff fm parents: 9380 diff changeset	6110	paperSizeNumberToNameTable
d8547710430c printer stuff fm parents: 9380 diff changeset	6111
d8547710430c printer stuff fm parents: 9380 diff changeset	6112	^Dictionary withKeysAndValues:
d8547710430c printer stuff fm parents: 9380 diff changeset	6113	#(
d8547710430c printer stuff fm parents: 9380 diff changeset	6114	'Letter, 8 1/2- by 11-inches' 1 "/ Letter
d8547710430c printer stuff fm parents: 9380 diff changeset	6115	'Legal 8 1/2- by 14-inches' 5 "/ Legal
d8547710430c printer stuff fm parents: 9380 diff changeset	6116	'10- by 14-inch sheet' 16 "/ 10x14
d8547710430c printer stuff fm parents: 9380 diff changeset	6117	'11- by 17-inch sheet' 17 "/ 11x17
d8547710430c printer stuff fm parents: 9380 diff changeset	6118	"/ '12X11' "/ Windows 98/Me, Windows NT 4.0 and later: 12- by 11-inch sheet
d8547710430c printer stuff fm parents: 9380 diff changeset	6119	'A3 sheet, 297- by 420-millimeters' 8 "/ A3
d8547710430c printer stuff fm parents: 9380 diff changeset	6120	'A3 rotated sheet, 420- by 297-millimeters' 67 "/ A3_rotated
d8547710430c printer stuff fm parents: 9380 diff changeset	6121	'A4 sheet, 210- by 297-millimeters' 9 "/ A4
d8547710430c printer stuff fm parents: 9380 diff changeset	6122	'A4 rotated sheet, 297- by 210-millimeters' 55 "/ A4_rotated
d8547710430c printer stuff fm parents: 9380 diff changeset	6123	'A4 small sheet, 210- by 297-millimeters' 10 "/ A4 small
d8547710430c printer stuff fm parents: 9380 diff changeset	6124	'A5 sheet, 148- by 210-millimeters' 11 "/ A5
d8547710430c printer stuff fm parents: 9380 diff changeset	6125	'A5 rotated sheet, 210- by 148-millimeters' 61 "/ A5 rotated
d8547710430c printer stuff fm parents: 9380 diff changeset	6126	"/ 'a6' "/ Windows 98/Me, Windows NT 4.0 and later: A6 sheet, 105- by 148-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	6127	"/ 'a6_rotated' "/ Windows 98/Me, Windows NT 4.0 and later: A6 rotated sheet, 148- by 105-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	6128	'B4 sheet, 250- by 354-millimeters' 12 "/ B4
d8547710430c printer stuff fm parents: 9380 diff changeset	6129	"/ b4_jis_rotated Windows 98/Me, Windows NT 4.0 and later: B4 (JIS) rotated sheet, 364- by 257-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	6130	'B5 sheet, 182- by 257-millimeter paper' 13 "/ B5
d8547710430c printer stuff fm parents: 9380 diff changeset	6131	"/ 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	6132	"/ 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	6133	"/ 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	6134	"/ csheet C Sheet, 17- by 22-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6135	"/ 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	6136	"/ 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	6137	"/ dsheet D Sheet, 22- by 34-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6138	'#9 Envelope, 3 7/8- by 8 7/8-inches' 19 "/ env_9
d8547710430c printer stuff fm parents: 9380 diff changeset	6139	'#10 Envelope, 4 1/8- by 9 1/2-inches' 20 "/ env_10
d8547710430c printer stuff fm parents: 9380 diff changeset	6140	'#11 Envelope, 4 1/2- by 10 3/8-inches' 21 "/ env_11
d8547710430c printer stuff fm parents: 9380 diff changeset	6141	'#12 Envelope, 4 3/4- by 11-inches' 22 "/ env_12
d8547710430c printer stuff fm parents: 9380 diff changeset	6142	'#14 Envelope, 5- by 11 1/2-inches' 23 "/ env_15
d8547710430c printer stuff fm parents: 9380 diff changeset	6143	'C5 Envelope, 162- by 229-millimeters' 28 "/ env_c5
d8547710430c printer stuff fm parents: 9380 diff changeset	6144	'C3 Envelope, 324- by 458-millimeters' 29 "/ env_c3
d8547710430c printer stuff fm parents: 9380 diff changeset	6145	'C4 Envelope, 229- by 324-millimeters' 30 "/ env_c4
d8547710430c printer stuff fm parents: 9380 diff changeset	6146	'C6 Envelope, 114- by 162-millimeters' 31 "/ env_c6
d8547710430c printer stuff fm parents: 9380 diff changeset	6147	'C65 Envelope, 114- by 229-millimeters' 32 "/ env_c65
d8547710430c printer stuff fm parents: 9380 diff changeset	6148	'B4 Envelope, 250- by 353-millimeters' 33 "/ env_b4
d8547710430c printer stuff fm parents: 9380 diff changeset	6149	'B5 Envelope, 176- by 250-millimeters' 34 "/ env_b5
d8547710430c printer stuff fm parents: 9380 diff changeset	6150	'B6 Envelope, 176- by 125-millimeters' 35 "/ env_b6
d8547710430c printer stuff fm parents: 9380 diff changeset	6151	'DL Envelope, 110- by 220-millimeters' 27 "/ env_dl
d8547710430c printer stuff fm parents: 9380 diff changeset	6152	'Italy Envelope, 110- by 230-millimeters' 36 "/ env_italy
d8547710430c printer stuff fm parents: 9380 diff changeset	6153	'Monarch Envelope, 3 7/8- by 7 1/2-inches' 37 "/ env_monarch
d8547710430c printer stuff fm parents: 9380 diff changeset	6154	"/ env_personal 6 3/4 Envelope, 3 5/8- by 6 1/2-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6155	"/ esheet E Sheet, 34- by 44-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6156	"/ executive Executive, 7 1/4- by 10 1/2-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6157	"/ fanfold_us US Std Fanfold, 14 7/8- by 11-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6158	"/ fanfold_std_german German Std Fanfold, 8 1/2- by 12-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6159	"/ fanfold_lgl_german German Legal Fanfold, 8 - by 13-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6160	"/ folio Folio, 8 1/2- by 13-inch paper
d8547710430c printer stuff fm parents: 9380 diff changeset	6161	"/ 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	6162	"/ jenv_chou3 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Chou #3
d8547710430c printer stuff fm parents: 9380 diff changeset	6163	"/ 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	6164	"/ jenv_chou4 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Chou #4
d8547710430c printer stuff fm parents: 9380 diff changeset	6165	"/ 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	6166	"/ jenv_kaku2 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Kaku #2
d8547710430c printer stuff fm parents: 9380 diff changeset	6167	"/ 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	6168	"/ jenv_kaku3 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Kaku #3
d8547710430c printer stuff fm parents: 9380 diff changeset	6169	"/ 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	6170	"/ jenv_you4 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope You #4
d8547710430c printer stuff fm parents: 9380 diff changeset	6171	"/ 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	6172	"/ last Windows 2000/XP: PENV_10_ROTATED
d8547710430c printer stuff fm parents: 9380 diff changeset	6173	'Ledger, 17- by 11-inches' 4 "/ ledger
d8547710430c printer stuff fm parents: 9380 diff changeset	6174	'Letter Rotated 11 by 8 1/2 11 inches' 54 "/ letter_rotated
d8547710430c printer stuff fm parents: 9380 diff changeset	6175	"/ lettersmall Letter Small, 8 1/2- by 11-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6176	"/ note Note, 8 1/2- by 11-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6177	"/ p16k Windows 98/Me, Windows NT 4.0 and later: PRC 16K, 146- by 215-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	6178	"/ 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	6179	"/ p32k Windows 98/Me, Windows NT 4.0 and later: PRC 32K, 97- by 151-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	6180	"/ 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	6181	"/ 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	6182	"/ 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	6183	"/ 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	6184	"/ 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	6185	"/ 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	6186	"/ 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	6187	"/ 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	6188	"/ 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	6189	"/ 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	6190	"/ 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	6191	"/ 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	6192	"/ 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	6193	"/ 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	6194	"/ 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	6195	"/ 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	6196	"/ 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	6197	"/ 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	6198	"/ 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	6199	"/ 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	6200	"/ 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	6201	"/ 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	6202	"/ 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	6203	"/ quarto Quarto, 215- by 275-millimeter paper
d8547710430c printer stuff fm parents: 9380 diff changeset	6204	"/ statement Statement, 5 1/2- by 8 1/2-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6205	"/ tabloid Tabloid, 11- by 17-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6206	).
d8547710430c printer stuff fm parents: 9380 diff changeset	6207
d8547710430c printer stuff fm parents: 9380 diff changeset	6208	"Created: / 31-07-2006 / 15:35:37 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6209	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6210
d8547710430c printer stuff fm parents: 9380 diff changeset	6211	statusNumberToDescriptionForNumber:aNumber
11403 0a34ea95a57b changed: #statusNumberToDescriptionForNumber: fm parents: 11180 diff changeset	6212	^ self statusNumberToDescriptionMapping at:aNumber ifAbsent:[('Unknown (%1)' bindWith:aNumber printString)]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6213
d8547710430c printer stuff fm parents: 9380 diff changeset	6214	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6215	self statusNumberToDescriptionForNumber:1
d8547710430c printer stuff fm parents: 9380 diff changeset	6216	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6217
d8547710430c printer stuff fm parents: 9380 diff changeset	6218	"Created: / 01-08-2006 / 14:31:18 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6219	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6220
d8547710430c printer stuff fm parents: 9380 diff changeset	6221	statusNumberToDescriptionMapping
d8547710430c printer stuff fm parents: 9380 diff changeset	6222	\|d\|
d8547710430c printer stuff fm parents: 9380 diff changeset	6223
d8547710430c printer stuff fm parents: 9380 diff changeset	6224	d := self statusNumberToDescriptionTable.
d8547710430c printer stuff fm parents: 9380 diff changeset	6225
d8547710430c printer stuff fm parents: 9380 diff changeset	6226	d keys copy do:[:k \| d at:(d at:k) put:k].
d8547710430c printer stuff fm parents: 9380 diff changeset	6227	^ d.
d8547710430c printer stuff fm parents: 9380 diff changeset	6228
d8547710430c printer stuff fm parents: 9380 diff changeset	6229	"Created: / 01-08-2006 / 14:31:05 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6230	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6231
d8547710430c printer stuff fm parents: 9380 diff changeset	6232	statusNumberToDescriptionTable
d8547710430c printer stuff fm parents: 9380 diff changeset	6233
d8547710430c printer stuff fm parents: 9380 diff changeset	6234	^Dictionary withKeysAndValues:
d8547710430c printer stuff fm parents: 9380 diff changeset	6235	#( 'Ready' 0 "/ PRINTER_STATUS_READY
d8547710430c printer stuff fm parents: 9380 diff changeset	6236	'Paused' 1 "/ PRINTER_STATUS_PAUSED
d8547710430c printer stuff fm parents: 9380 diff changeset	6237	'Error' 2 "/ PRINTER_STATUS_ERROR
d8547710430c printer stuff fm parents: 9380 diff changeset	6238	'Deleting...' 4 "/ PRINTER_STATUS_PENDING_DELETION
d8547710430c printer stuff fm parents: 9380 diff changeset	6239	'Paper Jam' 8 "/ PRINTER_STATUS_PAPER_JAM
d8547710430c printer stuff fm parents: 9380 diff changeset	6240	'Paper Out' 16 "/ PRINTER_STATUS_PAPER_OUT
d8547710430c printer stuff fm parents: 9380 diff changeset	6241	'Manual Feed Required' 32 "/ PRINTER_STATUS_MANUAL_FEED
d8547710430c printer stuff fm parents: 9380 diff changeset	6242	'Paper Problem' 64 "/ PRINTER_STATUS_PAPER_PROBLEM
d8547710430c printer stuff fm parents: 9380 diff changeset	6243	'Offline' 128 "/ PRINTER_STATUS_OFFLINE
d8547710430c printer stuff fm parents: 9380 diff changeset	6244	'Downloading Job' 256 "/ PRINTER_STATUS_IO_ACTIVE
d8547710430c printer stuff fm parents: 9380 diff changeset	6245	'Busy' 512 "/ PRINTER_STATUS_BUSY
d8547710430c printer stuff fm parents: 9380 diff changeset	6246	'Printing' 1024 "/ PRINTER_STATUS_PRINTING
d8547710430c printer stuff fm parents: 9380 diff changeset	6247	'Output Bill Full' 2048 "/ PRINTER_STATUS_OUTPUT_BIN_FULL
d8547710430c printer stuff fm parents: 9380 diff changeset	6248	'Not Available' 4096 "/ PRINTER_STATUS_NOT_AVAILABLE
d8547710430c printer stuff fm parents: 9380 diff changeset	6249	'Waiting' 8192 "/ PRINTER_STATUS_WAITING
d8547710430c printer stuff fm parents: 9380 diff changeset	6250	'Processing Job' 16384 "/ PRINTER_STATUS_PROCESSING
d8547710430c printer stuff fm parents: 9380 diff changeset	6251	'Initializing' 32768 "/ PRINTER_STATUS_INITIALIZING
d8547710430c printer stuff fm parents: 9380 diff changeset	6252	'Warming Up' 65536 "/ PRINTER_STATUS_WARMING_UP
d8547710430c printer stuff fm parents: 9380 diff changeset	6253	'Toner Low' 131072 "/ PRINTER_STATUS_TONER_LOW
d8547710430c printer stuff fm parents: 9380 diff changeset	6254	'Toner Out' 262144 "/ PRINTER_STATUS_NO_TONER
d8547710430c printer stuff fm parents: 9380 diff changeset	6255	'Page too Complex' 524288 "/ PRINTER_STATUS_PAGE_PUNT
d8547710430c printer stuff fm parents: 9380 diff changeset	6256	'User Intervention Required'1048576 "/ PRINTER_STATUS_USER_INTERVENTION
d8547710430c printer stuff fm parents: 9380 diff changeset	6257	'Out of Memory' 2097152 "/ PRINTER_STATUS_OUT_OF_MEMORY
d8547710430c printer stuff fm parents: 9380 diff changeset	6258	'Door Open' 4194304 "/ PRINTER_STATUS_DOOR_OPEN
d8547710430c printer stuff fm parents: 9380 diff changeset	6259	'Unable to connect' 8388608 "/ PRINTER_STATUS_SERVER_UNKNOWN
d8547710430c printer stuff fm parents: 9380 diff changeset	6260	'Power Save Mode' 16777216 "/ PRINTER_STATUS_POWER_SAVE
d8547710430c printer stuff fm parents: 9380 diff changeset	6261	).
d8547710430c printer stuff fm parents: 9380 diff changeset	6262
d8547710430c printer stuff fm parents: 9380 diff changeset	6263	"Created: / 01-08-2006 / 14:23:33 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6264	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6265
d8547710430c printer stuff fm parents: 9380 diff changeset	6266	!AbstractOperatingSystem::PrinterInfo methodsFor:'accessing'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6267
d8547710430c printer stuff fm parents: 9380 diff changeset	6268	attributes
d8547710430c printer stuff fm parents: 9380 diff changeset	6269	^ attributes
d8547710430c printer stuff fm parents: 9380 diff changeset	6270
d8547710430c printer stuff fm parents: 9380 diff changeset	6271	"Created: / 27-07-2006 / 12:16:59 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6272	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6273
d8547710430c printer stuff fm parents: 9380 diff changeset	6274	collate
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6275	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6276
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6277	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6278	^ properties isNil ifTrue:[ nil ] ifFalse:[ properties collate = 1 ]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6279
d8547710430c printer stuff fm parents: 9380 diff changeset	6280	"Created: / 01-08-2006 / 09:56:14 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6281	"Modified: / 01-08-2006 / 11:49:18 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6282	"Modified: / 18-10-2006 / 12:02:29 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6283	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6284
d8547710430c printer stuff fm parents: 9380 diff changeset	6285	collate: aBoolean
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6286	\|integer\|
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6287
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6288	integer:= aBoolean
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6289	ifTrue:[1] "DMCOLLATE_TRUE"
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6290	ifFalse:[0]. "DMCOLLATE_FALSE"
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6291	self documentProperties collate: integer
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6292
d8547710430c printer stuff fm parents: 9380 diff changeset	6293	"Created: / 01-08-2006 / 09:56:01 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6294	"Modified: / 16-04-2007 / 12:01:30 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6295	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6296
d8547710430c printer stuff fm parents: 9380 diff changeset	6297	comment
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6298	^self printerInfo2 pComment
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6299
d8547710430c printer stuff fm parents: 9380 diff changeset	6300	"Created: / 01-08-2006 / 15:06:20 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6301	"Modified: / 16-04-2007 / 12:01:42 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6302	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6303
d8547710430c printer stuff fm parents: 9380 diff changeset	6304	copies
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6305	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6306
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6307	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6308	^ properties isNil ifTrue:[ nil ] ifFalse:[ properties copies ]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6309
d8547710430c printer stuff fm parents: 9380 diff changeset	6310	"Created: / 31-07-2006 / 13:46:53 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6311	"Modified: / 18-10-2006 / 12:02:14 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6312	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6313
d8547710430c printer stuff fm parents: 9380 diff changeset	6314	copies: anInteger
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6315	self documentProperties copies: anInteger
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6316
d8547710430c printer stuff fm parents: 9380 diff changeset	6317	"Created: / 31-07-2006 / 13:54:55 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6318	"Modified: / 16-04-2007 / 12:01:48 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6319	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6320
d8547710430c printer stuff fm parents: 9380 diff changeset	6321	documentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6322
d8547710430c printer stuff fm parents: 9380 diff changeset	6323	^documentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6324
d8547710430c printer stuff fm parents: 9380 diff changeset	6325	"Created: / 28-07-2006 / 11:50:04 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6326	"Modified: / 31-07-2006 / 13:06:24 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6327	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6328
d8547710430c printer stuff fm parents: 9380 diff changeset	6329	documentProperties: aDevModeStructure
d8547710430c printer stuff fm parents: 9380 diff changeset	6330
d8547710430c printer stuff fm parents: 9380 diff changeset	6331	documentProperties := aDevModeStructure.
d8547710430c printer stuff fm parents: 9380 diff changeset	6332
d8547710430c printer stuff fm parents: 9380 diff changeset	6333	"Created: / 28-07-2006 / 11:47:31 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6334	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6335
d8547710430c printer stuff fm parents: 9380 diff changeset	6336	driverName
d8547710430c printer stuff fm parents: 9380 diff changeset	6337
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6338	^self attributes at:#driverName
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6339
d8547710430c printer stuff fm parents: 9380 diff changeset	6340	"Created: / 01-08-2006 / 15:33:08 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6341	"Modified: / 16-04-2007 / 12:01:53 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6342	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6343
d8547710430c printer stuff fm parents: 9380 diff changeset	6344	location
d8547710430c printer stuff fm parents: 9380 diff changeset	6345
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6346	^self printerInfo2 pLocation
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6347
d8547710430c printer stuff fm parents: 9380 diff changeset	6348	"Created: / 01-08-2006 / 15:06:28 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6349	"Modified: / 16-04-2007 / 12:02:07 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6350	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6351
d8547710430c printer stuff fm parents: 9380 diff changeset	6352	longName
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6353	^attributes at:#longName ifAbsent:['']
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6354
d8547710430c printer stuff fm parents: 9380 diff changeset	6355	"Created: / 28-07-2006 / 12:06:32 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6356	"Modified: / 16-04-2007 / 12:02:11 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6357	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6358
d8547710430c printer stuff fm parents: 9380 diff changeset	6359	medium
d8547710430c printer stuff fm parents: 9380 diff changeset	6360
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6361	^self attributes at:#medium
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6362
d8547710430c printer stuff fm parents: 9380 diff changeset	6363	"Created: / 01-08-2006 / 15:34:26 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6364	"Modified: / 16-04-2007 / 12:02:14 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6365	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6366
d8547710430c printer stuff fm parents: 9380 diff changeset	6367	orientation
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6368	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6369
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6370	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6371	^ properties isNil ifTrue:[ nil ] ifFalse:[ properties orientation ]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6372
d8547710430c printer stuff fm parents: 9380 diff changeset	6373	"Created: / 28-07-2006 / 16:44:26 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6374	"Modified: / 18-10-2006 / 12:01:36 / User"
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6375	!
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6376
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6377	orientation:anInteger
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6378	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6379
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6380	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6381	properties notNil ifTrue:[
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6382	properties orientation:anInteger
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6383	]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6384
d8547710430c printer stuff fm parents: 9380 diff changeset	6385	"Created: / 28-07-2006 / 17:22:44 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6386	"Modified: / 18-10-2006 / 12:01:40 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6387	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6388
d8547710430c printer stuff fm parents: 9380 diff changeset	6389	pDriverName
d8547710430c printer stuff fm parents: 9380 diff changeset	6390
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6391	^self printerInfo2 pDriverName
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6392
d8547710430c printer stuff fm parents: 9380 diff changeset	6393	"Created: / 01-08-2006 / 15:33:08 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6394	"Modified: / 16-04-2007 / 12:02:21 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6395	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6396
d8547710430c printer stuff fm parents: 9380 diff changeset	6397	paperSize
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6398	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6399
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6400	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6401	^ properties isNil ifTrue:[ nil ] ifFalse:[ properties paperSize ]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6402
d8547710430c printer stuff fm parents: 9380 diff changeset	6403	"Created: / 31-07-2006 / 15:23:29 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6404	"Modified: / 31-07-2006 / 16:25:58 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6405	"Modified: / 18-10-2006 / 12:01:45 / User"
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6406	!
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6407
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6408	paperSize:anInteger
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6409	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6410
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6411	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6412	properties notNil ifTrue:[
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6413	properties paperSize:anInteger
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6414	]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6415
d8547710430c printer stuff fm parents: 9380 diff changeset	6416	"Created: / 31-07-2006 / 15:23:20 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6417	"Modified: / 18-10-2006 / 12:01:48 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6418	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6419
d8547710430c printer stuff fm parents: 9380 diff changeset	6420	paperSizeName
d8547710430c printer stuff fm parents: 9380 diff changeset	6421	^ self class paperSizeNameForNumber:self paperSize ifAbsent:[nil].
d8547710430c printer stuff fm parents: 9380 diff changeset	6422
d8547710430c printer stuff fm parents: 9380 diff changeset	6423	"Created: / 31-07-2006 / 15:35:12 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6424	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6425
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6426	paperSizeName:aString
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6427	self paperSize:(self class paperSizeNumberForName:aString)
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6428
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6429	"Modified: / 18-10-2006 / 12:01:56 / User"
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	printQuality
d8547710430c printer stuff fm parents: 9380 diff changeset	6433	^self documentProperties printQuality
d8547710430c printer stuff fm parents: 9380 diff changeset	6434
d8547710430c printer stuff fm parents: 9380 diff changeset	6435	"Created: / 04-08-2006 / 13:10:06 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6436	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6437
d8547710430c printer stuff fm parents: 9380 diff changeset	6438	printerName
d8547710430c printer stuff fm parents: 9380 diff changeset	6439	^ printerName
d8547710430c printer stuff fm parents: 9380 diff changeset	6440
d8547710430c printer stuff fm parents: 9380 diff changeset	6441	"Created: / 27-07-2006 / 12:16:59 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6442	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6443
d8547710430c printer stuff fm parents: 9380 diff changeset	6444	printerName:printerNameArg attributes:attributesArg
d8547710430c printer stuff fm parents: 9380 diff changeset	6445
d8547710430c printer stuff fm parents: 9380 diff changeset	6446	printerName := printerNameArg.
d8547710430c printer stuff fm parents: 9380 diff changeset	6447	attributes := attributesArg.
d8547710430c printer stuff fm parents: 9380 diff changeset	6448
d8547710430c printer stuff fm parents: 9380 diff changeset	6449	"Created: / 27-07-2006 / 12:29:18 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6450	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6451
d8547710430c printer stuff fm parents: 9380 diff changeset	6452	remotePrinterHost
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6453	^attributes at:#remotePrinterHost ifAbsent:['']
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6454
d8547710430c printer stuff fm parents: 9380 diff changeset	6455	"Created: / 28-07-2006 / 16:30:13 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6456	"Modified: / 16-04-2007 / 12:02:32 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6457	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6458
d8547710430c printer stuff fm parents: 9380 diff changeset	6459	remotePrinterName
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6460	^attributes at:#remotePrinterName ifAbsent:['']
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6461
d8547710430c printer stuff fm parents: 9380 diff changeset	6462	"Created: / 28-07-2006 / 16:30:06 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6463	"Modified: / 16-04-2007 / 12:03:23 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6464	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6465
d8547710430c printer stuff fm parents: 9380 diff changeset	6466	status
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6467	self isAvailable ifFalse:[^''].
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6468	^self class statusNumberToDescriptionForNumber: self getPrinterInfo2 status
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6469
d8547710430c printer stuff fm parents: 9380 diff changeset	6470	"Created: / 01-08-2006 / 13:48:58 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6471	"Modified: / 16-04-2007 / 12:03:41 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6472	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6473
d8547710430c printer stuff fm parents: 9380 diff changeset	6474	userFriendlyName
d8547710430c printer stuff fm parents: 9380 diff changeset	6475	^self remotePrinterName isEmpty
d8547710430c printer stuff fm parents: 9380 diff changeset	6476	ifTrue:[self printerName]
d8547710430c printer stuff fm parents: 9380 diff changeset	6477	ifFalse:[self remotePrinterName, ' on ', self remotePrinterHost]
d8547710430c printer stuff fm parents: 9380 diff changeset	6478
d8547710430c printer stuff fm parents: 9380 diff changeset	6479	"Created: / 03-08-2006 / 12:50:09 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6480	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6481
d8547710430c printer stuff fm parents: 9380 diff changeset	6482	!AbstractOperatingSystem::PrinterInfo methodsFor:'dc creation'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6483
d8547710430c printer stuff fm parents: 9380 diff changeset	6484	createDC
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6485	\|driverName pName\|
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6486
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6487	driverName := self driverName.
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6488	pName := self printerName.
10513 0a27c8d86154 * empty log message * Claus Gittinger <cg@exept.de> parents: 10510 diff changeset	6489	"/ Transcript show:driverName; show:' '; showCR:printerName.
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6490
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6491	^OperatingSystem createPrinterDC:driverName
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6492	device:pName
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6493	output:self medium
d8547710430c printer stuff fm parents: 9380 diff changeset	6494	initData:self documentProperties.
d8547710430c printer stuff fm parents: 9380 diff changeset	6495
d8547710430c printer stuff fm parents: 9380 diff changeset	6496	"Created: / 02-08-2006 / 16:51:02 / fm"
10513 0a27c8d86154 * empty log message * Claus Gittinger <cg@exept.de> parents: 10510 diff changeset	6497	"Modified: / 16-04-2007 / 13:56:56 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6498	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6499
d8547710430c printer stuff fm parents: 9380 diff changeset	6500	!AbstractOperatingSystem::PrinterInfo methodsFor:'dialogs'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6501
d8547710430c printer stuff fm parents: 9380 diff changeset	6502	openPropertiesDialog
9844 c92a32fa507d * empty log message * Claus Gittinger <cg@exept.de> parents: 9721 diff changeset	6503	"Returns true if the documentProperties have been accepted. Otherwise, returns false"
c92a32fa507d * empty log message * Claus Gittinger <cg@exept.de> parents: 9721 diff changeset	6504
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6505	\|h newDocumentProperties\|
d8547710430c printer stuff fm parents: 9380 diff changeset	6506
d8547710430c printer stuff fm parents: 9380 diff changeset	6507	h := OperatingSystem openPrinter: self printerName.
d8547710430c printer stuff fm parents: 9380 diff changeset	6508	newDocumentProperties := OperatingSystem documentPropertiesDialogFor:nil
d8547710430c printer stuff fm parents: 9380 diff changeset	6509	hPrinter:h
d8547710430c printer stuff fm parents: 9380 diff changeset	6510	pDeviceName: self printerName
d8547710430c printer stuff fm parents: 9380 diff changeset	6511	devModeInput:self documentProperties.
9844 c92a32fa507d * empty log message * Claus Gittinger <cg@exept.de> parents: 9721 diff changeset	6512	(newDocumentProperties contains:[:el \| el ~= 0])
c92a32fa507d * empty log message * Claus Gittinger <cg@exept.de> parents: 9721 diff changeset	6513	ifFalse:[^false].
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6514	self documentProperties: newDocumentProperties.
d8547710430c printer stuff fm parents: 9380 diff changeset	6515	OperatingSystem closePrinter:h.
d8547710430c printer stuff fm parents: 9380 diff changeset	6516	^true
d8547710430c printer stuff fm parents: 9380 diff changeset	6517
d8547710430c printer stuff fm parents: 9380 diff changeset	6518	"Created: / 28-07-2006 / 11:44:01 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6519	"Modified: / 01-08-2006 / 11:55:49 / fm"
9844 c92a32fa507d * empty log message * Claus Gittinger <cg@exept.de> parents: 9721 diff changeset	6520	"Modified: / 13-09-2006 / 11:36:10 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6521	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6522
d8547710430c printer stuff fm parents: 9380 diff changeset	6523	!AbstractOperatingSystem::PrinterInfo methodsFor:'modifying'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6524
d8547710430c printer stuff fm parents: 9380 diff changeset	6525	setLandscapeOrientation
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6526	"DMORIENT_LANDSCAPE = 2"
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6527	self documentProperties orientation: 2
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6528
d8547710430c printer stuff fm parents: 9380 diff changeset	6529	"Created: / 28-07-2006 / 15:53:35 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6530	"Modified: / 16-04-2007 / 12:03:30 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6531	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6532
d8547710430c printer stuff fm parents: 9380 diff changeset	6533	setNumberOfCopies: n
d8547710430c printer stuff fm parents: 9380 diff changeset	6534
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6535	self documentProperties copies: n
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6536
d8547710430c printer stuff fm parents: 9380 diff changeset	6537	"Created: / 28-07-2006 / 16:04:04 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6538	"Modified: / 16-04-2007 / 12:03:33 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6539	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6540
d8547710430c printer stuff fm parents: 9380 diff changeset	6541	setPortraitOrientation
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6542	"DMORIENT_PORTRAIT = 1"
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6543	self documentProperties orientation: 1
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6544
d8547710430c printer stuff fm parents: 9380 diff changeset	6545	"Created: / 28-07-2006 / 15:49:45 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6546	"Modified: / 16-04-2007 / 12:03:36 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6547	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6548
d8547710430c printer stuff fm parents: 9380 diff changeset	6549	!AbstractOperatingSystem::PrinterInfo methodsFor:'printing & storing'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6550
d8547710430c printer stuff fm parents: 9380 diff changeset	6551	printOn:aStream
d8547710430c printer stuff fm parents: 9380 diff changeset	6552	aStream nextPutAll:(self class name); nextPutAll:'('.
d8547710430c printer stuff fm parents: 9380 diff changeset	6553	printerName printOn:aStream.
d8547710430c printer stuff fm parents: 9380 diff changeset	6554	aStream nextPutAll:')'.
d8547710430c printer stuff fm parents: 9380 diff changeset	6555
d8547710430c printer stuff fm parents: 9380 diff changeset	6556	"Created: / 27-07-2006 / 12:30:28 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6557	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6558
d8547710430c printer stuff fm parents: 9380 diff changeset	6559	!AbstractOperatingSystem::PrinterInfo methodsFor:'private'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6560
d8547710430c printer stuff fm parents: 9380 diff changeset	6561	getDocumentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6562	"Returns a aDevModeStructure"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6563
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6564	\|h devMode \|
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6565
d8547710430c printer stuff fm parents: 9380 diff changeset	6566	h := OperatingSystem openPrinter: self printerName.
d8547710430c printer stuff fm parents: 9380 diff changeset	6567	devMode := OperatingSystem getDocumentProperties:nil
d8547710430c printer stuff fm parents: 9380 diff changeset	6568	hPrinter:h
d8547710430c printer stuff fm parents: 9380 diff changeset	6569	pDeviceName: self printerName.
d8547710430c printer stuff fm parents: 9380 diff changeset	6570	OperatingSystem closePrinter: h.
d8547710430c printer stuff fm parents: 9380 diff changeset	6571	^devMode
d8547710430c printer stuff fm parents: 9380 diff changeset	6572
d8547710430c printer stuff fm parents: 9380 diff changeset	6573	"Created: / 28-07-2006 / 11:49:33 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6574	"Modified: / 31-07-2006 / 10:33:04 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6575	"Modified: / 16-04-2007 / 12:02:00 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6576	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6577
d8547710430c printer stuff fm parents: 9380 diff changeset	6578	getPrinterInfo2
d8547710430c printer stuff fm parents: 9380 diff changeset	6579	"Returns a aPrinterInfo2 structure"
10097 2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6580
2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6581	printerInfo2 := OperatingSystem getPrinterInfo2:self printerName.
2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6582	^ printerInfo2
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6583
d8547710430c printer stuff fm parents: 9380 diff changeset	6584	"Created: / 01-08-2006 / 13:50:55 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6585	"Modified: / 01-08-2006 / 15:11:03 / fm"
10097 2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6586	"Modified: / 18-10-2006 / 12:03:54 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6587	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6588
d8547710430c printer stuff fm parents: 9380 diff changeset	6589	printerInfo2
d8547710430c printer stuff fm parents: 9380 diff changeset	6590	"Returns a aPrinterInfo2 structure"
10097 2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6591
2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6592	printerInfo2 isNil ifTrue:[
2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6593	self getPrinterInfo2.
2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6594	].
2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6595	^ printerInfo2
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6596
d8547710430c printer stuff fm parents: 9380 diff changeset	6597	"Created: / 01-08-2006 / 15:10:18 / fm"
10097 2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6598	"Modified: / 18-10-2006 / 12:03:57 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6599	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6600
d8547710430c printer stuff fm parents: 9380 diff changeset	6601	setDocumentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6602	"Sets a aDevModeStructure or nil if the printer is not available"
d8547710430c printer stuff fm parents: 9380 diff changeset	6603
d8547710430c printer stuff fm parents: 9380 diff changeset	6604	self documentProperties: self getDocumentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6605
d8547710430c printer stuff fm parents: 9380 diff changeset	6606	"Created: / 31-07-2006 / 13:04:58 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6607	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6608
d8547710430c printer stuff fm parents: 9380 diff changeset	6609	!AbstractOperatingSystem::PrinterInfo methodsFor:'queries'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6610
d8547710430c printer stuff fm parents: 9380 diff changeset	6611	isAvailable
d8547710430c printer stuff fm parents: 9380 diff changeset	6612
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6613	^self documentProperties notNil
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6614
d8547710430c printer stuff fm parents: 9380 diff changeset	6615	"Created: / 31-07-2006 / 13:08:58 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6616	"Modified: / 16-04-2007 / 12:02:05 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6617	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6618
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6619	!AbstractOperatingSystem::TimeInfo methodsFor:'accessing'!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6620
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6621	at:index
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6622	"backward compatibility"
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6623
8357 64be78ef1e77 Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 8250 diff changeset	6624	<resource: #obsolete>
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6625	self obsoleteMethodWarning:'use accessor for index ', index printString.
7739 d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6626
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6627	index == 1 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6628	^ self year.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6629	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6630	index == 2 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6631	^ self month.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6632	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6633	index == 3 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6634	^ self day.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6635	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6636	index == 4 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6637	^ self hours.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6638	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6639	index == 5 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6640	^ self minutes.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6641	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6642	index == 6 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6643	^ self seconds.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6644	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6645	index == 7 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6646	^ self utcOffset.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6647	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6648	index == 8 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6649	^ self dst.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6650	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6651	index == 9 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6652	^ self milliseconds.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6653	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6654	index == 10 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6655	^ self dayInYear.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6656	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6657	index == 11 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6658	^ self dayInWeek.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6659	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6660	self subscriptBoundsError:index
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6661	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6662
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6663	day
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6664	^ day
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6665	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6666
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6667	dayInWeek
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6668	^ dayInWeek
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6669	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6670
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6671	dayInYear
17757 73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6672	"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	6673	(it is not set in windows)"
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6674
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6675	\|dayCount\|
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6676
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6677	dayInYear notNil ifTrue:[
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6678	^ dayInYear.
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6679	].
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6680
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6681	dayCount := #(0 31 59 90 120 151 181 212 243 273 304 334) at:month.
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6682	(month > 2
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6683	and:[(year \\ 4 == 0)
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6684	and:[(year \\ 100 ~~ 0)
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6685	and:[(year \\ 400 == 0)]]]) ifTrue:[
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6686	"leap year and month after February"
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6687	dayCount := dayCount + 1.
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6688	].
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6689
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6690	^ dayCount + day.
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6691
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6692
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6693	"
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6694	\|daysSoFar\|
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6695
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6696	daysSoFar := 0.
73caeb68bf1f Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17754 diff changeset	6697	#(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	6698	"
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6699	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6700
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6701	dst
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6702	^ dst
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6703	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6704
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6705	hours
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6706	^ hours
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6707	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6708
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6709	milliseconds
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6710	^ milliseconds
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6711	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6712
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6713	milliseconds:something
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6714	milliseconds := something.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6715	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6716
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6717	minutes
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6718	^ minutes
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6719	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6720
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6721	month
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6722	^ month
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
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6725	seconds
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6726	^ seconds
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6727	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6728
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6729	utcOffset
8887 0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6730	"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	6731	If daylight saving time applies to ourself, take that into account.
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6732	Add utcOffset to convert from local time to UTC time.
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6733	Subtract utcOffset to convert from UTC time to local time.
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6734
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6735	If utcOffset is negative, the local timezone is east of Greenwich.
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6736	If utcOffset is positive, the local timezone is west of Greenwich."
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6737
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6738	^ utcOffset
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6739
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6740	"
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6741	OperatingSystem utcOffset
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6742	"
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6743	!
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	year
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6746	^ year
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
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6749	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	6750	"set instance variables (automatically generated)"
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6751
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6752	year := yearArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6753	month := monthArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6754	day := dayArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6755	hours := hoursArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6756	minutes := minutesArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6757	seconds := secondsArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6758	milliseconds := millisecondsArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6759	utcOffset := utcOffsetArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6760	dst := dstArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6761	dayInYear := dayInYearArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6762	dayInWeek := dayInWeekArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6763	!
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6764
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6765	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	6766	"set instance variables (automatically generated)"
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6767
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6768	year := yearArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6769	month := monthArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6770	day := dayArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6771	hours := hoursArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6772	minutes := minutesArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6773	seconds := secondsArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6774	utcOffset := utcOffsetArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6775	dst := dstArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6776	dayInYear := dayInYearArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6777	dayInWeek := dayInWeekArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6778	! !
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6779
17815 956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6780	!AbstractOperatingSystem::TimeInfo methodsFor:'converting'!
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6781
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6782	asDate
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6783	^ Date new year:year month:month day:day.
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6784	!
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6785
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6786	asTime
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6787	^ Time hours:hours minutes:minutes seconds:seconds
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6788	! !
956b46750806 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17814 diff changeset	6789
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6790	!AbstractOperatingSystem::TimeZoneInfo class methodsFor:'documentation'!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6791
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6792	documentation
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6793	"
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6794	Bias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6795	The current bias for local time translation on this computer, in minutes.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6796	The bias is the difference, in minutes, between Coordinated Universal Time (UTC)
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6797	and local time.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6798	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	6799
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6800	UTC = local time + bias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6801
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6802	StandardName
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6803	A description for standard time. For example, 'EST' could indicate Eastern Standard Time.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6804	The string will be returned unchanged by the GetTimeZoneInformation function.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6805	This string can be empty.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6806	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	6807
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6808	StandardDate
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6809	A Timestamp that contains a date and local time when the transition from daylight saving
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6810	time to standard time occurs on this operating system.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6811	If the time zone does not support daylight saving time or if the caller needs to disable
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6812	daylight saving time, the standardDate is nil.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6813	If this date is specified, the DaylightDate member of this structure must also be specified.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6814	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	6815
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6816	To select the correct day in the month, set the wYear member to zero, the wHour and wMinute members
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6817	to the transition time, the wDayOfWeek member to the appropriate weekday, and the wDay member to indicate
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6818	the occurrence of the day of the week within the month (1 to 5, where 5 indicates the final occurrence
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6819	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	6820
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6821	Using this notation, specify 02:00 on the first Sunday in April as follows:
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6822	wHour = 2, wMonth = 4, wDayOfWeek = 0, wDay = 1.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6823	Specify 02:00 on the last Thursday in October as follows:
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6824	wHour = 2, wMonth = 10, wDayOfWeek = 4, wDay = 5.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6825
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6826	If the wYear member is not zero, the transition date is absolute; it will only occur one time.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6827	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	6828
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6829	StandardBias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6830	The bias value to be used during local time translations that occur during standard time.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6831	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	6832
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6833	This value is added to the value of the Bias member to form the bias used during standard time.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6834	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	6835
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6836	DaylightName
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6837	A description for daylight saving time. For example, 'PDT' could indicate Pacific Daylight Time.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6838	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	6839	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	6840
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6841	DaylightDate
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6842	A Timestamp structure that contains a date and local time when the transition from standard time
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6843	to daylight saving time occurs on this operating system.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6844	If the time zone does not support daylight saving time or if the caller needs to disable daylight
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6845	saving time, this entry is nil.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6846	If this date is specified, the StandardDate member in this structure must also be specified.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6847	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	6848
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6849	To select the correct day in the month, set the wYear member to zero, the wHour and wMinute members to
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6850	the transition time, the wDayOfWeek member to the appropriate weekday, and the wDay member to indicate
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6851	the occurrence of the day of the week within the month (1 to 5, where 5 indicates the final occurrence
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6852	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	6853
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6854	If the wYear member is not zero, the transition date is absolute; it will only occur one time.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6855	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	6856
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6857	DaylightBias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6858	The bias value to be used during local time translations that occur during daylight saving time.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6859	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	6860
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6861	This value is added to the value of the Bias member to form the bias used during daylight saving time.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6862	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	6863	"
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6864	! !
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6865
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6866	!AbstractOperatingSystem::TimeZoneInfo methodsFor:'accessing'!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6867
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6868	bias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6869	^ bias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6870	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6871
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6872	bias:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6873	bias := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6874	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6875
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6876	bias:biasArg name:nameArg standardBias:standardBiasArg daylightName:daylightNameArg daylightBias:daylightBiasArg
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6877	bias := biasArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6878	name := nameArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6879	standardBias := standardBiasArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6880	daylightName := daylightNameArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6881	daylightBias := daylightBiasArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6882	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6883
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6884	bias:biasArg name:nameArg standardDate:standardDateArg standardBias:standardBiasArg daylightName:daylightNameArg daylightDate:daylightDateArg daylightBias:daylightBiasArg
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6885	bias := biasArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6886	name := nameArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6887	standardDate := standardDateArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6888	standardBias := standardBiasArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6889	daylightName := daylightNameArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6890	daylightDate := daylightDateArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6891	daylightBias := daylightBiasArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6892	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6893
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6894	daylightBias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6895	^ daylightBias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6896	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6897
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6898	daylightBias:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6899	daylightBias := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6900	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6901
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6902	daylightDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6903	^ daylightDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6904	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6905
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6906	daylightDay:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6907	daylightDay := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6908	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6909
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6910	daylightHour
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6911	^ daylightHour
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6912	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6913
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6914	daylightHour:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6915	daylightHour := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6916	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6917
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6918	daylightMinute
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6919	^ daylightMinute
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6920	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6921
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6922	daylightMinute:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6923	daylightMinute := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6924	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6925
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6926	daylightMonth
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6927	^ daylightMonth
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6930	daylightMonth:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6931	daylightMonth := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6932	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6933
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6934	daylightName
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6935	^ daylightName
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6936	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6937
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6938	daylightName:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6939	daylightName := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6940	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6941
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6942	daylightWeekDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6943	^ daylightWeekDay
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6946	daylightWeekDay:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6947	daylightWeekDay := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6948	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6949
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6950	daylightYear
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6951	^ daylightYear
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	daylightYear:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6955	daylightYear := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6956	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6957
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6958	daylightYear:daylightYearArg daylightMonth:daylightMonthArg daylightDay:daylightDayArg daylightWeekDay:daylightWeekDayArg daylightHour:daylightHourArg daylightMinute:daylightMinuteArg
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6959	daylightYear := daylightYearArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6960	daylightMonth := daylightMonthArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6961	daylightDay := daylightDayArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6962	daylightWeekDay := daylightWeekDayArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6963	daylightHour := daylightHourArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6964	daylightMinute := daylightMinuteArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6965	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6966
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6967	name
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6968	^ name
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6969	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6970
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6971	name:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6972	name := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6973	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6974
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6975	standardBias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6976	^ standardBias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6977	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6978
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6979	standardBias:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6980	standardBias := something.
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6983	standardDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6984	^ standardDay
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6987	standardDay:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6988	standardDay := something.
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6991	standardHour
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6992	^ standardHour
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6995	standardHour:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6996	standardHour := something.
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6999	standardMinute
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7000	^ standardMinute
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7003	standardMinute:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7004	standardMinute := something.
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7007	standardMonth
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7008	^ standardMonth
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7011	standardMonth:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7012	standardMonth := something.
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7015	standardWeekDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7016	^ standardWeekDay
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7019	standardWeekDay:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7020	standardWeekDay := something.
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7023	standardYear
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7024	^ standardYear
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7027	standardYear:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7028	standardYear := something.
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7031	standardYear:standardYearArg standardMonth:standardMonthArg standardDay:standardDayArg standardWeekDay:standardWeekDayArg standardHour:standardHourArg standardMinute:standardMinuteArg
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7032	standardYear := standardYearArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7033	standardMonth := standardMonthArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7034	standardDay := standardDayArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7035	standardWeekDay := standardWeekDayArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7036	standardHour := standardHourArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7037	standardMinute := standardMinuteArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7038	! !
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7039
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7040	!AbstractOperatingSystem::TimeZoneInfo methodsFor:'queries'!
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	utcOffset
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7043	"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	7044	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	7045	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	7046	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	7047
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7048	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	7049	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	7050
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7051	^ (bias + daylightBias) * 60
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7052
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7053	"
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7054	OperatingSystem utcOffset
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7055	"
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7056	! !
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	7057
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	7058	!AbstractOperatingSystem class methodsFor:'documentation'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	7059
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	7060	version
17892 d86c8bd5ece3 Merged with CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17869 diff changeset	7061	^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.215 2011/10/27 16:31:24 stefan Exp $'
17735 6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	7062	!
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	7063
6a5bc05f696a Merged with trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17728 diff changeset	7064	version_CVS
17892 d86c8bd5ece3 Merged with CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17869 diff changeset	7065	^ 'Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.215 2011/10/27 16:31:24 stefan Exp '
17865 598963c6ff8e Recommited from itself Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17847 diff changeset	7066	!
598963c6ff8e Recommited from itself Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17847 diff changeset	7067
598963c6ff8e Recommited from itself Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17847 diff changeset	7068	version_SVN
17892 d86c8bd5ece3 Merged with CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17869 diff changeset	7069	^ '$Id: AbstractOperatingSystem.st 10729 2011-10-31 22:19:21Z vranyj1 $'
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	7070	! !
6772 6bfdc2522ea2 isMountPoint penk parents: 6720 diff changeset	7071
17846 24edc476ac18 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17845 diff changeset	7072	AbstractOperatingSystem initialize!
17892 d86c8bd5ece3 Merged with CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17869 diff changeset	7073

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 31 Oct 2011 22:19:21 +0000
branch	jv
changeset 17892	d86c8bd5ece3
parent 17869	9610c6c94e71
child 17909	0ab1deab8e9c
permissions	-rw-r--r--