hg/stx-libbasic: AbstractOperatingSystem.st@bbc5fa73dfab (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
10544 83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	15	instanceVariableNames:''
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	16	classVariableNames:'ConcreteClass LastErrorNumber LocaleInfo OSSignals PipeFailed
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	17	ErrorSignal AccessDeniedErrorSignal FileNotFoundErrorSignal
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	18	InvalidArgumentsSignal UnsupportedOperationSignal Resources'
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	19	poolDictionaries:''
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 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
10544 83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	24	instanceVariableNames:'printerName attributes documentProperties printerInfo2'
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	25	classVariableNames:''
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	26	poolDictionaries:''
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 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
10544 83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	31	instanceVariableNames:'year month day hours minutes seconds utcOffset dst milliseconds
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	32	dayInYear dayInWeek'
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	33	classVariableNames:''
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	34	poolDictionaries:''
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	39	instanceVariableNames:'bias name standardYear standardMonth standardDay standardWeekDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	40	standardHour standardMinute standardBias daylightName standardDate daylightDate
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	41	daylightYear daylightMonth daylightDay daylightWeekDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	42	daylightHour daylightMinute daylightBias'
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	43	classVariableNames:''
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	44	poolDictionaries:''
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	45	privateIn:AbstractOperatingSystem
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 \|
47c85e53a9d0 handle & ignore error when loading resources; Claus Gittinger <cg@exept.de> parents: 10733 diff changeset	192	'OS [warning]: error when reading resources for libbasic' errorPrintCR.
47c85e53a9d0 handle & ignore error when loading resources; Claus Gittinger <cg@exept.de> parents: 10733 diff changeset	193	] do:[
47c85e53a9d0 handle & ignore error when loading resources; Claus Gittinger <cg@exept.de> parents: 10733 diff changeset	194	Resources := ResourcePack forPackage:(self package).
47c85e53a9d0 handle & ignore error when loading resources; Claus Gittinger <cg@exept.de> parents: 10733 diff changeset	195	].
8715 631211fda967 ResourcePack not required. Claus Gittinger <cg@exept.de> parents: 8669 diff changeset	196	]
10734 47c85e53a9d0 handle & ignore error when loading resources; Claus Gittinger <cg@exept.de> parents: 10733 diff changeset	197
47c85e53a9d0 handle & ignore error when loading resources; Claus Gittinger <cg@exept.de> parents: 10733 diff changeset	198	"Modified: / 01-10-2007 / 12:14:43 / cg"
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	199	!
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	200
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	201	initialize
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	202	"initialize the class"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	203
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	204	self initializeConcreteClass.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	205
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	206	ErrorSignal isNil ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	207	OSErrorHolder initialize.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	208	ErrorSignal := OsError.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	209	InvalidArgumentsSignal := OsInvalidArgumentsError.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	210	AccessDeniedErrorSignal := OSErrorHolder noPermissionsSignal.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	211	FileNotFoundErrorSignal := OSErrorHolder nonexistentSignal.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	212	UnsupportedOperationSignal := OSErrorHolder unsupportedOperationSignal.
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	213	].
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	214	Smalltalk addDependent:self. "/ to catch language changes
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	215	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	216
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	217	initializeConcreteClass
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	218	\|osType cls\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	219
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	220	osType := self getSystemType.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	221	osType = 'win32' ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	222	cls := Win32OperatingSystem
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	223	] ifFalse:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	224	osType = 'os2' ifTrue:[
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	225	cls := OS2OperatingSystem
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	226	] ifFalse:[
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	227	osType = 'macos' ifTrue:[
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	228	cls := MacOperatingSystem
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	229	] ifFalse:[
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	230	((osType = 'VMS') or:[osType = 'openVMS']) ifTrue:[
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	231	cls := OpenVMSOperatingSystem
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	232	] ifFalse:[
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	233	cls := UnixOperatingSystem
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	234	]
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	235	]
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	236	]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	237	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	238	OperatingSystem := ConcreteClass := cls.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	239	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	240
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	241	!AbstractOperatingSystem class methodsFor:'OS signal constants'!
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	sigABRT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	244	"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	245	(the numeric value is not the same across unix-systems)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	246
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	247	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	248	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	249
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	250	sigALRM
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	251	"return the signal number for SIGALRM - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	252	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	255	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	256
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	257	sigBREAK
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	258	"return the signal number for SIGBREAK - 0 if not supported.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	259	This is an MSDOS specific signal"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	262	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	263
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	264	sigBUS
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	265	"return the signal number for SIGBUS - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	266	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	269	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	270
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	271	sigCHLD
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	272	"return the signal number for SIGCHLD - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	273	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	276	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	277
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	278	sigCONT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	279	"return the signal number for SIGCONT - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	280	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	283	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	284
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	285	sigDANGER
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	286	"return the signal number for SIGDANGER - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	287	(seems to be an AIX special)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	290	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	291
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	292	sigEMT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	293	"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	294	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	297	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	298
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	299	sigFP
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	300	"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	301	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	304	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	305
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	306	sigGRANT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	307	"return the signal number for SIGGRANT - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	308	(seems to be an AIX special)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	311	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	312
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	313	sigHUP
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	314	"return the signal number for SIGHUP
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	315	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	318	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	319
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	320	sigILL
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	321	"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	322	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	325	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	326
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	327	sigINT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	328	"return the signal number for SIGINT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	329	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	332	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	333
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	334	sigIO
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	335	"return the signal number for SIGIO - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	336	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	339	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	340
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	341	sigIOT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	342	"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	343	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	346	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	347
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	348	sigKILL
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	349	"return the signal number for SIGKILL
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	350	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	353	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	354
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	355	sigLOST
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	356	"return the signal number for SIGLOST - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	357	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	360	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	361
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	362	sigMIGRATE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	363	"return the signal number for SIGMIGRATE - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	364	(seems to be an AIX special)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	367	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	368
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	369	sigMSG
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	370	"return the signal number for SIGMSG - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	371	(seems to be an AIX special)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	374	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	375
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	376	sigPIPE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	377	"return the signal number for SIGPIPE - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	378	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	381	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	382
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	383	sigPOLL
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	384	"return the signal number for SIGPOLL - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	385	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	388	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	389
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	390	sigPRE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	391	"return the signal number for SIGPRE - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	392	(seems to be an AIX special)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	395	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	396
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	397	sigPROF
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	398	"return the signal number for SIGPROF - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	399	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	402	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	403
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	404	sigPWR
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	405	"return the signal number for SIGPWR - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	406	(not available on all systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	409	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	410
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	411	sigQUIT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	412	"return the signal number for SIGQUIT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	413	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	416	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	417
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	418	sigRETRACT
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	419	"return the signal number for SIGRETRACT - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	420	(seems to be an AIX special)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	423	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	424
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	425	sigSAK
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	426	"return the signal number for SIGSAK - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	427	(seems to be an AIX special)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	430	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	431
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	432	sigSEGV
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	433	"return the signal number for SIGSEGV - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	434	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	437	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	438
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	439	sigSOUND
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	440	"return the signal number for SIGSOUND - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	441	(seems to be an AIX special)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	444	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	445
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	446	sigSTOP
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	447	"return the signal number for SIGSTOP - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	448	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	451	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	452
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	453	sigSYS
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	454	"return the signal number for SIGSYS - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	455	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	458	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	459
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	460	sigTERM
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	461	"return the signal number for SIGTERM - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	462	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	465	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	466
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	467	sigTRAP
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	468	"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	469	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	472	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	473
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	474	sigTSTP
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	475	"return the signal number for SIGTSTP - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	476	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	479	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	480
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	481	sigTTIN
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	482	"return the signal number for SIGTTIN - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	483	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	486	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	487
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	488	sigTTOU
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	489	"return the signal number for SIGTTOU - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	490	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	493	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	494
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	495	sigURG
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	496	"return the signal number for SIGURG - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	497	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	500	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	501
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	502	sigUSR1
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	503	"return the signal number for SIGUSR1 - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	504	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	507	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	508
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	509	sigUSR2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	510	"return the signal number for SIGUSR2 - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	511	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	514	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	515
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	516	sigVTALRM
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	517	"return the signal number for SIGVTALRM - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	518	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	521	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	522
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	523	sigWINCH
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	524	"return the signal number for SIGWINCH - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	525	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	528	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	529
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	530	sigXCPU
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	531	"return the signal number for SIGXCPU - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	532	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	535	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	536
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	537	sigXFSZ
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	538	"return the signal number for SIGXFSZ - 0 if not supported
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	539	(the numeric value is not the same across unix-systems)"
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	^ 0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	542	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	543
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	544	!AbstractOperatingSystem class methodsFor:'Signal constants'!
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	accessDeniedErrorSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	547	"return the signal raised when a (file-) access is denied."
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	^ AccessDeniedErrorSignal
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	552	errorSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	553	"return the parent signal of all OS signals."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	554
8497 1e6d5f80d91b use class based signals Stefan Vogel <sv@exept.de> parents: 8474 diff changeset	555	^ OsError
3576 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	"Modified: 22.4.1996 / 13:11:31 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	558	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	559
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	560	fileNotFoundErrorSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	561	"return the signal raised when a file was not found."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	562
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	563	^ FileNotFoundErrorSignal
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	566	invalidArgumentsSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	567	"return the signal which is raised for invalid arguments.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	568	Currently, this is never raised."
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	^ InvalidArgumentsSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	571
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	572	"Created: 13.9.1997 / 10:46:47 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	573	"Modified: 13.9.1997 / 10:47:03 / cg"
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	576	unsupportedOperationSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	577	"return the signal which is raised when an operation
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	578	is attempted, which is not supported by the OS.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	579	(For example, creating a link on VMS or MSDOS)"
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	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	583
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	584	!AbstractOperatingSystem class methodsFor:'change & update'!
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	585
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	586	update:something with:aParameter from:changedObject
7497 cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7492 diff changeset	587	"Smalltalk notifies us about changes"
cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7492 diff changeset	588
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	589	((something == #Language) or:[something == #LanguageTerritory]) ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	590	self initResources
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	591	]
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	592	! !
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	593
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	594	!AbstractOperatingSystem class methodsFor:'error messages'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	595
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	596	clearLastErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	597	"return the last errors number.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	598	See also: #lastErrorSymbol and #lastErrorString.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	599	Notice: having a single error number is a bad idea in a multithreaded
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	600	environment - this interface will change."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	601
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	602	LastErrorNumber := nil.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	603
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	604	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	605	AbstractOperatingSystem clearLastErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	606	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	607
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	608	"Created: 12.4.1996 / 09:28:58 / stefan"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	609	"Modified: 12.4.1996 / 09:38:51 / stefan"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	610	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	611
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	612	currentErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	613	"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	614	Notice, that the value of this flag is only valid immediately
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	615	after the error occurred - it gets updated with every other
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	616	request to the OS.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	617	Use lastErrorNumber - currentErrorNumber is invalidated by
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	618	many, many internal calls."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	619
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	620	^ self lastErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	621
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	622	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	623	OperatingSystem currentErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	624	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	625	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	626
6284 5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	627	errorHolderForNumber:anInteger
5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	628
5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	629	^ self subclassResponsibility
5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	630	!
5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	631
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	632	errorNumberFor:aSymbol
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	633	"given a symbolic error, return the numeric;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	634	(i.e. errorNumberFor:#EBADF returns EBADF's value).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	635	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	636
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	637	^ -1
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
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	640	errorStringForSymbol:errorSymbol
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	641	"return an errorMessage for an errorSymbol
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	642	(as kept in an osErrorHolder)."
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	643
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	644	Resources isNil ifTrue:[
10734 47c85e53a9d0 handle & ignore error when loading resources; Claus Gittinger <cg@exept.de> parents: 10733 diff changeset	645	self initResources.
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	646	Resources isNil ifTrue:[
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	647	^ errorSymbol
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	648	]
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	649	].
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	650	^ Resources at:errorSymbol ifAbsent:errorSymbol
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	651
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	652	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	653	OperatingSystem errorStringForSymbol:#EPERM
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	654	OperatingSystem errorStringForSymbol:(OperatingSystem errorSymbolForNumber:4)
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	655	"
10733 c83c02dae4f8 handle & ignore error when loading resources; Claus Gittinger <cg@exept.de> parents: 10684 diff changeset	656
10734 47c85e53a9d0 handle & ignore error when loading resources; Claus Gittinger <cg@exept.de> parents: 10733 diff changeset	657	"Modified: / 01-10-2007 / 12:14:52 / cg"
6278 ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	658	!
ca32319d98b2 error text handling Claus Gittinger <cg@exept.de> parents: 6162 diff changeset	659
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	660	errorSymbolAndTextForNumber:errNr
6284 5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	661	"do not use - temporary for backward compatibility.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	662	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	663	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	664
6284 5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	665	\|holder errSym\|
5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	666
5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	667	holder := self errorHolderForNumber:errNr.
5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	668	errSym := holder errorSymbol.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	669	^ Array
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	670	with:errSym
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	671	with:(self errorStringForSymbol:errSym)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	672
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	673	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	674	OperatingSystem errorSymbolAndTextForNumber:(OperatingSystem errorNumberFor:#EPERM)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	675	OperatingSystem errorSymbolAndTextForNumber:(OperatingSystem errorNumberFor:#EIO)
6287 f1a8f0ac8048 * empty log message * Stefan Vogel <sv@exept.de> parents: 6284 diff changeset	676	OperatingSystem errorSymbolAndTextForNumber:(OperatingSystem errorNumberFor:#ENXIO)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	677	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	678	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	679
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	680	errorSymbolForNumber:errNr
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	681	"return a symbol for a unix errorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	682	(as returned by a system call)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	683
6284 5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	684	^ (self errorHolderForNumber:errNr) errorSymbol
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	685
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	686	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	687	OperatingSystem errorSymbolForNumber:4
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	688	OperatingSystem errorSymbolForNumber:2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	689	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	690	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	691
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	692	errorTextForNumber:errNr
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	693	"return a message string from a unix errorNumber
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	694	(as returned by a system call).
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	695	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	696	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	697
6284 5b735e3df2c8 checkin from browser Stefan Vogel <sv@exept.de> parents: 6279 diff changeset	698	^ (self errorHolderForNumber:errNr) errorString
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	699
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	700	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	701	OperatingSystem errorTextForNumber:4
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	702	OperatingSystem errorTextForNumber:(OperatingSystem errorNumberFor:#EPERM)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	703	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	704	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	705
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	706	lastErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	707	"return the last errors number.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	708	See also: #lastErrorSymbol and #lastErrorString.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	709	Notice: having a single error number is a bad idea in a multithreaded
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	710	environment - this interface will change."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	711
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	712	^ LastErrorNumber
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	OperatingSystem lastErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	716	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	717	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	718
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	719	lastErrorString
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	720	"return a message string describing the last error.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	721	See also: #lastErrorNumber and #lastErrorSymbol.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	722	Notice: having a single error number is a bad idea in a multithreaded
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	723	environment - this interface will change."
3576 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	LastErrorNumber isNil ifTrue:[^ nil].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	726	^ self errorTextForNumber:LastErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	727
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	728	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	729	OperatingSystem lastErrorString
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	730	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	731	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	732
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	733	lastErrorSymbol
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	734	"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	735	See also: #lastErrorNumber and #lastErrorString.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	736	Notice: having a single error number is a bad idea in a multithreaded
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	737	environment - this interface will change."
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	LastErrorNumber isNil ifTrue:[^ nil].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	740	^ self errorSymbolForNumber:LastErrorNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	741
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	742	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	743	OperatingSystem lastErrorSymbol
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	744	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	745	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	746
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	747	!AbstractOperatingSystem class methodsFor:'executing OS commands-implementation'!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	748
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	749	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	750	"execute an OS command"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	751
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	752	^ self subclassResponsibility
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	753
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	754	"Created: / 12.11.1998 / 14:46:15 / cg"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	755	!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	756
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	757	fork
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	758	"fork a new (HEAVY-weight) unix process.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	759	Not supported with MSDOS & VMS systems.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	760	Dont confuse this with Block>>fork, which creates
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	761	lightweight smalltalk processes. This method will return
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	762	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	763	unix-process-id) to the parent (original) process.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	764
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	765	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	766	#startProcess: and #executCommand: for higher level interfaces."
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	767
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	768	"/
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	769	"/ not supported by OS
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	770	"/
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	771
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	772	^ UnsupportedOperationSignal raise
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	773	!
7637 6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	774
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	775	startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream
7637 6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	776	errorTo:anExternalErrStream auxFrom:anExternalAuxStreamOrNil environment:environment inDirectory:dir
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	777	"start executing the OS command as specified by the argument, aCommandString
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	778	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	779	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	780	'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	781	The command gets stdIn, stdOut and stdErr assigned from the arguments;
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	782	each may be nil.
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	783	Return the processId if successful, nil otherwise.
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	784	Use #monitorPid:action: for synchronization and exec status return,
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	785	or #killProcess: to stop it."
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	786
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	787	"raise an error: must be redefined in concrete subclass(es)"
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	788
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	789	^ self subclassResponsibility
7656 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	!AbstractOperatingSystem class methodsFor:'executing OS commands-private'!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	793
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	794	shuffleAllFrom:anInStream to:anOutStream lineWise:lineWise lockWith:aLock
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	795
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	796	lineWise ifFalse:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	797	^ anInStream copyToEndInto:anOutStream.
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	798	].
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	799	[anInStream atEnd] whileFalse:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	800	aLock critical:[
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	801	self
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	802	shuffleFrom:anInStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	803	to:anOutStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	804	lineWise:lineWise
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	805	]
7656 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	!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	808
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	809	shuffleFrom:anInStream to:anOutStream lineWise:lineWise
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	810	"copy data from anInStream to anOutStream.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	811	Caller makes sure, than anInStream does not block.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	812	anOutstream should have been set to non-blocking-mode"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	813
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	814	lineWise ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	815	\|data\|
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	816
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	817	data := anInStream nextLine.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	818	data notNil ifTrue:[
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	819	anOutStream nextPutLine:data
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	820	] .
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	821	] ifFalse:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	822	anInStream copyToEndInto:anOutStream.
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	823	].
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	824	!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	825
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	826	shuffleRestFrom:anInStream to:anOutStream lineWise:lineWise
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	827	[anInStream atEnd] whileFalse:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	828	self
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	829	shuffleFrom:anInStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	830	to:anOutStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	831	lineWise:lineWise.
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	832	].
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	833	!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	834
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	835	startProcess:aCommandString
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	836	"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	837	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	838	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	839	'sh -c' in your UNIX manual.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	840	Return the processId if successful, nil otherwise.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	841	Use #waitForProcess: for synchronization and exec status return,
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	842	or #killProcess: to stop it."
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	^ self
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	845	startProcess:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	846	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	847	outputTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	848	errorTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	849	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	850	inDirectory:nil
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	851
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	852	"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	853	\|pid\|
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	854
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	855	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	856	(Delay forSeconds:3) wait.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	857	OperatingSystem killProcess:pid.
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	\|pid\|
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	861
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	862	pid := OperatingSystem startProcess:'dir/l'.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	863	(Delay forSeconds:1) wait.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	864	OperatingSystem killProcess:pid.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	865	"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	866	"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	867	\|pid\|
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	868
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	869	pid := OperatingSystem
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	870	startProcess:'dir/l'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	871	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	872	outputTo:Stdout
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	873	errorTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	874	inDirectory:nil.
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	875	(Delay forSeconds:2) wait.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	876	OperatingSystem killProcess:pid.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	877	"
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	"Modified: / 21.3.1997 / 10:04:35 / dq"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	880	"Modified: / 10.11.1998 / 21:03:50 / cg"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	881	!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	882
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	883	startProcess:aCommandString inDirectory:aDirectory
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	884	"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	885	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	886	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	887	'sh -c' in your UNIX manual.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	888	Return the processId if successful, nil otherwise.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	889	Use #waitForProcess: for synchronization and exec status return,
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	890	or #killProcess: to stop it."
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	891
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	892	^ self
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	893	startProcess:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	894	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	895	outputTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	896	errorTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	897	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	898	inDirectory:aDirectory
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	899	"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	900	\|pid\|
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 := OperatingSystem startProcess:'sleep 2; echo 1; sleep 2; echo 2'.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	903	(Delay forSeconds:3) wait.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	904	OperatingSystem killProcess:pid.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	905	"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	906
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	907	"Modified: / 21.3.1997 / 10:04:35 / dq"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	908	"Modified: / 28.1.1998 / 14:13:33 / md"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	909	"Modified: / 10.11.1998 / 20:59:33 / cg"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	910	!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	911
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	912	startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream errorTo:anExternalErrStream
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	913	"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	914	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	915	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	916	'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	917	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	918	each may be nil.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	919	Return the processId if successful, nil otherwise.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	920	Use #monitorPid:action: for synchronization and exec status return,
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	921	or #killProcess: to stop it."
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	922
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	923	^ self
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	924	startProcess:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	925	inputFrom:anExternalInStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	926	outputTo:anExternalOutStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	927	errorTo:anExternalErrStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	928	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	929	inDirectory:nil
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	930
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	931	"Modified: / 10.11.1998 / 20:59:05 / cg"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	932	!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	933
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	934	startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	935	errorTo:anExternalErrStream auxFrom:anAuxiliaryStream inDirectory:dir
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	936
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	937	^ self
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	938	startProcess:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	939	inputFrom:anExternalInStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	940	outputTo:anExternalOutStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	941	errorTo:anExternalErrStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	942	auxFrom:anAuxiliaryStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	943	environment:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	944	inDirectory:dir
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	945	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	946
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	947	startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream errorTo:anExternalErrStream inDirectory:dir
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
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 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:dir
7637 6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	965	! !
6137943fb16c * empty log message * Michael Beyl <mb@exept.de> parents: 7514 diff changeset	966
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	967	!AbstractOperatingSystem class methodsFor:'executing OS commands-public'!
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	968
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	969	executeCommand:aCommandString
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	970	"execute the unix command specified by the argument, aCommandString.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	971	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	972	'sh -c' in your UNIX manual.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	973	Return true if successful, false otherwise."
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	974
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	975	^ self
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	976	executeCommand:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	977	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	978	outputTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	979	errorTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	980	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	981	inDirectory:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	982	lineWise:false
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	983	onError:[:status\| false]
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	984
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	985	"unix:
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	986
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	987	OperatingSystem executeCommand:'sleep 30'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	988	OperatingSystem executeCommand:'pwd'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	989	OperatingSystem executeCommand:'ls -l'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	990	OperatingSystem executeCommand:'invalidCommand'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	991	OperatingSystem executeCommand:'rm /tmp/foofoofoofoo'.
7656 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
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	994	"msdos:
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	995
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	996	OperatingSystem executeCommand:'dir'
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	997	OperatingSystem executeCommand:'dir /w'
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	998	"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	999
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1000	"vms:
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1001
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1002	OperatingSystem executeCommand:'dir'
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1003	OperatingSystem executeCommand:'purge'
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1004	OperatingSystem executeCommand:'cc foo.c'
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1005	"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1006
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1007	"Modified: / 7.1.1997 / 19:29:55 / stefan"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1008	"Modified: / 10.11.1998 / 20:55:37 / cg"
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
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1011	executeCommand:aCommandString errorTo:errorStream
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1012	"execute the unix command specified by the argument, aCommandString.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1013	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	1014	'sh -c' in your UNIX manual.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1015	Return true if successful, false otherwise."
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1016
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1017	^ self
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1018	executeCommand:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1019	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1020	outputTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1021	errorTo:errorStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1022	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1023	inDirectory:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1024	lineWise:false
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1025	onError:[:status\| false]
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1026
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1027	"unix:
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1028
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1029	OperatingSystem executeCommand:'ls -l' errorTo:Transcript.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1030	OperatingSystem executeCommand:'invalidCommand' errorTo:Transcript.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1031	OperatingSystem executeCommand:'rm /tmp/foofoofoofoo' errorTo:Transcript.
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1032	"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1033	!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1034
10021 0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1035	executeCommand:aCommandString errorTo:errorStream inDirectory:aDirectory
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1036	"execute the unix command specified by the argument, aCommandString.
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1037	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	1038	'sh -c' in your UNIX manual.
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1039	Return true if successful, false otherwise."
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1040
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1041	^ self
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1042	executeCommand:aCommandString
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1043	inputFrom:nil
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1044	outputTo:nil
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1045	errorTo:errorStream
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1046	auxFrom:nil
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1047	inDirectory:aDirectory
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1048	lineWise:false
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1049	onError:[:status\| false]
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1050
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1051	"unix:
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1052
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1053	OperatingSystem executeCommand:'ls -l' errorTo:Transcript.
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1054	OperatingSystem executeCommand:'invalidCommand' errorTo:Transcript.
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1055	OperatingSystem executeCommand:'rm /tmp/foofoofoofoo' errorTo:Transcript.
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1056	"
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1057
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1058	"Created: / 29-09-2006 / 14:58:30 / cg"
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1059	!
0d500f2d6efb * empty log message * Claus Gittinger <cg@exept.de> parents: 9844 diff changeset	1060
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1061	executeCommand:aCommandString inDirectory:aDirectory
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1062	"execute the unix command specified by the argument, aCommandString.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1063	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	1064	'sh -c' in your UNIX manual.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1065	Return true if successful, false otherwise."
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1066
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1067	^ self
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1068	executeCommand:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1069	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1070	outputTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1071	errorTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1072	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1073	inDirectory:aDirectory
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1074	lineWise:false
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1075	onError:[:exitStatus\| false]
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1076
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1077	"Modified: / 10.11.1998 / 20:54:37 / cg"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1078	!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1079
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1080	executeCommand:aCommandString inDirectory:aDirectory onError:aBlock
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1081	"execute the unix command specified by the argument, aCommandString.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1082	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	1083	'sh -c' in your UNIX manual.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1084	Return true if successful, the value from aBlock if not.
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1085	If not successfull, aBlock is called with an OsProcessStatus
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1086	(containing the exit status) as argument."
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1087
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1088	^ self
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1089	executeCommand:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1090	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1091	outputTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1092	errorTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1093	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1094	inDirectory:aDirectory
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1095	lineWise:false
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1096	onError:aBlock
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1097
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1098	"Modified: / 10.11.1998 / 20:54:37 / cg"
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1099	!
298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	1100
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1101	executeCommand:aCommandString inputFrom:anInStream outputTo:anOutStream
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1102	errorTo:anErrStream auxFrom:anAuxStream environment:environmentDictionary
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1103	inDirectory:dirOrNil lineWise:lineWise onError:aBlock
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1104
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1105	"execute the unix command specified by the argument, aCommandString.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1106	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	1107	'sh -c' in your UNIX manual.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1108	Return true if successful, or the value of aBlock if not.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1109	If not successfull, aBlock is called with an OsProcessStatus
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1110	(containing the exit status) as argument.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1111	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	1112	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	1113	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	1114	those internal stream(s).
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1115	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	1116	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	1117
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1118	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	1119	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	1120	avoid vlocking on pipes"
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1121
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1122	\|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	1123	shuffledInStream shuffledOutStream shuffledErrStream shuffledAuxStream
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1124	inputShufflerProcess outputShufflerProcess errorShufflerProcess auxShufflerProcess stopShufflers
10387 7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1125	inStreamToClose outStreamToClose errStreamToClose auxStreamToClose terminateLock
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1126	closeStreams\|
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1127
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1128	terminateLock := Semaphore forMutualExclusion.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1129	((externalInStream := anInStream) notNil
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1130	and:[externalInStream isExternalStream not]) ifTrue:[
10387 7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1131	pIn := NonPositionableExternalStream makePipe.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1132	inStreamToClose := externalInStream := pIn at:1.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1133	shuffledInStream := pIn at:2.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1134	anInStream isBinary ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1135	shuffledInStream binary
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1136	].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1137	lineWise ifFalse:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1138	shuffledInStream blocking:false.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1139	].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1140
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1141	"/ start a reader process, shuffling data from the given
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1142	"/ inStream to the pipe (which is connected to the commands input)
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1143	inputShufflerProcess :=
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1144	[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1145	[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1146	[anInStream atEnd] whileFalse:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1147	self shuffleFrom:anInStream to:shuffledInStream lineWise:lineWise.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1148	shuffledInStream flush
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1149	]
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1150	] ensure:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1151	shuffledInStream close
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1152	]
10491 41c9bfd7fe86 Make auxilliary processes to system processes Stefan Vogel <sv@exept.de> parents: 10387 diff changeset	1153	] newProcess
41c9bfd7fe86 Make auxilliary processes to system processes Stefan Vogel <sv@exept.de> parents: 10387 diff changeset	1154	name:'cmd input shuffler';
10498 db5cd86b77e2 Be conservative when setting helper processes of executeCommand:... Stefan Vogel <sv@exept.de> parents: 10491 diff changeset	1155	"/ beSystemProcess;
10491 41c9bfd7fe86 Make auxilliary processes to system processes Stefan Vogel <sv@exept.de> parents: 10387 diff changeset	1156	resume.
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1157	].
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1158	((externalOutStream := anOutStream) notNil
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1159	and:[externalOutStream isExternalStream not]) ifTrue:[
10387 7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1160	pOut := NonPositionableExternalStream makePipe.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1161	shuffledOutStream := (pOut at:1).
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1162	anOutStream isBinary ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1163	shuffledOutStream binary
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1164	].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1165	outStreamToClose := externalOutStream := pOut at:2.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1166	outputShufflerProcess :=
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1167	[
11180 ce009dee5161 care for write error in the output shuffler Michael Beyl <mb@exept.de> parents: 11170 diff changeset	1168	WriteError handle:[:ex \|
ce009dee5161 care for write error in the output shuffler Michael Beyl <mb@exept.de> parents: 11170 diff changeset	1169	"/ ignored
ce009dee5161 care for write error in the output shuffler Michael Beyl <mb@exept.de> parents: 11170 diff changeset	1170	] do:[
ce009dee5161 care for write error in the output shuffler Michael Beyl <mb@exept.de> parents: 11170 diff changeset	1171	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	1172	].
10491 41c9bfd7fe86 Make auxilliary processes to system processes Stefan Vogel <sv@exept.de> parents: 10387 diff changeset	1173	] newProcess
41c9bfd7fe86 Make auxilliary processes to system processes Stefan Vogel <sv@exept.de> parents: 10387 diff changeset	1174	name:'cmd output shuffler';
10498 db5cd86b77e2 Be conservative when setting helper processes of executeCommand:... Stefan Vogel <sv@exept.de> parents: 10491 diff changeset	1175	"/ beSystemProcess;
10491 41c9bfd7fe86 Make auxilliary processes to system processes Stefan Vogel <sv@exept.de> parents: 10387 diff changeset	1176	resume.
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1177	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1178	(externalErrStream := anErrStream) notNil ifTrue:[
10387 7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1179	anErrStream == anOutStream ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1180	externalErrStream := externalOutStream
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1181	] ifFalse:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1182	anErrStream isExternalStream ifFalse:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1183	pErr := NonPositionableExternalStream makePipe.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1184	shuffledErrStream := (pErr at:1).
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1185	anErrStream isBinary ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1186	shuffledErrStream binary
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1187	].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1188	errStreamToClose := externalErrStream := pErr at:2.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1189	errorShufflerProcess :=
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1190	[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1191	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	1192	] newProcess
41c9bfd7fe86 Make auxilliary processes to system processes Stefan Vogel <sv@exept.de> parents: 10387 diff changeset	1193	name:'cmd err-output shuffler';
10498 db5cd86b77e2 Be conservative when setting helper processes of executeCommand:... Stefan Vogel <sv@exept.de> parents: 10491 diff changeset	1194	"/ beSystemProcess;
10491 41c9bfd7fe86 Make auxilliary processes to system processes Stefan Vogel <sv@exept.de> parents: 10387 diff changeset	1195	resume.
10387 7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1196	]
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1197	]
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1198	].
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1199	((externalAuxStream := anAuxStream) notNil
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1200	and:[externalAuxStream isExternalStream not]) ifTrue:[
10387 7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1201	pAux := NonPositionableExternalStream makePipe.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1202	auxStreamToClose := externalAuxStream := pAux at:1.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1203	shuffledAuxStream := pAux at:2.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1204	shuffledAuxStream blocking:false.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1205	anAuxStream isBinary ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1206	shuffledAuxStream binary
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1207	].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1208
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1209	"/ start a reader process, shuffling data from the given
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1210	"/ auxStream to the pipe (which is connected to the commands aux)
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1211	auxShufflerProcess :=
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1212	[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1213	[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1214	[anAuxStream atEnd] whileFalse:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1215	self shuffleFrom:anAuxStream to:shuffledAuxStream lineWise:false.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1216	shuffledAuxStream flush
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1217	]
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1218	] ensure:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1219	shuffledAuxStream close
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1220	]
10491 41c9bfd7fe86 Make auxilliary processes to system processes Stefan Vogel <sv@exept.de> parents: 10387 diff changeset	1221	] newProcess
41c9bfd7fe86 Make auxilliary processes to system processes Stefan Vogel <sv@exept.de> parents: 10387 diff changeset	1222	name:'cmd aux shuffler';
10498 db5cd86b77e2 Be conservative when setting helper processes of executeCommand:... Stefan Vogel <sv@exept.de> parents: 10491 diff changeset	1223	"/ beSystemProcess;
10491 41c9bfd7fe86 Make auxilliary processes to system processes Stefan Vogel <sv@exept.de> parents: 10387 diff changeset	1224	resume.
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1225	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1226
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1227	stopShufflers := [
10387 7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1228	inputShufflerProcess notNil ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1229	terminateLock critical:[inputShufflerProcess terminate].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1230	inputShufflerProcess waitUntilTerminated
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	auxShufflerProcess notNil ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1233	terminateLock critical:[auxShufflerProcess terminate].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1234	auxShufflerProcess waitUntilTerminated
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1235	].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1236	outputShufflerProcess notNil ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1237	terminateLock critical:[outputShufflerProcess terminate].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1238	outputShufflerProcess waitUntilTerminated.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1239	self shuffleRestFrom:shuffledOutStream to:anOutStream lineWise:lineWise.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1240	shuffledOutStream close.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1241	].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1242	errorShufflerProcess notNil ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1243	terminateLock critical:[errorShufflerProcess terminate].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1244	errorShufflerProcess waitUntilTerminated.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1245	self shuffleRestFrom:shuffledErrStream to:anErrStream lineWise:lineWise.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1246	shuffledErrStream close.
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
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1250	closeStreams := [
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1251	inStreamToClose notNil ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1252	inStreamToClose close
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1253	].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1254	errStreamToClose notNil ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1255	errStreamToClose close
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1256	].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1257	outStreamToClose notNil ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1258	outStreamToClose close
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1259	].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1260	auxStreamToClose notNil ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1261	auxStreamToClose close
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1262	].
7497 cc29afd51151 Do not block when writing to pipes Stefan Vogel <sv@exept.de> parents: 7492 diff changeset	1263	].
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1264
10387 7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1265
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1266	sema := Semaphore new name:'OS command wait'.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1267	[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1268	pid := Processor
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1269	monitor:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1270	self
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1271	startProcess:aCommandString
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1272	inputFrom:externalInStream
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1273	outputTo:externalOutStream
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1274	errorTo:externalErrStream
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1275	auxFrom:externalAuxStream
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1276	environment:environmentDictionary
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1277	inDirectory:dirOrNil
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1278	]
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1279	action:[:status \|
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1280	status stillAlive ifFalse:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1281	exitStatus := status.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1282	sema signal.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1283	self closePid:pid
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	].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1286
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1287	pid isNil ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1288	exitStatus := self osProcessStatusClass processCreationFailure
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1289	] ifFalse:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1290	sema wait.
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	] ifCurtailed:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1293	closeStreams value.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1294	pid notNil ifTrue:[
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1295	"/ terminate the os-command (and all of its forked commands)
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1296	self terminateProcessGroup:pid.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1297	self terminateProcess:pid.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1298	self closePid:pid.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1299	].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1300	stopShufflers value.
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1301	].
10387 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	closeStreams value.
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1304	stopShufflers value.
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1305	exitStatus success ifFalse:[
10387 7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1306	^ aBlock value:exitStatus
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1307	].
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1308	^ true
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1309
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1310	"
10387 7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1311	\|outStream errStream\|
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1312
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1313	outStream := '' writeStream.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1314
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1315	OperatingSystem executeCommand:'ls -l'
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1316	inputFrom:'abc' readStream
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1317	outputTo:outStream
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1318	errorTo:nil
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1319	inDirectory:nil
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1320	lineWise:true
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1321	onError:[:exitStatus \| ^ false].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1322	outStream contents
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1323	"
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1324
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1325	"
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1326	\|outStream errStream\|
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1327
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1328	outStream := #[] writeStream.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1329
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1330	OperatingSystem executeCommand:'cat'
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1331	inputFrom:(ByteArray new:5000000) readStream
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1332	outputTo:outStream
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1333	errorTo:nil
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1334	inDirectory:nil
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1335	lineWise:false
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1336	onError:[:exitStatus \| ^ false].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1337	outStream size
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1338	"
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1339
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1340	"
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1341	\|outStream errStream\|
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1342
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1343	outStream := '' writeStream.
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1344
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1345	OperatingSystem executeCommand:'gpg -s --batch --no-tty --passphrase-fd 0 /tmp/passwd'
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1346	inputFrom:'bla' readStream
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1347	outputTo:outStream
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1348	errorTo:nil
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1349	inDirectory:nil
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1350	lineWise:true
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1351	onError:[:exitStatus \| false].
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1352	outStream contents
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1353	"
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1354
7a7092d727fc command execution Claus Gittinger <cg@exept.de> parents: 10344 diff changeset	1355	"Modified: / 11-02-2007 / 20:54:39 / cg"
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1356	!
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1357
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1358	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	1359	^ self
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1360	executeCommand:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1361	inputFrom:anInStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1362	outputTo:anOutStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1363	errorTo:anErrStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1364	auxFrom:anAuxStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1365	environment:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1366	inDirectory:dirOrNil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1367	lineWise:lineWise
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1368	onError:aBlock
7110 808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1369	!
808437ea66af add: #executeCommand:inputFrom:outputTo:errorTo:auxFrom:inDirectory:lineWise:onError: ca parents: 7106 diff changeset	1370
8655 499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1371	executeCommand:aCommandString inputFrom:inputStreamOrNil outputTo:outStreamOrNil errorTo:errStreamOrNil inDirectory:aDirectory
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1372	"much like #executeCommand:, but changes the current directory
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1373	for the command. Since this is OS specific, use this instead of
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1374	hardwiring any 'cd ..' command strings into your applictions."
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1375
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1376	^ self
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1377	executeCommand:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1378	inputFrom:inputStreamOrNil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1379	outputTo:outStreamOrNil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1380	errorTo:errStreamOrNil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1381	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1382	inDirectory:aDirectory
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1383	lineWise:false
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1384	onError:[:status\| false]
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1385
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1386	"
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1387	OperatingSystem executeCommand:'tdump date.obj' inDirectory:'c:\winstx\stx\libbasic\objbc'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1388	OperatingSystem executeCommand:'xxdir date.obj' inDirectory:'c:\winstx\stx\libbasic\objbc'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1389	OperatingSystem executeCommand:'dir' inDirectory:'c:\'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1390	OperatingSystem executeCommand:'dir'
8655 499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1391	"
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1392
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1393	"Modified: / 20.1.1998 / 17:03:03 / md"
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1394	"Modified: / 10.11.1998 / 20:28:10 / cg"
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1395	"Created: / 10.11.1998 / 21:05:45 / cg"
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1396	!
499dd3e58149 * empty log message * ca parents: 8641 diff changeset	1397
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1398	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	1399	"execute the unix command specified by the argument, aCommandString.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1400	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	1401	'sh -c' in your UNIX manual.
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1402	Return true if successful, the value from aBlock if not.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1403	If not successfull, aBlock is called with an OsProcessStatus
4847 6d3b5959198f enhanced executeCommand; Claus Gittinger <cg@exept.de> parents: 4377 diff changeset	1404	(containing the exit status) as argument.
6d3b5959198f enhanced executeCommand; Claus Gittinger <cg@exept.de> parents: 4377 diff changeset	1405	The given in, out and err streams may be arbitrary (Smalltalk-) streams;
6d3b5959198f enhanced executeCommand; Claus Gittinger <cg@exept.de> parents: 4377 diff changeset	1406	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	1407	extra pipes and shuffler processes are created, which stuff the data into
6d3b5959198f enhanced executeCommand; Claus Gittinger <cg@exept.de> parents: 4377 diff changeset	1408	those internal stream(s).
7059 6781d12b989a Fix #executeCommand:.... Stefan Vogel <sv@exept.de> parents: 6793 diff changeset	1409	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	1410	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	1411
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1412	^ self
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1413	executeCommand:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1414	inputFrom:anInStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1415	outputTo:anOutStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1416	errorTo:anErrStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1417	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1418	inDirectory:dirOrNil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1419	lineWise:lineWise
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1420	onError:aBlock
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1421	!
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1422
6162 5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1423	executeCommand:aCommandString inputFrom:anInStream outputTo:anOutStream errorTo:anErrStream inDirectory:dirOrNil onError:aBlock
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1424	"execute the unix command specified by the argument, aCommandString.
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1425	The commandString is passed to a shell for execution - see the description of
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1426	'sh -c' in your UNIX manual.
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1427	Return true if successful, the value from aBlock if not.
6162 5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1428	If not successfull, aBlock is called with an OsProcessStatus
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1429	(containing the exit status) as argument.
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1430	The given in, out and err streams may be arbitrary (Smalltalk-) streams;
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1431	if any is not an external stream (which is required by the command),
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1432	extra pipes and shuffler processes are created, which stuff the data into
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1433	those internal stream(s).
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1434	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	1435	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	1436
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1437	^ self
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1438	executeCommand:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1439	inputFrom:anInStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1440	outputTo:anOutStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1441	errorTo:anErrStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1442	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1443	inDirectory:dirOrNil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1444	lineWise:false
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1445	onError:aBlock
6162 5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1446
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1447	"
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1448	OperatingSystem
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1449	executeCommand:'dir'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1450	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1451	outputTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1452	errorTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1453	inDirectory:'c:'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1454	onError:[:status \| Transcript flash]
6162 5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1455
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1456	OperatingSystem
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1457	executeCommand:'foo'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1458	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1459	outputTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1460	errorTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1461	inDirectory:'/etc'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1462	onError:[:status \| Transcript flash]
6162 5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1463
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1464	\|s\|
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1465	s := '' writeStream.
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1466	OperatingSystem
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1467	executeCommand:'ls -l'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1468	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1469	outputTo:s
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1470	errorTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1471	onError:[:status \| Transcript flash].
6162 5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1472	Transcript showCR:s contents.
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1473
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1474	\|s\|
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1475	s := '' writeStream.
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1476	OperatingSystem
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1477	executeCommand:'sh foo'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1478	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1479	outputTo:s
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1480	errorTo:s
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1481	onError:[:status \| Transcript flash].
6162 5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1482	Transcript showCR:s contents.
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1483	"
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1484
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1485	"Modified: / 25.3.1997 / 11:02:02 / stefan"
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1486	"Modified: / 28.1.1998 / 14:46:36 / md"
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1487	"Modified: / 10.11.1998 / 20:48:08 / cg"
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1488	"Created: / 10.11.1998 / 20:51:11 / cg"
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1489	!
5bd760d061c4 added executeCommand-lineWise argument md parents: 6161 diff changeset	1490
6610 02a2d5b5cfe0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6605 diff changeset	1491	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	1492	"execute the unix command specified by the argument, aCommandString.
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1493	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	1494	'sh -c' in your UNIX manual.
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1495	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	1496	If not successfull, aBlock is called with an OsProcessStatus
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1497	(containing the exit status) as argument."
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1498
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1499	^ self
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1500	executeCommand:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1501	inputFrom:anInStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1502	outputTo:anOutStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1503	errorTo:anErrStream
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1504	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1505	inDirectory:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1506	lineWise:false
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1507	onError:aBlock
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1508
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1509	"
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1510	OperatingSystem
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1511	executeCommand:'dir'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1512	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1513	outputTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1514	errorTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1515	onError:[:status \| Transcript flash]
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1516
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1517	OperatingSystem
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1518	executeCommand:'foo'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1519	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1520	outputTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1521	errorTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1522	onError:[:status \| Transcript flash]
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1523	"
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1524	"
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1525	\|outStr errStr\|
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1526
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1527	outStr := '' writeStream.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1528	errStr := '' writeStream.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1529	OperatingSystem
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1530	executeCommand:'ls'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1531	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1532	outputTo:outStr
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1533	errorTo:errStr
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1534	onError:[:status \| Transcript flash].
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1535	Transcript show:'out:'; showCR:outStr contents.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1536	Transcript show:'err:'; showCR:errStr contents.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1537	"
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1538	"
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1539	\|outStr errStr\|
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1540
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1541	outStr := '' writeStream.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1542	errStr := '' writeStream.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1543	OperatingSystem
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1544	executeCommand:'ls /fooBar'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1545	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1546	outputTo:outStr
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1547	errorTo:errStr
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1548	onError:[:status \| Transcript flash].
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1549	Transcript show:'out:'; showCR:outStr contents.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1550	Transcript show:'err:'; showCR:errStr contents.
6610 02a2d5b5cfe0 * empty log message * Claus Gittinger <cg@exept.de> parents: 6605 diff changeset	1551	"
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1552
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1553	"Modified: / 10.11.1998 / 20:51:39 / cg"
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1554	!
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1555
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1556	executeCommand:aCommandString onError:aBlock
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1557	"execute the unix command specified by the argument, aCommandString.
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1558	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	1559	'sh -c' in your UNIX manual.
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1560	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	1561	If not successfull, aBlock is called with an OsProcessStatus
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1562	(containing the exit status) as argument."
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1563
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1564	^ self
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1565	executeCommand:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1566	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1567	outputTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1568	errorTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1569	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1570	inDirectory:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1571	lineWise:false
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1572	onError:aBlock
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1573
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1574	"unix:
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1575
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1576	OperatingSystem executeCommand:'sleep 30' onError:[].
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1577	OperatingSystem executeCommand:'pwd' onError:[:status\|status inspect].
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1578	OperatingSystem executeCommand:'ls -l' onError:[].
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1579	OperatingSystem executeCommand:'invalidCommand' onError:[:status\| status inspect].
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1580	OperatingSystem executeCommand:'rm /tmp/foofoofoofoo'onError:[:status \| status inspect].
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1581
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1582	OperatingSystem executeCommand:'dir' onError:[].
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1583	OperatingSystem executeCommand:'foo' onError:[].
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1584
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1585	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1586
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1587	"Modified: / 25.3.1997 / 11:06:43 / stefan"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1588	"Modified: / 28.1.1998 / 14:46:56 / md"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1589	"Created: / 5.6.1998 / 19:02:09 / cg"
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1590	"Modified: / 10.11.1998 / 20:55:02 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1591	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1592
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1593	executeCommand:aCommandString onError:aBlock inDirectory:aDirectory
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1594	"OBSOLETE for backward compatibility.
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1595	execute the unix command specified by the argument, aCommandString.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1596	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	1597	'sh -c' in your UNIX manual.
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1598	Return true if successful, the value from aBlock if not.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1599	If not successfull, aBlock is called with an OsProcessStatus
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1600	(containing the exit status) as argument."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1601
5861 24ee164045bd Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 5857 diff changeset	1602	<resource:#obsolete>
24ee164045bd Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 5857 diff changeset	1603
4849 439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1604	self obsoleteMethodWarning:'use executeCommand:inDirectory:onError:'.
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1605
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1606	^ self
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1607	executeCommand:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1608	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1609	outputTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1610	errorTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1611	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1612	inDirectory:aDirectory
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1613	lineWise:false
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1614	onError:aBlock
3927 028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1615
028ca7c70ac9 cleaned up the executeCommand protocol. Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1616	"Modified: / 10.11.1998 / 20:54:37 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1617	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1618
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1619	executeCommand:aCommandString outputTo:anOutStreamOrNil
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1620	"execute the unix command specified by the argument, aCommandString.
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1621	The commandString is passed to a shell for execution - see the description of
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1622	'sh -c' in your UNIX manual.
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1623	Return true if successful, false otherwise."
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1624
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1625	^ self
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1626	executeCommand:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1627	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1628	outputTo:anOutStreamOrNil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1629	errorTo:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1630	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1631	inDirectory:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1632	lineWise:false
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1633	onError:[:status\| false]
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1634
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1635	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1636	String streamContents:[:s\|OperatingSystem
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1637	executeCommand:'ls'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1638	outputTo:s
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1639	]
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1640	"
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1641
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1642	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1643	String streamContents:[:s\|OperatingSystem
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1644	executeCommand:'pwd'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1645	outputTo:s
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1646	]
7119 75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1647	"
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1648	!
75dea3234f70 executeCommand methods cleaned up martin parents: 7110 diff changeset	1649
4849 439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1650	executeCommand:aCommandString outputTo:outStreamOrNil errorTo:errStreamOrNil inDirectory:aDirectory
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1651	"much like #executeCommand:, but changes the current directory
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1652	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	1653	hardwiring any 'cd ..' command strings into your applictions."
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1654
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1655	^ self
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1656	executeCommand:aCommandString
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1657	inputFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1658	outputTo:outStreamOrNil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1659	errorTo:errStreamOrNil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1660	auxFrom:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1661	inDirectory:aDirectory
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1662	lineWise:false
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1663	onError:[:status\| false]
4849 439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1664
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1665	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1666	OperatingSystem executeCommand:'tdump date.obj' inDirectory:'c:\winstx\stx\libbasic\objbc'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1667	OperatingSystem executeCommand:'xxdir date.obj' inDirectory:'c:\winstx\stx\libbasic\objbc'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1668	OperatingSystem executeCommand:'dir' inDirectory:'c:\'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1669	OperatingSystem executeCommand:'dir'
4849 439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1670	"
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1671
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1672	"Modified: / 20.1.1998 / 17:03:03 / md"
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1673	"Modified: / 10.11.1998 / 20:28:10 / cg"
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1674	"Created: / 10.11.1998 / 21:05:45 / cg"
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1675	!
439d9f52ad93 checkin from browser Claus Gittinger <cg@exept.de> parents: 4848 diff changeset	1676
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1677	getCommandOutputFrom:aCommand
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1678	"execute a simple command (such as hostname) and
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1679	return the commands first line of output as a string (forget stdErr).
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1680	If the command generates multiple output lines, only the first line is returned.
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1681	If the commands does not generate any output, an empty string is returned;
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1682	if the command fails, nil is returned."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1683
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1684	\|result\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1685
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1686	result := self getCommandOutputFrom:aCommand maxNumberOfLines:1 errorDisposition:#discard.
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1687	result notNil ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1688	^ result firstIfEmpty:['']
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1689	].
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1690	^ result
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1691
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1692	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1693	OperatingSystem getCommandOutputFrom:'hostname'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1694	OperatingSystem getCommandOutputFrom:'pwd'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1695	OperatingSystem getCommandOutputFrom:'sleep 1'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1696	OperatingSystem getCommandOutputFrom:'foo'
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1697	"
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1698
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1699	!
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1700
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1701	getCommandOutputFrom:aCommand maxNumberOfLines:numLinesOrNil errorDisposition:errorDisposition
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1702	"execute a simple command (such as hostname) and
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1703	return the commands output as a collection of strings,
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1704	but only up to the given number of lines (if non-nil).
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1705	If the command generates more output, only the first nLines are returned
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1706	(but the command is allowed to finish execution).
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1707	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	1708	if the command fails, nil is returned.
433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1709	errorDisposition controls where the stdErr output should go,
433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1710	and may be one of #discard, #inline or #stderr (default).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1711	#discard causes stderr to be discarded (/dev/null),
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1712	#inline causes it to be written to smalltalks own stdout and
433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1713	#stderr causes it to be written to smalltalks own stderr.
433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1714	Nil is treated like #stderr"
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1715
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1716	\|result\|
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1717
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	1718	PipeFailed ~~ true ifTrue:[
10344 f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1719	PipeStream openErrorSignal handle:[:ex \|
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1720	PipeFailed := true.
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1721	'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	1722	ex return.
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1723	] do:[
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1724	\|p line\|
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1725
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1726	p := PipeStream
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1727	readingFrom:aCommand
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1728	errorDisposition:errorDisposition
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1729	inDirectory:nil.
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1730	result := StringCollection new.
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1731	[p atEnd] whileFalse:[
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1732	line := p nextLine.
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1733	(numLinesOrNil isNil
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1734	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	1735	result add:line
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1736	].
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1737	].
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1738	p close.
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1739	(p exitStatus notNil
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1740	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	1741	result isEmpty ifTrue:[
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1742	result := nil
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1743	]
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1744	].
f87cefd3108c pipestream exitstatus of bad command (ctags - not existing under win32) Claus Gittinger <cg@exept.de> parents: 10293 diff changeset	1745	].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1746	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1747	^ result
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1748
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1749	"
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1750	OperatingSystem getCommandOutputFrom:'ls' maxNumberOfLines:1
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1751	OperatingSystem getCommandOutputFrom:'ls' maxNumberOfLines:10
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1752	OperatingSystem getCommandOutputFrom:'ls' maxNumberOfLines:nil
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1753	OperatingSystem getCommandOutputFrom:'foo' maxNumberOfLines:nil
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1754	"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1755
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	1756	"Modified: / 19.5.1999 / 14:25:02 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1757	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1758
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1759	getFullCommandOutputFrom:aCommand
5482 433983048ce8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5480 diff changeset	1760	"execute a command and
5483 1d81b1ad42d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5482 diff changeset	1761	return the commands output as a collection of strings (ignoring stdErr).
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1762	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	1763	if the command fails, nil is returned."
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1764
5483 1d81b1ad42d0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5482 diff changeset	1765	^ self getCommandOutputFrom:aCommand maxNumberOfLines:nil errorDisposition:#discard
5480 92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1766
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1767	"
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1768	OperatingSystem getFullCommandOutputFrom:'mt status'
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1769	"
92eb8594f437 better getCommandOutputFrom: Claus Gittinger <cg@exept.de> parents: 5429 diff changeset	1770
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1771	! !
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1772
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1773	!AbstractOperatingSystem class methodsFor:'executing OS commands-queries'!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1774
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1775	canExecuteCommand:aCommandString
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1776	"return true, if the OS can execute aCommand.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1777	For now, this only works with UNIX."
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1778
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1779	\|fn fullPath\|
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1780
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1781	fullPath := (self pathOfCommand:aCommandString).
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1782	fullPath isNil ifTrue:[^ false].
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1783	fn := fullPath asFilename.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1784	^ fn exists and:[fn isExecutableProgram].
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1785
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1786	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1787	OperatingSystem canExecuteCommand:'fooBar'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1788	OperatingSystem canExecuteCommand:'ls'
9380 31213ffdf7c1 comment Michael Beyl <mb@exept.de> parents: 9021 diff changeset	1789	OperatingSystem canExecuteCommand:'cvs'
8801 02d568c0e298 comment Claus Gittinger <cg@exept.de> parents: 8784 diff changeset	1790	OperatingSystem canExecuteCommand:'diff'
9380 31213ffdf7c1 comment Michael Beyl <mb@exept.de> parents: 9021 diff changeset	1791	OperatingSystem canExecuteCommand:'cvs.exe'
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1792	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1793
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1794	"Created: 4.11.1995 / 19:13:54 / cg"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1795	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1796
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1797	commandAndArgsForOSCommand:aCommandString
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1798	"get a shell and shell arguments for command execution"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1799
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1800	self subclassResponsibility
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1801	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1802
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1803	executableFileExtensions
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1804	"return a collection of extensions for executable program files.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1805	Only req'd for msdos & vms like systems ..."
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
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1809	"Created: 2.5.1997 / 11:42:29 / cg"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1810	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1811
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1812	nameOfSTXExecutable
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1813	"return the name of the running ST/X executable program.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1814	Usually, 'stx' is returned -
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1815	but may be different for standAlone apps (or winstx.exe)."
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1816
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1817	%{
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1818	extern char *__stxExecutableName__();
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1819
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1820	RETURN (__MKSTRING(__stxExecutableName__()));
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1821	%}
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1822	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1823	OperatingSystem nameOfSTXExecutable
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1824	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1825	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1826
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1827	pathOfCommand:aCommand
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1828	"find where aCommand's executable file is;
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1829	return its full pathName if there is such a command, otherwise
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1830	return nil."
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	^ self subclassResponsibility
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1833	!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1834
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1835	pathOfSTXExecutable
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1836	"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	1837	Usually, '.../stx' is returned -
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1838	but may be different for standAlone apps (or winstx.exe)."
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1839
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1840	^ self pathOfCommand:(self nameOfSTXExecutable)
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	OperatingSystem pathOfSTXExecutable
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1844	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1845	! !
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1846
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1847	!AbstractOperatingSystem class methodsFor:'executing OS commands-wrappers'!
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1848
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1849	exec:aCommandPath withArguments:argArray
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1850	"execute the OS command specified by the argument, aCommandPath, with
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1851	arguments in argArray (no arguments, if nil).
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1852	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	1853	If not successful, it does return.
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1854	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	1855
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1856	^ self
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1857	exec:aCommandPath
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1858	withArguments:argArray
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1859	environment:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1860	fileDescriptors:#(0 1 2)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1861	fork:false
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1862	newPgrp:false
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1863	inDirectory:nil
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1864
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1865	"/ never reached ...
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	"Modified: / 12.11.1998 / 14:44:26 / cg"
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	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	1871	^ self
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1872	exec:aCommandPath
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1873	withArguments:argArray
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1874	environment:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1875	fileDescriptors:fileDescriptors
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1876	fork:doFork
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1877	newPgrp:newPgrp
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1878	inDirectory:aDirectory
8587 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	exec:aCommandPath withArguments:argArray fork:doFork
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1882	"execute an OS command without I/O redirection.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1883	The command reads its input and writes its output
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1884	from/to whatever terminal device ST/X was started
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1885	(typically, the terminal window)"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1886
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1887	^ self
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1888	exec:aCommandPath
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1889	withArguments:argArray
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1890	environment:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1891	fileDescriptors:#(0 1 2)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1892	fork:doFork
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1893	newPgrp:false
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1894	inDirectory:nil
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1895
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1896	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1897	\|id\|
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1898
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1899	id := OperatingSystem fork.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1900	id == 0 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1901	'I am the child'.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1902	OperatingSystem
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1903	exec:'/bin/ls'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1904	withArguments:#('ls' '/tmp')
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1905	fork:false.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1906	'not reached'.
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1907	]
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1908	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1909
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1910	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1911	\|id\|
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1912
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1913	id := OperatingSystem fork.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1914	id == 0 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1915	'I am the child'.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1916	OperatingSystem
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1917	exec:'/bin/sh'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1918	withArguments:#('sh' '-c' 'sleep 2;echo 1;sleep 2;echo 2')
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1919	fork:false.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1920	'not reached'.
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1921	].
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1922	id printNL.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1923	(Delay forSeconds:3.5) wait.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1924	'killing ...' printNL.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1925	OperatingSystem sendSignal:(OperatingSystem sigTERM) to:id.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1926	OperatingSystem sendSignal:(OperatingSystem sigKILL) to:id
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1927	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1928
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1929	"Modified: / 15.7.1997 / 15:54:32 / stefan"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1930	"Modified: / 12.11.1998 / 14:44:46 / cg"
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
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1933	exec:aCommandPath withArguments:argArray fork:doFork inDirectory:aDirectory
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1934	"execute an OS command without I/O redirection.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1935	The command reads its input and writes its output
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1936	from/to whatever terminal device ST/X was started
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1937	(typically, the terminal window)"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1938
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	1939	^ self
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1940	exec:aCommandPath
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1941	withArguments:argArray
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1942	environment:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1943	fileDescriptors:#(0 1 2)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1944	fork:doFork
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1945	newPgrp:false
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1946	inDirectory:aDirectory
8587 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	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1949	\|id\|
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1950
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1951	id := OperatingSystem fork.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1952	id == 0 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1953	'I am the child'.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1954	OperatingSystem
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1955	exec:'/bin/ls'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1956	withArguments:#('ls' '/tmp')
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1957	fork:false.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1958	'not reached'.
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1959	]
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1960	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1961
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	\|id\|
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1964
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1965	id := OperatingSystem fork.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1966	id == 0 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1967	'I am the child'.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1968	OperatingSystem
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1969	exec:'/bin/sh'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1970	withArguments:#('sh' '-c' 'sleep 2;echo 1;sleep 2;echo 2')
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1971	fork:false.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	1972	'not reached'.
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1973	].
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1974	id printNL.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1975	(Delay forSeconds:3.5) wait.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1976	'killing ...' printNL.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1977	OperatingSystem sendSignal:(OperatingSystem sigTERM) to:id.
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1978	OperatingSystem sendSignal:(OperatingSystem sigKILL) to:id
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1979	"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1980
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1981	"Created: / 28.1.1998 / 14:14:03 / md"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1982	"Modified: / 28.1.1998 / 14:14:45 / md"
6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	1983	"Modified: / 12.11.1998 / 14:45:06 / cg"
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1984	! !
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	1985
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1986	!AbstractOperatingSystem class methodsFor:'file access'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1987
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1988	closeFd:anInteger
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1989	"low level close of a filedescriptor"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1990
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1991	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1992	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	1993
7699 9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	1994	copyFromFd:inFd toFd:outFd startIndex:startIdx count:count
9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	1995	"directly copy from one FD to another (if supported by the OS)"
9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	1996
9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	1997	^ 0 "/ not supported
9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	1998	!
9bf7adc6116d sendfile support Claus Gittinger <cg@exept.de> parents: 7683 diff changeset	1999
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2000	createDirectory:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2001	"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	2002	path, or relative to the current directory.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2003	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	2004	This is a low-level entry - use Filename protocol for compatibility."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2005
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2006	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2007	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2008
6292 f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2009	createFileForReadAppend:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2010	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2011	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2012
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2013	createFileForReadWrite:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2014	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2015	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2016
3758 1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2017	createHardLinkFrom:oldPath to:newPath
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2018	"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	2019	Return true if successful, false if not."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2020
3758 1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2021	"/
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2022	"/ assume that this OperatingSystem does not support links
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2023	"/
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2024	^ UnsupportedOperationSignal raise
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2025
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2026	"Created: / 13.8.1998 / 21:37:12 / cg"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2027	"Modified: / 13.8.1998 / 21:38:39 / cg"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2028	!
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2029
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2030	createSymbolicLinkFrom:oldPath to:newPath
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2031	"make a link from the file 'oldPath' to the file 'newPath'.
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2032	The link will be a soft (symbolic) link.
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2033	Return true if successful, false if not."
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2034
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2035	"/
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2036	"/ assume that this OperatingSystem does not support symbolic links
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2037	"/
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2038	^ UnsupportedOperationSignal raise
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2039
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2040	"Created: / 13.8.1998 / 21:38:24 / cg"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2041	"Modified: / 13.8.1998 / 21:38:43 / cg"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2042	!
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2043
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2044	linkFile:oldPath to:newPath
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2045	"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	2046	Return true if successful, false if not.
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2047	This method has been renamed - it remains in existance for
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2048	backward compatibility."
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2049
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2050	^ self createHardLinkFrom:oldPath to:newPath
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2051
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2052	"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2053	OperatingSystem linkFile:'foo' to:'bar'
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2054	"
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2055
1cc926a7b2a6 added #createSymbolicLinkFrom:to: Claus Gittinger <cg@exept.de> parents: 3736 diff changeset	2056	"Modified: / 13.8.1998 / 21:37:24 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2057	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2058
6291 c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2059	openFile:pathName withMode:openModeSymbol attributes:attributeSpec
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2060	"open a file, return an os specific fileHandle.
6291 c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2061	openmode is a symbol defining the way to open
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2062	valid modes are:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2063	#read
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2064	#write
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2065	#readWrite
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2066	#appendWrite
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2067	#appendReadWrite
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2068	#createWrite
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2069	#createReadWrite
6291 c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2070
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2071	attributeSpec is an additional argument, currently only used with VMS
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2072	- it allows a file to be created as fixedRecord, variableRecord, streamLF, streamCR, ...
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2073
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2074	In VMS, if nonNil, it must consist of an array of strings (max:10), giving additional
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2075	attributes (see fopen description).
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2076	Passing a nil specifies the default format (streamLF) - ST/X always invokes this with nil.
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2077	This argument is ignored in UNIX & MSDOS systems.
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2078
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2079	This is a private entry, but maybe useful to open/create a file in a special mode,
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2080	which is proprietrary to the operatingSystem."
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2081
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2082	self subclassResponsibility
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2083	!
c7f56234587d checkin from browser Claus Gittinger <cg@exept.de> parents: 6287 diff changeset	2084
6292 f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2085	openFileForAppend:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2086	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2087	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2088
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2089	openFileForRead:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2090	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2091	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2092
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2093	openFileForReadAppend:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2094	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2095	!
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	openFileForReadWrite:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2098	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2099	!
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	openFileForWrite:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2102	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2103	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2104
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2105	recursiveCopyDirectory:fullPathName to:destinationPathName
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2106	"copy the directory named 'fullPathName' and all contained
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2107	files/directories recursively to destinationPathName.
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2108	Return true if successful.
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2109	Here, false is returned and the caller should be prepared
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2110	for a fallBack solution.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2111	Notice:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2112	this is not a public interface; instead, it is used
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2113	internally by the Filename class, to try a fast copy
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2114	before doing things manually.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2115	Please use Filename recursiveCopyTo:"
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2116
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2117	^ false
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2118
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2119	"
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2120	OperatingSystem recursiveCopyDirectory:'.' to:'/tmp/foo'
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2121	OperatingSystem recursiveRemoveDirectory:'/tmp/foo'
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2122	"
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2123
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2124	"Modified: / 5.5.1999 / 13:29:16 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2125	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2126
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2127	recursiveCreateDirectory:dirName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2128	"create a directory - with all parent dirs if needed.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2129	Return true if successful, false otherwise. If false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2130	is returned, a partial created tree may be left,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2131	which is not cleaned-up here."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2132
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2133	self createDirectory:dirName.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2134	(self isDirectory:dirName) ifFalse:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2135	(self recursiveCreateDirectory:(dirName asFilename directoryName)) ifFalse:[^ false].
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2136	^ self createDirectory:dirName
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2137	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2138	^ true
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2139
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2140	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2141	OperatingSystem recursiveCreateDirectory:'foo/bar/baz'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2142	OperatingSystem recursiveRemoveDirectory:'foo'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2143	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2144
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2145	"Modified: 7.3.1996 / 15:26:22 / cg"
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2148	recursiveRemoveDirectory:fullPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2149	"remove the directory named 'fullPathName' and all contained files/directories.
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2150	Return true if successful.
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2151	Here, false is returned and the caller should be prepared
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2152	for a fallBack solution.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2153	Notice:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2154	this is not a public interface; instead, it is used
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2155	internally by the Filename class, to try a fast remove
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2156	before doing things manually.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2157	Please use Filename recursiveRemoveDirectory:"
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2158
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2159	^ false
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2160
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2161	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2162	OperatingSystem recursiveCreateDirectory:'foo/bar/baz'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2163	OperatingSystem recursiveRemoveDirectory:'foo'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2164	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2165
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2166	"Modified: / 5.5.1999 / 13:30:11 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2167	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2168
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2169	removeDirectory:fullPathName
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2170	"remove the directory named 'fullPathName'.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2171	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	2172	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	2173	This is a lowLevel entry - use Filename protocol for compatibility."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2174
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2175	self subclassResponsibility
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	removeFile:fullPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2179	"remove the file named 'fullPathName'; return true if successful.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2180	This is a lowLevel entry - use Filename protocol for compatibility."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2181
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2182	self subclassResponsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2185	renameFile:oldPath to:newPath
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2186	"rename the file 'oldPath' to 'newPath'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2187	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	2188	correct for the OS used - therefore, this should not be called
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2189	directlt. Instead, use Filename protocol to rename; this cares for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2190	any invalid names.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2191	Returns true if successful, false if not"
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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2194	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2195
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2196	truncateFile:aPathName to:newSize
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2197	"change a files size return true on success, false on failure.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2198	This may not be supported on all architectures.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2199
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2200	This is a low-level entry - use Filename protocol."
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	!AbstractOperatingSystem class methodsFor:'file access rights'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2206
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2207	accessMaskFor:aSymbol
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2208	"return the access bits mask for numbers as returned by
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2209	OperatingSystem>>accessModeOf:
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2210	and expected by OperatingSystem>>changeAccessModeOf:to:.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2211	Since these numbers are OS dependent, always use the mask
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2212	(never hardcode 8rxxx into your code)."
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	self subclassResponsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2217	accessModeOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2218	"return a number representing access rights rwxrwxrwx for owner,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2219	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	2220	Notice that the returned number is OS dependent - use the
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2221	modeMasks as returned by OperatingSystem>>accessMaskFor:"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2222
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2223	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2224	this could have been implemented as:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2225	(self infoOf:aPathName) at:#mode
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2226	but for huge directory searches the code below is faster
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2227	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2228
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2229	^ (self infoOf:aPathName) at:#mode
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2230
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2231	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2232	(OperatingSystem accessModeOf:'/') printStringRadix:8
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2233	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2234	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2235
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2236	changeAccessModeOf:aPathName to:modeBits
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2237	"change the access rights of aPathName to the OS dependent modeBits.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2238	You should construct this mask using accessMaskFor, to be OS
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2239	independent. Return true if changed,
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2240	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	2241
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2242	self subclassResponsibility
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	!AbstractOperatingSystem class methodsFor:'file locking'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2246
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2247	lockFD:aFileDescriptor shared:isSharedReadLock blocking:blockIfLocked
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2248	"set a lock on the file represented by aFileDescriptor.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2249	(such as returned by ExternalStream>>fileDescriptor).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2250	On some systems, only advisory locks are available -
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2251	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	2252	If they do not, they may still access the file
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2253	(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	2254	The isSharedReadLock argument (if true) specifies if multiple readers
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2255	are to be allowed - if false, they are not.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2256	On some systems, all locks are non-exclusive locks.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2257
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2258	Returns true, if the lock was aquired, false otherwise.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2259
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2260	Notice, that not all OS's support these locks;
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2261	on some, this may simply be a no-op.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2262	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	2263	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	2264	argument."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2265
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2266	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2267	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2268
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2269	supportsFileLinks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2270	"return true, if the OS supports file links (hard links).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2271	Typically, only unix returns true here."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2272
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2273	^ false
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2276	supportsFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2277	"return true, if the OS supports file locking"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2278
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2279	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2280
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	OperatingSystem supportsFileLocks
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2286	supportsNonBlockingFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2287	"return true, if the OS supports nonBlocking file locking
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2288	(i.e. with immediate return instead of waiting for the lock)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2289
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2290	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2291
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2292	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2293	OperatingSystem supportsNonBlockingFileLocks
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	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2296
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2297	supportsSharedLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2298	"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	2299	file locking. Assume false here - redefined in concrete classes."
3576 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	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2302
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2303	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2304	OperatingSystem supportsNonBlockingFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2305	"
4147 1096115c96c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 4146 diff changeset	2306
1096115c96c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 4146 diff changeset	2307	"Modified: / 5.5.1999 / 01:08:03 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2308	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2309
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2310	supportsSymbolicLinks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2311	"return true, if the OS supports symbolic links on files/directories.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2312	Typically, only Unix returns true here"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2313
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2314	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2315	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2316
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2317	unlockFD:aFileDescriptor
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2318	"clear a file lock on the file represented by aFileDescriptor,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2319	which was previously aquired by #lockFD:.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2320	Return false, if the unlock failed
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2321	(which may happens when a wrong fd is passed,
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2322	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	2323	Notice, that not all OS's support file locks;
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2324	on some, this may simply be a no-op."
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2325
3826 ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	2326	^ false
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	2327
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	2328	"Modified: / 10.9.1998 / 17:54:15 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2329	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2330
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2331	!AbstractOperatingSystem class methodsFor:'file queries'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2332
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2333	caseSensitiveFilenames
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2334	"return true, if the OS has caseSensitive file naming.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2335	On MSDOS, this will return false;
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2336	on a real OS, we return true."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2337
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2338	self subclassResponsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2341	compressPath:pathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2342	"return the pathName compressed - that is, remove all ..-entries
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2343	and . entries. This does not always (in case of symbolic links)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2344	return the true pathName and is therefore used as a fallback
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2345	if realPath and popen failed."
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	directoryNameOf:aPath
5861 24ee164045bd Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 5857 diff changeset	2351	<resource:#obsolete>
24ee164045bd Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 5857 diff changeset	2352
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2353	self obsoleteMethodWarning:'use asFilename directoryName'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2354	^ aPath asFilename directoryName
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2357	fileSeparator
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2358	"return the character used to separate names in a path.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2359	This character differs for MSDOS and other systems,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2360	(but those are currently not supported - so this is some
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2361	preparation for the future)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2362
3736 718513f3284e checkin from browser Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	2363	^ $/ "/ 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	2364	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2365
4224 5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2366	getDiskInfoOf:aDirectoryPath
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2367	"return some disk info.
4224 5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2368	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	2369	not guaranteed to be consistent across architectures.
4226 429b13ce2028 * empty log message * Claus Gittinger <cg@exept.de> parents: 4224 diff changeset	2370	On unix and msdos, the information returned is (at least):
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2371	freeBytes
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2372	totalBytes
4224 5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2373	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	2374	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	2375	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	2376	"
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2377
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2378	^ nil
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2379
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2380	"
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2381	OperatingSystem getDiskInfoOf:'/'
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2382	OperatingSystem getDiskInfoOf:'.'
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2383	"
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2384
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2385	"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	2386	!
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2387
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2388	getDriveList
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2389	"return a list of volumes in the system.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2390	On unix, no such thing like a volume exists
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2391	- there, a syntetic list with root, home & current is returned.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2392	On MSDOS, a list of drive letters is (eventually) returned.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2393	On VMS, a list of volumes is (eventually) returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2394
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2395	"/
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	2396	"/ default: return an array filled with
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2397	"/ root, home and current directories.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2398	"/
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2399	^ Array
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2400	with:'/'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2401	with:(self getHomeDirectory)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2402	with:(Filename currentDirectory pathName)
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	2403
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	2404	"Modified: / 5.5.1999 / 01:06:26 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2405	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2406
4852 ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2407	getMountedVolumes
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2408	"return info about mounted volumes.
4852 ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2409	The amount of information returned depends upon the OS, and is
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2410	not guaranteed to be consistent across architectures.
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2411	On unix, the information returned is (at least):
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2412	mountPoint - mount point
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2413	fileSystem - device or NFS-remotePath
4852 ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2414	"
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2415
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2416	^ #()
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2417
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2418	"
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2419	OperatingSystem getMountedVolumes
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2420	"
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2421
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2422	"Modified: / 22.5.1999 / 00:36:06 / cg"
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2423	!
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2424
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2425	getNullDevice
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2426	"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	2427
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2428	^ nil
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2429
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2430	"Created: / 19.5.1999 / 12:24:59 / cg"
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2431	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2432
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2433	idOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2434	"return the fileNumber (i.e. inode number) of a file.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2435
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2436	Not all operatingSystems may provide this - on those that do not,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2437	some dummy id will be returned.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2438	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	2439	physically identical, even if found in different directories
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2440	(i.e. if they are hardLinked)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2441
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2442	\|i id\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2443
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2444	id := self primIdOf:aPathName.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2445	id notNil ifTrue:[^ id].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2446
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2447	i := self infoOf:aPathName.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2448	i notNil ifTrue:[^ i id].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2449	^ nil.
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	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2452	OperatingSystem idOf:'/'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2453	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2454	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2455
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2456	infoOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2457	"return some object filled with info for the file 'aPathName';
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2458	the info (for which corresponding access methods are understood by
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2459	the returned object) is:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2460	type - a symbol giving the files type
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2461	mode - numeric access mode
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2462	uid - owners user id
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2463	gid - owners group id
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2464	size - files size
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2465	id - files number (i.e. inode number)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2466	accessed - last access time (as Timestamp)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2467	modified - last modification time (as Timestamp)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2468	statusChanged - last status change time (as Timestamp)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2469	alternativeName - (windows only: the MSDOS name of the file)
3576 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	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	2472	all of the information.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2473	Return nil if such a file does not exist.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2474	For symbolic links (if supported by the OS),
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2475	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	2476	use #linkInfoOf: to get info about the link itself.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2477	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2478
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2479	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2480	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2481
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2482	isDirectory:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2483	"return true, if 'aPathName' is a valid directory path name.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2484	(i.e. exists and is a directory).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2485	This also returns true for symbolic links pointing to a directory;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2486	if you need to check for this, use #linkInfo:."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2487
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2488	^ (self infoOf:aPathName) type == #directory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2489	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2490
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2491	isExecutable:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2492	"return true, if the given file is executable.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2493	For symbolic links, the pointed-to-file is checked."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2494
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2495	self subclassResponsibility
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
6772 6bfdc2522ea2 isMountPoint penk parents: 6720 diff changeset	2498	isMountPoint:aPathName
6781 97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2499	"return true, if the given file is a mounted fileSystems mountPoint"
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2500
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2501	^ self mountPoints contains:[:mountInfo \| mountInfo mountPointPath = aPathName].
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2502
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2503	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2504	OperatingSystem isMountPoint:'/phys/qnx'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2505	OperatingSystem isMountPoint:'/proc'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2506	OperatingSystem isMountPoint:'/'
6781 97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2507	"
6772 6bfdc2522ea2 isMountPoint penk parents: 6720 diff changeset	2508	!
6bfdc2522ea2 isMountPoint penk parents: 6720 diff changeset	2509
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2510	isReadable:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2511	"return true, if the file/dir 'aPathName' is readable.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2512	For symbolic links, the pointed-to-file is checked."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2513
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2514	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2515	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2516
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2517	isSymbolicLink:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2518	"return true, if the given file is a symbolic link"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2519
8474 f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2520	\|info\|
f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2521
f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2522	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	2523	^ 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	2524
f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2525	"
f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2526	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	2527	OperatingSystem isSymbolicLink:'/usr/tmp'
3576 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	!
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	isValidPath:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2532	"return true, if 'aPathName' is a valid path name
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2533	(i.e. the file or directory exists)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2534
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2535	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2536	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2537
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2538	isWritable:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2539	"return true, if the given file is writable.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2540	For symbolic links, the pointed-to-file is checked."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2541
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2542	self subclassResponsibility
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	linkInfoOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2546	"return a dictionary filled with info for the file 'aPathName',
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2547	IFF aPathName is a symbolic link.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2548	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	2549	(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	2550
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2551	The contents of the dictionary gives info about the link itself,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2552	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	2553	in case of a symbolic link."
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2554
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2555	self subclassResponsibility
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
5031 50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2558	mimeTypeForFilename:aFilename
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2559	"given a filename, return a corresponding mimeType.
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2560	This is placed here, to allow for OS-specific configuration
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2561	files and/or the win32 registry to be consultet.
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2562	Returns nil if no mimeType for the given name is known."
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2563
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2564	^ nil
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2565	!
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2566
4240 e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2567	mimeTypeForSuffix:aFileSuffix
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2568	"given a file suffix, return a corresponding mimeType.
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2569	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	2570	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	2571	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	2572
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2573	^ nil
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2574	!
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2575
6781 97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2576	mountPoints
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2577	"return a collection of mountPoints (aka. topDirectories of mounted file systems)"
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2578
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2579	^ #() "/ dont know here
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2580	!
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2581
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2582	parentDirectoryName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2583	"return the name used to refer to parent directories.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2584	In MSDOS, Unix and other systems this is '..', but maybe different
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2585	for other systems.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2586	(but those are currently not supported - so this is some
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2587	preparation for the future)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2588
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2589	^ '..'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2590	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2591
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2592	pathNameOf:pathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2593	"return the pathName of the argument, aPathString,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2594	- thats the full pathname of the directory, starting at '/'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2595	This method needs the path to be valid
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2596	(i.e. all directories must exist, be readable and executable).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2597	Notice: if symbolic links are involved, the result may look different
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2598	from what you expect."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2599
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2600	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2601	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2602
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2603	primIdOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2604	"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	2605
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2606	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2607	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2608
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2609	primPathNameOf:pathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2610	"return the pathName of the argument, aPathString,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2611	- thats the full pathname of the directory, starting at '/'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2612	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	2613	realPath library function.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2614	Notice: if symbolic links are involved, the result may look different
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2615	from what you expect."
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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2618	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2619
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2620	timeOfLastAccess:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2621	"return the time, when the file was last accessed.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2622	For nonexistent files, nil is returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2623
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2624	^ (self infoOf:aPathName) accessTime
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2625	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2626
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2627	timeOfLastChange:aPathName
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2628	"return the time, when the file was last changed.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2629	For nonexistent files, nil is returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2630
6793 0d3e3fd18a70 modified -> modificationTime Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	2631	^ (self infoOf:aPathName) modificationTime
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2632	!
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	typeOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2635	"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	2636	nil is returned.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2637	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	2638
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2639	^ (self infoOf:aPathName) type
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	volumeNameOf:aPathString
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2643	"return the volumeName of the argument, aPath
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2644	- thats the name of the volume where aPath is.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2645	Not all OperatingSystems support/use volumes; on unix,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2646	this always returns an empty string."
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	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2650
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2651	!AbstractOperatingSystem class methodsFor:'interprocess communication'!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2652
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2653	createCOMFileForVMSCommand:aCommandString in:aDirectory
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2654	"this is only implemented/required for VMS systems, to execute commands"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2655
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2656	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2657
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2658	"Created: / 19.5.1999 / 12:16:31 / cg"
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2659	"Modified: / 19.5.1999 / 14:22:05 / cg"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2660	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2661
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2662	createMailBox
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2663	"this is only implemented/required for VMS systems, to emulate pipes"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2664
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2665	^ UnsupportedOperationSignal raise
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2666
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2667	"Created: / 19.5.1999 / 12:14:56 / cg"
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2668	"Modified: / 19.5.1999 / 14:22:22 / cg"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2669	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2670
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2671	destroyMailBox:mbx
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2672	"this is only implemented/required for VMS systems, to emulate pipes"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2673
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2674	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2675
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2676	"Created: / 19.5.1999 / 12:16:43 / cg"
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2677	"Modified: / 19.5.1999 / 14:22:33 / cg"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2678	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2679
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2680	mailBoxNameOf:mbx
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2681	"this is only implemented/required for VMS systems, to emulate pipes"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2682
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2683	^ UnsupportedOperationSignal raise
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	"Created: / 19.5.1999 / 12:14:56 / cg"
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2686	"Modified: / 19.5.1999 / 14:22:40 / cg"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2687	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2688
8967 30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2689	makeBidirectionalPipe
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2690	"answer an array with 2 filedescriptors representing
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2691	the two ends of a bidirectional pipe - see also #makePipe"
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2692
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2693	^ self subclassResponsibility
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2694	!
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2695
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2696	makePipe
8967 30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2697	"answer an array with 2 filedescriptors representing
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2698	the two ends of a unidirectional pipe- see also #makeSocketPair"
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2699
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2700	^ self subclassResponsibility
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2701	!
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2702
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2703	shutdownBidirectionalPipeOutput:fileDescriptor
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2704	"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	2705	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	2706
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2707	^ self subclassResponsibility
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2708	! !
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2709
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2710	!AbstractOperatingSystem class methodsFor:'interrupts & signals'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2711
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2712	blockInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2713	"disable interrupt processing - if disabled, incoming
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2714	interrupts will be registered and handled as soon as
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2715	interrupts are reenabled by OperatingSystemclass>>unblockInterrupts.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2716	Returns the previous blocking status i.e. true if interrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2717	where already blocked. You need this information for proper
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2718	unblocking, in case of nested block/unblock calls."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2719
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2720	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2721	RETURN ( __BLOCKINTERRUPTS() );
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2722	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2723	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2724
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2725	defaultSignal:signalNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2726	"revert to the default action on arrival of a (Unix-)signal.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2727	Dont confuse Unix signals with smalltalk signals.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2728	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	2729	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	2730	default for SIGQUIT (^ \) is to dump core.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2731	Also, NOTICE that signal numbers are not portable between unix
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2732	systems - use OperatingSystem sigXXX to get the numeric value for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2733	a signal."
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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2736	!
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	disableChildSignalInterrupts
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2739	"disable childSignal interrupts
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2740	(SIGCHLD, if the architecture supports it).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2741	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	2742	SIGCHLD breaks wait & co"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2743
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2744	^ self defaultSignal:(self sigCHLD)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2745
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2746	"Created: 5.1.1996 / 15:45:28 / stefan"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2747	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2748
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2749	disableIOInterruptsOn:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2750	"turn off IO interrupts for a filedescriptor"
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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2753	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2754
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2755	disableSignal:signalNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2756	"disable (Unix-) signal processing for signalNumber.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2757	Dont confuse Unix signals with smalltalk signals.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2758	WARNING: for some signals, it is no good idea to disable
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2759	them; for example, disabling the SIGINT signal turns off ^C
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2760	handling.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2761	Also, NOTICE that signal numbers are not portable between unix
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2762	systems - use OperatingSystem sigXXX to get the numeric value for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2763	a signal.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2764	Use only for fully debugged stand alone applications."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2765
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2766	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2767	!
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	disableTimer
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2770	"disable timer interrupts.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2771	WARNING:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2772	the system will not operate correctly with timer interrupts
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2773	disabled, because no scheduling or timeouts are possible."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2774
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2775	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2776	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2777
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2778	disableUserInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2779	"disable userInterrupt processing;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2780	when disabled, no ^C processing takes place.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2781	WARNING:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2782	If at all, use this only for debugged stand-alone applications, since
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2783	no exit to the debugger is possible with user interrupts disabled.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2784	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	2785
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2786	self disableSignal:(self sigBREAK).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2787	self disableSignal:(self sigINT).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2788	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2789
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2790	enableAbortInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2791	"enable abort signalhandling, and make it a regular signalInterrupt.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2792	(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	2793	end-user applications ...).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2794	This is especially useful, if linked-in C-libraries call abort() ..."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2795
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2796	self enableSignal:(self sigABRT)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2797	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2798
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2799	enableChildSignalInterrupts
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2800	"enable childSignal interrupts
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2801	(SIGCHLD, if the architecture supports it).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2802	After enabling, these signals will send the message
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2803	'childSignalInterrupt' to the ChildSignalInterruptHandler object."
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	self enableSignal:(self sigCHLD)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2806	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2807
6389 8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2808	enableCrashSignalInterrupts
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2809	"enable powerFail signal exception interrupts (sigPWR).
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2810	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	2811
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2812	self enableSignal:(self sigPWR).
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2813	self enableSignal:(self sigHUP)
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2814	!
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2815
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2816	enableFpExceptionInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2817	"enable floating point exception interrupts (if the
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2818	architecture supports it).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2819	After enabling, fpu-exceptions will send the message
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2820	'fpuExceptionInterrupt' to the FPUExceptionInterruptHandler object."
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	self enableSignal:(self sigFP)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2823	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2824
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2825	enableHardSignalInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2826	"enable hard signal exception interrupts (trap, buserror & segm. violation).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2827	After enabling, these exceptions will send the message
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2828	'signalInterrupt' to the SignalInterruptHandler object."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2829
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2830	"/ leads to trouble ...
6389 8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2831	"/ self enableSignal:(self sigPIPE).
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2832	"/ ... 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	2833
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2834	self disableSignal:(self sigPIPE).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2835
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2836	self enableSignal:(self sigILL).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2837	self enableSignal:(self sigBUS).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2838	self enableSignal:(self sigSEGV).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2839	self enableSignal:(self sigFP).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2840	self enableSignal:(self sigEMT).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2841	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2842
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2843	enableIOInterruptsOn:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2844	"turn on IO interrupts for a filedescriptor"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2845
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2846	self subclassResonsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2847	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2848
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2849	enableQuitInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2850	"enable quitInterrupt (usually ^\) handling, and make it a userInterrupt.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2851	(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	2852	end-user applications ...)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2853
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2854	self enableSignal:(self sigQUIT)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2855	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2856
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2857	enableSignal:signalNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2858	"enable (Unix-)signal processing for signalNumber.
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2859	Don't confuse Unix signals with smalltalk signals.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2860	The signal will be delivered to one of the standard handlers
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2861	(SIGINT, SIGQUIT, etc) or to a general handler, which
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2862	sends #signalInterrupt:.
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	NOTICE that signal numbers are not portable between unix
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2865	systems - use OperatingSystem sigXXX to get the numeric value for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2866	a signal."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2867
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2868	self subclassResponsibility
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2869	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2870
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2871	enableTimer:milliSeconds
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2872	"setup for a timerInterrupt, to be signalled after some (real) time."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2873
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2874	self subclassResonsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2875	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2876
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2877	enableUserInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2878	"enable userInterrupt (^C) handling;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2879	when enabled, ^C in the terminal window will send the message
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2880	'userInterrupt' to the UserInterruptHandler object."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2881
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2882	self enableSignal:(self sigINT).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2883	self enableSignal:(self sigBREAK).
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	interruptPending
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2887	"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	2888	invalid if interrupts are not currently blocked, since otherwise
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2889	the interrupt is usually already handled before arriving here,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2890	or may be served while returning from here."
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	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2893	extern OBJ __INTERRUPTPENDING();
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2894
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2895	RETURN ( __INTERRUPTPENDING() );
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2896	%}
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2897	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2898
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2899	interruptsBlocked
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2900	"return true, if interrupt handling is currently disabled;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2901	false otherwise."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2902
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2903	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2904	extern OBJ __INTERRUPTS_BLOCKED();
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2905
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2906	RETURN ( __INTERRUPTS_BLOCKED() );
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2907	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2908	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2909
6536 bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2910	isFatalSignal:aNumber
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2911	"return true if a signal with number aNumber is a fatal signal,
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2912	i.e. some severe internal error occured"
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2913
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2914	^ self subclassResponsibility
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2915	!
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2916
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2917	killProcess:processId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2918	"kill an OS process.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2919	The process has a no chance to do some cleanup.
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	WARNING: in order to avoid zombie processes (on unix),
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2922	you may have to fetch the processes exitstatus with
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2923	OperatingSystem>>getStatusOfProcess:aProcessId."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2924
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2925	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2926
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2927	"Modified: / 10.6.1998 / 12:00:07 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2928	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2929
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2930	killProcessGroup:processGroupId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2931	"kill an OS process group.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2932	The process has NO chance to do some cleanup.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2933
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2934	WARNING: in order to avoid zombie processes (on unix),
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2935	you may have to fetch the processes exitstatus with
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2936	OperatingSystem>>getStatusOfProcess:aProcessId."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2937
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2938	self subclassResponsibility
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	"Created: / 10.6.1998 / 12:00:26 / cg"
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2943	nameForSignal:aSignalNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2944	"for a given Unix signalnumber, return a descriptive string"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2945
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2946	aSignalNumber == self sigHUP ifTrue:[^ 'hangup'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2947	aSignalNumber == self sigINT ifTrue:[^ 'interrupt'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2948	aSignalNumber == self sigKILL ifTrue:[^ 'kill'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2949	aSignalNumber == self sigQUIT ifTrue:[^ 'quit'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2950	aSignalNumber == self sigILL ifTrue:[^ 'illegal instruction'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2951	aSignalNumber == self sigTRAP ifTrue:[^ 'trap'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2952	aSignalNumber == self sigABRT ifTrue:[^ 'abort'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2953	aSignalNumber == self sigIOT ifTrue:[^ 'iot trap'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2954	aSignalNumber == self sigEMT ifTrue:[^ 'emt trap'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2955	aSignalNumber == self sigFP ifTrue:[^ 'fp exception'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2956	aSignalNumber == self sigBUS ifTrue:[^ 'bus error'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2957	aSignalNumber == self sigSEGV ifTrue:[^ 'segmentation violation'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2958	aSignalNumber == self sigSYS ifTrue:[^ 'bad system call'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2959	aSignalNumber == self sigPIPE ifTrue:[^ 'broken pipe'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2960	aSignalNumber == self sigALRM ifTrue:[^ 'alarm timer'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2961	aSignalNumber == self sigTERM ifTrue:[^ 'termination'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2962	aSignalNumber == self sigSTOP ifTrue:[^ 'stop'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2963	aSignalNumber == self sigTSTP ifTrue:[^ 'tty stop'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2964	aSignalNumber == self sigCONT ifTrue:[^ 'continue'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2965	aSignalNumber == self sigCHLD ifTrue:[^ 'child death'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2966	aSignalNumber == self sigTTIN ifTrue:[^ 'background tty input'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2967	aSignalNumber == self sigTTOU ifTrue:[^ 'background tty output'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2968	aSignalNumber == self sigIO ifTrue:[^ 'io available'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2969	aSignalNumber == self sigXCPU ifTrue:[^ 'cpu time expired'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2970	aSignalNumber == self sigXFSZ ifTrue:[^ 'file size limit'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2971	aSignalNumber == self sigVTALRM ifTrue:[^ 'virtual alarm timer'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2972	aSignalNumber == self sigPROF ifTrue:[^ 'profiling timer'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2973	aSignalNumber == self sigWINCH ifTrue:[^ 'winsize changed'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2974	aSignalNumber == self sigLOST ifTrue:[^ 'resource lost'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2975	aSignalNumber == self sigUSR1 ifTrue:[^ 'user signal 1'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2976	aSignalNumber == self sigUSR2 ifTrue:[^ 'user signal 2'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2977	aSignalNumber == self sigMSG ifTrue:[^ 'HFT message'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2978	aSignalNumber == self sigPWR ifTrue:[^ 'power-fail'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2979	aSignalNumber == self sigPRE ifTrue:[^ 'programming exception'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2980	aSignalNumber == self sigGRANT ifTrue:[^ 'HFT access wanted'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2981	aSignalNumber == self sigRETRACT ifTrue:[^ 'HFT access relinquish'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2982	aSignalNumber == self sigSOUND ifTrue:[^ 'HFT sound complete'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2983	aSignalNumber == self sigDANGER ifTrue:[^ 'low on paging space'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2984
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2985	"notice: many systems map SIGPOLL and/or SIGUSR onto SIGIO
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2986	therefore, keep SIGIO always above the two below"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2987	aSignalNumber == self sigPOLL ifTrue:[^ 'io available'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2988	aSignalNumber == self sigURG ifTrue:[^ 'urgent'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2989
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2990	^ 'unknown signal'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2991
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2992	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2993	OperatingSystem nameForSignal:9
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2994	OperatingSystem nameForSignal:(OperatingSystem sigPOLL)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2995	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2996	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2997
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2998	operatingSystemSignal:signalNumber
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2999	"return the signal to be raised when an
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3000	operatingSystem-signal occurs, or nil"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3001
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3002	OSSignals notNil ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3003	^ OSSignals at:signalNumber ifAbsent:[nil]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3004	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3005	^ nil
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	operatingSystemSignal:signalNumber install:aSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3009	"install a signal to be raised when an operatingSystem-signal occurs"
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	OSSignals isNil ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3012	OSSignals := Array new:32
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3013	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3014	OSSignals at:signalNumber put:aSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3015	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3016
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3017	sendSignal:signalNumber to:processId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3018	"send a unix signal to some process (maybe myself).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3019	Returns false if any error occurred, true otherwise.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3020
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	3021	Do not confuse UNIX signals with Smalltalk-Signals."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3022
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3023	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3024	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3025
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3026	startSpyTimer
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3027	"trigger a spyInterrupt, to be signalled after some short (virtual) time.
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	3028	Return true, if the spy-timerInterrupt was enabled.
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	3029	This was used by the old MessageTally for profiling.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3030	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	3031	(which is of course less correct).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3032	OBSOLETE: the new messageTally runs as a high prio process, not using
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3033	spy interrupts."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3034
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	3035	^ false
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3036	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3037
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3038	stopSpyTimer
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3039	"stop spy timing - disable spy timer.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3040	OBSOLETE: the new messageTally runs as a high prio process, not using
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3041	spy interrupts."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3042
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	3043	^ false
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3044	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3045
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3046	terminateProcess:processId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3047	"terminate a unix process.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3048	The process has a chance to do some cleanup.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3049
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3050	WARNING: in order to avoid zombie processes (on unix),
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3051	you may have to fetch the processes exitstatus with
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3052	OperatingSystem>>getStatusOfProcess:aProcessId."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3053
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3054	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3055	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3056
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3057	terminateProcessGroup:processGroupId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3058	"terminate a unix process group.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3059	The process has a chance to do some cleanup.
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	WARNING: in order to avoid zombie processes (on unix),
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3062	you may have to fetch the processes exitstatus with
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3063	OperatingSystem>>getStatusOfProcess:aProcessId."
3576 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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3066	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3067
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3068	unblockInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3069	"enable interrupt processing - if any interrupts are pending,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3070	these will be handled immediately.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3071	When unblocking interrupts, take care of nested block/unblock
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3072	calls - you must only unblock after a blockcall if they where
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3073	really not blocked before. See OperatingSystemclass>>blockInterrupts."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3074	%{
8505 4456ffd20005 #unblockInterrupts returns the prvious blocking state Stefan Vogel <sv@exept.de> parents: 8497 diff changeset	3075	RETURN(__UNBLOCKINTERRUPTS());
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3076	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3077	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3078
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3079	!AbstractOperatingSystem class methodsFor:'misc'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3080
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3081	closePid:pid
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3082	"free pid resource"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3083
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3084	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3085	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3086
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3087	exit
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3088	"shutdown smalltalk immediately - this method does not return.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3089	Return 'good'-status (0) to the parent unix process."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3090
5429 f4a52365fc97 checkin from browser Claus Gittinger <cg@exept.de> parents: 5407 diff changeset	3091	self exit:0.
f4a52365fc97 checkin from browser Claus Gittinger <cg@exept.de> parents: 5407 diff changeset	3092
8804 b7eefb374b37 spelling in comments Stefan Vogel <sv@exept.de> parents: 8801 diff changeset	3093	"OperatingSystem exit - don't evaluate this"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3094	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3095
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3096	exit:exitCode
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3097	"shutdown smalltalk immediately -
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3098	returning an exit-code to the parent unix process."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3099
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3100	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3101	int code = 1;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3102
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3103	if (__isSmallInteger(exitCode)) {
8804 b7eefb374b37 spelling in comments Stefan Vogel <sv@exept.de> parents: 8801 diff changeset	3104	code = __intVal(exitCode);
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3105	}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3106	__mainExit(code);
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3107	%}
8804 b7eefb374b37 spelling in comments Stefan Vogel <sv@exept.de> parents: 8801 diff changeset	3108	"OperatingSystem exit:1 - 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	exitWithCoreDump
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3112	"shutdown smalltalk immediately - dumping core.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3113	This always returns 'bad'-status to the parent unix process.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3114	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	3115	manually remove any tempfiles.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3116	Use this only for debugging ST/X itself"
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	%{ /* NOCONTEXT */
10293 9cd817cd6bc9 Declare abort() Stefan Vogel <sv@exept.de> parents: 10097 diff changeset	3119	extern void abort();
9cd817cd6bc9 Declare abort() Stefan Vogel <sv@exept.de> parents: 10097 diff changeset	3120
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3121	abort();
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3122	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3123	"
8804 b7eefb374b37 spelling in comments Stefan Vogel <sv@exept.de> parents: 8801 diff changeset	3124	OperatingSystem exitWithCoreDump - don't evaluate this
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3125	"
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3126	!
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3127
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3128	getVMSSymbol:aSymbolString
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3129	"get a symbols value, or nil if there is none"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3130
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3131	^ nil
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3132
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3133	"Created: / 5.6.1998 / 19:02:50 / cg"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3134	"Modified: / 5.6.1998 / 19:03:15 / cg"
11768 23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3135	!
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3136
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3137	playSound:fileName
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3138	"unsupported - simply stay silent"
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3139
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3140	^ self.
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3141	!
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3142
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3143	playSound:fileName mode:modeInteger
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3144	"unsupported - simply stay silent"
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3145
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3146	^ self.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3147	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3148
7289 ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3149	!AbstractOperatingSystem class methodsFor:'obsolete'!
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3150
8236 ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3151	baseNameOf:aPath
ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3152	<resource:#obsolete>
ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3153
ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3154	self obsoleteMethodWarning:'use asFilename baseName'.
ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3155	^ aPath asFilename baseName
7289 ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3156	! !
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3157
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3158	!AbstractOperatingSystem class methodsFor:'os queries'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3159
3806 37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3160	getCCDefine
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3161	"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	3162	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	3163	For example, on linux, this is '__GNUC__';
3806 37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3164	on windows, this is either '__MSC__' or '__BORLANDC__'"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3165
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3166	%{ /* NOCONTEXT */
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3167	#ifndef CC_DEFINE
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3168	# ifdef WIN32
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3169	# ifdef __BORLANDC__
3829 4690e0bc7ce7 added isWINDOWSNT query Claus Gittinger <cg@exept.de> parents: 3826 diff changeset	3170	# define CC_DEFINE "__BORLANDC__"
3806 37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3171	# else
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3172	# define CC_DEFINE "__MSC__"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3173	# endif
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3174	# else
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3175	# ifdef __GNUC__
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3176	# define CC_DEFINE "__GNUC__"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3177	# else
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3178	# define CC_DEFINE "__CC__"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3179	# endif
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3180	# endif
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3181	#endif
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3182	RETURN ( __MKSTRING(CC_DEFINE));
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3183	%}
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3184	"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3185	OperatingSystem getCCDefine
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3186	"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3187	!
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3188
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3189	getCPUDefine
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3190	"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	3191	compiled, and which should be passed down when compiling methods.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3192	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	3193	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	3194	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	3195
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3196	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3197	# ifndef CPU_DEFINE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3198	# define CPU_DEFINE "-DunknownCPU"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3199	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3200
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3201	RETURN ( __MKSTRING(CPU_DEFINE));
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3202	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3203	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3204	OperatingSystem getCPUDefine
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3205	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3206	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3207
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3208	getCPUType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3209	"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	3210	Here, the machine for which ST/X was compiled is returned
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3211	(i.e. for all x86's, the same i386 is returned).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3212	This may normally not be of any interest to you ..."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3213
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3214	\|cpu\|
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3215
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3216	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3217
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3218	# ifdef __vax__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3219	# define CPU_SYMBOL @symbol(vax)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3220	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3221	# ifdef __mips__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3222	# define CPU_SYMBOL @symbol(mips)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3223	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3224	# ifdef __i386__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3225	# define CPU_SYMBOL @symbol(i386)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3226	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3227	# ifdef __i860__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3228	# define CPU_SYMBOL @symbol(i860)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3229	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3230	# ifdef __ns32k__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3231	# define CPU_SYMBOL @symbol(ns32k)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3232	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3233	# ifdef __mc68k__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3234	# define CPU_SYMBOL @symbol(mc68k)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3235	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3236	# ifdef __mc88k__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3237	# define CPU_SYMBOL @symbol(mc88k)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3238	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3239	# ifdef __sparc__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3240	# define CPU_SYMBOL @symbol(sparc)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3241	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3242	# ifdef __hppa__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3243	# define CPU_SYMBOL @symbol(hppa)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3244	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3245	# ifdef __rs6000__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3246	# define CPU_SYMBOL @symbol(rs6000)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3247	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3248	# ifdef __powerPC__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3249	# define CPU_SYMBOL @symbol(powerPC)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3250	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3251	# ifdef __alpha__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3252	# define CPU_SYMBOL @symbol(alpha)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3253	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3254	# ifdef __transputer__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3255	# define CPU_SYMBOL @symbol(transputer)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3256	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3257	# ifdef __ibm370__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3258	# define CPU_SYMBOL @symbol(ibm370)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3259	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3260	# ifdef __s390__
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3261	# define CPU_SYMBOL @symbol(s390)
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3262	# endif
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3263	# ifdef __arm__
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3264	# define CPU_SYMBOL @symbol(arm)
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3265	# endif
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3266	# ifdef __ia64__
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3267	# define CPU_SYMBOL @symbol(ia64)
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3268	# endif
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3269
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3270	# ifndef CPU_SYMBOL
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3271	# define CPU_SYMBOL @symbol(unknown)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3272	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3273
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3274	cpu = CPU_SYMBOL;
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3275	# undef CPU_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3276	%}.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3277	^ cpu
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3278
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3279	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3280	OperatingSystem getCPUType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3281	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3282
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3283	"examples: are we running on a ss-10/solaris ?"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3284	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3285	(OperatingSystem getCPUType = 'sparc')
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3286	and:[OperatingSystem getOSType = 'solaris']
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3287	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3288
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3289	"or on a pc/solaris ?"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3290	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3291	(OperatingSystem getCPUType = 'i386')
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3292	and:[OperatingSystem getOSType = 'solaris']
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3293	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3294	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3295
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3296	getDomainName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3297	"return the domain this host is in.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3298	Notice:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3299	not all systems support this; on some, 'unknown' is returned."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3300
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3301	self subclassResponsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3304	getEnvironment:aStringOrSymbol
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3305	"get an environment string"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3306
5407 d6729266a95b * empty log message * Claus Gittinger <cg@exept.de> parents: 5172 diff changeset	3307	^ self subclassResponsibility
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3308	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3309
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3310	getHostName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3311	"return the hostname we are running on - if there is
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3312	a HOST environment variable, we are much faster here ...
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3313	Notice:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3314	not all systems support this; on some, 'unknown' is returned."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3315
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3316	self subclassResponsibility
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
7778 cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3319	getLanguage
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3320	"get the LANGUAGE setting (example: de_DE.iso8859-15@euro)"
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3321
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3322	^ self getEnvironment:'LANG'.
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3323	!
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3324
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3325	getLocaleInfo
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3326	"return a dictionary filled with values from the locale information;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3327	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	3328	Possible fields are:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3329	decimalPoint <String>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3330
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3331	thousandsSep <String>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3332
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3333	internationalCurrencySymbol <String>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3334
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3335	currencySymbol <String>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3336
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3337	monetaryDecimalPoint <String>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3338
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3339	monetaryThousandsSeparator <String>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3340
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3341	positiveSign <String>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3342
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3343	negativeSign <String>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3344
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3345	internationalFractionalDigits <Integer>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3346
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3347	fractionalDigits <Integer>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3348
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3349	positiveSignPrecedesCurrencySymbol <Boolean>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3350
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3351	negativeSignPrecedesCurrencySymbol <Boolean>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3352
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3353	positiveSignSeparatedBySpaceFromCurrencySymbol <Boolean>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3354
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3355	negativeSignSeparatedBySpaceFromCurrencySymbol <Boolean>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3356
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3357	positiveSignPosition <Symbol>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3358	one of: #parenthesesAround,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3359	#signPrecedes,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3360	#signSuceeds,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3361	#signPrecedesCurrencySymbol,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3362	#signSuceedsCurrencySymbol
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3363
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3364	negativeSignPosition <like above>
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3365
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3366	it is up to the application to deal with undefined values.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3367
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3368	Notice, that (for now), the system does not use this information;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3369	it should be used by applications as required.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3370	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3371
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3372	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3373	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3374
8997 e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3375	getNetworkAddresses
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3376	"return a dictionary with key:name of interface and
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3377	value:the network address for each interface"
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3378
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3379	self subclassResponsibility
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3380	!
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3381
7289 ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3382	getNetworkMACAddresses
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3383	"return a dictionary with key:name of interface and
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3384	value:the MAC adress for each interface"
6363 4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3385
4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3386	self subclassResponsibility
4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3387	!
4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3388
7289 ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3389	getNetworkMACAddressesForIf:ifName
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3390	"return the MAC adress for interface ifName"
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3391
8641 1b45626f0e50 noMacAddress fallBack (NT4.0) Claus Gittinger <cg@exept.de> parents: 8587 diff changeset	3392	self getNetworkMACAddresses at:ifName ifAbsent:nil
1b45626f0e50 noMacAddress fallBack (NT4.0) Claus Gittinger <cg@exept.de> parents: 8587 diff changeset	3393
1b45626f0e50 noMacAddress fallBack (NT4.0) Claus Gittinger <cg@exept.de> parents: 8587 diff changeset	3394	"Modified: / 17-11-2004 / 01:43:35 / cg"
6363 4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3395	!
4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3396
10684 b5ca16223480 * empty log message * sr parents: 10545 diff changeset	3397	getNumberOfProcessors
b5ca16223480 * empty log message * sr parents: 10545 diff changeset	3398	self subclassResponsibility
b5ca16223480 * empty log message * sr parents: 10545 diff changeset	3399	!
b5ca16223480 * empty log message * sr parents: 10545 diff changeset	3400
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3401	getOSDefine
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3402	"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	3403	compiled, and which should be passed down when compiling methods.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3404	For example, on linux, this is '-DLINUX'."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3405
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3406	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3407
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3408	#ifndef OS_DEFINE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3409	# ifdef WIN32
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3410	# define OS_DEFINE "-DWIN32"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3411	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3412
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3413	# ifndef OS_DEFINE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3414	# define OS_DEFINE "-DunknownOS"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3415	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3416	#endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3417
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3418	RETURN ( __MKSTRING(OS_DEFINE));
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3419
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3420	#undef OS_DEFINE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3421	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3422	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3423	OperatingSystem getOSDefine
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3424	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3425	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3426
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3427	getOSType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3428	"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	3429	This can be used to adapt programs to certain environment
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3430	differences (for example: mail-lock strategy ...)"
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	\|os\|
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	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3435
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3436	# ifdef MSDOS
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3437	# define OS_SYMBOL @symbol(msdos)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3438	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3439
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3440	# ifdef WIN32
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3441	# define OS_SYMBOL @symbol(win32)
3576 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	# ifdef MSWINDOWS
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3445	# define OS_SYMBOL @symbol(mswindows)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3446	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3447
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3448	# ifdef VMS
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3449	# ifdef __openVMS__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3450	# define OS_SYMBOL @symbol(openVMS)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3451	# else
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3452	# define OS_SYMBOL @symbol(VMS)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3453	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3454	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3455
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3456	# ifdef MVS /* ;-) */
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3457	# define OS_SYMBOL @symbol(mvs)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3458	# endif
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	# ifdef OS2
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3461	# define OS_SYMBOL @symbol(os2)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3462	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3463
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3464	# ifdef sinix
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3465	# define OS_SYMBOL @symbol(sinix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3466	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3467
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3468	# ifdef ultrix
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3469	# define OS_SYMBOL @symbol(ultrix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3470	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3471
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3472	# ifdef sco
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3473	# define OS_SYMBOL @symbol(sco)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3474	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3475
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3476	# ifdef hpux
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3477	# define OS_SYMBOL @symbol(hpux)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3478	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3479
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3480	# ifdef LINUX
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3481	# define OS_SYMBOL @symbol(linux)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3482	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3483
6651 4bc133e27717 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	3484	# ifdef FREEBSD
4bc133e27717 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	3485	# define OS_SYMBOL @symbol(freeBSD)
4bc133e27717 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	3486	# endif
4bc133e27717 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	3487
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3488	# ifdef sunos
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3489	# define OS_SYMBOL @symbol(sunos)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3490	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3491
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3492	# ifdef solaris
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3493	# define OS_SYMBOL @symbol(solaris)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3494	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3495
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3496	# ifdef IRIS
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3497	# define OS_SYMBOL @symbol(irix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3498	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3499
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3500	# ifdef aix
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3501	# define OS_SYMBOL @symbol(aix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3502	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3503
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3504	# ifdef realIX
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3505	# define OS_SYMBOL @symbol(realIX)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3506	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3507
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3508	# ifdef __osf__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3509	# define OS_SYMBOL @symbol(osf)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3510	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3511
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3512	/*
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3513	* no concrete info; become somewhat vague ...
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3514	*/
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3515	# ifndef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3516	# ifdef MACH
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3517	# define OS_SYMBOL @symbol(mach)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3518	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3519	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3520
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3521	# ifndef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3522	# ifdef BSD
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3523	# define OS_SYMBOL @symbol(bsd)
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 SYSV
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3527	# ifdef SYSV3
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3528	# define OS_SYMBOL @symbol(sys5_3)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3529	# else
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3530	# ifdef SYSV4
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3531	# define OS_SYMBOL @symbol(sys5_4)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3532	# else
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3533	# define OS_SYMBOL @symbol(sys5)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3534	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3535	# endif
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	# endif
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	/*
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3540	* become very vague ...
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3541	*/
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3542	# ifndef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3543	# ifdef POSIX
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3544	# define OS_SYMBOL @symbol(posix)
3576 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	# endif
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 UNIX
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3549	# define OS_SYMBOL @symbol(unix)
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	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3552
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3553	# ifndef OS_SYMBOL
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3554	# define OS_SYMBOL @symbol(unknown)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3555	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3556
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3557	os = OS_SYMBOL;
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3558
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3559	# undef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3560	%}.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3561	^ os
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3562
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3563	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3564	OperatingSystem getOSType
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	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3567
9698 e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3568	getPlatformDefine
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3569	"return a string which defines the platform,
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3570	and which should be passed down when compiling methods.
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3571	For example, on all unices, this is '-DUNIX'."
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3572
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3573	%{ /* NOCONTEXT */
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3574
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3575	#ifndef PLATFORM_DEFINE
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3576	# ifdef WIN32
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3577	# define PLATFORM_DEFINE "-DWIN32"
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3578	# endif
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3579	# ifdef OS2
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3580	# define PLATFORM_DEFINE "-DOS2"
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3581	# endif
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3582	# ifdef BEOS
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3583	# define PLATFORM_DEFINE "-DBEOS"
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3584	# endif
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3585	# ifdef MACOS
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3586	# define PLATFORM_DEFINE "-DMACOS"
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3587	# endif
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3588	# ifdef VMS
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3589	# define PLATFORM_DEFINE "-DVMS"
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3590	# endif
9698 e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3591	# ifndef PLATFORM_DEFINE
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3592	# define PLATFORM_DEFINE "-DUNIX"
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3593	# endif
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3594	#endif
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3595
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3596	RETURN ( __MKSTRING(PLATFORM_DEFINE));
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3597	%}
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	OperatingSystem getPlatformDefine
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	!
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3602
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3603	getProcessId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3604	"return the (unix-)processId"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3605
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3606	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3607	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3608
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3609	getSystemID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3610	"if supported by the OS, return the systemID;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3611	a unique per machine identification.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3612	WARNING:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3613	not all systems support this; on some, 'unknown' is returned."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3614
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3615	^ 'unknown'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3616
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3617	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3618	OperatingSystem getSystemID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3619	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3620	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3621
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3622	getSystemInfo
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3623	"return info on the system weare running on.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3624	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	3625	otherwise, some simulated info is returned.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3626
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3627	WARNING:
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3628	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	3629	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	3630	OS, for example, linux returns 'ix86', while WIN32 returns 'x86'.
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	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	3633	information.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3634	(in case of system/version specific OS errors, conditional workarounds and patches
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3635	may be based upon this info).
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3636	Your application should NOT depend upon this in any way.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3637
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3638	The returned info may (or may not) contain:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3639	#system -> some operating system identification (irix, Linux, nt, win32s ...)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3640	#version -> OS version (some os version identification)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3641	#release -> OS release (3.5, 1.2.1 ...)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3642	#node -> some host identification (hostname)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3643	#domain -> domain name (hosts domain)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3644	#machine -> type of machine (i586, mips ...)
3576 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	\|info\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3648
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3649	info := IdentityDictionary new.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3650	info at:#system put:(self getSystemType).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3651	info at:#node put:(self getHostName).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3652	info at:#machine put:(self getCPUType).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3653	info at:#architecture put:'unknown'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3654	info at:#domain put:self getDomainName.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3655	info at:#osType put:(self getOSType).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3656	^ info
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	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3659	OperatingSystem getSystemInfo
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3660	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3661	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3662
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3663	getSystemType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3664	"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	3665	This is almost the same as getOSType, but the returned string
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3666	is slightly different for some systems (i.e. iris vs. irix).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3667	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	3668	here ...
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3669	(except for slight differences between next/mach and other machs)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3670
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3671	^ self getOSType
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	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3674	OperatingSystem getSystemType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3675	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3676	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3677
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3678	getWindowsDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3679	"internal interface - only for Windows based systems.
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3680	Return the windows directory, which, depending on the system,
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3681	may be
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3682	'\WINNT', '\WINDOWS'
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3683	or whatever.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3684	On non-windows systems, nil is returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3685
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3686	^ nil
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3687
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3688	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3689	OperatingSystem getWindowsDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3690	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3691	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3692
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3693	getWindowsSystemDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3694	"internal interface - only for Windows based systems.
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3695	Return the windows system directory, which, depending on the system,
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3696	may be
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3697	'\WINNT\SYSTEM32', '\WINDOWS\SYSTEM'
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3698	or whatever.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3699	On non-windows systems, nil is returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3700
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3701	^ nil
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	OperatingSystem getWindowsSystemDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3705	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3706	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3707
4207 89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3708	hasConsole
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3709	"return true, if there is some kind of console available
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3710	(i.e. for proper stdIn, stdOut and stdErr handling).
5918 0d8bc97e7106 * empty log message * Claus Gittinger <cg@exept.de> parents: 5861 diff changeset	3711	This only returns false when running under windows, and
4207 89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3712	the system is running as a pure windows application.
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3713	If false, the miniDebugger is useless and not used."
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3714
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3715	^ true
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3716	!
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3717
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3718	isBSDlike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3719	"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	3720
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3721	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3722	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3723
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3724	isMAClike
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3725	"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	3726
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3727	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3728	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3729
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3730	isMSDOSlike
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3731	"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	3732	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	3733
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3734	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3735	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3736
3901 3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3737	isMSWINDOWSNTlike
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3738	"This returns true if running in a Windows-NT system."
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3739
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3740	^ false.
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3741	!
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3742
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3743	isMSWINDOWSlike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3744	"return true, if running on a MS-Windows like system.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3745	This returns true for any of win32s, win95 and winNT."
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	isOS2like
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3751	"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	3752	Only returns true for a plain OS/2 system."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3753
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3754	^ false
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3757	isUNIXlike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3758	"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	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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3763	isVMSlike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3764	"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	3765
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3766	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3767	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3768
9697 d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3769	knownPlatformNames
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3770	"return a collection of strings as possibly returned by getPlatformName.
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3771	Should be used instead of getOSType or getSystemType if multiple choice
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3772	dialogs are presented to the user."
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3773
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3774	^#(
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3775	win32
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3776	os2 "/ actually - this is no longer true
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3777	macos "/ actually - this is no longer true
9697 d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3778	vms "/ actually - this is no longer true
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3779	beos "/ actually - this was never true
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3780	unix
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3781	)
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3782
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3783	"
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3784	OperatingSystem knownPlatformNames
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3785	OperatingSystem platformName
9698 e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3786	OperatingSystem getPlatformDefine
9697 d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3787	"
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3788
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3789	"Modified: 20.6.1997 / 17:37:26 / cg"
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3790	!
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3791
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3792	maxFileNameLength
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3793	"return the max number of characters in a filename.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3794	CAVEAT:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3795	Actually, the following is somewhat wrong - some systems
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3796	support different sizes, depending on the volume.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3797	We return a somewhat conservative number here.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3798	Another entry, to query for volume specific max
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3799	will be added in the future."
3576 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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3802	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3803
6578 e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3804	maxNumberOfOpenFiles
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3805	"answer the maximum number of open files for this process"
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3806
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3807	^ self subclassResponsibility
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3808	!
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3809
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3810	maxPathLength
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3811	"return the max number of characters in a pathName."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3812
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3813	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3814	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3815
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3816	pathSeparator
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3817	"return the character which separates items in the PATH variable"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3818
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3819	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3820	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3821
9700 abcbfeb235b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9699 diff changeset	3822	platformDefineForPlatformName:osID
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3823	"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	3824
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3825	osID = 'win32' ifTrue:[ ^ '-DWIN32'].
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3826	osID = 'os2' ifTrue:[ ^ '-DOS2'].
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3827	osID = 'macos' ifTrue:[ ^ '-DMACOS'].
9721 da01ca2c113c * empty log message * Claus Gittinger <cg@exept.de> parents: 9700 diff changeset	3828	osID = 'beos' ifTrue:[ ^ '-DBEOS'].
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3829	osID = 'vms' ifTrue:[ ^ '-DVMS'].
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3830	osID = 'unix' ifTrue:[ ^ '-DUNIX'].
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3831	self error:'unknown os'.
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3832
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3833	"
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3834	OperatingSystem platformDefineForName:(OperatingSystem platformName)
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3835	"
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3836
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3837	"Modified: 20.6.1997 / 17:37:26 / cg"
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3838	!
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3839
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3840	platformName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3841	"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	3842	This returns #unix for all unix derivatives.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3843	I.e. it is much less specific than getOSType or getSystemType."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3844
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3845	\|os\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3846
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3847	os := self getSystemType.
11170 ced52c04b215 #platformName - answer symbols Stefan Vogel <sv@exept.de> parents: 11166 diff changeset	3848	os = #win32 ifTrue:[ ^ #win32].
ced52c04b215 #platformName - answer symbols Stefan Vogel <sv@exept.de> parents: 11166 diff changeset	3849	os = #os2 ifTrue:[ ^ #os2].
ced52c04b215 #platformName - answer symbols Stefan Vogel <sv@exept.de> parents: 11166 diff changeset	3850	os = #macos ifTrue:[ ^ #macos].
ced52c04b215 #platformName - answer symbols Stefan Vogel <sv@exept.de> parents: 11166 diff changeset	3851	os = #VMS ifTrue:[ ^ #vms].
ced52c04b215 #platformName - answer symbols Stefan Vogel <sv@exept.de> parents: 11166 diff changeset	3852	os = #openVMS ifTrue:[ ^ #vms].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3853	^ #unix
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3854
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3855	"
9697 d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3856	OperatingSystem knownPlatformNames
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3857	OperatingSystem platformName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3858	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3859
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3860	"Modified: 20.6.1997 / 17:37:26 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3861	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3862
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3863	setLocaleInfo:anInfoDictionary
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3864	"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	3865	(internal in ST/X only - the OS's settings remain unaffected)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3866	See description of fields in #getLocaleInfo.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3867
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3868	Notice, that (for now), the system does not use this information;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3869	it should be used by applications as required."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3870
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3871	LocaleInfo := anInfoDictionary
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	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3874	\|d\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3875
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3876	d := IdentityDictionary new.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3877	d at:#decimalPoint put:'.' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3878	d at:#thousandsSeparator put:',' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3879	d at:#currencySymbol put:'USD' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3880	d at:#monetaryDecimalPoint put:'.' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3881	d at:#monetaryThousandsSeparator put:'.' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3882	d at:#fractionalDigits put:2 .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3883	d at:#positiveSign put:'+' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3884	d at:#negativeSign put:'-' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3885	d at:#positiveSignPrecedesCurrencySymbol put:true .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3886	d at:#negativeSignPrecedesCurrencySymbol put:false .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3887	OperatingSystem setLocaleInfo:d
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3888	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3889	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3890
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3891	supportsChildInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3892	"return true, if the OS supports childProcess termination signalling
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3893	through interrupts (i.e. SIGCHILD)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3894
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3895	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3896
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3897	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3898	OperatingSystem supportsChildInterrupts
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3899	"
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
3826 ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3902	supportsFileOwnerGroups
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3903	"return true, if the OS's file system supports file
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3904	group ownership - here, we are optimistic assuming that
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3905	we are running under a real OS.
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3906	Redefined in Win32OS to return false."
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3907
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3908	^ true
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3909
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3910	"Modified: / 10.9.1998 / 17:48:20 / cg"
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3911	"Created: / 10.9.1998 / 17:56:28 / cg"
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3912	!
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3913
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3914	supportsFileOwners
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3915	"return true, if the OS's file system supports file
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3916	ownership - here, we are optimistic assuming that
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3917	we are running under a real OS.
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3918	Redefined in Win32OS to return false."
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3919
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3920	^ true
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3921
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3922	"Modified: / 10.9.1998 / 17:48:20 / cg"
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3923	"Created: / 10.9.1998 / 17:56:11 / cg"
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3924	!
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3925
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3926	supportsIOInterrupts
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3927	"return true, if the OS supports IO availability interrupts
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3928	(i.e. SIGPOLL/SIGIO)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3929
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3930	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3931
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3932	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3933	OperatingSystem supportsIOInterrupts
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3934	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3935	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3936
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3937	supportsNonBlockingIO
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3938	"return true, if the OS supports nonblocking IO."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3939
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3940	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3941
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3942	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3943	OperatingSystem supportsNonBlockingIO
3576 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	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3946
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3947	supportsSelect
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3948	"return true, if the OS supports selecting on multiple
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3949	filedescriptors via select.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3950	If false is returned, ProcessorScheduler will poll in 50ms
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3951	intervals for I/O becoming ready."
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	^ true
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3954
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3955	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3956	OperatingSystem supportsSelect
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3957	"
3901 3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3958	!
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3959
5099 bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3960	supportsSelectOnPipes
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3961	"return true, if the OS supports selecting on pipe
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3962	filedescriptors via select.
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3963	If false is returned, ProcessorScheduler will poll in 50ms
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3964	intervals for I/O becoming ready."
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3965
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3966	^ true
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3967
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3968	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3969	OperatingSystem supportsSelectOnPipes
5099 bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3970	"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3971
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3972	"Modified: / 14.12.1999 / 19:40:32 / cg"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3973	"Created: / 14.12.1999 / 19:43:43 / cg"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3974	!
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3975
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3976	supportsSelectOnSockets
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3977	"return true, if the OS supports selecting on socket
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3978	filedescriptors via select.
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3979	If false is returned, ProcessorScheduler will poll in 50ms
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3980	intervals for I/O becoming ready."
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3981
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3982	^ true
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3983
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3984	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3985	OperatingSystem supportsSelectOnSockets
5099 bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3986	"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3987
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3988	"Modified: / 14.12.1999 / 19:40:32 / cg"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3989	!
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3990
3901 3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3991	supportsVolumes
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3992	"return true, if the OS supports disk volumes.
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3993	False is returned for UNIX, true for MSDOS and VMS"
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3994
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3995	^ false
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3996
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3997	"Created: / 29.10.1998 / 13:20:37 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3998	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3999
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4000	!AbstractOperatingSystem class methodsFor:'path queries'!
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4001
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4002	defaultPackagePath
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4003	"return a default packagePath - thats a collection of
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4004	dirnames, where ST/X searches for its package subdirs.
5159 ca0524ab2576 defaultPackagePath initialization fixed Claus Gittinger <cg@exept.de> parents: 5148 diff changeset	4005	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	4006	OS-specific directory names."
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4007
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4008	\|packagePath dirName homeDirName priv userPrivateSTXDir appDir topDirName\|
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4009
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4010	"
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4011	the path is set to search files first locally
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4012	- this allows private stuff to override global stuff
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4013	"
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4014	packagePath := OrderedCollection new.
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4015
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4016	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4017	"/ the current (default) directory:
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4018	"/ ./packages
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4019	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4020	packagePath add:(Filename currentDirectory pathName).
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4021
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4022	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4023	"/ 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	4024	"/ (/opt/stx/bin/stx -> /opt/stx/packages)
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4025	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4026	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	4027	dirName := appDir pathName.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4028	(packagePath includes:dirName) ifFalse:[
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4029	packagePath add:dirName.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4030	].
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4031
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4032	homeDirName := OperatingSystem getHomeDirectory.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4033	homeDirName notNil ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4034	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4035	"/ 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	4036	"/ $HOME/.smalltalk/packages or $HOME\smalltalk\packages
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4037	"/
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4038	OperatingSystem isUNIXlike ifTrue:[
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4039	priv := '.smalltalk'.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4040	] ifFalse:[
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4041	priv := 'smalltalk'.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4042	].
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4043	userPrivateSTXDir := homeDirName asFilename / priv.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4044	(userPrivateSTXDir isDirectory) ifTrue:[
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4045	dirName := userPrivateSTXDir pathName.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4046	(packagePath includes:dirName) ifFalse:[
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4047	packagePath add:dirName
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4048	]
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4049	].
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4050	].
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4051
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4052	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4053	"/ 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	4054	"/ $STX_TOPDIR/packages
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4055	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4056	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	4057	topDirName notNil ifTrue:[
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4058	(packagePath includes:topDirName) ifFalse:[
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4059	packagePath add:topDirName
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4060	].
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4061	].
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4062
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4063	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	4064	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	4065
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4066	"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4067	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	4068	"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4069	(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	4070	dirName := dirName asCollectionOfSubstringsSeparatedBy:$:.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4071	dirName reverseDo:[:eachDirectoryName\|
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4072	(packagePath includes:eachDirectoryName) ifFalse:[
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4073	packagePath addFirst:eachDirectoryName.
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4074	].
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4075	].
5654 96a2142a2c04 Use for packagePath Stefan Vogel <sv@exept.de> parents: 5646 diff changeset	4076	].
96a2142a2c04 Use for packagePath Stefan Vogel <sv@exept.de> parents: 5646 diff changeset	4077
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4078	"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	4079	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	4080	- 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	4081
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4082	topDirName isNil ifTrue:[
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4083	"appdir is now: projects"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4084	appDir := appDir directory directory.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4085	(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	4086	packagePath add:appDir pathName.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4087	].
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4088	].
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4089
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4090	^ packagePath
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4091
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4092	"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4093	OperatingSystem defaultPackagePath
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4094	"
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4095
5148 1a4b6b99888d * empty log message * Claus Gittinger <cg@exept.de> parents: 5143 diff changeset	4096	"Modified: / 24.12.1999 / 00:31:29 / cg"
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4097	!
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4098
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4099	defaultSystemPath
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4100	"return a default systemPath - thats a collection of
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4101	dirnames, where ST/X searches for its files.
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4102	This method is redefined in concrete OS's to add
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4103	OS-specific directory names."
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4104
9021 6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4105	\|sysPath p appDir homePath priv userPrivateSTXDir\|
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4106
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4107	"
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4108	the path is set to search files first locally
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4109	- this allows private stuff to override global stuff
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4110	"
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4111	sysPath := OrderedCollection new.
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4112
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4113	"/
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4114	"/ the current (default) directory
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4115	"/
9014 f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4116	sysPath add:(Filename currentDirectory pathName).
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4117
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4118	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4119	"/ the executable's directory
9021 6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 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	appDir := self pathOfSTXExecutable asFilename directory pathName.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4122	(sysPath includes:appDir) ifFalse:[
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4123	sysPath add:appDir.
9021 6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4124	].
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4125
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4126	"/
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4127	"/ the users home (login) directory
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 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	homePath := self getHomeDirectory.
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4130	homePath notNil ifTrue:[
9014 f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4131	"/
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4132	"/ a users private smalltalk directory in its home (login) directory
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4133	"/
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4134	OperatingSystem isUNIXlike ifTrue:[
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4135	priv := '.smalltalk'.
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4136	] ifFalse:[
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4137	priv := 'smalltalk'.
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 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	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	4140	(userPrivateSTXDir isDirectory) ifTrue:[
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4141	userPrivateSTXDir := userPrivateSTXDir pathName.
9014 f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4142	(sysPath includes:userPrivateSTXDir) ifFalse:[
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4143	sysPath add:userPrivateSTXDir
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4144	]
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4145	].
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4146	].
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4147
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4148	"/
5036 a967da9d41ac checkin from browser Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	4149	"/ SMALLTALK_LIBDIR, STX_LIBDIR and STX_TOPDIR from the environment
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4150	"/
9014 f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4151	#(
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4152	'SMALLTALK_LIBDIR'
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4153	'STX_LIBDIR'
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4154	'STX_TOPDIR'
5646 5dfccce8e880 no longer automatically add the home-dir to the systemPath Claus Gittinger <cg@exept.de> parents: 5486 diff changeset	4155	) do:[:each \|
9014 f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4156	p := OperatingSystem getEnvironment:each.
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4157	p notNil ifTrue:[
9021 6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4158	p := p asFilename pathName.
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4159	(p asFilename isDirectory) ifTrue:[
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4160	(sysPath includes:p) ifFalse:[
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4161	sysPath add:p
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4162	]
9014 f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4163	]
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4164	].
5036 a967da9d41ac checkin from browser Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	4165	].
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4166	^ sysPath
5148 1a4b6b99888d * empty log message * Claus Gittinger <cg@exept.de> parents: 5143 diff changeset	4167
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4168	"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4169	OperatingSystem defaultSystemPath
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4170	"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4171
5148 1a4b6b99888d * empty log message * Claus Gittinger <cg@exept.de> parents: 5143 diff changeset	4172	"Modified: / 24.12.1999 / 00:30:27 / cg"
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4173	! !
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4174
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	4175	!AbstractOperatingSystem class methodsFor:'printing support'!
d8547710430c printer stuff fm parents: 9380 diff changeset	4176
d8547710430c printer stuff fm parents: 9380 diff changeset	4177	getPrinterInfoFor: aPrinterName
d8547710430c printer stuff fm parents: 9380 diff changeset	4178	self subclassResponsibility
d8547710430c printer stuff fm parents: 9380 diff changeset	4179
d8547710430c printer stuff fm parents: 9380 diff changeset	4180	"Created: / 27-07-2006 / 12:14:18 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	4181	!
d8547710430c printer stuff fm parents: 9380 diff changeset	4182
d8547710430c printer stuff fm parents: 9380 diff changeset	4183	getPrinters
d8547710430c printer stuff fm parents: 9380 diff changeset	4184	"return a collection of PrinterInfos"
d8547710430c printer stuff fm parents: 9380 diff changeset	4185
d8547710430c printer stuff fm parents: 9380 diff changeset	4186	self subclassResponsibility
d8547710430c printer stuff fm parents: 9380 diff changeset	4187
d8547710430c printer stuff fm parents: 9380 diff changeset	4188	"Created: / 27-07-2006 / 12:17:31 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	4189	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	4190
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4191	!AbstractOperatingSystem class methodsFor:'private'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4192
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4193	osProcessStatusClass
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4194	^ self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4195
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4196	"Created: / 12.6.1998 / 16:30:29 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4197	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4198
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	4199	!AbstractOperatingSystem class methodsFor:'queries-sockets'!
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4200
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4201	domainCodeOf:aSymbolOrInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4202	"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	4203	Return nil for invalid or unsupported domains.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4204	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	4205	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	4206
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4207	\|domainCode\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4208
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4209	%{ /NOCONTEXT/
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4210
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4211	if (__isSmallInteger(aSymbolOrInteger) \|\| aSymbolOrInteger == nil) {
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4212	RETURN (aSymbolOrInteger);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4213	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4214
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4215	#ifdef AF_INET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4216	else if ((aSymbolOrInteger == @symbol(AF_INET)) \|\| (aSymbolOrInteger == @symbol(inet)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4217	domainCode = __mkSmallInteger(AF_INET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4218	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4219	#ifdef AF_INET6
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4220	else if ((aSymbolOrInteger == @symbol(AF_INET6)) \|\| (aSymbolOrInteger == @symbol(inet6)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4221	domainCode = __mkSmallInteger(AF_INET6);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4222	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4223	#ifdef AF_UNIX
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4224	else if ((aSymbolOrInteger == @symbol(AF_UNIX)) \|\| (aSymbolOrInteger == @symbol(unix)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4225	domainCode = __mkSmallInteger(AF_UNIX);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4226	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4227	#ifdef AF_APPLETALK
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4228	else if ((aSymbolOrInteger == @symbol(AF_APPLETALK)) \|\| (aSymbolOrInteger == @symbol(appletalk)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4229	domainCode = __mkSmallInteger(AF_APPLETALK);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4230	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4231	#ifdef AF_DECnet
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4232	else if ((aSymbolOrInteger == @symbol(AF_DECnet)) \|\| (aSymbolOrInteger == @symbol(decnet)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4233	domainCode = __mkSmallInteger(AF_DECnet);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4234	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4235	#ifdef AF_NS
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4236	else if ((aSymbolOrInteger == @symbol(AF_NS)) \|\| (aSymbolOrInteger == @symbol(ns)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4237	domainCode = __mkSmallInteger(AF_NS);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4238	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4239	#ifdef AF_X25
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4240	else if ((aSymbolOrInteger == @symbol(AF_X25)) \|\| (aSymbolOrInteger == @symbol(x25)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4241	domainCode = __mkSmallInteger(AF_X25);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4242	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4243	#ifdef AF_SNA
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4244	else if (aSymbolOrInteger == @symbol(AF_SNA))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4245	domainCode = __mkSmallInteger(AF_SNA);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4246	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4247	#ifdef AF_RAW
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4248	else if ((aSymbolOrInteger == @symbol(AF_RAW)) \|\| (aSymbolOrInteger == @symbol(raw)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4249	domainCode = __mkSmallInteger(AF_RAW);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4250	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4251	#ifdef AF_ISO
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4252	else if ((aSymbolOrInteger == @symbol(AF_ISO)) \|\| (aSymbolOrInteger == @symbol(iso)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4253	domainCode = __mkSmallInteger(AF_ISO);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4254	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4255	#ifdef AF_ECMA
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4256	else if (aSymbolOrInteger == @symbol(AF_ECMA))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4257	domainCode = __mkSmallInteger(AF_ECMA);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4258	#endif
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4259	#ifdef AF_NETBIOS
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4260	else if ((aSymbolOrInteger == @symbol(AF_NETBIOS)) \|\| (aSymbolOrInteger == @symbol(netbios)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4261	domainCode = __mkSmallInteger(AF_NETBIOS);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4262	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4263	#ifdef AF_NETBEUI
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4264	else if (aSymbolOrInteger == @symbol(AF_NETBEUI))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4265	domainCode = __mkSmallInteger(AF_NETBEUI);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4266	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4267	#ifdef AF_IPX
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4268	else if (aSymbolOrInteger == @symbol(AF_IPX))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4269	domainCode = __mkSmallInteger(AF_IPX);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4270	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4271	#ifdef AF_AX25
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4272	else if (aSymbolOrInteger == @symbol(AF_AX25))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4273	domainCode = __mkSmallInteger(AF_AX25);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4274	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4275	#ifdef AF_NETROM
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4276	else if (aSymbolOrInteger == @symbol(AF_NETROM))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4277	domainCode = __mkSmallInteger(AF_NETROM);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4278	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4279	#ifdef AF_BRIDGE
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4280	else if (aSymbolOrInteger == @symbol(AF_BRIDGE))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4281	domainCode = __mkSmallInteger(AF_BRIDGE);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4282	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4283	#ifdef AF_BSC
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4284	else if (aSymbolOrInteger == @symbol(AF_BSC))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4285	domainCode = __mkSmallInteger(AF_BSC);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4286	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4287	#ifdef AF_ROSE
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4288	else if (aSymbolOrInteger == @symbol(AF_ROSE))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4289	domainCode = __mkSmallInteger(AF_ROSE);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4290	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4291	#ifdef AF_IRDA
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4292	else if ((aSymbolOrInteger == @symbol(AF_IRDA)) \|\| (aSymbolOrInteger == @symbol(irda)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4293	domainCode = __mkSmallInteger(AF_IRDA);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4294	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4295	#ifdef AF_BAN
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4296	else if (aSymbolOrInteger == @symbol(AF_BAN))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4297	domainCode = __mkSmallInteger(AF_BAN);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4298	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4299	#ifdef AF_VOICEVIEW
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4300	else if (aSymbolOrInteger == @symbol(AF_VOICEVIEW))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4301	domainCode = __mkSmallInteger(AF_VOICEVIEW);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4302	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4303	#ifdef AF_ATM
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4304	else if (aSymbolOrInteger == @symbol(AF_ATM))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4305	domainCode = __mkSmallInteger(AF_ATM);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4306	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4307	#ifdef AF_ATMPVC
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4308	else if (aSymbolOrInteger == @symbol(AF_ATMPVC))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4309	domainCode = __mkSmallInteger(AF_ATMPVC);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4310	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4311	#ifdef AF_ATMSVC
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4312	else if (aSymbolOrInteger == @symbol(AF_ATMSVC))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4313	domainCode = __mkSmallInteger(AF_ATMSVC);
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_SECURITY
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4316	else if (aSymbolOrInteger == @symbol(AF_SECURITY))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4317	domainCode = __mkSmallInteger(AF_SECURITY);
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_KEY
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4320	else if (aSymbolOrInteger == @symbol(AF_KEY))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4321	domainCode = __mkSmallInteger(AF_KEY);
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_NETLINK
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4324	else if (aSymbolOrInteger == @symbol(AF_NETLINK))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4325	domainCode = __mkSmallInteger(AF_NETLINK);
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_PACKET
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4328	else if (aSymbolOrInteger == @symbol(AF_PACKET))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4329	domainCode = __mkSmallInteger(AF_PACKET);
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_ASH
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4332	else if (aSymbolOrInteger == @symbol(AF_ASH))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4333	domainCode = __mkSmallInteger(AF_ASH);
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_ECONET
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4336	else if (aSymbolOrInteger == @symbol(AF_ECONET))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4337	domainCode = __mkSmallInteger(AF_ECONET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4338	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4339	#ifdef AF_IMPLINK
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4340	else if (aSymbolOrInteger == @symbol(AF_IMPLINK))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4341	domainCode = __mkSmallInteger(AF_IMPLINK);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4342	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4343	#ifdef AF_PUP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4344	else if (aSymbolOrInteger == @symbol(AF_PUP))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4345	domainCode = __mkSmallInteger(AF_PUP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4346	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4347	#ifdef AF_CHAOS
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4348	else if (aSymbolOrInteger == @symbol(AF_CHAOS))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4349	domainCode = __mkSmallInteger(AF_CHAOS);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4350	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4351	#ifdef AF_DLI
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4352	else if (aSymbolOrInteger == @symbol(AF_DLI))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4353	domainCode = __mkSmallInteger(AF_DLI);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4354	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4355	#ifdef AF_LAT
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4356	else if (aSymbolOrInteger == @symbol(AF_LAT))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4357	domainCode = __mkSmallInteger(AF_LAT);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4358	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4359	#ifdef AF_HYLINK
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4360	else if (aSymbolOrInteger == @symbol(AF_HYLINK))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4361	domainCode = __mkSmallInteger(AF_HYLINK);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4362	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4363	#ifdef AF_FIREFOX
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4364	else if (aSymbolOrInteger == @symbol(AF_FIREFOX))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4365	domainCode = __mkSmallInteger(AF_FIREFOX);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4366	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4367	#ifdef AF_CLUSTER
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4368	else if (aSymbolOrInteger == @symbol(AF_CLUSTER))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4369	domainCode = __mkSmallInteger(AF_CLUSTER);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4370	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4371	#ifdef AF_12844
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4372	else if (aSymbolOrInteger == @symbol(AF_12844))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4373	domainCode = __mkSmallInteger(AF_12844);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4374	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4375	#ifdef AF_NETDES
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4376	else if (aSymbolOrInteger == @symbol(AF_NETDES))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4377	domainCode = __mkSmallInteger(AF_NETDES);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4378	#endif
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4379	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4380
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4381	^ domainCode.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4382
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4383	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4384	self domainCodeOf:#AF_INET
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4385	self domainCodeOf:#AF_INET6
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4386	self domainCodeOf:#AF_UNIX
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4387	self domainCodeOf:#AF_APPLETALK
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4388	self domainCodeOf:#AF_DECNET
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4389	"
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4390	"for backward compatibility only:
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4391	self domainCodeOf:#inet
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4392	self domainCodeOf:#inet6
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4393	self domainCodeOf:#unix
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4394	self domainCodeOf:#appletalk
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4395	self domainCodeOf:#decnet
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4396	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4397	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4398
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4399	domainSymbolOf:anInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4400	"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	4401	Return nil for invalid or unsupported domains."
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4402
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4403	\|domainSymbol\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4404
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4405	%{ /NOCONTEXT/
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4406
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4407	if (__isSmallInteger(anInteger)) {
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4408	switch(__intVal(anInteger)) {
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4409	#ifdef AF_INET
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4410	case AF_INET:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4411	domainSymbol = @symbol(AF_INET);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4412	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4413	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4414	#ifdef AF_INET6
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4415	case AF_INET6:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4416	domainSymbol = @symbol(AF_INET6);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4417	break;
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_UNIX
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4420	case AF_UNIX:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4421	domainSymbol = @symbol(AF_UNIX);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4422	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4423	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4424	#ifdef AF_APPLETALK
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4425	case AF_APPLETALK:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4426	domainSymbol = @symbol(AF_APPLETALK);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4427	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4428	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4429	#ifdef AF_DECnet
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4430	case AF_DECnet:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4431	domainSymbol = @symbol(AF_DECnet);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4432	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4433	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4434	#ifdef AF_NS
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4435	case AF_NS:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4436	domainSymbol = @symbol(AF_NS);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4437	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4438	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4439	#ifdef AF_X25
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4440	case AF_X25:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4441	domainSymbol = @symbol(AF_X25);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4442	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4443	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4444	#ifdef AF_SNA
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4445	case AF_SNA:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4446	domainSymbol = @symbol(AF_SNA);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4447	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4448	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4449	#ifdef AF_RAW
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4450	case AF_RAW:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4451	domainSymbol = @symbol(AF_RAW);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4452	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4453	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4454	#ifdef AF_ISO
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4455	case AF_ISO:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4456	domainSymbol = @symbol(AF_ISO);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4457	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4458	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4459	#ifdef AF_ECMA
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4460	case AF_ECMA:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4461	domainSymbol = @symbol(AF_ECMA);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4462	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4463	#endif
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4464	#ifdef AF_NETBIOS
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4465	case AF_NETBIOS:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4466	domainSymbol = @symbol(AF_NETBIOS);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4467	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4468	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4469	#ifdef AF_IPX
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4470	case AF_IPX:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4471	domainSymbol = @symbol(AF_IPX);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4472	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4473	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4474	#ifdef AF_AX25
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4475	case AF_AX25:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4476	domainSymbol = @symbol(AF_AX25);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4477	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4478	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4479	#ifdef AF_NETROM
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4480	case AF_NETROM:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4481	domainSymbol = @symbol(AF_NETROM);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4482	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4483	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4484	#ifdef AF_BRIDGE
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4485	case AF_BRIDGE:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4486	domainSymbol = @symbol(AF_BRIDGE);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4487	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4488	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4489	#ifdef AF_BSC
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4490	case AF_BSC:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4491	domainSymbol = @symbol(AF_BSC);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4492	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4493	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4494	#ifdef AF_ROSE
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4495	case AF_ROSE:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4496	domainSymbol = @symbol(AF_ROSE);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4497	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4498	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4499	#ifdef AF_IRDA
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4500	case AF_IRDA:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4501	domainSymbol = @symbol(AF_IRDA);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4502	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4503	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4504	#ifdef AF_BAN
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4505	case AF_BAN:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4506	domainSymbol = @symbol(AF_BAN);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4507	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4508	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4509	#ifdef AF_VOICEVIEW
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4510	case AF_VOICEVIEW:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4511	domainSymbol = @symbol(AF_VOICEVIEW);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4512	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4513	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4514	#ifdef AF_ATM
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4515	case AF_ATM:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4516	domainSymbol = @symbol(AF_ATM);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4517	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4518	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4519	#ifdef AF_ATMPVC
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4520	case AF_ATMPVC:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4521	domainSymbol = @symbol(AF_ATMPVC);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4522	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4523	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4524	#ifdef AF_ATMSVC
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4525	case AF_ATMSVC:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4526	domainSymbol = @symbol(AF_ATMSVC);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4527	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4528	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4529	#ifdef AF_SECURITY
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4530	case AF_SECURITY:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4531	domainSymbol = @symbol(AF_SECURITY);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4532	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4533	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4534	#ifdef AF_KEY
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4535	case AF_KEY:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4536	domainSymbol = @symbol(AF_KEY);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4537	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4538	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4539	#ifdef AF_NETLINK
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4540	case AF_NETLINK:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4541	domainSymbol = @symbol(AF_NETLINK);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4542	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4543	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4544	#ifdef AF_PACKET
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4545	case AF_PACKET:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4546	domainSymbol = @symbol(AF_PACKET);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4547	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4548	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4549	#ifdef AF_ASH
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4550	case AF_ASH:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4551	domainSymbol = @symbol(AF_ASH);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4552	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4553	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4554	#ifdef AF_ECONET
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4555	case AF_ECONET:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4556	domainSymbol = @symbol(AF_ECONET);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4557	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4558	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4559	#ifdef AF_IMPLINK
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4560	case AF_IMPLINK:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4561	domainSymbol = @symbol(AF_IMPLINK);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4562	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4563	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4564	#ifdef AF_PUP
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4565	case AF_PUP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4566	domainSymbol = @symbol(AF_PUP);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4567	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4568	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4569	#ifdef AF_CHAOS
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4570	case AF_CHAOS:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4571	domainSymbol = @symbol(AF_CHAOS);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4572	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4573	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4574	#ifdef AF_DLI
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4575	case AF_DLI:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4576	domainSymbol = @symbol(AF_DLI);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4577	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4578	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4579	#ifdef AF_LAT
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4580	case AF_LAT:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4581	domainSymbol = @symbol(AF_LAT);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4582	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4583	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4584	#ifdef AF_HYLINK
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4585	case AF_HYLINK:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4586	domainSymbol = @symbol(AF_HYLINK);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4587	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4588	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4589	#ifdef AF_FIREFOX
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4590	case AF_FIREFOX:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4591	domainSymbol = @symbol(AF_FIREFOX);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4592	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4593	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4594	#ifdef AF_CLUSTER
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4595	case AF_CLUSTER:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4596	domainSymbol = @symbol(AF_CLUSTER);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4597	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4598	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4599	#ifdef AF_12844
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4600	case AF_12844:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4601	domainSymbol = @symbol(AF_12844);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4602	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4603	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4604	#ifdef AF_NETDES
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4605	case AF_NETDES:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4606	domainSymbol = @symbol(AF_NETDES);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4607	break;
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4608	#endif
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4609	}
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4610	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4611	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4612
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4613	^ domainSymbol.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4614
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4615	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4616	self domainSymbolOf:(self domainCodeOf:#inet)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4617	self domainSymbolOf:(self domainCodeOf:#inet6)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4618	self domainSymbolOf:(self domainCodeOf:#unix)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4619	self domainSymbolOf:(self domainCodeOf:#appletalk)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4620	self domainSymbolOf:(self domainCodeOf:#decnet)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4621	self domainSymbolOf:(self domainCodeOf:#raw)
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4622	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4623	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4624
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4625	protocolCodeOf:aSymbolOrInteger
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4626	"return the numeric IPPROTO_xxx code of a given symbolic protocol name.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4627	Return nil for invalid or unsupported protocols.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4628	For backward compatibility, the obsolete (non-IPPROTO-prefixed) names
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4629	are still supported for a while - this support will vanish."
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4630
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4631	\|protocolCode\|
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4632
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4633	%{ /NOCONTEXT/
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4634
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4635	if (__isSmallInteger(aSymbolOrInteger) \|\| aSymbolOrInteger == nil) {
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4636	RETURN (aSymbolOrInteger);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4637	}
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4638
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4639	#ifdef IPPROTO_IP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4640	else if ((aSymbolOrInteger == @symbol(IPPROTO_IP)) \|\| (aSymbolOrInteger == @symbol(ip)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4641	protocolCode = __mkSmallInteger(IPPROTO_IP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4642	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4643	#ifdef IPPROTO_ICMP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4644	else if ((aSymbolOrInteger == @symbol(IPPROTO_ICMP)) \|\| (aSymbolOrInteger == @symbol(icmp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4645	protocolCode = __mkSmallInteger(IPPROTO_ICMP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4646	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4647	#ifdef IPPROTO_IGMP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4648	else if ((aSymbolOrInteger == @symbol(IPPROTO_IGMP)) \|\| (aSymbolOrInteger == @symbol(igmp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4649	protocolCode = __mkSmallInteger(IPPROTO_IGMP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4650	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4651	#ifdef IPPROTO_GGP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4652	else if ((aSymbolOrInteger == @symbol(IPPROTO_GGP)) \|\| (aSymbolOrInteger == @symbol(ggp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4653	protocolCode = __mkSmallInteger(IPPROTO_GGP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4654	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4655	#ifdef IPPROTO_TCP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4656	else if ((aSymbolOrInteger == @symbol(IPPROTO_TCP)) \|\| (aSymbolOrInteger == @symbol(tcp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4657	protocolCode = __mkSmallInteger(IPPROTO_TCP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4658	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4659	#ifdef IPPROTO_UDP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4660	else if ((aSymbolOrInteger == @symbol(IPPROTO_UDP)) \|\| (aSymbolOrInteger == @symbol(udp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4661	protocolCode = __mkSmallInteger(IPPROTO_UDP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4662	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4663	#ifdef IPPROTO_IDP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4664	else if ((aSymbolOrInteger == @symbol(IPPROTO_IDP)) \|\| (aSymbolOrInteger == @symbol(idp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4665	protocolCode = __mkSmallInteger(IPPROTO_IDP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4666	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4667	#ifdef IPPROTO_ND
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4668	else if ((aSymbolOrInteger == @symbol(IPPROTO_ND)) \|\| (aSymbolOrInteger == @symbol(nd)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4669	protocolCode = __mkSmallInteger(IPPROTO_ND);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4670	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4671	#ifdef IPPROTO_RAW
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4672	else if ((aSymbolOrInteger == @symbol(IPPROTO_RAW)) \|\| (aSymbolOrInteger == @symbol(raw)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4673	protocolCode = __mkSmallInteger(IPPROTO_RAW);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4674	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4675	%}.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4676
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4677	^ protocolCode.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4678
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4679	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4680	self protocolCodeOf:#IPPROTO_UDP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4681	self protocolCodeOf:#IPPROTO_TCP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4682	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4683	"for backward compatibility only:
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4684	self protocolCodeOf:#udp
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4685	self protocolCodeOf:#tcp
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4686	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4687	!
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4688
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4689	protocolSymbolOf:anInteger
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4690	"return the symbolic protocolName of a given numeric IPPROTO_xxx code.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4691	Return nil for invalid or unsupported protocols."
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4692
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4693	\|protocolSymbol\|
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4694
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4695	%{ /NOCONTEXT/
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4696
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4697	if (__isSmallInteger(anInteger)) {
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4698	switch(__intVal(anInteger)) {
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4699	#ifdef IPPROTO_IP
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4700	case IPPROTO_IP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4701	// protocolSymbol = @symbol(IPPROTO_IP);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4702	protocolSymbol = @symbol(ip);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4703	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4704	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4705	#ifdef IPPROTO_ICMP
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4706	case IPPROTO_ICMP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4707	// protocolSymbol = @symbol(IPPROTO_ICMP);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4708	protocolSymbol = @symbol(icmp);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4709	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4710	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4711	#ifdef IPPROTO_IGMP
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4712	case IPPROTO_IGMP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4713	// protocolSymbol = @symbol(IPPROTO_IGMP);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4714	protocolSymbol = @symbol(igmp);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4715	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4716	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4717	#ifdef IPPROTO_GGP
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4718	case IPPROTO_GGP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4719	// protocolSymbol = @symbol(IPPROTO_GGP);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4720	protocolSymbol = @symbol(ggp);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4721	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4722	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4723	#ifdef IPPROTO_TCP
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4724	case IPPROTO_TCP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4725	// protocolSymbol = @symbol(IPPROTO_TCP);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4726	protocolSymbol = @symbol(tcp);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4727	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4728	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4729	#ifdef IPPROTO_PUP
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4730	case IPPROTO_PUP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4731	// protocolSymbol = @symbol(IPPROTO_PUP);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4732	protocolSymbol = @symbol(pup);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4733	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4734	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4735	#ifdef IPPROTO_UDP
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4736	case IPPROTO_UDP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4737	// protocolSymbol = @symbol(IPPROTO_UDP);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4738	protocolSymbol = @symbol(udp);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4739	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4740	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4741	#ifdef IPPROTO_IDP
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4742	case IPPROTO_IDP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4743	// protocolSymbol = @symbol(IPPROTO_IDP);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4744	protocolSymbol = @symbol(idp);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4745	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4746	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4747	#ifdef IPPROTO_ND
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4748	case IPPROTO_ND:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4749	// protocolSymbol = @symbol(IPPROTO_ND);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4750	protocolSymbol = @symbol(nd);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4751	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4752	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4753	#ifdef IPPROTO_RAW
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4754	case IPPROTO_RAW:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4755	// protocolSymbol = @symbol(IPPROTO_RAW);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4756	protocolSymbol = @symbol(raw);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4757	break;
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4758	#endif
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4759	}
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4760	}
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4761	%}.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4762
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4763	^ protocolSymbol.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4764
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4765	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4766	self protocolSymbolOf:(self protocolCodeOf:#tcp)
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4767	self protocolSymbolOf:(self protocolCodeOf:#udp)
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4768	self protocolSymbolOf:(self protocolCodeOf:#raw)
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4769	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4770	!
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4771
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4772	socketAddressSizeOfDomain:aSymbolOrInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4773	"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	4774	Return nil, if unknown or unsupported."
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4775
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4776	\|socketSize domainCode\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4777
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4778	domainCode := OperatingSystem domainCodeOf:aSymbolOrInteger.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4779
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4780	%{
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4781	if (__isSmallInteger(domainCode)) {
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4782	switch (__intVal(domainCode)) {
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4783	#ifdef AF_INET
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4784	case AF_INET:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4785	socketSize = __mkSmallInteger( sizeof(struct sockaddr_in) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4786	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4787	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4788	#ifdef AF_INET6
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4789	case AF_INET6:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4790	socketSize = __mkSmallInteger( sizeof(struct sockaddr_in6) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4791	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4792	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4793	#ifdef AF_UNIX
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4794	case AF_UNIX:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4795	socketSize = __mkSmallInteger( sizeof(struct sockaddr_un) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4796	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4797	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4798	#ifdef AF_APPLETALK
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4799	case AF_APPLETALK:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4800	socketSize = __mkSmallInteger( sizeof(struct sockaddr_at) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4801	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4802	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4803	#ifdef AF_DECnet
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4804	case AF_DECnet:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4805	socketSize = __mkSmallInteger( sizeof(struct sockaddr_dn) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4806	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4807	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4808	#ifdef AF_NS
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4809	case AF_NS:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4810	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ns) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4811	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4812	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4813	#ifdef AF_X25
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4814	case AF_X25:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4815	socketSize = __mkSmallInteger( sizeof(struct sockaddr_x25) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4816	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4817	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4818	#ifdef AF_SNA
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4819	case AF_SNA:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4820	socketSize = __mkSmallInteger( sizeof(struct sockaddr_sna) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4821	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4822	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4823	#ifdef AF_RAW
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4824	case AF_RAW:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4825	socketSize = __mkSmallInteger( sizeof(struct sockaddr_raw) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4826	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4827	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4828	#ifdef AF_ISO
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4829	case AF_ISO:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4830	socketSize = __mkSmallInteger( sizeof(struct sockaddr_iso) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4831	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4832	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4833	#ifdef AF_ECMA
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4834	# if 0
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4835	case AF_ECMA:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4836	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ecma) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4837	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4838	# endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4839	#endif
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4840	#ifdef AF_NETBIOS
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4841	case AF_NETBIOS:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4842	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netbios) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4843	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4844	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4845	#ifdef AF_NETBEUI
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4846	case AF_NETBEUI:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4847	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netbeui) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4848	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4849	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4850	#ifdef AF_IPX
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4851	case AF_IPX:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4852	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ipx) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4853	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4854	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4855	#ifdef AF_AX25
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4856	case AF_AX25:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4857	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ax25) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4858	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4859	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4860	#ifdef AF_NETROM
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4861	case AF_NETROM:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4862	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netrom) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4863	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4864	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4865	#ifdef AF_BRIDGE
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4866	case AF_BRIDGE:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4867	socketSize = __mkSmallInteger( sizeof(struct sockaddr_bridge) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4868	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4869	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4870	#ifdef AF_BSC
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4871	case AF_BSC:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4872	socketSize = __mkSmallInteger( sizeof(struct sockaddr_bsc) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4873	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4874	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4875	#ifdef AF_ROSE
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4876	case AF_ROSE:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4877	socketSize = __mkSmallInteger( sizeof(struct sockaddr_rose) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4878	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4879	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4880	#ifdef AF_IRDA
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4881	case AF_IRDA:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4882	socketSize = __mkSmallInteger( sizeof(struct sockaddr_irda) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4883	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4884	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4885	#ifdef AF_BAN
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4886	case AF_BAN:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4887	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ban) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4888	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4889	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4890	#ifdef AF_VOICEVIEW
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4891	case AF_VOICEVIEW:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4892	socketSize = __mkSmallInteger( sizeof(struct sockaddr_voiceview) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4893	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4894	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4895	#ifdef AF_ATM
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4896	case AF_ATM:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4897	socketSize = __mkSmallInteger( sizeof(struct sockaddr_atm) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4898	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4899	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4900	#ifdef AF_ATMPVC
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4901	case AF_ATMPVC:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4902	socketSize = __mkSmallInteger( sizeof(struct sockaddr_atmpvc) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4903	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4904	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4905	#ifdef AF_ATMSVC
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4906	case AF_ATMSVC:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4907	socketSize = __mkSmallInteger( sizeof(struct sockaddr_atmsvc) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4908	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4909	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4910	#ifdef AF_NETLINK
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4911	case AF_NETLINK:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4912	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netlink) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4913	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4914	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4915	#ifdef AF_PACKET
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4916	case AF_PACKET:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4917	socketSize = __mkSmallInteger( sizeof(struct sockaddr_packet) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4918	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4919	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4920	#ifdef AF_ASH
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4921	case AF_ASH:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4922	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ash) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4923	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4924	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4925	#ifdef AF_ECONET
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4926	case AF_ECONET:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4927	socketSize = __mkSmallInteger( sizeof(struct sockaddr_eco) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4928	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4929	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4930	#ifdef AF_IMPLINK
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4931	case AF_IMPLINK:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4932	socketSize = __mkSmallInteger( sizeof(struct sockaddr_implink) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4933	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4934	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4935	#ifdef AF_PUP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4936	# if 0
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4937	case AF_PUP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4938	socketSize = __mkSmallInteger( sizeof(struct sockaddr_pup) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4939	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4940	# endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4941	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4942	#ifdef AF_CHAOS
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4943	case AF_CHAOS:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4944	socketSize = __mkSmallInteger( sizeof(struct sockaddr_chaos) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4945	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4946	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4947	#ifdef AF_DLI
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4948	case AF_DLI:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4949	socketSize = __mkSmallInteger( sizeof(struct sockaddr_dli) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4950	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4951	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4952	#ifdef AF_LAT
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4953	case AF_LAT:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4954	socketSize = __mkSmallInteger( sizeof(struct sockaddr_lat) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4955	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4956	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4957	#ifdef AF_HYLINK
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4958	case AF_HYLINK:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4959	socketSize = __mkSmallInteger( sizeof(struct sockaddr_hylink) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4960	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4961	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4962	#ifdef AF_FIREFOX
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4963	case AF_FIREFOX:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4964	socketSize = __mkSmallInteger( sizeof(struct sockaddr_firefox) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4965	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4966	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4967	#ifdef AF_CLUSTER
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4968	case AF_CLUSTER:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4969	socketSize = __mkSmallInteger( sizeof(struct sockaddr_cluster) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4970	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4971	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4972	#ifdef AF_12844
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4973	case AF_12844:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4974	socketSize = __mkSmallInteger( sizeof(struct sockaddr_12844) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4975	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4976	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4977	#ifdef AF_NETDES
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4978	case AF_NETDES:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4979	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netdes) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4980	break;
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4981	#endif
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4982	}
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4983	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4984	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4985	^ socketSize
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4986
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4987	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4988	self socketAddressSizeOfDomain:#'AF_INET'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4989	self socketAddressSizeOfDomain:#'AF_UNIX'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4990	self socketAddressSizeOfDomain:#'Foo'
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4991	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4992	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4993
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4994	socketTypeCodeOf:aSymbolOrInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4995	"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	4996	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	4997
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4998	\|typeCode\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4999
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5000	%{ /NOCONTEXT/
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5001
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5002	if (__isSmallInteger(aSymbolOrInteger) \|\| aSymbolOrInteger == nil) {
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5003	typeCode = aSymbolOrInteger;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5004	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5005
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5006	#ifdef SOCK_STREAM
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5007	else if ((aSymbolOrInteger == @symbol(stream)) \|\| (aSymbolOrInteger == @symbol(SOCK_STREAM)))
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5008	typeCode = __mkSmallInteger(SOCK_STREAM);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5009	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5010	#ifdef SOCK_DGRAM
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5011	else if ((aSymbolOrInteger == @symbol(datagram)) \|\| (aSymbolOrInteger == @symbol(SOCK_DGRAM)))
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5012	typeCode = __mkSmallInteger(SOCK_DGRAM);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5013	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5014	#ifdef SOCK_RAW
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5015	else if ((aSymbolOrInteger == @symbol(raw)) \|\| (aSymbolOrInteger == @symbol(SOCK_RAW)))
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5016	typeCode = __mkSmallInteger(SOCK_RAW);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5017	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5018	#ifdef SOCK_RDM
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5019	else if ((aSymbolOrInteger == @symbol(rdm)) \|\| (aSymbolOrInteger == @symbol(SOCK_RDM)))
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5020	typeCode = __mkSmallInteger(SOCK_RDM);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5021	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5022	#ifdef SOCK_SEQPACKET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5023	else if ((aSymbolOrInteger == @symbol(seqpacket)) \|\| (aSymbolOrInteger == @symbol(SOCK_SEQPACKET)))
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5024	typeCode = __mkSmallInteger(SOCK_SEQPACKET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5025	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5026	#ifdef SOCK_PACKET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5027	else if ((aSymbolOrInteger == @symbol(packet)) \|\| (aSymbolOrInteger == @symbol(SOCK_PACKET)))
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5028	typeCode = __mkSmallInteger(SOCK_PACKET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5029	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5030	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5031
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5032	^ typeCode.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5033
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5034	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5035	self socketTypeCodeOf:#stream
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5036	self socketTypeCodeOf:#datagram
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5037	self socketTypeCodeOf:#raw
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5038	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5039	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5040
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5041	socketTypeSymbolOf:anInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5042	"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	5043	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	5044
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5045	\|socketTypeSymbol\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5046
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5047	%{ /NOCONTEXT/
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5048
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5049	if (__isSmallInteger(anInteger)) {
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5050	switch(__intVal(anInteger)) {
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5051	#ifdef SOCK_STREAM
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5052	case SOCK_STREAM:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5053	socketTypeSymbol = @symbol(SOCK_STREAM);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5054	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5055	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5056	#ifdef SOCK_DGRAM
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5057	case SOCK_DGRAM:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5058	socketTypeSymbol = @symbol(SOCK_DGRAM);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5059	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5060	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5061	#ifdef SOCK_RAW
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5062	case SOCK_RAW:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5063	socketTypeSymbol = @symbol(SOCK_RAW);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5064	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5065	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5066	#ifdef SOCK_RDM
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5067	case SOCK_RDM:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5068	socketTypeSymbol = @symbol(SOCK_RDM);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5069	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5070	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5071	#ifdef SOCK_SEQPACKET
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5072	case SOCK_SEQPACKET:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5073	socketTypeSymbol = @symbol(SOCK_SEQPACKET);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5074	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5075	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5076	#ifdef SOCK_PACKET
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5077	case SOCK_PACKET:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5078	socketTypeSymbol = @symbol(SOCK_PACKET);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5079	break;
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5080	#endif
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5081	}
7509 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	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5084	^ socketTypeSymbol.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5085	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5086
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5087	supportedProtocolFamilies
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5088	"return a collection of supported protocol families.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5089	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	5090	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	5091	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	5092	(non-AF-prefixed) symbols; these will vanish."
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5093
7713 c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5094	^ #(
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5095	#AF_INET #inet
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5096	#AF_UNIX #unix
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5097	#AF_INET6 #inet6
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5098	#AF_APPLETALK #appletalk
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5099	#AF_DECnet #decnet
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5100	#AF_NS #ns
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5101	#AF_X25 #x25
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5102	#AF_SNA
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5103	#AF_RAW
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5104	#AF_ISO
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5105	#AF_ECMA
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5106	#AF_NETBIOS #netbios
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5107	#AF_IPX
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5108	#AF_AX25
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5109	#AF_NETROM
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5110	#AF_BRIDGE
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5111	#AF_BSC
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5112	#AF_ROSE
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5113	#AF_IRDA #irda
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5114	#AF_NETLINK
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5115	#AF_NETLINK
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5116	#AF_NETBEUI
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5117	#AF_ATM
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5118	#AF_ATMPVC
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5119	#AF_ATMSVC
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5120	#AF_BAN
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5121	#AF_VOICEVIEW
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5122	#AF_ECONET
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5123	#AF_IMPLINK
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5124	#AF_PUP
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5125	#AF_CHAOS
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5126	#AF_DLI
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5127	#AF_LAT
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5128	#AF_HYLINK
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5129	#AF_FIREFOX
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5130	#AF_CLUSTER
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5131	#AF_12844
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5132	#AF_NETDES
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5133	) select:[:sym \| (AbstractOperatingSystem domainCodeOf:sym) isNumber ]
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5134
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5135	"
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5136	AbstractOperatingSystem supportedProtocolFamilies
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5137	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5138	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5139
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5140	supportedSocketTypes
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5141	"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	5142	Return nil for invalid or unsupported socket types."
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5143
7713 c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5144	^ #(
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5145	#SOCK_STREAM
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5146	#SOCK_DGRAM
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5147	#SOCK_RAW
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5148	#SOCK_RDM
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5149	#SOCK_SEQPACKET
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5150	#SOCK_PACKET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5151	) select:[:sym \| (AbstractOperatingSystem socketTypeCodeOf:sym) isNumber ]
7713 c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5152
c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5153	"
c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5154	AbstractOperatingSystem supportedSocketTypes
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5155	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5156	! !
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5157
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5158	!AbstractOperatingSystem class methodsFor:'shared memory access'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5159
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5160	shmAttach:id address:addr flags:flags
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5161	"low level entry to shmat()-system call.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5162	Not supported on all operatingSystems"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5163
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5164	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5165
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5166	"Modified: / 19.5.1999 / 14:21:35 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5167	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5168
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5169	shmDetach:addr
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5170	"low level entry to shmdt()-system call.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5171	Not supported on all operatingSystems"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5172
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5173	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5174
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5175	"Modified: / 19.5.1999 / 14:21:37 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5176	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5177
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5178	shmGet:key size:size flags:flags
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5179	"low level entry to shmget()-system call.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5180	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	5181	- use the provided wrapper class SharedExternalBytes instead."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5182
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5183	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5184
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5185	"Modified: / 19.5.1999 / 14:21:41 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5186	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5187
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5188	!AbstractOperatingSystem class methodsFor:'time and date'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5189
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5190	computeDatePartsOf:osTime for:aBlock
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5191	"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	5192	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	5193	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	5194
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5195	<resource:#obsolete>
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5196
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5197	\|i\|
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5198
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5199	self obsoleteMethodWarning:'use #computeTimeAndDateFrom:osTime'.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5200
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5201	i := self computeTimeAndDateFrom:osTime.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5202	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	5203
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5204	"
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5205	OperatingSystem computeDatePartsOf:0 for:[:y :m :d \|
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5206	y printCR. m printCR. d printCR
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5207	]
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5208	"
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5209	!
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5210
4377 59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5211	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	5212	"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	5213	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	5214
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5215	self subclassResponsibility
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5216
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5217	"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	5218	!
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5219
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5220	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	5221	"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	5222	The arguments are assumed to be in localtime including
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5223	any daylight saving adjustings."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5224
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5225	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5226	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5227
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5228	computeTimeAndDateFrom:osTime
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5229	"given an OS-dependent time in osTime, return an Array
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5230	containing (full-) year, month, day, hour, minute and seconds,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5231	offset to UTC, daylight savings time flag, milliseconds,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5232	dayInYear (1..) and dayInWeek (1..).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5233	Conversion is to localtime including any daylight saving adjustments."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5234
7733 f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5235	\|divMod ret\|
f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5236
f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5237	divMod := osTime divMod:1000.
7739 d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5238	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	5239	^ ret
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5240
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5241	"
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5242	OperatingSystem computeTimeAndDateFrom:0
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5243	OperatingSystem computeTimeAndDateFrom:1011
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5244	"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5245	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5246
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5247	computeTimePartsOf:osTime for:aBlock
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5248	"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	5249	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	5250	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	5251
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5252	<resource:#obsolete>
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5253
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5254	\|hours minutes seconds millis i\|
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5255
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5256	self obsoleteMethodWarning:'use #computeTimeAndDateFrom:osTime'.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5257
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5258	i := self computeTimeAndDateFrom:osTime.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5259	hours := i hours.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5260	minutes := i minutes.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5261	seconds := i seconds.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5262	millis := i milliseconds.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5263
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5264	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	5265
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5266	"
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5267	OperatingSystem computeTimePartsOf:100 for:[:h :m :s :milli \|
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5268	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	5269	]
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5270	"
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5271	!
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5272
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5273	computeUTCTimeAndDateFrom:osTime
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5274	"given an OS-dependent time in osTime, return an Array
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5275	containing:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5276	(full-) year,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5277	month, (1..)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5278	day, (1..)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5279	hour, (0..23)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5280	minute (0..59)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5281	seconds, (0..59)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5282	offset to UTC, (seconds)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5283	daylight savings time flag,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5284	milliseconds, (0..999)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5285	dayInYear (1..)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5286	dayInWeek (1..).
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5287	Conversion is to utc."
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5288
7733 f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5289	\|divMod ret\|
f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5290
f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5291	divMod := osTime divMod:1000.
7739 d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5292	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	5293	^ ret
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5294
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5295	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5296	OperatingSystem computeUTCTimeAndDateFrom:0
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5297	OperatingSystem computeUTCTimeAndDateFrom:1011
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5298	"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5299	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5300
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5301	computeUTCTimePartsOf:osTime for:aBlock
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5302	"compute hours, minutes, seconds and milliseconds from the osTime
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5303	and evaluate the argument, a 4-arg block with these.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5304	Conversion is to UTC."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5305
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5306	<resource:#obsolete>
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5307
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5308	\|hours minutes seconds millis i\|
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5309
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5310	self obsoleteMethodWarning:'use #computeTimeAndDateFrom:osTime'.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5311
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5312	i := self computeUTCTimeAndDateFrom:osTime.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5313	hours := i hours.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5314	minutes := i minutes.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5315	seconds := i seconds.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5316	millis := i milliseconds.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5317
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5318	aBlock value:hours value:minutes value:seconds value:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5319	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5320
3689 f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5321	getMicrosecondTime
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5322	"This returns the microsecond timers value - if available.
3689 f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5323	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	5324	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	5325	clock resolution value."
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5326
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5327	"/ fallBack - use getMillisecondTime, which must be implemented
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5328	"/ for all OS's
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5329
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5330	^ self getMillisecondTime * 1000
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5331
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5332	"Created: / 30.7.1998 / 16:38:26 / cg"
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5333	!
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5334
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5335	getMillisecondTime
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5336	"This returns the millisecond timers value.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5337	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	5338	LargeInteger arithmetic when doing timeouts and delays.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5339	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	5340	short relative time deltas.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5341	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	5342
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5343	BAD DESIGN:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5344	This should be changed to return some instance of RelativeTime,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5345	and these computations moved there.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5346
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5347	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	5348	interface. For compatibility with ST-80, use Time millisecondClockValue.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5349	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5350
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5351	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5352	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5353
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5354	getOSTime
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5355	"This returns the OS time.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5356	The base of the returned value is not consistent across
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5357	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	5358	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	5359	converts as appropriate (by using my fromOSTime: conversion methods).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5360
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5361	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	5362	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	5363	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	5364	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5365
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5366	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5367	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5368
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5369	maximumMillisecondTimeDelta
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5370	"this returns the maximum delta supported by millisecondCounter
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5371	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	5372	timer wraps."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5373
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5374	%{ /* NOCONTEXT */
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	5375	RETURN ( __mkSmallInteger(0x0FFFFFFF) );
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5376	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5377	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5378
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5379	millisecondDelay:millis
7681 7c63f0b47f0d oops: millisecondDelay: was duplicated Claus Gittinger <cg@exept.de> parents: 7656 diff changeset	5380	"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	5381	All other threads proceed as usual.
7849 40819a29fdcd comment ca parents: 7835 diff changeset	5382	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	5383
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5384	\|now then delta\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5385
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5386	now := self getMillisecondTime.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5387	then := self millisecondTimeAdd:now and:millis.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5388
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5389	[(delta := self millisecondTimeDeltaBetween:then and:now) > 0] whileTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5390	self selectOnAnyReadable:nil writable:nil exception:nil withTimeOut:delta.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5391	now := self getMillisecondTime.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5392	]
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5393
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5394	"
7849 40819a29fdcd comment ca parents: 7835 diff changeset	5395	OperatingSystem millisecondDelay:5000
3576 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	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5398
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5399	millisecondTime:msTime1 isAfter:msTime2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5400	"return true if msTime1 is after msTime2, false if not.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5401	The two arguments are supposed to be millisecond times
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5402	(such as returned getMillisecondTime) which wrap at 16r1FFFFFFF.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5403
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5404	This should really be moved to some RelativeTime class."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5405
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5406	(msTime1 > msTime2) ifTrue:[
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5407	((msTime1 - msTime2) < 16r10000000) ifTrue:[
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5408	^ true
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5409	].
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5410	] ifFalse:[
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5411	((msTime2 - msTime1) > 16r10000000) ifTrue:[
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5412	^ true
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5413	].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5414	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5415	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5416	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5417
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5418	millisecondTimeAdd:msTime1 and:msTime2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5419	"Add two millisecond times (such as returned getMillisecondTime).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5420	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	5421
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5422	This should really be moved to some RelativeTime class."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5423
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5424	\|sum\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5425
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5426	sum := msTime1 + msTime2.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5427	(sum > 16r1FFFFFFF) ifTrue:[^ sum - 16r20000000].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5428	(sum < 0) ifTrue:[^ sum + 16r20000000].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5429	^ sum
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5430	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5431
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5432	millisecondTimeDeltaBetween:msTime1 and:msTime2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5433	"subtract two millisecond times (such as returned getMillisecondTime)
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5434	and return the difference. Since milli-times wrap (at 16r01FFFFFFF),
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5435	some special handling is built-in here.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5436	The returned value is msTime1 - msTime2. The returned value is invalid
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5437	if the delta is >= 0x10000000.
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	This should really be moved to some RelativeTime class;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5440	better yet: create a subclass of Integer named LimitedRangeInteger."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5441
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5442	\|diff\|
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5443
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5444	diff := msTime1 - msTime2.
11166 52c2ccfc0d4c Make last change better looking Stefan Vogel <sv@exept.de> parents: 11165 diff changeset	5445	diff > 16r-10000000 ifTrue:[
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5446	(diff < 16r10000000) ifTrue:[
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5447	^ diff.
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5448	] ifFalse:[
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5449	^ diff - 16r20000000.
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5450	].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5451	].
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5452	^ diff + 16r20000000
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5453
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5454
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5455	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5456	OperatingSystem millisecondTimeAdd:16r0FFFFFFF and:1
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5457	OperatingSystem millisecondTimeAdd:16r0FFFFFFF and:(16 / 3)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5458	OperatingSystem millisecondTimeAdd:16r0FFFFFFF and:1000
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5459
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5460	OperatingSystem millisecondTimeDeltaBetween:0 and:16r0FFFFFFF
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5461	OperatingSystem millisecondTimeDeltaBetween:0 and:16r1FFFFFFF
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5462	OperatingSystem millisecondTimeDeltaBetween:16r1FFFFFFF and:0
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5463
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5464	OperatingSystem millisecondTimeDeltaBetween:(13/3) and:16r0FFFFFFF
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5465	OperatingSystem millisecondTimeDeltaBetween:999 and:16r0FFFFFFF
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5466
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5467	OperatingSystem millisecondTime:0 isAfter:16r0FFFFFFF
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5468	OperatingSystem millisecondTime:0 isAfter:16r1FFFFFFF
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5469	OperatingSystem millisecondTime:(13/3) isAfter:16r0FFFFFFF
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5470	OperatingSystem millisecondTime:999 isAfter:16r0FFFFFFF
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5471
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5472	OperatingSystem millisecondTime:0 isAfter:0
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5473	OperatingSystem millisecondTime:(13/3) isAfter:0
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5474	OperatingSystem millisecondTime:999 isAfter:0
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5475
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5476	OperatingSystem millisecondTime:1 isAfter:0
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5477	OperatingSystem millisecondTime:(13/3) isAfter:2
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5478	OperatingSystem millisecondTime:999 isAfter:900
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	\|t1 t2\|
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	t1 := Time millisecondClockValue.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5483	(Delay forMilliseconds:1) wait.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5484	t2 := Time millisecondClockValue.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5485	OperatingSystem millisecondTimeDeltaBetween:t2 and:t1
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5486	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5487	!
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	sleep:numberOfSeconds
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5490	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5491
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5492	"cease ANY action for some time. This suspends the whole smalltalk
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5493	(unix-) process for some time.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5494	Not really useful since not even low-prio processes and interrupt
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5495	handling will run during the sleep.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5496	Use either OperatingSystem>>millisecondDelay: (which makes all
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5497	threads sleep, but handles interrupts) or use a Delay (which makes
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5498	only the calling thread sleep)."
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	self subclassResponsibility
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5501	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5502
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5503	timeInfoClass
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5504	^ TimeInfo
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5505	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5506
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5507	timeInfoFromSeconds:osSeconds localTime:isLocalTime
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5508	"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	5509	An internal helper"
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5510
7739 d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5511	^ self timeInfoFromSeconds:osSeconds milliseconds:0 localTime:isLocalTime
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5512	!
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5513
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5514	timeInfoFromSeconds:osSeconds milliseconds:osMilliSeconds localTime:isLocalTime
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5515	"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	5516	An internal helper"
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5517
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5518	self subclassResponsibility
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5519	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5520
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5521	!AbstractOperatingSystem class methodsFor:'users & groups'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5522
10544 83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5523	getDesktopDirectory
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5524	"{ Pragma: +optSpace }"
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5525
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5526	"return the name of the users desktop directory.
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5527	The fallback here returns the users home directory."
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5528
10545 8806e5e326c0 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10544 diff changeset	5529	^ self getHomeDirectory
8806e5e326c0 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10544 diff changeset	5530
8806e5e326c0 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10544 diff changeset	5531	"
8806e5e326c0 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10544 diff changeset	5532	OperatingSystem getDesktopDirectory
10544 83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5533	"
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5534
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5535	"Created: / 16-05-2007 / 13:20:53 / cg"
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5536	!
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5537
11760 84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5538	getDocumentsDirectory
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5539	"return your documents directory.
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5540	Under windows, thats the real 'Documents' or 'My Documents'.
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5541	The fallback here returns the users home directory."
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5542
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5543	"{ Pragma: +optSpace }"
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5544
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5545	^ self getHomeDirectory
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5546
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5547	"
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5548	OperatingSystem getDocumentsDirectory
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5549	"
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5550	!
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5551
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5552	getEffectiveGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5553	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5554
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5555	"return the current users (thats you) effective numeric group id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5556	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	5557	as a setuid program (of which you should think about twice)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5558
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5559	^ self getGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5560
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5561	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5562	OperatingSystem getEffectiveGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5563	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5564	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5565
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5566	getEffectiveUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5567	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5568
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5569	"return the current users (thats you) effective numeric user id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5570	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	5571	as a setuid program (of which you should think about twice)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5572
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5573	^ self getUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5574
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5575	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5576	OperatingSystem getEffectiveUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5577	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5578	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5579
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5580	getFullUserName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5581	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5582
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5583	"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	5584	If not, return the login name as a fallBack."
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	^ self getFullUserNameFromID:(self getUserID)
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	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5589	OperatingSystem getFullUserName
3576 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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5592	"Modified: 24.1.1997 / 11:31:55 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5593	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5594
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5595	getFullUserNameFromID:userID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5596	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5597
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5598	"return a string with the users full name - if available.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5599	If not, return the login name as a fallBack."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5600
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5601	^ self getUserNameFromID:userID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5602
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5603	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5604	OperatingSystem getFullUserNameFromID:0
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5605	OperatingSystem getFullUserNameFromID:(OperatingSystem getUserID)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5606
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5607	OperatingSystem getUserNameFromID:(OperatingSystem getUserID)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5608	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5609
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5610	"Modified: 15.7.1996 / 12:44:21 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5611	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5612
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5613	getGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5614	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5615
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5616	"return the current users (thats you) numeric group id"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5617
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5618	^ 1 "/ just a dummy for systems which do not have userIDs
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	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5621	OperatingSystem getGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5622	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5623	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5624
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5625	getGroupNameFromID:aNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5626	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5627
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5628	"return the group-name-string for a given numeric group-id"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5629
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5630	^ '???' "/ just a dummy for systems which do not have groups
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5631
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5632	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5633	OperatingSystem getGroupNameFromID:0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5634	OperatingSystem getGroupNameFromID:10
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5635	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5636	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5637
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5638	getHomeDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5639	"return the name of the users home directory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5640	(i.e. yours)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5641
11760 84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5642	^ self subclassResponsibility
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5643
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5644	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5645	OperatingSystem getHomeDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5646	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5647
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5648	"Modified: 24.1.1997 / 11:32:13 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5649	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5650
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5651	getLoginName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5652	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5653
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5654	"return a string with the users login name (thats yours)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5655
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5656	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5657	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5658
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5659	getUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5660	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5661
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5662	"return the current users (thats you) numeric user id"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5663
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5664	^ 1 "just a dummy for systems which do not have userIDs"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5665
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5666	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5667	OperatingSystem getUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5668	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5669	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5670
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5671	getUserNameFromID:aNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5672	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5673
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5674	"return the user-name-string for a given numeric user-id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5675	This is the login name, not the fullName."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5676
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5677	"/ fallBack dummy
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	aNumber == self getUserID ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5680	^ self getLoginName
3576 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	^ '? (' , aNumber printString , ')'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5684
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	OperatingSystem getUserNameFromID:0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5687	OperatingSystem getUserNameFromID:100
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5688	OperatingSystem getUserNameFromID:9991
3576 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	!
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	userInfoOf:aNameOrID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5693	"{ Pragma: +optSpace }"
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	"return a dictionary filled with userinfo. The argument can be either
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5696	a string with the users name or its numeric id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5697	Notice, that not all systems provide (all of) this info;
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5698	DOS systems return nothing;
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5699	non-SYSV4 systems have no age/comment.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5700	Portable applications may want to check the systemType and NOT depend
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5701	on all keys to be present in the returned dictionary.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5702	Another notice: on some systems (SYSV4), the gecos field includes multiple
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5703	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	5704	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	5705
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5706	\|info\|
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	"/ fallBack dummy
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5709	info := IdentityDictionary new.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5710	info at:#name put:(self getLoginName).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5711	info at:#dir put:(self getHomeDirectory).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5712	^ info
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5713
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	OperatingSystem userInfoOf:'root'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5716	OperatingSystem userInfoOf:1
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5717	OperatingSystem userInfoOf:'claus'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5718	OperatingSystem userInfoOf:'fooBar'
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5719	OperatingSystem userInfoOf:(OperatingSystem getUserID)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5720	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5721	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5722
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5723	!AbstractOperatingSystem class methodsFor:'waiting for events'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5724
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5725	blockingChildProcessWait
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5726	"return true, if childProcessWait: blocks, if no children are ready.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5727	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	5728	a subprocesses status (to avoid blocking)."
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	^ true
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5731	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5732
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5733	childProcessWait:blocking pid:pidToWait
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5734	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5735
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5736	"get status changes from child processes.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5737	Return an OSProcessStatus or nil, if no process has terminated.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5738	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	5739	otherwise we return immediately.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5740	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	5741	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	5742
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5743	self subclassResponsibility
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
7802 79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5746	isBlockingOn:fd
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5747	"{ Pragma: +optSpace }"
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5748
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5749	"return the blocking attribute - if set (which is the default)
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5750	a read on the fileDescriptor will block until data is available.
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5751	If clear, a read operation will immediately return with a value nil.
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5752	Also affects write operations, which may perform partial writes when
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5753	blocking is off"
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5754
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5755	self subclassResponsibility
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5756	!
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5757
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5758	numAvailableForReadOn:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5759	"return the number of bytes available for reading, without blocking."
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	"/ fallBack for systems which do not provide this info
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5762	^ (self readCheck:fd) ifTrue:[1] ifFalse:[0]
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	readCheck:fd
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5766	"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	5767	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	5768	or the read would return an error.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5769	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	5770
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5771	\|result\|
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5772
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5773	self supportsSelect ifFalse:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5774	"/ mhmh - what should we do then ?
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5775	"/ For now, return true as if data was present,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5776	"/ and let the thread fall into the read.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5777	"/ It will then (hopefully) be descheduled there and
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5778	"/ effectively polling for input.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5779
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5780	^ true
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5781	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5782
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5783	result := self
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5784	selectOnAnyReadable:(Array with:fd)
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5785	writable:nil
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5786	exception:nil
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5787	withTimeOut:0.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5788
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5789	"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	5790	^ result == fd or:[result == #error].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5791	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5792
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5793	readWriteCheck:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5794	"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	5795	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	5796	or the read or write would return an error.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5797	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	5798	be finished."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5799
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5800	\|result\|
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5801
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5802	self supportsSelect ifFalse:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5803	"/ mhmh - what should we do then ?
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5804	"/ For now, return true as if data was present,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5805	"/ and let the thread fall into the write.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5806	"/ It will then (hopefully) be desceduled there and
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5807	"/ effectively polling for output.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5808	^ true
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5809	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5810
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5811	result := self selectOnAnyReadable:(Array with:fd)
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5812	writable:(Array with:fd)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5813	exception:nil
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5814	withTimeOut:0.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5815
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5816	^ result == fd or:[result == #error].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5817	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5818
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5819	selectOn:fd1 and:fd2 withTimeOut:millis
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5820	<resource: #obsolete>
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5821	"wait for any fd to become ready; timeout after t milliseconds.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5822	A zero timeout-time will immediately return (i.e. poll).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5823	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	5824	Obsolete:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5825	This is a leftover method and will vanish."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5826
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5827	^ self selectOnAnyReadable:(Array with:fd1 with:fd2)
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5828	writable:(Array with:fd1 with:fd2)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5829	exception:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5830	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5831	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5832
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5833	selectOn:fd withTimeOut:millis
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5834	"wait for aFileDesriptor to become ready; timeout after t milliseconds.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5835	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	5836	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	5837	of read-data.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5838	Experimental."
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	^ self selectOnAnyReadable:(Array with:fd)
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5841	writable:(Array with:fd)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5842	exception:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5843	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5844	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5845
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5846	selectOnAny:fdArray withTimeOut:millis
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5847	"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	5848	timeout after t milliseconds. An empty set will always wait.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5849	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	5850	Experimental."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5851
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5852	^ self selectOnAnyReadable:fdArray
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5853	writable:fdArray
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5854	exception:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5855	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5856	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5857
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5858	selectOnAnyReadable:fdArray withTimeOut:millis
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5859	"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	5860	reading. Timeout after t milliseconds. An empty set will always wait.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5861	A zero timeout-time will immediately return (i.e. poll).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5862	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	5863	Experimental."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5864
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5865	^ self selectOnAnyReadable:fdArray
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5866	writable:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5867	exception:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5868	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5869	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5870
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5871	selectOnAnyReadable:readFdArray writable:writeFdArray exception:exceptFdArray
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5872	readableInto:readableResultFdArray writableInto:writableResultFdArray
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5873	exceptionInto:exceptionResultFdArray
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5874	withTimeOut:millis
7510 46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	5875
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5876	"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	5877	writeFdArray to become ready for writing,
7510 46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	5878	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	5879	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	5880	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	5881	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	5882	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	5883	writableResultFdArray and exceptionResultFdArray respectively.
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	5884
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	5885	Return the (overall) number of selected filedescriptors.
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	5886	readableResultFdArray, writableResultFdArray and exceptionResultFdArray will
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	5887	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	5888	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	5889
f2bf4935e7eb New select for fair scheduling (not giving low filedescriptors Stefan Vogel <sv@exept.de> parents: 7488 diff changeset	5890	self subclassResponsibility
f2bf4935e7eb New select for fair scheduling (not giving low filedescriptors Stefan Vogel <sv@exept.de> parents: 7488 diff changeset	5891	!
f2bf4935e7eb New select for fair scheduling (not giving low filedescriptors Stefan Vogel <sv@exept.de> parents: 7488 diff changeset	5892
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5893	selectOnAnyReadable:readFdArray writable:writeFdArray exception:exceptFdArray withTimeOut:millis
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5894	"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	5895	reading, writeFdArray to become ready for writing, or exceptFdArray to
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5896	arrive exceptional data (i.e. out-of-band data).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5897	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	5898	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	5899	descriptors (i.e. to check if I/O possible without blocking).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5900	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	5901
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5902	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5903	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5904
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5905	setBlocking:aBoolean on:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5906	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5907
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5908	"set/clear the blocking attribute - if set (which is the default)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5909	a read on the fileDescriptor will block until data is available.
7803 2238df4944ca comments; Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	5910	If cleared, a read operation will immediately return with a value of nil.
2238df4944ca comments; Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	5911	Also affects write operations, which may perform partial writes when
2238df4944ca comments; Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	5912	blocking is off"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5913
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5914	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5915	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5916
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5917	writeCheck:fd
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5918	"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	5919	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	5920	or the write would return an error."
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5921
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5922	\|result\|
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5923
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5924	self supportsSelect ifFalse:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5925	"/ mhmh - what should we do then ?
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5926	"/ For now, return true as if data was present,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5927	"/ and let the thread fall into the write.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5928	"/ It will then (hopefully) be desceduled there and
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5929	"/ effectively polling for output.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5930	^ true
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5931	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5932
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5933	result := self selectOnAnyReadable:nil
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5934	writable:(Array with:fd)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5935	exception:nil
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5936	withTimeOut:0.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5937
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	5938	^ result == fd or:[result == #error].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5939	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5940
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	5941	!AbstractOperatingSystem::PrinterInfo class methodsFor:'constants'!
d8547710430c printer stuff fm parents: 9380 diff changeset	5942
d8547710430c printer stuff fm parents: 9380 diff changeset	5943	paperSizeNameForNumber:aNumber
d8547710430c printer stuff fm parents: 9380 diff changeset	5944	^ self paperSizeNumberToNameMapping at:aNumber
d8547710430c printer stuff fm parents: 9380 diff changeset	5945
d8547710430c printer stuff fm parents: 9380 diff changeset	5946	"
d8547710430c printer stuff fm parents: 9380 diff changeset	5947	self paperSizeNameForNumber:1
d8547710430c printer stuff fm parents: 9380 diff changeset	5948	"
d8547710430c printer stuff fm parents: 9380 diff changeset	5949
d8547710430c printer stuff fm parents: 9380 diff changeset	5950	"Created: / 31-07-2006 / 15:35:36 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5951	!
d8547710430c printer stuff fm parents: 9380 diff changeset	5952
d8547710430c printer stuff fm parents: 9380 diff changeset	5953	paperSizeNameForNumber:aNumber ifAbsent: aBlock
d8547710430c printer stuff fm parents: 9380 diff changeset	5954	^ self paperSizeNumberToNameMapping at:aNumber ifAbsent: aBlock
d8547710430c printer stuff fm parents: 9380 diff changeset	5955
d8547710430c printer stuff fm parents: 9380 diff changeset	5956	"
d8547710430c printer stuff fm parents: 9380 diff changeset	5957	self paperSizeNameForNumber:11212 ifAbsent: [nil]
d8547710430c printer stuff fm parents: 9380 diff changeset	5958	"
d8547710430c printer stuff fm parents: 9380 diff changeset	5959
d8547710430c printer stuff fm parents: 9380 diff changeset	5960	"Created: / 31-07-2006 / 15:35:36 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5961	!
d8547710430c printer stuff fm parents: 9380 diff changeset	5962
d8547710430c printer stuff fm parents: 9380 diff changeset	5963	paperSizeNames
d8547710430c printer stuff fm parents: 9380 diff changeset	5964	\|codes\|
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	5965	codes := self paperSizeNumberToNameTable values asSortedCollection:[:a :b \| a < b].
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	5966	^codes collect:[:each \| self paperSizeNameForNumber: each]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	5967
d8547710430c printer stuff fm parents: 9380 diff changeset	5968	"Created: / 31-07-2006 / 15:35:36 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	5969	"Modified: / 16-04-2007 / 12:03:55 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	5970	!
d8547710430c printer stuff fm parents: 9380 diff changeset	5971
d8547710430c printer stuff fm parents: 9380 diff changeset	5972	paperSizeNumberForName:aName
d8547710430c printer stuff fm parents: 9380 diff changeset	5973	^ self paperSizeNumberToNameMapping at:aName
d8547710430c printer stuff fm parents: 9380 diff changeset	5974
d8547710430c printer stuff fm parents: 9380 diff changeset	5975	"
d8547710430c printer stuff fm parents: 9380 diff changeset	5976	self paperSizeNumberForName:'Letter, 8 1/2- by 11-inches'
d8547710430c printer stuff fm parents: 9380 diff changeset	5977	"
d8547710430c printer stuff fm parents: 9380 diff changeset	5978
d8547710430c printer stuff fm parents: 9380 diff changeset	5979	"Created: / 31-07-2006 / 15:35:37 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5980	!
d8547710430c printer stuff fm parents: 9380 diff changeset	5981
d8547710430c printer stuff fm parents: 9380 diff changeset	5982	paperSizeNumberToNameMapping
d8547710430c printer stuff fm parents: 9380 diff changeset	5983	\|d\|
d8547710430c printer stuff fm parents: 9380 diff changeset	5984
d8547710430c printer stuff fm parents: 9380 diff changeset	5985	d := self paperSizeNumberToNameTable.
d8547710430c printer stuff fm parents: 9380 diff changeset	5986
d8547710430c printer stuff fm parents: 9380 diff changeset	5987	d keys copy do:[:k \| d at:(d at:k) put:k].
d8547710430c printer stuff fm parents: 9380 diff changeset	5988	^ d.
d8547710430c printer stuff fm parents: 9380 diff changeset	5989
d8547710430c printer stuff fm parents: 9380 diff changeset	5990	"Created: / 31-07-2006 / 15:35:37 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5991	!
d8547710430c printer stuff fm parents: 9380 diff changeset	5992
d8547710430c printer stuff fm parents: 9380 diff changeset	5993	paperSizeNumberToNameTable
d8547710430c printer stuff fm parents: 9380 diff changeset	5994
d8547710430c printer stuff fm parents: 9380 diff changeset	5995	^Dictionary withKeysAndValues:
d8547710430c printer stuff fm parents: 9380 diff changeset	5996	#(
d8547710430c printer stuff fm parents: 9380 diff changeset	5997	'Letter, 8 1/2- by 11-inches' 1 "/ Letter
d8547710430c printer stuff fm parents: 9380 diff changeset	5998	'Legal 8 1/2- by 14-inches' 5 "/ Legal
d8547710430c printer stuff fm parents: 9380 diff changeset	5999	'10- by 14-inch sheet' 16 "/ 10x14
d8547710430c printer stuff fm parents: 9380 diff changeset	6000	'11- by 17-inch sheet' 17 "/ 11x17
d8547710430c printer stuff fm parents: 9380 diff changeset	6001	"/ '12X11' "/ Windows 98/Me, Windows NT 4.0 and later: 12- by 11-inch sheet
d8547710430c printer stuff fm parents: 9380 diff changeset	6002	'A3 sheet, 297- by 420-millimeters' 8 "/ A3
d8547710430c printer stuff fm parents: 9380 diff changeset	6003	'A3 rotated sheet, 420- by 297-millimeters' 67 "/ A3_rotated
d8547710430c printer stuff fm parents: 9380 diff changeset	6004	'A4 sheet, 210- by 297-millimeters' 9 "/ A4
d8547710430c printer stuff fm parents: 9380 diff changeset	6005	'A4 rotated sheet, 297- by 210-millimeters' 55 "/ A4_rotated
d8547710430c printer stuff fm parents: 9380 diff changeset	6006	'A4 small sheet, 210- by 297-millimeters' 10 "/ A4 small
d8547710430c printer stuff fm parents: 9380 diff changeset	6007	'A5 sheet, 148- by 210-millimeters' 11 "/ A5
d8547710430c printer stuff fm parents: 9380 diff changeset	6008	'A5 rotated sheet, 210- by 148-millimeters' 61 "/ A5 rotated
d8547710430c printer stuff fm parents: 9380 diff changeset	6009	"/ 'a6' "/ Windows 98/Me, Windows NT 4.0 and later: A6 sheet, 105- by 148-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	6010	"/ '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	6011	'B4 sheet, 250- by 354-millimeters' 12 "/ B4
d8547710430c printer stuff fm parents: 9380 diff changeset	6012	"/ 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	6013	'B5 sheet, 182- by 257-millimeter paper' 13 "/ B5
d8547710430c printer stuff fm parents: 9380 diff changeset	6014	"/ 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	6015	"/ 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	6016	"/ 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	6017	"/ csheet C Sheet, 17- by 22-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6018	"/ 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	6019	"/ 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	6020	"/ dsheet D Sheet, 22- by 34-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6021	'#9 Envelope, 3 7/8- by 8 7/8-inches' 19 "/ env_9
d8547710430c printer stuff fm parents: 9380 diff changeset	6022	'#10 Envelope, 4 1/8- by 9 1/2-inches' 20 "/ env_10
d8547710430c printer stuff fm parents: 9380 diff changeset	6023	'#11 Envelope, 4 1/2- by 10 3/8-inches' 21 "/ env_11
d8547710430c printer stuff fm parents: 9380 diff changeset	6024	'#12 Envelope, 4 3/4- by 11-inches' 22 "/ env_12
d8547710430c printer stuff fm parents: 9380 diff changeset	6025	'#14 Envelope, 5- by 11 1/2-inches' 23 "/ env_15
d8547710430c printer stuff fm parents: 9380 diff changeset	6026	'C5 Envelope, 162- by 229-millimeters' 28 "/ env_c5
d8547710430c printer stuff fm parents: 9380 diff changeset	6027	'C3 Envelope, 324- by 458-millimeters' 29 "/ env_c3
d8547710430c printer stuff fm parents: 9380 diff changeset	6028	'C4 Envelope, 229- by 324-millimeters' 30 "/ env_c4
d8547710430c printer stuff fm parents: 9380 diff changeset	6029	'C6 Envelope, 114- by 162-millimeters' 31 "/ env_c6
d8547710430c printer stuff fm parents: 9380 diff changeset	6030	'C65 Envelope, 114- by 229-millimeters' 32 "/ env_c65
d8547710430c printer stuff fm parents: 9380 diff changeset	6031	'B4 Envelope, 250- by 353-millimeters' 33 "/ env_b4
d8547710430c printer stuff fm parents: 9380 diff changeset	6032	'B5 Envelope, 176- by 250-millimeters' 34 "/ env_b5
d8547710430c printer stuff fm parents: 9380 diff changeset	6033	'B6 Envelope, 176- by 125-millimeters' 35 "/ env_b6
d8547710430c printer stuff fm parents: 9380 diff changeset	6034	'DL Envelope, 110- by 220-millimeters' 27 "/ env_dl
d8547710430c printer stuff fm parents: 9380 diff changeset	6035	'Italy Envelope, 110- by 230-millimeters' 36 "/ env_italy
d8547710430c printer stuff fm parents: 9380 diff changeset	6036	'Monarch Envelope, 3 7/8- by 7 1/2-inches' 37 "/ env_monarch
d8547710430c printer stuff fm parents: 9380 diff changeset	6037	"/ env_personal 6 3/4 Envelope, 3 5/8- by 6 1/2-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6038	"/ esheet E Sheet, 34- by 44-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6039	"/ executive Executive, 7 1/4- by 10 1/2-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6040	"/ fanfold_us US Std Fanfold, 14 7/8- by 11-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6041	"/ fanfold_std_german German Std Fanfold, 8 1/2- by 12-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6042	"/ fanfold_lgl_german German Legal Fanfold, 8 - by 13-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6043	"/ folio Folio, 8 1/2- by 13-inch paper
d8547710430c printer stuff fm parents: 9380 diff changeset	6044	"/ 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	6045	"/ jenv_chou3 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Chou #3
d8547710430c printer stuff fm parents: 9380 diff changeset	6046	"/ 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	6047	"/ jenv_chou4 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Chou #4
d8547710430c printer stuff fm parents: 9380 diff changeset	6048	"/ 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	6049	"/ jenv_kaku2 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Kaku #2
d8547710430c printer stuff fm parents: 9380 diff changeset	6050	"/ 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	6051	"/ jenv_kaku3 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Kaku #3
d8547710430c printer stuff fm parents: 9380 diff changeset	6052	"/ 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	6053	"/ jenv_you4 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope You #4
d8547710430c printer stuff fm parents: 9380 diff changeset	6054	"/ 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	6055	"/ last Windows 2000/XP: PENV_10_ROTATED
d8547710430c printer stuff fm parents: 9380 diff changeset	6056	'Ledger, 17- by 11-inches' 4 "/ ledger
d8547710430c printer stuff fm parents: 9380 diff changeset	6057	'Letter Rotated 11 by 8 1/2 11 inches' 54 "/ letter_rotated
d8547710430c printer stuff fm parents: 9380 diff changeset	6058	"/ lettersmall Letter Small, 8 1/2- by 11-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6059	"/ note Note, 8 1/2- by 11-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6060	"/ p16k Windows 98/Me, Windows NT 4.0 and later: PRC 16K, 146- by 215-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	6061	"/ 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	6062	"/ p32k Windows 98/Me, Windows NT 4.0 and later: PRC 32K, 97- by 151-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	6063	"/ 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	6064	"/ 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	6065	"/ 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	6066	"/ 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	6067	"/ 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	6068	"/ 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	6069	"/ 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	6070	"/ 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	6071	"/ 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	6072	"/ 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	6073	"/ 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	6074	"/ 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	6075	"/ 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	6076	"/ 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	6077	"/ 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	6078	"/ 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	6079	"/ 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	6080	"/ 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	6081	"/ 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	6082	"/ 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	6083	"/ 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	6084	"/ 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	6085	"/ 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	6086	"/ quarto Quarto, 215- by 275-millimeter paper
d8547710430c printer stuff fm parents: 9380 diff changeset	6087	"/ statement Statement, 5 1/2- by 8 1/2-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6088	"/ tabloid Tabloid, 11- by 17-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6089	).
d8547710430c printer stuff fm parents: 9380 diff changeset	6090
d8547710430c printer stuff fm parents: 9380 diff changeset	6091	"Created: / 31-07-2006 / 15:35:37 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6092	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6093
d8547710430c printer stuff fm parents: 9380 diff changeset	6094	statusNumberToDescriptionForNumber:aNumber
11403 0a34ea95a57b changed: #statusNumberToDescriptionForNumber: fm parents: 11180 diff changeset	6095	^ self statusNumberToDescriptionMapping at:aNumber ifAbsent:[('Unknown (%1)' bindWith:aNumber printString)]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6096
d8547710430c printer stuff fm parents: 9380 diff changeset	6097	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6098	self statusNumberToDescriptionForNumber:1
d8547710430c printer stuff fm parents: 9380 diff changeset	6099	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6100
d8547710430c printer stuff fm parents: 9380 diff changeset	6101	"Created: / 01-08-2006 / 14:31:18 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6102	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6103
d8547710430c printer stuff fm parents: 9380 diff changeset	6104	statusNumberToDescriptionMapping
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	d := self statusNumberToDescriptionTable.
d8547710430c printer stuff fm parents: 9380 diff changeset	6108
d8547710430c printer stuff fm parents: 9380 diff changeset	6109	d keys copy do:[:k \| d at:(d at:k) put:k].
d8547710430c printer stuff fm parents: 9380 diff changeset	6110	^ d.
d8547710430c printer stuff fm parents: 9380 diff changeset	6111
d8547710430c printer stuff fm parents: 9380 diff changeset	6112	"Created: / 01-08-2006 / 14:31:05 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6113	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6114
d8547710430c printer stuff fm parents: 9380 diff changeset	6115	statusNumberToDescriptionTable
d8547710430c printer stuff fm parents: 9380 diff changeset	6116
d8547710430c printer stuff fm parents: 9380 diff changeset	6117	^Dictionary withKeysAndValues:
d8547710430c printer stuff fm parents: 9380 diff changeset	6118	#( 'Ready' 0 "/ PRINTER_STATUS_READY
d8547710430c printer stuff fm parents: 9380 diff changeset	6119	'Paused' 1 "/ PRINTER_STATUS_PAUSED
d8547710430c printer stuff fm parents: 9380 diff changeset	6120	'Error' 2 "/ PRINTER_STATUS_ERROR
d8547710430c printer stuff fm parents: 9380 diff changeset	6121	'Deleting...' 4 "/ PRINTER_STATUS_PENDING_DELETION
d8547710430c printer stuff fm parents: 9380 diff changeset	6122	'Paper Jam' 8 "/ PRINTER_STATUS_PAPER_JAM
d8547710430c printer stuff fm parents: 9380 diff changeset	6123	'Paper Out' 16 "/ PRINTER_STATUS_PAPER_OUT
d8547710430c printer stuff fm parents: 9380 diff changeset	6124	'Manual Feed Required' 32 "/ PRINTER_STATUS_MANUAL_FEED
d8547710430c printer stuff fm parents: 9380 diff changeset	6125	'Paper Problem' 64 "/ PRINTER_STATUS_PAPER_PROBLEM
d8547710430c printer stuff fm parents: 9380 diff changeset	6126	'Offline' 128 "/ PRINTER_STATUS_OFFLINE
d8547710430c printer stuff fm parents: 9380 diff changeset	6127	'Downloading Job' 256 "/ PRINTER_STATUS_IO_ACTIVE
d8547710430c printer stuff fm parents: 9380 diff changeset	6128	'Busy' 512 "/ PRINTER_STATUS_BUSY
d8547710430c printer stuff fm parents: 9380 diff changeset	6129	'Printing' 1024 "/ PRINTER_STATUS_PRINTING
d8547710430c printer stuff fm parents: 9380 diff changeset	6130	'Output Bill Full' 2048 "/ PRINTER_STATUS_OUTPUT_BIN_FULL
d8547710430c printer stuff fm parents: 9380 diff changeset	6131	'Not Available' 4096 "/ PRINTER_STATUS_NOT_AVAILABLE
d8547710430c printer stuff fm parents: 9380 diff changeset	6132	'Waiting' 8192 "/ PRINTER_STATUS_WAITING
d8547710430c printer stuff fm parents: 9380 diff changeset	6133	'Processing Job' 16384 "/ PRINTER_STATUS_PROCESSING
d8547710430c printer stuff fm parents: 9380 diff changeset	6134	'Initializing' 32768 "/ PRINTER_STATUS_INITIALIZING
d8547710430c printer stuff fm parents: 9380 diff changeset	6135	'Warming Up' 65536 "/ PRINTER_STATUS_WARMING_UP
d8547710430c printer stuff fm parents: 9380 diff changeset	6136	'Toner Low' 131072 "/ PRINTER_STATUS_TONER_LOW
d8547710430c printer stuff fm parents: 9380 diff changeset	6137	'Toner Out' 262144 "/ PRINTER_STATUS_NO_TONER
d8547710430c printer stuff fm parents: 9380 diff changeset	6138	'Page too Complex' 524288 "/ PRINTER_STATUS_PAGE_PUNT
d8547710430c printer stuff fm parents: 9380 diff changeset	6139	'User Intervention Required'1048576 "/ PRINTER_STATUS_USER_INTERVENTION
d8547710430c printer stuff fm parents: 9380 diff changeset	6140	'Out of Memory' 2097152 "/ PRINTER_STATUS_OUT_OF_MEMORY
d8547710430c printer stuff fm parents: 9380 diff changeset	6141	'Door Open' 4194304 "/ PRINTER_STATUS_DOOR_OPEN
d8547710430c printer stuff fm parents: 9380 diff changeset	6142	'Unable to connect' 8388608 "/ PRINTER_STATUS_SERVER_UNKNOWN
d8547710430c printer stuff fm parents: 9380 diff changeset	6143	'Power Save Mode' 16777216 "/ PRINTER_STATUS_POWER_SAVE
d8547710430c printer stuff fm parents: 9380 diff changeset	6144	).
d8547710430c printer stuff fm parents: 9380 diff changeset	6145
d8547710430c printer stuff fm parents: 9380 diff changeset	6146	"Created: / 01-08-2006 / 14:23:33 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6147	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6148
d8547710430c printer stuff fm parents: 9380 diff changeset	6149	!AbstractOperatingSystem::PrinterInfo methodsFor:'accessing'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6150
d8547710430c printer stuff fm parents: 9380 diff changeset	6151	attributes
d8547710430c printer stuff fm parents: 9380 diff changeset	6152	^ attributes
d8547710430c printer stuff fm parents: 9380 diff changeset	6153
d8547710430c printer stuff fm parents: 9380 diff changeset	6154	"Created: / 27-07-2006 / 12:16:59 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6155	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6156
d8547710430c printer stuff fm parents: 9380 diff changeset	6157	collate
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6158	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6159
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6160	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6161	^ properties isNil ifTrue:[ nil ] ifFalse:[ properties collate = 1 ]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6162
d8547710430c printer stuff fm parents: 9380 diff changeset	6163	"Created: / 01-08-2006 / 09:56:14 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6164	"Modified: / 01-08-2006 / 11:49:18 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6165	"Modified: / 18-10-2006 / 12:02:29 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6166	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6167
d8547710430c printer stuff fm parents: 9380 diff changeset	6168	collate: aBoolean
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6169	\|integer\|
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6170
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6171	integer:= aBoolean
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6172	ifTrue:[1] "DMCOLLATE_TRUE"
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6173	ifFalse:[0]. "DMCOLLATE_FALSE"
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6174	self documentProperties collate: integer
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6175
d8547710430c printer stuff fm parents: 9380 diff changeset	6176	"Created: / 01-08-2006 / 09:56:01 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6177	"Modified: / 16-04-2007 / 12:01:30 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6178	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6179
d8547710430c printer stuff fm parents: 9380 diff changeset	6180	comment
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6181	^self printerInfo2 pComment
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6182
d8547710430c printer stuff fm parents: 9380 diff changeset	6183	"Created: / 01-08-2006 / 15:06:20 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6184	"Modified: / 16-04-2007 / 12:01:42 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6185	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6186
d8547710430c printer stuff fm parents: 9380 diff changeset	6187	copies
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6188	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6189
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6190	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6191	^ properties isNil ifTrue:[ nil ] ifFalse:[ properties copies ]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6192
d8547710430c printer stuff fm parents: 9380 diff changeset	6193	"Created: / 31-07-2006 / 13:46:53 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6194	"Modified: / 18-10-2006 / 12:02:14 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6195	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6196
d8547710430c printer stuff fm parents: 9380 diff changeset	6197	copies: anInteger
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6198	self documentProperties copies: anInteger
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6199
d8547710430c printer stuff fm parents: 9380 diff changeset	6200	"Created: / 31-07-2006 / 13:54:55 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6201	"Modified: / 16-04-2007 / 12:01:48 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6202	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6203
d8547710430c printer stuff fm parents: 9380 diff changeset	6204	documentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6205
d8547710430c printer stuff fm parents: 9380 diff changeset	6206	^documentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6207
d8547710430c printer stuff fm parents: 9380 diff changeset	6208	"Created: / 28-07-2006 / 11:50:04 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6209	"Modified: / 31-07-2006 / 13:06:24 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6210	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6211
d8547710430c printer stuff fm parents: 9380 diff changeset	6212	documentProperties: aDevModeStructure
d8547710430c printer stuff fm parents: 9380 diff changeset	6213
d8547710430c printer stuff fm parents: 9380 diff changeset	6214	documentProperties := aDevModeStructure.
d8547710430c printer stuff fm parents: 9380 diff changeset	6215
d8547710430c printer stuff fm parents: 9380 diff changeset	6216	"Created: / 28-07-2006 / 11:47:31 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6217	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6218
d8547710430c printer stuff fm parents: 9380 diff changeset	6219	driverName
d8547710430c printer stuff fm parents: 9380 diff changeset	6220
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6221	^self attributes at:#driverName
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6222
d8547710430c printer stuff fm parents: 9380 diff changeset	6223	"Created: / 01-08-2006 / 15:33:08 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6224	"Modified: / 16-04-2007 / 12:01:53 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6225	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6226
d8547710430c printer stuff fm parents: 9380 diff changeset	6227	location
d8547710430c printer stuff fm parents: 9380 diff changeset	6228
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6229	^self printerInfo2 pLocation
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6230
d8547710430c printer stuff fm parents: 9380 diff changeset	6231	"Created: / 01-08-2006 / 15:06:28 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6232	"Modified: / 16-04-2007 / 12:02:07 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6233	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6234
d8547710430c printer stuff fm parents: 9380 diff changeset	6235	longName
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6236	^attributes at:#longName ifAbsent:['']
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6237
d8547710430c printer stuff fm parents: 9380 diff changeset	6238	"Created: / 28-07-2006 / 12:06:32 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6239	"Modified: / 16-04-2007 / 12:02:11 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6240	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6241
d8547710430c printer stuff fm parents: 9380 diff changeset	6242	medium
d8547710430c printer stuff fm parents: 9380 diff changeset	6243
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6244	^self attributes at:#medium
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6245
d8547710430c printer stuff fm parents: 9380 diff changeset	6246	"Created: / 01-08-2006 / 15:34:26 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6247	"Modified: / 16-04-2007 / 12:02:14 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6248	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6249
d8547710430c printer stuff fm parents: 9380 diff changeset	6250	orientation
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6251	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6252
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6253	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6254	^ properties isNil ifTrue:[ nil ] ifFalse:[ properties orientation ]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6255
d8547710430c printer stuff fm parents: 9380 diff changeset	6256	"Created: / 28-07-2006 / 16:44:26 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6257	"Modified: / 18-10-2006 / 12:01:36 / User"
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6258	!
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6259
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6260	orientation:anInteger
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6261	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6262
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6263	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6264	properties notNil ifTrue:[
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6265	properties orientation:anInteger
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6266	]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6267
d8547710430c printer stuff fm parents: 9380 diff changeset	6268	"Created: / 28-07-2006 / 17:22:44 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6269	"Modified: / 18-10-2006 / 12:01:40 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6270	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6271
d8547710430c printer stuff fm parents: 9380 diff changeset	6272	pDriverName
d8547710430c printer stuff fm parents: 9380 diff changeset	6273
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6274	^self printerInfo2 pDriverName
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6275
d8547710430c printer stuff fm parents: 9380 diff changeset	6276	"Created: / 01-08-2006 / 15:33:08 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6277	"Modified: / 16-04-2007 / 12:02:21 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6278	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6279
d8547710430c printer stuff fm parents: 9380 diff changeset	6280	paperSize
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6281	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6282
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6283	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6284	^ properties isNil ifTrue:[ nil ] ifFalse:[ properties paperSize ]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6285
d8547710430c printer stuff fm parents: 9380 diff changeset	6286	"Created: / 31-07-2006 / 15:23:29 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6287	"Modified: / 31-07-2006 / 16:25:58 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6288	"Modified: / 18-10-2006 / 12:01:45 / User"
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6289	!
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6290
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6291	paperSize:anInteger
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6292	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6293
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6294	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6295	properties notNil ifTrue:[
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6296	properties paperSize:anInteger
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6297	]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6298
d8547710430c printer stuff fm parents: 9380 diff changeset	6299	"Created: / 31-07-2006 / 15:23:20 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6300	"Modified: / 18-10-2006 / 12:01:48 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6301	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6302
d8547710430c printer stuff fm parents: 9380 diff changeset	6303	paperSizeName
d8547710430c printer stuff fm parents: 9380 diff changeset	6304	^ self class paperSizeNameForNumber:self paperSize ifAbsent:[nil].
d8547710430c printer stuff fm parents: 9380 diff changeset	6305
d8547710430c printer stuff fm parents: 9380 diff changeset	6306	"Created: / 31-07-2006 / 15:35:12 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6307	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6308
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6309	paperSizeName:aString
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6310	self paperSize:(self class paperSizeNumberForName:aString)
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6311
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6312	"Modified: / 18-10-2006 / 12:01:56 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6313	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6314
d8547710430c printer stuff fm parents: 9380 diff changeset	6315	printQuality
d8547710430c printer stuff fm parents: 9380 diff changeset	6316	^self documentProperties printQuality
d8547710430c printer stuff fm parents: 9380 diff changeset	6317
d8547710430c printer stuff fm parents: 9380 diff changeset	6318	"Created: / 04-08-2006 / 13:10:06 / fm"
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	printerName
d8547710430c printer stuff fm parents: 9380 diff changeset	6322	^ printerName
d8547710430c printer stuff fm parents: 9380 diff changeset	6323
d8547710430c printer stuff fm parents: 9380 diff changeset	6324	"Created: / 27-07-2006 / 12:16:59 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6325	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6326
d8547710430c printer stuff fm parents: 9380 diff changeset	6327	printerName:printerNameArg attributes:attributesArg
d8547710430c printer stuff fm parents: 9380 diff changeset	6328
d8547710430c printer stuff fm parents: 9380 diff changeset	6329	printerName := printerNameArg.
d8547710430c printer stuff fm parents: 9380 diff changeset	6330	attributes := attributesArg.
d8547710430c printer stuff fm parents: 9380 diff changeset	6331
d8547710430c printer stuff fm parents: 9380 diff changeset	6332	"Created: / 27-07-2006 / 12:29:18 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6333	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6334
d8547710430c printer stuff fm parents: 9380 diff changeset	6335	remotePrinterHost
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6336	^attributes at:#remotePrinterHost ifAbsent:['']
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6337
d8547710430c printer stuff fm parents: 9380 diff changeset	6338	"Created: / 28-07-2006 / 16:30:13 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6339	"Modified: / 16-04-2007 / 12:02:32 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6340	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6341
d8547710430c printer stuff fm parents: 9380 diff changeset	6342	remotePrinterName
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6343	^attributes at:#remotePrinterName ifAbsent:['']
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6344
d8547710430c printer stuff fm parents: 9380 diff changeset	6345	"Created: / 28-07-2006 / 16:30:06 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6346	"Modified: / 16-04-2007 / 12:03:23 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6347	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6348
d8547710430c printer stuff fm parents: 9380 diff changeset	6349	status
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6350	self isAvailable ifFalse:[^''].
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6351	^self class statusNumberToDescriptionForNumber: self getPrinterInfo2 status
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6352
d8547710430c printer stuff fm parents: 9380 diff changeset	6353	"Created: / 01-08-2006 / 13:48:58 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6354	"Modified: / 16-04-2007 / 12:03:41 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6355	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6356
d8547710430c printer stuff fm parents: 9380 diff changeset	6357	userFriendlyName
d8547710430c printer stuff fm parents: 9380 diff changeset	6358	^self remotePrinterName isEmpty
d8547710430c printer stuff fm parents: 9380 diff changeset	6359	ifTrue:[self printerName]
d8547710430c printer stuff fm parents: 9380 diff changeset	6360	ifFalse:[self remotePrinterName, ' on ', self remotePrinterHost]
d8547710430c printer stuff fm parents: 9380 diff changeset	6361
d8547710430c printer stuff fm parents: 9380 diff changeset	6362	"Created: / 03-08-2006 / 12:50:09 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6363	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6364
d8547710430c printer stuff fm parents: 9380 diff changeset	6365	!AbstractOperatingSystem::PrinterInfo methodsFor:'dc creation'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6366
d8547710430c printer stuff fm parents: 9380 diff changeset	6367	createDC
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6368	\|driverName pName\|
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6369
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6370	driverName := self driverName.
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6371	pName := self printerName.
10513 0a27c8d86154 * empty log message * Claus Gittinger <cg@exept.de> parents: 10510 diff changeset	6372	"/ Transcript show:driverName; show:' '; showCR:printerName.
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6373
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6374	^OperatingSystem createPrinterDC:driverName
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6375	device:pName
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6376	output:self medium
d8547710430c printer stuff fm parents: 9380 diff changeset	6377	initData:self documentProperties.
d8547710430c printer stuff fm parents: 9380 diff changeset	6378
d8547710430c printer stuff fm parents: 9380 diff changeset	6379	"Created: / 02-08-2006 / 16:51:02 / fm"
10513 0a27c8d86154 * empty log message * Claus Gittinger <cg@exept.de> parents: 10510 diff changeset	6380	"Modified: / 16-04-2007 / 13:56:56 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6381	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6382
d8547710430c printer stuff fm parents: 9380 diff changeset	6383	!AbstractOperatingSystem::PrinterInfo methodsFor:'dialogs'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6384
d8547710430c printer stuff fm parents: 9380 diff changeset	6385	openPropertiesDialog
9844 c92a32fa507d * empty log message * Claus Gittinger <cg@exept.de> parents: 9721 diff changeset	6386	"Returns true if the documentProperties have been accepted. Otherwise, returns false"
c92a32fa507d * empty log message * Claus Gittinger <cg@exept.de> parents: 9721 diff changeset	6387
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6388	\|h newDocumentProperties\|
d8547710430c printer stuff fm parents: 9380 diff changeset	6389
d8547710430c printer stuff fm parents: 9380 diff changeset	6390	h := OperatingSystem openPrinter: self printerName.
d8547710430c printer stuff fm parents: 9380 diff changeset	6391	newDocumentProperties := OperatingSystem documentPropertiesDialogFor:nil
d8547710430c printer stuff fm parents: 9380 diff changeset	6392	hPrinter:h
d8547710430c printer stuff fm parents: 9380 diff changeset	6393	pDeviceName: self printerName
d8547710430c printer stuff fm parents: 9380 diff changeset	6394	devModeInput:self documentProperties.
9844 c92a32fa507d * empty log message * Claus Gittinger <cg@exept.de> parents: 9721 diff changeset	6395	(newDocumentProperties contains:[:el \| el ~= 0])
c92a32fa507d * empty log message * Claus Gittinger <cg@exept.de> parents: 9721 diff changeset	6396	ifFalse:[^false].
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6397	self documentProperties: newDocumentProperties.
d8547710430c printer stuff fm parents: 9380 diff changeset	6398	OperatingSystem closePrinter:h.
d8547710430c printer stuff fm parents: 9380 diff changeset	6399	^true
d8547710430c printer stuff fm parents: 9380 diff changeset	6400
d8547710430c printer stuff fm parents: 9380 diff changeset	6401	"Created: / 28-07-2006 / 11:44:01 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6402	"Modified: / 01-08-2006 / 11:55:49 / fm"
9844 c92a32fa507d * empty log message * Claus Gittinger <cg@exept.de> parents: 9721 diff changeset	6403	"Modified: / 13-09-2006 / 11:36:10 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6404	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6405
d8547710430c printer stuff fm parents: 9380 diff changeset	6406	!AbstractOperatingSystem::PrinterInfo methodsFor:'modifying'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6407
d8547710430c printer stuff fm parents: 9380 diff changeset	6408	setLandscapeOrientation
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6409	"DMORIENT_LANDSCAPE = 2"
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6410	self documentProperties orientation: 2
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6411
d8547710430c printer stuff fm parents: 9380 diff changeset	6412	"Created: / 28-07-2006 / 15:53:35 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6413	"Modified: / 16-04-2007 / 12:03:30 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6414	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6415
d8547710430c printer stuff fm parents: 9380 diff changeset	6416	setNumberOfCopies: n
d8547710430c printer stuff fm parents: 9380 diff changeset	6417
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6418	self documentProperties copies: n
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6419
d8547710430c printer stuff fm parents: 9380 diff changeset	6420	"Created: / 28-07-2006 / 16:04:04 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6421	"Modified: / 16-04-2007 / 12:03:33 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6422	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6423
d8547710430c printer stuff fm parents: 9380 diff changeset	6424	setPortraitOrientation
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6425	"DMORIENT_PORTRAIT = 1"
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6426	self documentProperties orientation: 1
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6427
d8547710430c printer stuff fm parents: 9380 diff changeset	6428	"Created: / 28-07-2006 / 15:49:45 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6429	"Modified: / 16-04-2007 / 12:03:36 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6430	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6431
d8547710430c printer stuff fm parents: 9380 diff changeset	6432	!AbstractOperatingSystem::PrinterInfo methodsFor:'printing & storing'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6433
d8547710430c printer stuff fm parents: 9380 diff changeset	6434	printOn:aStream
d8547710430c printer stuff fm parents: 9380 diff changeset	6435	aStream nextPutAll:(self class name); nextPutAll:'('.
d8547710430c printer stuff fm parents: 9380 diff changeset	6436	printerName printOn:aStream.
d8547710430c printer stuff fm parents: 9380 diff changeset	6437	aStream nextPutAll:')'.
d8547710430c printer stuff fm parents: 9380 diff changeset	6438
d8547710430c printer stuff fm parents: 9380 diff changeset	6439	"Created: / 27-07-2006 / 12:30:28 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6440	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6441
d8547710430c printer stuff fm parents: 9380 diff changeset	6442	!AbstractOperatingSystem::PrinterInfo methodsFor:'private'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6443
d8547710430c printer stuff fm parents: 9380 diff changeset	6444	getDocumentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6445	"Returns a aDevModeStructure"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6446
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6447	\|h devMode \|
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6448
d8547710430c printer stuff fm parents: 9380 diff changeset	6449	h := OperatingSystem openPrinter: self printerName.
d8547710430c printer stuff fm parents: 9380 diff changeset	6450	devMode := OperatingSystem getDocumentProperties:nil
d8547710430c printer stuff fm parents: 9380 diff changeset	6451	hPrinter:h
d8547710430c printer stuff fm parents: 9380 diff changeset	6452	pDeviceName: self printerName.
d8547710430c printer stuff fm parents: 9380 diff changeset	6453	OperatingSystem closePrinter: h.
d8547710430c printer stuff fm parents: 9380 diff changeset	6454	^devMode
d8547710430c printer stuff fm parents: 9380 diff changeset	6455
d8547710430c printer stuff fm parents: 9380 diff changeset	6456	"Created: / 28-07-2006 / 11:49:33 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6457	"Modified: / 31-07-2006 / 10:33:04 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6458	"Modified: / 16-04-2007 / 12:02:00 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6459	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6460
d8547710430c printer stuff fm parents: 9380 diff changeset	6461	getPrinterInfo2
d8547710430c printer stuff fm parents: 9380 diff changeset	6462	"Returns a aPrinterInfo2 structure"
10097 2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6463
2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6464	printerInfo2 := OperatingSystem getPrinterInfo2:self printerName.
2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6465	^ printerInfo2
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6466
d8547710430c printer stuff fm parents: 9380 diff changeset	6467	"Created: / 01-08-2006 / 13:50:55 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6468	"Modified: / 01-08-2006 / 15:11:03 / fm"
10097 2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6469	"Modified: / 18-10-2006 / 12:03:54 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6470	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6471
d8547710430c printer stuff fm parents: 9380 diff changeset	6472	printerInfo2
d8547710430c printer stuff fm parents: 9380 diff changeset	6473	"Returns a aPrinterInfo2 structure"
10097 2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6474
2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6475	printerInfo2 isNil ifTrue:[
2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6476	self getPrinterInfo2.
2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6477	].
2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6478	^ printerInfo2
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6479
d8547710430c printer stuff fm parents: 9380 diff changeset	6480	"Created: / 01-08-2006 / 15:10:18 / fm"
10097 2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6481	"Modified: / 18-10-2006 / 12:03:57 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6482	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6483
d8547710430c printer stuff fm parents: 9380 diff changeset	6484	setDocumentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6485	"Sets a aDevModeStructure or nil if the printer is not available"
d8547710430c printer stuff fm parents: 9380 diff changeset	6486
d8547710430c printer stuff fm parents: 9380 diff changeset	6487	self documentProperties: self getDocumentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6488
d8547710430c printer stuff fm parents: 9380 diff changeset	6489	"Created: / 31-07-2006 / 13:04:58 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6490	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6491
d8547710430c printer stuff fm parents: 9380 diff changeset	6492	!AbstractOperatingSystem::PrinterInfo methodsFor:'queries'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6493
d8547710430c printer stuff fm parents: 9380 diff changeset	6494	isAvailable
d8547710430c printer stuff fm parents: 9380 diff changeset	6495
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6496	^self documentProperties notNil
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6497
d8547710430c printer stuff fm parents: 9380 diff changeset	6498	"Created: / 31-07-2006 / 13:08:58 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6499	"Modified: / 16-04-2007 / 12:02:05 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6500	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6501
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6502	!AbstractOperatingSystem::TimeInfo methodsFor:'accessing'!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6503
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6504	at:index
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6505	"backward compatibility"
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6506
8357 64be78ef1e77 Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 8250 diff changeset	6507	<resource: #obsolete>
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6508	self obsoleteMethodWarning:'use accessor for index ', index printString.
7739 d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6509
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6510	index == 1 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6511	^ self year.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6512	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6513	index == 2 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6514	^ self month.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6515	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6516	index == 3 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6517	^ self day.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6518	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6519	index == 4 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6520	^ self hours.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6521	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6522	index == 5 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6523	^ self minutes.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6524	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6525	index == 6 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6526	^ self seconds.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6527	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6528	index == 7 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6529	^ self utcOffset.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6530	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6531	index == 8 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6532	^ self dst.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6533	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6534	index == 9 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6535	^ self milliseconds.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6536	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6537	index == 10 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6538	^ self dayInYear.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6539	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6540	index == 11 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6541	^ self dayInWeek.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6542	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6543	self subscriptBoundsError:index
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6544	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6545
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6546	day
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6547	^ day
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6548	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6549
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6550	dayInWeek
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6551	^ dayInWeek
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6552	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6553
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6554	dayInYear
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6555	^ dayInYear
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6556	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6557
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6558	dst
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6559	^ dst
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6560	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6561
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6562	hours
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6563	^ hours
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6564	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6565
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6566	milliseconds
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6567	^ milliseconds
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6568	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6569
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6570	milliseconds:something
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6571	milliseconds := something.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6572	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6573
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6574	minutes
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6575	^ minutes
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6576	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6577
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6578	month
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6579	^ month
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6580	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6581
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6582	seconds
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6583	^ seconds
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6584	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6585
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6586	utcOffset
8887 0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6587	"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	6588	If daylight saving time applies to ourself, take that into account.
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6589	Add utcOffset to convert from local time to UTC time.
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6590	Subtract utcOffset to convert from UTC time to local time.
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6591
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6592	If utcOffset is negative, the local timezone is east of Greenwich.
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6593	If utcOffset is positive, the local timezone is west of Greenwich."
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6594
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6595	^ utcOffset
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6596
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6597	"
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6598	OperatingSystem utcOffset
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6599	"
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6600	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6601
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6602	year
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6603	^ year
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6604	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6605
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6606	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	6607	"set instance variables (automatically generated)"
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6608
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6609	year := yearArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6610	month := monthArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6611	day := dayArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6612	hours := hoursArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6613	minutes := minutesArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6614	seconds := secondsArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6615	milliseconds := millisecondsArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6616	utcOffset := utcOffsetArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6617	dst := dstArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6618	dayInYear := dayInYearArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6619	dayInWeek := dayInWeekArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6620	!
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6621
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6622	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	6623	"set instance variables (automatically generated)"
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6624
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6625	year := yearArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6626	month := monthArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6627	day := dayArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6628	hours := hoursArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6629	minutes := minutesArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6630	seconds := secondsArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6631	utcOffset := utcOffsetArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6632	dst := dstArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6633	dayInYear := dayInYearArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6634	dayInWeek := dayInWeekArg.
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
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6637	!AbstractOperatingSystem::TimeZoneInfo class methodsFor:'documentation'!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6638
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6639	documentation
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6640	"
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6641	Bias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6642	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	6643	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	6644	and local time.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6645	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	6646
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6647	UTC = local time + bias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6648
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6649	StandardName
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6650	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	6651	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	6652	This string can be empty.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6653	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	6654
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6655	StandardDate
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6656	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	6657	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	6658	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	6659	daylight saving time, the standardDate is nil.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6660	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	6661	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	6662
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6663	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	6664	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	6665	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	6666	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	6667
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6668	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	6669	wHour = 2, wMonth = 4, wDayOfWeek = 0, wDay = 1.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6670	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	6671	wHour = 2, wMonth = 10, wDayOfWeek = 4, wDay = 5.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6672
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6673	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	6674	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	6675
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6676	StandardBias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6677	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	6678	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	6679
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6680	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	6681	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	6682
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6683	DaylightName
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6684	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	6685	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	6686	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	6687
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6688	DaylightDate
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6689	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	6690	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	6691	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	6692	saving time, this entry is nil.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6693	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	6694	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	6695
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6696	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	6697	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	6698	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	6699	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	6700
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6701	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	6702	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	6703
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6704	DaylightBias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6705	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	6706	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	6707
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6708	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	6709	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	6710	"
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6711	! !
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6712
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6713	!AbstractOperatingSystem::TimeZoneInfo methodsFor:'accessing'!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6714
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6715	bias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6716	^ bias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6717	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6718
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6719	bias:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6720	bias := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6721	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6722
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6723	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	6724	bias := biasArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6725	name := nameArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6726	standardBias := standardBiasArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6727	daylightName := daylightNameArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6728	daylightBias := daylightBiasArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6729	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6730
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6731	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	6732	bias := biasArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6733	name := nameArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6734	standardDate := standardDateArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6735	standardBias := standardBiasArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6736	daylightName := daylightNameArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6737	daylightDate := daylightDateArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6738	daylightBias := daylightBiasArg.
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	daylightBias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6742	^ daylightBias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6743	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6744
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6745	daylightBias:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6746	daylightBias := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6747	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6748
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6749	daylightDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6750	^ daylightDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6751	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6752
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6753	daylightDay:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6754	daylightDay := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6755	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6756
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6757	daylightHour
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6758	^ daylightHour
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6759	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6760
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6761	daylightHour:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6762	daylightHour := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6763	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6764
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6765	daylightMinute
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6766	^ daylightMinute
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6767	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6768
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6769	daylightMinute:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6770	daylightMinute := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6771	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6772
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6773	daylightMonth
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6774	^ daylightMonth
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6775	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6776
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6777	daylightMonth:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6778	daylightMonth := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6779	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6780
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6781	daylightName
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6782	^ daylightName
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6783	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6784
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6785	daylightName:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6786	daylightName := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6787	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6788
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6789	daylightWeekDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6790	^ daylightWeekDay
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6793	daylightWeekDay:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6794	daylightWeekDay := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6795	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6796
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6797	daylightYear
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6798	^ daylightYear
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6801	daylightYear:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6802	daylightYear := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6803	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6804
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6805	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	6806	daylightYear := daylightYearArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6807	daylightMonth := daylightMonthArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6808	daylightDay := daylightDayArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6809	daylightWeekDay := daylightWeekDayArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6810	daylightHour := daylightHourArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6811	daylightMinute := daylightMinuteArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6812	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6813
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6814	name
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6815	^ name
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6816	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6817
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6818	name:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6819	name := something.
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6822	standardBias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6823	^ standardBias
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6824	!
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	standardBias:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6827	standardBias := something.
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6830	standardDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6831	^ standardDay
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6834	standardDay:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6835	standardDay := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6836	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6837
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6838	standardHour
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6839	^ standardHour
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6842	standardHour:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6843	standardHour := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6844	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6845
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6846	standardMinute
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6847	^ standardMinute
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6850	standardMinute:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6851	standardMinute := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6852	!
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	standardMonth
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6855	^ standardMonth
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6858	standardMonth:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6859	standardMonth := something.
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
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6862	standardWeekDay
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6863	^ standardWeekDay
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	standardWeekDay:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6867	standardWeekDay := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6868	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6869
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6870	standardYear
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6871	^ standardYear
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6872	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6873
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6874	standardYear:something
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6875	standardYear := something.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6876	!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6877
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6878	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	6879	standardYear := standardYearArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6880	standardMonth := standardMonthArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6881	standardDay := standardDayArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6882	standardWeekDay := standardWeekDayArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6883	standardHour := standardHourArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6884	standardMinute := standardMinuteArg.
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6885	! !
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6886
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6887	!AbstractOperatingSystem::TimeZoneInfo methodsFor:'queries'!
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6888
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6889	utcOffset
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6890	"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	6891	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	6892	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	6893	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	6894
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6895	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	6896	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	6897
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6898	^ (bias + daylightBias) * 60
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6899
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	OperatingSystem utcOffset
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6902	"
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6903	! !
bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6904
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6905	!AbstractOperatingSystem class methodsFor:'documentation'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6906
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6907	version
17728 bbc5fa73dfab Merged with trunk r10466 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17711 diff changeset	6908	^ '$Id: AbstractOperatingSystem.st 10467 2009-08-19 16:14:36Z vranyj1 $'
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6909	! !
6772 6bfdc2522ea2 isMountPoint penk parents: 6720 diff changeset	6910
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6911	AbstractOperatingSystem initialize!

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 19 Aug 2009 17:14:36 +0100
branch	jv
changeset 17728	bbc5fa73dfab
parent 17711	39faaaf888b4
child 17735	6a5bc05f696a
permissions	-rw-r--r--