hg/stx-libbasic: AbstractOperatingSystem.st@4fc6924e462f (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
11843 b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	38	Object subclass:#TimeZoneInfo
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	39	instanceVariableNames:'bias name standardYear standardMonth standardDay standardWeekDay
12543 0ccfdbd164d6 changed: #platformDefineForPlatformName: Stefan Vogel <sv@exept.de> parents: 11846 diff changeset	40	standardHour standardMinute standardBias daylightName
0ccfdbd164d6 changed: #platformDefineForPlatformName: Stefan Vogel <sv@exept.de> parents: 11846 diff changeset	41	standardDate daylightDate daylightYear daylightMonth daylightDay
0ccfdbd164d6 changed: #platformDefineForPlatformName: Stefan Vogel <sv@exept.de> parents: 11846 diff changeset	42	daylightWeekDay daylightHour daylightMinute daylightBias'
11843 b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	43	classVariableNames:''
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	44	poolDictionaries:''
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	45	privateIn:AbstractOperatingSystem
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	46	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 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
6292 f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2059	openFileForAppend:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2060	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2061	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2062
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2063	openFileForRead:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2064	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2065	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2066
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2067	openFileForReadAppend:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2068	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2069	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2070
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2071	openFileForReadWrite:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2072	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2073	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2074
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2075	openFileForWrite:pathName
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2076	self subclassResponsibility
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2077	!
f9628eddef1f file create/open stubs Claus Gittinger <cg@exept.de> parents: 6291 diff changeset	2078
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2079	recursiveCopyDirectory:fullPathName to:destinationPathName
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2080	"copy the directory named 'fullPathName' and all contained
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2081	files/directories recursively to destinationPathName.
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2082	Return true if successful.
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2083	Here, false is returned and the caller should be prepared
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2084	for a fallBack solution.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2085	Notice:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2086	this is not a public interface; instead, it is used
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2087	internally by the Filename class, to try a fast copy
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2088	before doing things manually.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2089	Please use Filename recursiveCopyTo:"
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2090
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2091	^ false
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2092
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2093	"
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2094	OperatingSystem recursiveCopyDirectory:'.' to:'/tmp/foo'
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2095	OperatingSystem recursiveRemoveDirectory:'/tmp/foo'
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2096	"
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2097
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2098	"Modified: / 5.5.1999 / 13:29:16 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2099	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2100
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2101	recursiveCreateDirectory:dirName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2102	"create a directory - with all parent dirs if needed.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2103	Return true if successful, false otherwise. If false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2104	is returned, a partial created tree may be left,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2105	which is not cleaned-up here."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2106
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2107	self createDirectory:dirName.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2108	(self isDirectory:dirName) ifFalse:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2109	(self recursiveCreateDirectory:(dirName asFilename directoryName)) ifFalse:[^ false].
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2110	^ self createDirectory:dirName
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2111	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2112	^ true
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2113
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2114	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2115	OperatingSystem recursiveCreateDirectory:'foo/bar/baz'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2116	OperatingSystem recursiveRemoveDirectory:'foo'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2117	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2118
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2119	"Modified: 7.3.1996 / 15:26:22 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2120	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2121
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2122	recursiveRemoveDirectory:fullPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2123	"remove the directory named 'fullPathName' and all contained files/directories.
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2124	Return true if successful.
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2125	Here, false is returned and the caller should be prepared
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2126	for a fallBack solution.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2127	Notice:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2128	this is not a public interface; instead, it is used
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2129	internally by the Filename class, to try a fast remove
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2130	before doing things manually.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2131	Please use Filename recursiveRemoveDirectory:"
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2132
f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2133	^ false
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2134
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2135	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2136	OperatingSystem recursiveCreateDirectory:'foo/bar/baz'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2137	OperatingSystem recursiveRemoveDirectory:'foo'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2138	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2139
4149 f9437e0f6315 checkin from browser Claus Gittinger <cg@exept.de> parents: 4147 diff changeset	2140	"Modified: / 5.5.1999 / 13:30:11 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2141	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2142
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2143	removeDirectory:fullPathName
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2144	"remove the directory named 'fullPathName'.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2145	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	2146	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	2147	This is a lowLevel entry - use Filename protocol for compatibility."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2148
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2149	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2150	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2151
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2152	removeFile:fullPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2153	"remove the file named 'fullPathName'; return true if successful.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2154	This is a lowLevel entry - use Filename protocol for compatibility."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2155
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2156	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2157	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2158
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2159	renameFile:oldPath to:newPath
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2160	"rename the file 'oldPath' to 'newPath'.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2161	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	2162	correct for the OS used - therefore, this should not be called
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2163	directlt. Instead, use Filename protocol to rename; this cares for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2164	any invalid names.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2165	Returns true if successful, false if not"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2166
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2167	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2168	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2169
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2170	truncateFile:aPathName to:newSize
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2171	"change a files size return true on success, false on failure.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2172	This may not be supported on all architectures.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2173
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2174	This is a low-level entry - use Filename protocol."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2175
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2176	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2177	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2178
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2179	!AbstractOperatingSystem class methodsFor:'file access rights'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2180
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2181	accessMaskFor:aSymbol
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2182	"return the access bits mask for numbers as returned by
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2183	OperatingSystem>>accessModeOf:
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2184	and expected by OperatingSystem>>changeAccessModeOf:to:.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2185	Since these numbers are OS dependent, always use the mask
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2186	(never hardcode 8rxxx into your code)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2187
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2188	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2189	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2190
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2191	accessModeOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2192	"return a number representing access rights rwxrwxrwx for owner,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2193	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	2194	Notice that the returned number is OS dependent - use the
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2195	modeMasks as returned by OperatingSystem>>accessMaskFor:"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2196
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2197	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2198	this could have been implemented as:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2199	(self infoOf:aPathName) at:#mode
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2200	but for huge directory searches the code below is faster
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2203	^ (self infoOf:aPathName) at:#mode
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	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2206	(OperatingSystem accessModeOf:'/') printStringRadix:8
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2207	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2208	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2209
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2210	changeAccessModeOf:aPathName to:modeBits
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2211	"change the access rights of aPathName to the OS dependent modeBits.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2212	You should construct this mask using accessMaskFor, to be OS
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2213	independent. Return true if changed,
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2214	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	2215
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2216	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2217	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2218
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2219	!AbstractOperatingSystem class methodsFor:'file locking'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2220
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2221	lockFD:aFileDescriptor shared:isSharedReadLock blocking:blockIfLocked
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2222	"set a lock on the file represented by aFileDescriptor.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2223	(such as returned by ExternalStream>>fileDescriptor).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2224	On some systems, only advisory locks are available -
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2225	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	2226	If they do not, they may still access the file
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2227	(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	2228	The isSharedReadLock argument (if true) specifies if multiple readers
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2229	are to be allowed - if false, they are not.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2230	On some systems, all locks are non-exclusive locks.
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	Returns true, if the lock was aquired, false otherwise.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2233
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2234	Notice, that not all OS's support these locks;
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2235	on some, this may simply be a no-op.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2236	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	2237	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	2238	argument."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2239
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2240	^ false
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2243	supportsFileLinks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2244	"return true, if the OS supports file links (hard links).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2245	Typically, only unix returns true here."
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	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2248	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2249
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2250	supportsFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2251	"return true, if the OS supports file locking"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2252
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2253	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2254
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2255	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2256	OperatingSystem supportsFileLocks
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	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2259
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2260	supportsNonBlockingFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2261	"return true, if the OS supports nonBlocking file locking
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2262	(i.e. with immediate return instead of waiting for the lock)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2263
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2264	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2265
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2266	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2267	OperatingSystem supportsNonBlockingFileLocks
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	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2270
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2271	supportsSharedLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2272	"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	2273	file locking. Assume false here - redefined in concrete classes."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2274
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2275	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2276
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2277	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2278	OperatingSystem supportsNonBlockingFileLocks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2279	"
4147 1096115c96c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 4146 diff changeset	2280
1096115c96c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 4146 diff changeset	2281	"Modified: / 5.5.1999 / 01:08:03 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2282	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2283
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2284	supportsSymbolicLinks
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2285	"return true, if the OS supports symbolic links on files/directories.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2286	Typically, only Unix returns true here"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2287
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2288	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2289	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2290
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2291	unlockFD:aFileDescriptor
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2292	"clear a file lock on the file represented by aFileDescriptor,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2293	which was previously aquired by #lockFD:.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2294	Return false, if the unlock failed
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2295	(which may happens when a wrong fd is passed,
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2296	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	2297	Notice, that not all OS's support file locks;
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2298	on some, this may simply be a no-op."
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2299
3826 ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	2300	^ false
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	2301
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	2302	"Modified: / 10.9.1998 / 17:54:15 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2303	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2304
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2305	!AbstractOperatingSystem class methodsFor:'file queries'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2306
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2307	caseSensitiveFilenames
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2308	"return true, if the OS has caseSensitive file naming.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2309	On MSDOS, this will return false;
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2310	on a real OS, we return true."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2311
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2312	self subclassResponsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2315	compressPath:pathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2316	"return the pathName compressed - that is, remove all ..-entries
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2317	and . entries. This does not always (in case of symbolic links)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2318	return the true pathName and is therefore used as a fallback
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2319	if realPath and popen failed."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2320
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2321	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2322	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2323
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2324	directoryNameOf:aPath
5861 24ee164045bd Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 5857 diff changeset	2325	<resource:#obsolete>
24ee164045bd Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 5857 diff changeset	2326
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2327	self obsoleteMethodWarning:'use asFilename directoryName'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2328	^ aPath asFilename directoryName
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	fileSeparator
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2332	"return the character used to separate names in a path.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2333	This character differs for MSDOS and other systems,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2334	(but those are currently not supported - so this is some
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2335	preparation for the future)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2336
3736 718513f3284e checkin from browser Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	2337	^ $/ "/ 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	2338	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2339
4224 5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2340	getDiskInfoOf:aDirectoryPath
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2341	"return some disk info.
4224 5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2342	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	2343	not guaranteed to be consistent across architectures.
4226 429b13ce2028 * empty log message * Claus Gittinger <cg@exept.de> parents: 4224 diff changeset	2344	On unix and msdos, the information returned is (at least):
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2345	freeBytes
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2346	totalBytes
4224 5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2347	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	2348	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	2349	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	2350	"
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2351
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2352	^ nil
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2353
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2354	"
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2355	OperatingSystem getDiskInfoOf:'/'
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2356	OperatingSystem getDiskInfoOf:'.'
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2357	"
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2358
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2359	"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	2360	!
5ba55d46b2f4 added a portable interface to the df-command Claus Gittinger <cg@exept.de> parents: 4207 diff changeset	2361
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2362	getDriveList
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2363	"return a list of volumes in the system.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2364	On unix, no such thing like a volume exists
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2365	- there, a syntetic list with root, home & current is returned.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2366	On MSDOS, a list of drive letters is (eventually) returned.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2367	On VMS, a list of volumes is (eventually) returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2368
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2369	"/
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	2370	"/ default: return an array filled with
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2371	"/ root, home and current directories.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2372	"/
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2373	^ Array
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2374	with:'/'
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2375	with:(self getHomeDirectory)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2376	with:(Filename currentDirectory pathName)
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	2377
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	2378	"Modified: / 5.5.1999 / 01:06:26 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2379	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2380
4852 ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2381	getMountedVolumes
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2382	"return info about mounted volumes.
4852 ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2383	The amount of information returned depends upon the OS, and is
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2384	not guaranteed to be consistent across architectures.
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2385	On unix, the information returned is (at least):
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2386	mountPoint - mount point
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2387	fileSystem - device or NFS-remotePath
4852 ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2388	"
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2389
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2390	^ #()
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2391
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2392	"
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2393	OperatingSystem getMountedVolumes
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2394	"
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2395
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2396	"Modified: / 22.5.1999 / 00:36:06 / cg"
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2397	!
ac51b47d8768 add #getMountedVolumes ca parents: 4849 diff changeset	2398
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2399	getNullDevice
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2400	"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	2401
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2402	^ nil
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2403
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2404	"Created: / 19.5.1999 / 12:24:59 / cg"
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2405	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2406
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2407	idOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2408	"return the fileNumber (i.e. inode number) of a file.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2409
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2410	Not all operatingSystems may provide this - on those that do not,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2411	some dummy id will be returned.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2412	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	2413	physically identical, even if found in different directories
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2414	(i.e. if they are hardLinked)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2415
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2416	\|i id\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2417
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2418	id := self primIdOf:aPathName.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2419	id notNil ifTrue:[^ id].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2420
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2421	i := self infoOf:aPathName.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2422	i notNil ifTrue:[^ i id].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2423	^ nil.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2424
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2425	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2426	OperatingSystem idOf:'/'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2427	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2428	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2429
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2430	infoOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2431	"return some object filled with info for the file 'aPathName';
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2432	the info (for which corresponding access methods are understood by
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2433	the returned object) is:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2434	type - a symbol giving the files type
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2435	mode - numeric access mode
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2436	uid - owners user id
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2437	gid - owners group id
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2438	size - files size
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2439	id - files number (i.e. inode number)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2440	accessed - last access time (as Timestamp)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2441	modified - last modification time (as Timestamp)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2442	statusChanged - last status change time (as Timestamp)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2443	alternativeName - (windows only: the MSDOS name of the file)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2444
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2445	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	2446	all of the information.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2447	Return nil if such a file does not exist.
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2448	For symbolic links (if supported by the OS),
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2449	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	2450	use #linkInfoOf: to get info about the link itself.
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2453	self subclassResponsibility
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	isDirectory:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2457	"return true, if 'aPathName' is a valid directory path name.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2458	(i.e. exists and is a directory).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2459	This also returns true for symbolic links pointing to a directory;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2460	if you need to check for this, use #linkInfo:."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2461
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2462	^ (self infoOf:aPathName) type == #directory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2463	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2464
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2465	isExecutable:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2466	"return true, if the given file is executable.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2467	For symbolic links, the pointed-to-file is checked."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2468
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2469	self subclassResponsibility
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
6772 6bfdc2522ea2 isMountPoint penk parents: 6720 diff changeset	2472	isMountPoint:aPathName
6781 97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2473	"return true, if the given file is a mounted fileSystems mountPoint"
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2474
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2475	^ self mountPoints contains:[:mountInfo \| mountInfo mountPointPath = aPathName].
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2476
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2477	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2478	OperatingSystem isMountPoint:'/phys/qnx'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2479	OperatingSystem isMountPoint:'/proc'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2480	OperatingSystem isMountPoint:'/'
6781 97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2481	"
6772 6bfdc2522ea2 isMountPoint penk parents: 6720 diff changeset	2482	!
6bfdc2522ea2 isMountPoint penk parents: 6720 diff changeset	2483
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2484	isReadable:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2485	"return true, if the file/dir 'aPathName' is readable.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2486	For symbolic links, the pointed-to-file is checked."
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 subclassResponsibility
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	isSymbolicLink:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2492	"return true, if the given file is a symbolic link"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2493
8474 f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2494	\|info\|
f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2495
f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2496	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	2497	^ 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	2498
f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2499	"
f06681e84c85 #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 8468 diff changeset	2500	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	2501	OperatingSystem isSymbolicLink:'/usr/tmp'
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2502	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2503	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2504
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2505	isValidPath:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2506	"return true, if 'aPathName' is a valid path name
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2507	(i.e. the file or directory exists)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2508
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2509	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2510	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2511
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2512	isWritable:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2513	"return true, if the given file is writable.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2514	For symbolic links, the pointed-to-file is checked."
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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2517	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2518
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2519	linkInfoOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2520	"return a dictionary filled with info for the file 'aPathName',
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2521	IFF aPathName is a symbolic link.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2522	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	2523	(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	2524
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2525	The contents of the dictionary gives info about the link itself,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2526	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	2527	in case of a symbolic link."
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2528
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2529	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2530	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2531
5031 50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2532	mimeTypeForFilename:aFilename
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2533	"given a filename, return a corresponding mimeType.
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2534	This is placed here, to allow for OS-specific configuration
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2535	files and/or the win32 registry to be consultet.
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2536	Returns nil if no mimeType for the given name is known."
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2537
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2538	^ nil
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2539	!
50e076c928d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5026 diff changeset	2540
4240 e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2541	mimeTypeForSuffix:aFileSuffix
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2542	"given a file suffix, return a corresponding mimeType.
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2543	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	2544	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	2545	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	2546
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2547	^ nil
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2548	!
e1ea7a38f752 added entry to gather a mimeType Claus Gittinger <cg@exept.de> parents: 4226 diff changeset	2549
6781 97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2550	mountPoints
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2551	"return a collection of mountPoints (aka. topDirectories of mounted file systems)"
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2552
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2553	^ #() "/ dont know here
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2554	!
97bf31b8e8b1 add mountPoint methods penk parents: 6772 diff changeset	2555
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2556	parentDirectoryName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2557	"return the name used to refer to parent directories.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2558	In MSDOS, Unix and other systems this is '..', but maybe different
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2559	for other systems.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2560	(but those are currently not supported - so this is some
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2561	preparation for the future)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2562
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2563	^ '..'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2564	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2565
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2566	pathNameOf:pathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2567	"return the pathName of the argument, aPathString,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2568	- thats the full pathname of the directory, starting at '/'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2569	This method needs the path to be valid
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2570	(i.e. all directories must exist, be readable and executable).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2571	Notice: if symbolic links are involved, the result may look different
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2572	from what you expect."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2573
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2574	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2575	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2576
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2577	primIdOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2578	"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	2579
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2580	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2581	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2582
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2583	primPathNameOf:pathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2584	"return the pathName of the argument, aPathString,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2585	- thats the full pathname of the directory, starting at '/'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2586	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	2587	realPath library function.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2588	Notice: if symbolic links are involved, the result may look different
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2589	from what you expect."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2590
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2591	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2592	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2593
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2594	timeOfLastAccess:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2595	"return the time, when the file was last accessed.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2596	For nonexistent files, nil is returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2597
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2598	^ (self infoOf:aPathName) accessTime
3576 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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2601	timeOfLastChange:aPathName
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2602	"return the time, when the file was last changed.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2603	For nonexistent files, nil is returned."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2604
6793 0d3e3fd18a70 modified -> modificationTime Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	2605	^ (self infoOf:aPathName) modificationTime
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2606	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2607
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2608	typeOf:aPathName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2609	"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	2610	nil is returned.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2611	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	2612
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2613	^ (self infoOf:aPathName) type
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2614	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2615
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2616	volumeNameOf:aPathString
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2617	"return the volumeName of the argument, aPath
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2618	- thats the name of the volume where aPath is.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2619	Not all OperatingSystems support/use volumes; on unix,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2620	this always returns an empty string."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2621
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2622	^ ''
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2623	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2624
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2625	!AbstractOperatingSystem class methodsFor:'interprocess communication'!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2626
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2627	createCOMFileForVMSCommand:aCommandString in:aDirectory
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2628	"this is only implemented/required for VMS systems, to execute commands"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2629
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2630	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2631
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2632	"Created: / 19.5.1999 / 12:16:31 / cg"
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2633	"Modified: / 19.5.1999 / 14:22:05 / cg"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2634	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2635
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2636	createMailBox
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2637	"this is only implemented/required for VMS systems, to emulate pipes"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2638
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2639	^ UnsupportedOperationSignal raise
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2640
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2641	"Created: / 19.5.1999 / 12:14:56 / cg"
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2642	"Modified: / 19.5.1999 / 14:22:22 / cg"
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2643	!
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2644
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2645	destroyMailBox:mbx
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2646	"this is only implemented/required for VMS systems, to emulate pipes"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2647
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2648	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2649
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2650	"Created: / 19.5.1999 / 12:16:43 / cg"
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2651	"Modified: / 19.5.1999 / 14:22:33 / cg"
4200 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
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2654	mailBoxNameOf:mbx
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2655	"this is only implemented/required for VMS systems, to emulate pipes"
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2656
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2657	^ UnsupportedOperationSignal raise
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2658
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2659	"Created: / 19.5.1999 / 12:14:56 / cg"
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	2660	"Modified: / 19.5.1999 / 14:22:40 / cg"
4200 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
8967 30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2663	makeBidirectionalPipe
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2664	"answer an array with 2 filedescriptors representing
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2665	the two ends of a bidirectional pipe - see also #makePipe"
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2666
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2667	^ self subclassResponsibility
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2668	!
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2669
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2670	makePipe
8967 30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2671	"answer an array with 2 filedescriptors representing
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2672	the two ends of a unidirectional pipe- see also #makeSocketPair"
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2673
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2674	^ self subclassResponsibility
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2675	!
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2676
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2677	shutdownBidirectionalPipeOutput:fileDescriptor
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2678	"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	2679	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	2680
30dcf961185d Support for bidirectional PipeStreams Stefan Vogel <sv@exept.de> parents: 8913 diff changeset	2681	^ self subclassResponsibility
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2682	! !
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	2683
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2684	!AbstractOperatingSystem class methodsFor:'interrupts & signals'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2685
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2686	blockInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2687	"disable interrupt processing - if disabled, incoming
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2688	interrupts will be registered and handled as soon as
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2689	interrupts are reenabled by OperatingSystemclass>>unblockInterrupts.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2690	Returns the previous blocking status i.e. true if interrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2691	where already blocked. You need this information for proper
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2692	unblocking, in case of nested block/unblock calls."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2693
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2694	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2695	RETURN ( __BLOCKINTERRUPTS() );
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2696	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2697	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2698
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2699	defaultSignal:signalNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2700	"revert to the default action on arrival of a (Unix-)signal.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2701	Dont confuse Unix signals with smalltalk signals.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2702	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	2703	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	2704	default for SIGQUIT (^ \) is to dump core.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2705	Also, NOTICE that signal numbers are not portable between unix
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2706	systems - use OperatingSystem sigXXX to get the numeric value for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2707	a signal."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2708
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2709	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2710	!
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	disableChildSignalInterrupts
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2713	"disable childSignal interrupts
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2714	(SIGCHLD, if the architecture supports it).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2715	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	2716	SIGCHLD breaks wait & co"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2717
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2718	^ self defaultSignal:(self sigCHLD)
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	"Created: 5.1.1996 / 15:45:28 / stefan"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2721	!
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	disableIOInterruptsOn:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2724	"turn off IO interrupts for a filedescriptor"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2725
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2726	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2727	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2728
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2729	disableSignal:signalNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2730	"disable (Unix-) signal processing for signalNumber.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2731	Dont confuse Unix signals with smalltalk signals.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2732	WARNING: for some signals, it is no good idea to disable
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2733	them; for example, disabling the SIGINT signal turns off ^C
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2734	handling.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2735	Also, NOTICE that signal numbers are not portable between unix
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2736	systems - use OperatingSystem sigXXX to get the numeric value for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2737	a signal.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2738	Use only for fully debugged stand alone applications."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2739
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2740	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2741	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2742
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2743	disableTimer
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2744	"disable timer interrupts.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2745	WARNING:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2746	the system will not operate correctly with timer interrupts
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2747	disabled, because no scheduling or timeouts are possible."
3576 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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2750	!
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	disableUserInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2753	"disable userInterrupt processing;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2754	when disabled, no ^C processing takes place.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2755	WARNING:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2756	If at all, use this only for debugged stand-alone applications, since
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2757	no exit to the debugger is possible with user interrupts disabled.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2758	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	2759
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2760	self disableSignal:(self sigBREAK).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2761	self disableSignal:(self sigINT).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2762	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2763
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2764	enableAbortInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2765	"enable abort signalhandling, and make it a regular signalInterrupt.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2766	(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	2767	end-user applications ...).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2768	This is especially useful, if linked-in C-libraries call abort() ..."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2769
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2770	self enableSignal:(self sigABRT)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2771	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2772
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2773	enableChildSignalInterrupts
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2774	"enable childSignal interrupts
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2775	(SIGCHLD, if the architecture supports it).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2776	After enabling, these signals will send the message
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2777	'childSignalInterrupt' to the ChildSignalInterruptHandler object."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2778
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2779	self enableSignal:(self sigCHLD)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2780	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2781
6389 8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2782	enableCrashSignalInterrupts
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2783	"enable powerFail signal exception interrupts (sigPWR).
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2784	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	2785
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2786	self enableSignal:(self sigPWR).
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2787	self enableSignal:(self sigHUP)
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2788	!
8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2789
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2790	enableFpExceptionInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2791	"enable floating point exception interrupts (if the
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2792	architecture supports it).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2793	After enabling, fpu-exceptions will send the message
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2794	'fpuExceptionInterrupt' to the FPUExceptionInterruptHandler object."
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 sigFP)
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	enableHardSignalInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2800	"enable hard signal exception interrupts (trap, buserror & segm. violation).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2801	After enabling, these exceptions will send the message
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2802	'signalInterrupt' to the SignalInterruptHandler object."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2803
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2804	"/ leads to trouble ...
6389 8a411236dce0 Catxh sigPWR and sigHUP Stefan Vogel <sv@exept.de> parents: 6367 diff changeset	2805	"/ self enableSignal:(self sigPIPE).
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2806	"/ ... 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	2807
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2808	self disableSignal:(self sigPIPE).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2809
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2810	self enableSignal:(self sigILL).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2811	self enableSignal:(self sigBUS).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2812	self enableSignal:(self sigSEGV).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2813	self enableSignal:(self sigFP).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2814	self enableSignal:(self sigEMT).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2815	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2816
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2817	enableIOInterruptsOn:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2818	"turn on IO interrupts for a filedescriptor"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2819
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2820	self subclassResonsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2823	enableQuitInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2824	"enable quitInterrupt (usually ^\) handling, and make it a userInterrupt.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2825	(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	2826	end-user applications ...)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2827
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2828	self enableSignal:(self sigQUIT)
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2831	enableSignal:signalNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2832	"enable (Unix-)signal processing for signalNumber.
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2833	Don't confuse Unix signals with smalltalk signals.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2834	The signal will be delivered to one of the standard handlers
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2835	(SIGINT, SIGQUIT, etc) or to a general handler, which
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2836	sends #signalInterrupt:.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2837
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2838	NOTICE that signal numbers are not portable between unix
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2839	systems - use OperatingSystem sigXXX to get the numeric value for
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2840	a signal."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2841
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2842	self subclassResponsibility
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2843	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2844
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2845	enableTimer:milliSeconds
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2846	"setup for a timerInterrupt, to be signalled after some (real) time."
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	self subclassResonsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2849	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2850
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2851	enableUserInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2852	"enable userInterrupt (^C) handling;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2853	when enabled, ^C in the terminal window will send the message
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2854	'userInterrupt' to the UserInterruptHandler object."
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	self enableSignal:(self sigINT).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2857	self enableSignal:(self sigBREAK).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2858	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2859
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2860	interruptPending
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2861	"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	2862	invalid if interrupts are not currently blocked, since otherwise
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2863	the interrupt is usually already handled before arriving here,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2864	or may be served while returning from here."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2865
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2866	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2867	extern OBJ __INTERRUPTPENDING();
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2868
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2869	RETURN ( __INTERRUPTPENDING() );
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2870	%}
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2871	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2872
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2873	interruptsBlocked
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2874	"return true, if interrupt handling is currently disabled;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2875	false otherwise."
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	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2878	extern OBJ __INTERRUPTS_BLOCKED();
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2879
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2880	RETURN ( __INTERRUPTS_BLOCKED() );
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	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2883
6536 bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2884	isFatalSignal:aNumber
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2885	"return true if a signal with number aNumber is a fatal signal,
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2886	i.e. some severe internal error occured"
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2887
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2888	^ self subclassResponsibility
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2889	!
bcbce3402340 New: #isFatalSignal: Stefan Vogel <sv@exept.de> parents: 6530 diff changeset	2890
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2891	killProcess:processId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2892	"kill an OS process.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2893	The process has a no chance to do some cleanup.
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	WARNING: in order to avoid zombie processes (on unix),
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2896	you may have to fetch the processes exitstatus with
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2897	OperatingSystem>>getStatusOfProcess:aProcessId."
3576 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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2900
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2901	"Modified: / 10.6.1998 / 12:00:07 / cg"
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2904	killProcessGroup:processGroupId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2905	"kill an OS process group.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2906	The process has NO chance to do some cleanup.
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	WARNING: in order to avoid zombie processes (on unix),
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2909	you may have to fetch the processes exitstatus with
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2910	OperatingSystem>>getStatusOfProcess:aProcessId."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2911
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2912	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2913
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2914	"Created: / 10.6.1998 / 12:00:26 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2915	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2916
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2917	nameForSignal:aSignalNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2918	"for a given Unix signalnumber, return a descriptive string"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2919
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2920	aSignalNumber == self sigHUP ifTrue:[^ 'hangup'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2921	aSignalNumber == self sigINT ifTrue:[^ 'interrupt'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2922	aSignalNumber == self sigKILL ifTrue:[^ 'kill'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2923	aSignalNumber == self sigQUIT ifTrue:[^ 'quit'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2924	aSignalNumber == self sigILL ifTrue:[^ 'illegal instruction'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2925	aSignalNumber == self sigTRAP ifTrue:[^ 'trap'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2926	aSignalNumber == self sigABRT ifTrue:[^ 'abort'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2927	aSignalNumber == self sigIOT ifTrue:[^ 'iot trap'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2928	aSignalNumber == self sigEMT ifTrue:[^ 'emt trap'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2929	aSignalNumber == self sigFP ifTrue:[^ 'fp exception'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2930	aSignalNumber == self sigBUS ifTrue:[^ 'bus error'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2931	aSignalNumber == self sigSEGV ifTrue:[^ 'segmentation violation'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2932	aSignalNumber == self sigSYS ifTrue:[^ 'bad system call'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2933	aSignalNumber == self sigPIPE ifTrue:[^ 'broken pipe'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2934	aSignalNumber == self sigALRM ifTrue:[^ 'alarm timer'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2935	aSignalNumber == self sigTERM ifTrue:[^ 'termination'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2936	aSignalNumber == self sigSTOP ifTrue:[^ 'stop'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2937	aSignalNumber == self sigTSTP ifTrue:[^ 'tty stop'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2938	aSignalNumber == self sigCONT ifTrue:[^ 'continue'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2939	aSignalNumber == self sigCHLD ifTrue:[^ 'child death'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2940	aSignalNumber == self sigTTIN ifTrue:[^ 'background tty input'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2941	aSignalNumber == self sigTTOU ifTrue:[^ 'background tty output'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2942	aSignalNumber == self sigIO ifTrue:[^ 'io available'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2943	aSignalNumber == self sigXCPU ifTrue:[^ 'cpu time expired'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2944	aSignalNumber == self sigXFSZ ifTrue:[^ 'file size limit'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2945	aSignalNumber == self sigVTALRM ifTrue:[^ 'virtual alarm timer'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2946	aSignalNumber == self sigPROF ifTrue:[^ 'profiling timer'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2947	aSignalNumber == self sigWINCH ifTrue:[^ 'winsize changed'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2948	aSignalNumber == self sigLOST ifTrue:[^ 'resource lost'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2949	aSignalNumber == self sigUSR1 ifTrue:[^ 'user signal 1'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2950	aSignalNumber == self sigUSR2 ifTrue:[^ 'user signal 2'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2951	aSignalNumber == self sigMSG ifTrue:[^ 'HFT message'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2952	aSignalNumber == self sigPWR ifTrue:[^ 'power-fail'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2953	aSignalNumber == self sigPRE ifTrue:[^ 'programming exception'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2954	aSignalNumber == self sigGRANT ifTrue:[^ 'HFT access wanted'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2955	aSignalNumber == self sigRETRACT ifTrue:[^ 'HFT access relinquish'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2956	aSignalNumber == self sigSOUND ifTrue:[^ 'HFT sound complete'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2957	aSignalNumber == self sigDANGER ifTrue:[^ 'low on paging space'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2958
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2959	"notice: many systems map SIGPOLL and/or SIGUSR onto SIGIO
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2960	therefore, keep SIGIO always above the two below"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2961	aSignalNumber == self sigPOLL ifTrue:[^ 'io available'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2962	aSignalNumber == self sigURG ifTrue:[^ 'urgent'].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2963
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2964	^ 'unknown signal'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2965
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2966	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2967	OperatingSystem nameForSignal:9
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2968	OperatingSystem nameForSignal:(OperatingSystem sigPOLL)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2969	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2970	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2971
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2972	operatingSystemSignal:signalNumber
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	2973	"return the signal to be raised when an
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2974	operatingSystem-signal occurs, or nil"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2975
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2976	OSSignals notNil ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2977	^ OSSignals at:signalNumber ifAbsent:[nil]
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2978	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2979	^ nil
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2980	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2981
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2982	operatingSystemSignal:signalNumber install:aSignal
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2983	"install a signal to be raised when an operatingSystem-signal occurs"
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	OSSignals isNil ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	2986	OSSignals := Array new:32
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2987	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2988	OSSignals at:signalNumber put:aSignal
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2991	sendSignal:signalNumber to:processId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2992	"send a unix signal to some process (maybe myself).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2993	Returns false if any error occurred, true otherwise.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2994
8587 6d079a8fb5aa Fix typos. Stefan Vogel <sv@exept.de> parents: 8565 diff changeset	2995	Do not confuse UNIX signals with Smalltalk-Signals."
3576 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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2998	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	2999
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3000	startSpyTimer
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3001	"trigger a spyInterrupt, to be signalled after some short (virtual) time.
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	3002	Return true, if the spy-timerInterrupt was enabled.
4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	3003	This was used by the old MessageTally for profiling.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3004	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	3005	(which is of course less correct).
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3006	OBSOLETE: the new messageTally runs as a high prio process, not using
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3007	spy interrupts."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3008
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	3009	^ false
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3010	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3011
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3012	stopSpyTimer
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3013	"stop spy timing - disable spy timer.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3014	OBSOLETE: the new messageTally runs as a high prio process, not using
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3015	spy interrupts."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3016
4200 4f4ce9a95512 documentation updated; Claus Gittinger <cg@exept.de> parents: 4149 diff changeset	3017	^ false
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3018	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3019
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3020	terminateProcess:processId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3021	"terminate a unix process.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3022	The process has a chance to do some cleanup.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3023
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3024	WARNING: in order to avoid zombie processes (on unix),
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3025	you may have to fetch the processes exitstatus with
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3026	OperatingSystem>>getStatusOfProcess:aProcessId."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3027
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3028	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3029	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3030
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3031	terminateProcessGroup:processGroupId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3032	"terminate a unix process group.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3033	The process has a chance to do some cleanup.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3034
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3035	WARNING: in order to avoid zombie processes (on unix),
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3036	you may have to fetch the processes exitstatus with
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3037	OperatingSystem>>getStatusOfProcess:aProcessId."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3038
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3039	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3040	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3041
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3042	unblockInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3043	"enable interrupt processing - if any interrupts are pending,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3044	these will be handled immediately.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3045	When unblocking interrupts, take care of nested block/unblock
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3046	calls - you must only unblock after a blockcall if they where
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3047	really not blocked before. See OperatingSystemclass>>blockInterrupts."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3048	%{
8505 4456ffd20005 #unblockInterrupts returns the prvious blocking state Stefan Vogel <sv@exept.de> parents: 8497 diff changeset	3049	RETURN(__UNBLOCKINTERRUPTS());
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3050	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3051	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3052
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3053	!AbstractOperatingSystem class methodsFor:'misc'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3054
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3055	closePid:pid
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3056	"free pid resource"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3057
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3058	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3059	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3060
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3061	exit
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3062	"shutdown smalltalk immediately - this method does not return.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3063	Return 'good'-status (0) to the parent unix process."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3064
5429 f4a52365fc97 checkin from browser Claus Gittinger <cg@exept.de> parents: 5407 diff changeset	3065	self exit:0.
f4a52365fc97 checkin from browser Claus Gittinger <cg@exept.de> parents: 5407 diff changeset	3066
8804 b7eefb374b37 spelling in comments Stefan Vogel <sv@exept.de> parents: 8801 diff changeset	3067	"OperatingSystem exit - don't evaluate this"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3068	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3069
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3070	exit:exitCode
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3071	"shutdown smalltalk immediately -
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3072	returning an exit-code to the parent unix process."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3073
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3074	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3075	int code = 1;
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	if (__isSmallInteger(exitCode)) {
8804 b7eefb374b37 spelling in comments Stefan Vogel <sv@exept.de> parents: 8801 diff changeset	3078	code = __intVal(exitCode);
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3079	}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3080	__mainExit(code);
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3081	%}
8804 b7eefb374b37 spelling in comments Stefan Vogel <sv@exept.de> parents: 8801 diff changeset	3082	"OperatingSystem exit:1 - don't evaluate this"
3576 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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3085	exitWithCoreDump
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3086	"shutdown smalltalk immediately - dumping core.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3087	This always returns 'bad'-status to the parent unix process.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3088	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	3089	manually remove any tempfiles.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3090	Use this only for debugging ST/X itself"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3091
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3092	%{ /* NOCONTEXT */
10293 9cd817cd6bc9 Declare abort() Stefan Vogel <sv@exept.de> parents: 10097 diff changeset	3093	extern void abort();
9cd817cd6bc9 Declare abort() Stefan Vogel <sv@exept.de> parents: 10097 diff changeset	3094
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3095	abort();
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3096	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3097	"
8804 b7eefb374b37 spelling in comments Stefan Vogel <sv@exept.de> parents: 8801 diff changeset	3098	OperatingSystem exitWithCoreDump - don't evaluate this
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3099	"
7170 19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3100	!
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3101
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3102	getVMSSymbol:aSymbolString
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3103	"get a symbols value, or nil if there is none"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3104
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3105	^ nil
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3106
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3107	"Created: / 5.6.1998 / 19:02:50 / cg"
19558aa463e0 Environment in #executeCommand:... Stefan Vogel <sv@exept.de> parents: 7135 diff changeset	3108	"Modified: / 5.6.1998 / 19:03:15 / cg"
11768 23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3109	!
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3110
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3111	playSound:fileName
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3112	"unsupported - simply stay silent"
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3113
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3114	^ self.
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3115	!
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3116
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3117	playSound:fileName mode:modeInteger
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3118	"unsupported - simply stay silent"
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3119
23c03ba4d970 playsound fallback Claus Gittinger <cg@exept.de> parents: 11760 diff changeset	3120	^ self.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3121	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3122
7289 ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3123	!AbstractOperatingSystem class methodsFor:'obsolete'!
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3124
8236 ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3125	baseNameOf:aPath
ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3126	<resource:#obsolete>
ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3127
ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3128	self obsoleteMethodWarning:'use asFilename baseName'.
ba1fb1af54fb category change Stefan Vogel <sv@exept.de> parents: 8137 diff changeset	3129	^ aPath asFilename baseName
7289 ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3130	! !
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3131
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3132	!AbstractOperatingSystem class methodsFor:'os queries'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3133
3806 37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3134	getCCDefine
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3135	"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	3136	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	3137	For example, on linux, this is '__GNUC__';
3806 37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3138	on windows, this is either '__MSC__' or '__BORLANDC__'"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3139
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3140	%{ /* NOCONTEXT */
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3141	#ifndef CC_DEFINE
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3142	# ifdef WIN32
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3143	# ifdef __BORLANDC__
3829 4690e0bc7ce7 added isWINDOWSNT query Claus Gittinger <cg@exept.de> parents: 3826 diff changeset	3144	# define CC_DEFINE "__BORLANDC__"
3806 37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3145	# else
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3146	# define CC_DEFINE "__MSC__"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3147	# endif
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3148	# else
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3149	# ifdef __GNUC__
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3150	# define CC_DEFINE "__GNUC__"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3151	# else
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3152	# define CC_DEFINE "__CC__"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3153	# endif
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3154	# endif
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3155	#endif
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3156	RETURN ( __MKSTRING(CC_DEFINE));
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3157	%}
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3158	"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3159	OperatingSystem getCCDefine
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3160	"
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3161	!
37595c95381f * empty log message * Claus Gittinger <cg@exept.de> parents: 3797 diff changeset	3162
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3163	getCPUDefine
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3164	"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	3165	compiled, and which should be passed down when compiling methods.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3166	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	3167	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	3168	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	3169
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3170	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3171	# ifndef CPU_DEFINE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3172	# define CPU_DEFINE "-DunknownCPU"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3173	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3174
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3175	RETURN ( __MKSTRING(CPU_DEFINE));
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3176	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3177	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3178	OperatingSystem getCPUDefine
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3179	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3180	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3181
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3182	getCPUType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3183	"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	3184	Here, the machine for which ST/X was compiled is returned
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3185	(i.e. for all x86's, the same i386 is returned).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3186	This may normally not be of any interest to you ..."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3187
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3188	\|cpu\|
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3189
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3190	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3191
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3192	# ifdef __vax__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3193	# define CPU_SYMBOL @symbol(vax)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3194	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3195	# ifdef __mips__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3196	# define CPU_SYMBOL @symbol(mips)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3197	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3198	# ifdef __i386__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3199	# define CPU_SYMBOL @symbol(i386)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3200	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3201	# ifdef __i860__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3202	# define CPU_SYMBOL @symbol(i860)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3203	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3204	# ifdef __ns32k__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3205	# define CPU_SYMBOL @symbol(ns32k)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3206	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3207	# ifdef __mc68k__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3208	# define CPU_SYMBOL @symbol(mc68k)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3209	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3210	# ifdef __mc88k__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3211	# define CPU_SYMBOL @symbol(mc88k)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3212	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3213	# ifdef __sparc__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3214	# define CPU_SYMBOL @symbol(sparc)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3215	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3216	# ifdef __hppa__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3217	# define CPU_SYMBOL @symbol(hppa)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3218	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3219	# ifdef __rs6000__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3220	# define CPU_SYMBOL @symbol(rs6000)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3221	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3222	# ifdef __powerPC__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3223	# define CPU_SYMBOL @symbol(powerPC)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3224	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3225	# ifdef __alpha__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3226	# define CPU_SYMBOL @symbol(alpha)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3227	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3228	# ifdef __transputer__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3229	# define CPU_SYMBOL @symbol(transputer)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3230	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3231	# ifdef __ibm370__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3232	# define CPU_SYMBOL @symbol(ibm370)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3233	# endif
8901 824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3234	# ifdef __s390__
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3235	# define CPU_SYMBOL @symbol(s390)
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3236	# endif
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3237	# ifdef __arm__
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3238	# define CPU_SYMBOL @symbol(arm)
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3239	# endif
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3240	# ifdef __ia64__
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3241	# define CPU_SYMBOL @symbol(ia64)
824a89d0b5c7 alpha64 vs. POINTER_SIZE cleanup Claus Gittinger <cg@exept.de> parents: 8887 diff changeset	3242	# endif
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3243
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3244	# ifndef CPU_SYMBOL
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3245	# define CPU_SYMBOL @symbol(unknown)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3246	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3247
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3248	cpu = CPU_SYMBOL;
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3249	# undef CPU_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3250	%}.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3251	^ cpu
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3252
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3253	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3254	OperatingSystem getCPUType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3255	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3256
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3257	"examples: are we running on a ss-10/solaris ?"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3258	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3259	(OperatingSystem getCPUType = 'sparc')
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3260	and:[OperatingSystem getOSType = 'solaris']
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3261	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3262
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3263	"or on a pc/solaris ?"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3264	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3265	(OperatingSystem getCPUType = 'i386')
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3266	and:[OperatingSystem getOSType = 'solaris']
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3267	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3268	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3269
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3270	getDomainName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3271	"return the domain this host is in.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3272	Notice:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3273	not all systems support this; on some, 'unknown' is returned."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3274
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3275	self subclassResponsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3278	getEnvironment:aStringOrSymbol
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3279	"get an environment string"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3280
5407 d6729266a95b * empty log message * Claus Gittinger <cg@exept.de> parents: 5172 diff changeset	3281	^ self subclassResponsibility
3576 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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3284	getHostName
12959 4fc6924e462f comment/format in: #getHostName Stefan Vogel <sv@exept.de> parents: 12826 diff changeset	3285	"return the hostname we are running on -
4fc6924e462f comment/format in: #getHostName Stefan Vogel <sv@exept.de> parents: 12826 diff changeset	3286	a fully qalified hostname at best.
4fc6924e462f comment/format in: #getHostName Stefan Vogel <sv@exept.de> parents: 12826 diff changeset	3287
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3288	Notice:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3289	not all systems support this; on some, 'unknown' is returned."
3576 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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3292	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3293
7778 cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3294	getLanguage
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3295	"get the LANGUAGE setting (example: de_DE.iso8859-15@euro)"
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3296
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3297	^ self getEnvironment:'LANG'.
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3298	!
cbbd8c2faccc Language stuff: define #getLanguage Stefan Vogel <sv@exept.de> parents: 7770 diff changeset	3299
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3300	getLocaleInfo
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3301	"return a dictionary filled with values from the locale information;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3302	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	3303	Possible fields are:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3304	decimalPoint <String>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3305
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3306	thousandsSep <String>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3307
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3308	internationalCurrencySymbol <String>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3309
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3310	currencySymbol <String>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3311
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3312	monetaryDecimalPoint <String>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3313
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3314	monetaryThousandsSeparator <String>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3315
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3316	positiveSign <String>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3317
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3318	negativeSign <String>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3319
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3320	internationalFractionalDigits <Integer>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3321
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3322	fractionalDigits <Integer>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3323
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3324	positiveSignPrecedesCurrencySymbol <Boolean>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3325
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3326	negativeSignPrecedesCurrencySymbol <Boolean>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3327
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3328	positiveSignSeparatedBySpaceFromCurrencySymbol <Boolean>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3329
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3330	negativeSignSeparatedBySpaceFromCurrencySymbol <Boolean>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3331
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3332	positiveSignPosition <Symbol>
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3333	one of: #parenthesesAround,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3334	#signPrecedes,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3335	#signSuceeds,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3336	#signPrecedesCurrencySymbol,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3337	#signSuceedsCurrencySymbol
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3338
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3339	negativeSignPosition <like above>
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3340
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3341	it is up to the application to deal with undefined values.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3342
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3343	Notice, that (for now), the system does not use this information;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3344	it should be used by applications as required.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3345	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3346
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3347	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3348	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3349
8997 e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3350	getNetworkAddresses
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3351	"return a dictionary with key:name of interface and
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3352	value:the network address for each interface"
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3353
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3354	self subclassResponsibility
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3355	!
e6f0f9b71488 new: #getNetworkAddresses Stefan Vogel <sv@exept.de> parents: 8967 diff changeset	3356
7289 ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3357	getNetworkMACAddresses
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3358	"return a dictionary with key:name of interface and
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3359	value:the MAC adress for each interface"
6363 4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3360
4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3361	self subclassResponsibility
4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3362	!
4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3363
7289 ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3364	getNetworkMACAddressesForIf:ifName
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3365	"return the MAC adress for interface ifName"
ae352d72ec31 Spelling (#getNetworkMACAddresses). Stefan Vogel <sv@exept.de> parents: 7258 diff changeset	3366
8641 1b45626f0e50 noMacAddress fallBack (NT4.0) Claus Gittinger <cg@exept.de> parents: 8587 diff changeset	3367	self getNetworkMACAddresses at:ifName ifAbsent:nil
1b45626f0e50 noMacAddress fallBack (NT4.0) Claus Gittinger <cg@exept.de> parents: 8587 diff changeset	3368
1b45626f0e50 noMacAddress fallBack (NT4.0) Claus Gittinger <cg@exept.de> parents: 8587 diff changeset	3369	"Modified: / 17-11-2004 / 01:43:35 / cg"
6363 4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3370	!
4232bede2400 add MAC adress access penk parents: 6292 diff changeset	3371
10684 b5ca16223480 * empty log message * sr parents: 10545 diff changeset	3372	getNumberOfProcessors
12642 fb3cd8883f7e remove unused and unimplemented subclass responsibility methods. Stefan Vogel <sv@exept.de> parents: 12639 diff changeset	3373	"answer the number of physical processors in the system"
fb3cd8883f7e remove unused and unimplemented subclass responsibility methods. Stefan Vogel <sv@exept.de> parents: 12639 diff changeset	3374
10684 b5ca16223480 * empty log message * sr parents: 10545 diff changeset	3375	self subclassResponsibility
b5ca16223480 * empty log message * sr parents: 10545 diff changeset	3376	!
b5ca16223480 * empty log message * sr parents: 10545 diff changeset	3377
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3378	getOSDefine
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3379	"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	3380	compiled, and which should be passed down when compiling methods.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3381	For example, on linux, this is '-DLINUX'."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3382
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3383	%{ /* NOCONTEXT */
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3384
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3385	#ifndef OS_DEFINE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3386	# ifdef WIN32
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3387	# define OS_DEFINE "-DWIN32"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3388	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3389
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3390	# ifndef OS_DEFINE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3391	# define OS_DEFINE "-DunknownOS"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3392	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3393	#endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3394
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3395	RETURN ( __MKSTRING(OS_DEFINE));
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3396
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3397	#undef OS_DEFINE
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3398	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3399	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3400	OperatingSystem getOSDefine
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3401	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3402	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3403
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3404	getOSType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3405	"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	3406	This can be used to adapt programs to certain environment
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3407	differences (for example: mail-lock strategy ...)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3408
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3409	\|os\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3410
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3411	%{ /* NOCONTEXT */
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	# ifdef MSDOS
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3414	# define OS_SYMBOL @symbol(msdos)
3576 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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3417	# ifdef WIN32
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3418	# define OS_SYMBOL @symbol(win32)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3419	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3420
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3421	# ifdef MSWINDOWS
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3422	# define OS_SYMBOL @symbol(mswindows)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3423	# endif
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	# ifdef VMS
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3426	# ifdef __openVMS__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3427	# define OS_SYMBOL @symbol(openVMS)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3428	# else
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3429	# define OS_SYMBOL @symbol(VMS)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3430	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3431	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3432
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3433	# ifdef MVS /* ;-) */
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3434	# define OS_SYMBOL @symbol(mvs)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3435	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3436
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3437	# ifdef OS2
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3438	# define OS_SYMBOL @symbol(os2)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3439	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3440
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3441	# ifdef sinix
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3442	# define OS_SYMBOL @symbol(sinix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3443	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3444
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3445	# ifdef ultrix
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3446	# define OS_SYMBOL @symbol(ultrix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3447	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3448
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3449	# ifdef sco
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3450	# define OS_SYMBOL @symbol(sco)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3451	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3452
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3453	# ifdef hpux
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3454	# define OS_SYMBOL @symbol(hpux)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3455	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3456
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3457	# ifdef LINUX
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3458	# define OS_SYMBOL @symbol(linux)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3459	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3460
6651 4bc133e27717 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	3461	# ifdef FREEBSD
4bc133e27717 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	3462	# define OS_SYMBOL @symbol(freeBSD)
4bc133e27717 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	3463	# endif
4bc133e27717 * empty log message * Claus Gittinger <cg@exept.de> parents: 6618 diff changeset	3464
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3465	# ifdef sunos
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3466	# define OS_SYMBOL @symbol(sunos)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3467	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3468
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3469	# ifdef solaris
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3470	# define OS_SYMBOL @symbol(solaris)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3471	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3472
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3473	# ifdef IRIS
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3474	# define OS_SYMBOL @symbol(irix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3475	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3476
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3477	# ifdef aix
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3478	# define OS_SYMBOL @symbol(aix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3479	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3480
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3481	# ifdef realIX
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3482	# define OS_SYMBOL @symbol(realIX)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3483	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3484
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3485	# ifdef __osf__
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3486	# define OS_SYMBOL @symbol(osf)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3487	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3488
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3489	/*
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3490	* no concrete info; become somewhat vague ...
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3491	*/
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3492	# ifndef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3493	# ifdef MACH
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3494	# define OS_SYMBOL @symbol(mach)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3495	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3496	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3497
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3498	# ifndef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3499	# ifdef BSD
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3500	# define OS_SYMBOL @symbol(bsd)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3501	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3502
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3503	# ifdef SYSV
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3504	# ifdef SYSV3
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3505	# define OS_SYMBOL @symbol(sys5_3)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3506	# else
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3507	# ifdef SYSV4
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3508	# define OS_SYMBOL @symbol(sys5_4)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3509	# else
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3510	# define OS_SYMBOL @symbol(sys5)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3511	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3512	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3513	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3514	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3515
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3516	/*
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3517	* become very vague ...
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3518	*/
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3519	# ifndef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3520	# ifdef POSIX
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3521	# define OS_SYMBOL @symbol(posix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3522	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3523	# endif
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3524	# ifndef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3525	# ifdef UNIX
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3526	# define OS_SYMBOL @symbol(unix)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3527	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3528	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3529
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3530	# ifndef OS_SYMBOL
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3531	# define OS_SYMBOL @symbol(unknown)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3532	# endif
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3533
6530 fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3534	os = OS_SYMBOL;
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3535
fb683e5bfe04 Return cpu and os type as symbols Stefan Vogel <sv@exept.de> parents: 6421 diff changeset	3536	# undef OS_SYMBOL
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3537	%}.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3538	^ os
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	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3541	OperatingSystem getOSType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3542	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3543	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3544
9698 e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3545	getPlatformDefine
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3546	"return a string which defines the platform,
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3547	and which should be passed down when compiling methods.
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3548	For example, on all unices, this is '-DUNIX'."
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3549
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3550	%{ /* NOCONTEXT */
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3551
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3552	#ifndef PLATFORM_DEFINE
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3553	# ifdef WIN32
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3554	# define PLATFORM_DEFINE "-DWIN32"
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3555	# endif
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3556	# ifdef OS2
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3557	# define PLATFORM_DEFINE "-DOS2"
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3558	# endif
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3559	# ifdef BEOS
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3560	# define PLATFORM_DEFINE "-DBEOS"
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3561	# endif
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3562	# ifdef MACOS
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3563	# define PLATFORM_DEFINE "-DMACOS"
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3564	# endif
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3565	# ifdef VMS
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3566	# define PLATFORM_DEFINE "-DVMS"
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3567	# endif
9698 e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3568	# ifndef PLATFORM_DEFINE
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3569	# define PLATFORM_DEFINE "-DUNIX"
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3570	# endif
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3571	#endif
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	RETURN ( __MKSTRING(PLATFORM_DEFINE));
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	"
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3576	OperatingSystem getPlatformDefine
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3577	"
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3578	!
e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3579
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3580	getProcessId
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3581	"return the (unix-)processId"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3582
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3583	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3584	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3585
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3586	getSystemID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3587	"if supported by the OS, return the systemID;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3588	a unique per machine identification.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3589	WARNING:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3590	not all systems support this; on some, 'unknown' is returned."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3591
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3592	^ 'unknown'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3593
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3594	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3595	OperatingSystem getSystemID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3596	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3597	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3598
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3599	getSystemInfo
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3600	"return info on the system weare running on.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3601	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	3602	otherwise, some simulated info is returned.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3603
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3604	WARNING:
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3605	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	3606	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	3607	OS, for example, linux returns 'ix86', while WIN32 returns 'x86'.
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	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	3610	information.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3611	(in case of system/version specific OS errors, conditional workarounds and patches
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3612	may be based upon this info).
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3613	Your application should NOT depend upon this in any way.
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	The returned info may (or may not) contain:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3616	#system -> some operating system identification (irix, Linux, nt, win32s ...)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3617	#version -> OS version (some os version identification)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3618	#release -> OS release (3.5, 1.2.1 ...)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3619	#node -> some host identification (hostname)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3620	#domain -> domain name (hosts domain)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3621	#machine -> type of machine (i586, mips ...)
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3622	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3623
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3624	\|info\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3625
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3626	info := IdentityDictionary new.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3627	info at:#system put:(self getSystemType).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3628	info at:#node put:(self getHostName).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3629	info at:#machine put:(self getCPUType).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3630	info at:#architecture put:'unknown'.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3631	info at:#domain put:self getDomainName.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3632	info at:#osType put:(self getOSType).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3633	^ info
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3634
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3635	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3636	OperatingSystem getSystemInfo
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	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3639
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3640	getSystemType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3641	"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	3642	This is almost the same as getOSType, but the returned string
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3643	is slightly different for some systems (i.e. iris vs. irix).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3644	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	3645	here ...
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3646	(except for slight differences between next/mach and other machs)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3647
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3648	^ self getOSType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3649
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3650	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3651	OperatingSystem getSystemType
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3652	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3653	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3654
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3655	getWindowsDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3656	"internal interface - only for Windows based systems.
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3657	Return the windows directory, which, depending on the system,
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3658	may be
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3659	'\WINNT', '\WINDOWS'
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3660	or whatever.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3661	On non-windows systems, nil is returned."
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	^ nil
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3664
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3665	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3666	OperatingSystem getWindowsDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3667	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3668	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3669
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3670	getWindowsSystemDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3671	"internal interface - only for Windows based systems.
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3672	Return the windows system directory, which, depending on the system,
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3673	may be
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3674	'\WINNT\SYSTEM32', '\WINDOWS\SYSTEM'
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3675	or whatever.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3676	On non-windows systems, nil is returned."
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	^ nil
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3679
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3680	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3681	OperatingSystem getWindowsSystemDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3682	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3683	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3684
4207 89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3685	hasConsole
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3686	"return true, if there is some kind of console available
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3687	(i.e. for proper stdIn, stdOut and stdErr handling).
5918 0d8bc97e7106 * empty log message * Claus Gittinger <cg@exept.de> parents: 5861 diff changeset	3688	This only returns false when running under windows, and
4207 89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3689	the system is running as a pure windows application.
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3690	If false, the miniDebugger is useless and not used."
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3691
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3692	^ true
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3693	!
89e62aeb5690 * empty log message * Claus Gittinger <cg@exept.de> parents: 4204 diff changeset	3694
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3695	isBSDlike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3696	"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	3697
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3698	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3699	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3700
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3701	isMAClike
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3702	"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	3703
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3704	^ false
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	isMSDOSlike
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3708	"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	3709	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	3710
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3711	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3712	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3713
3901 3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3714	isMSWINDOWSNTlike
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3715	"This returns true if running in a Windows-NT system."
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3716
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3717	^ false.
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3718	!
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3719
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3720	isMSWINDOWSlike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3721	"return true, if running on a MS-Windows like system.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3722	This returns true for any of win32s, win95 and winNT."
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	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3725	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3726
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3727	isOS2like
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3728	"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	3729	Only returns true for a plain OS/2 system."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3730
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3731	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3732	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3733
12639 3fb86517d4a7 added: #isProcessIdPresent: Stefan Vogel <sv@exept.de> parents: 12604 diff changeset	3734	isProcessIdPresent:pid
3fb86517d4a7 added: #isProcessIdPresent: Stefan Vogel <sv@exept.de> parents: 12604 diff changeset	3735	"answer true, if a process with process id pid is present, false if not.
3fb86517d4a7 added: #isProcessIdPresent: Stefan Vogel <sv@exept.de> parents: 12604 diff changeset	3736	Raise an error, if an exception occures"
3fb86517d4a7 added: #isProcessIdPresent: Stefan Vogel <sv@exept.de> parents: 12604 diff changeset	3737
3fb86517d4a7 added: #isProcessIdPresent: Stefan Vogel <sv@exept.de> parents: 12604 diff changeset	3738	^ self subclassResponsibility
3fb86517d4a7 added: #isProcessIdPresent: Stefan Vogel <sv@exept.de> parents: 12604 diff changeset	3739	!
3fb86517d4a7 added: #isProcessIdPresent: Stefan Vogel <sv@exept.de> parents: 12604 diff changeset	3740
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3741	isUNIXlike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3742	"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	3743
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3744	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3745	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3746
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3747	isVMSlike
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3748	"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	3749
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3750	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3751	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3752
9697 d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3753	knownPlatformNames
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3754	"return a collection of strings as possibly returned by getPlatformName.
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3755	Should be used instead of getOSType or getSystemType if multiple choice
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3756	dialogs are presented to the user."
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3757
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3758	^#(
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3759	win32
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3760	os2 "/ actually - this is no longer true
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3761	macos "/ actually - this is no longer true
9697 d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3762	vms "/ actually - this is no longer true
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3763	beos "/ actually - this was never true
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3764	unix
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3765	)
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3766
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3767	"
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3768	OperatingSystem knownPlatformNames
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3769	OperatingSystem platformName
9698 e8e27fbaa232 +getPlatformDefine; knownPlatformNames Claus Gittinger <cg@exept.de> parents: 9697 diff changeset	3770	OperatingSystem getPlatformDefine
9697 d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3771	"
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3772
d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3773	"Modified: 20.6.1997 / 17:37:26 / cg"
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
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3776	maxFileNameLength
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3777	"return the max number of characters in a filename.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3778	CAVEAT:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3779	Actually, the following is somewhat wrong - some systems
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3780	support different sizes, depending on the volume.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3781	We return a somewhat conservative number here.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3782	Another entry, to query for volume specific max
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	3783	will be added in the future."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3784
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3785	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3786	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3787
6578 e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3788	maxNumberOfOpenFiles
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3789	"answer the maximum number of open files for this process"
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3790
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3791	^ self subclassResponsibility
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3792	!
e709ab0b9bff #maxNumberOfOpenFiles Stefan Vogel <sv@exept.de> parents: 6536 diff changeset	3793
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3794	maxPathLength
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3795	"return the max number of characters in a pathName."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3796
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3797	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3798	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3799
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3800	pathSeparator
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3801	"return the character which separates items in the PATH variable"
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	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3804	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3805
9700 abcbfeb235b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9699 diff changeset	3806	platformDefineForPlatformName:osID
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3807	"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	3808
12543 0ccfdbd164d6 changed: #platformDefineForPlatformName: Stefan Vogel <sv@exept.de> parents: 11846 diff changeset	3809	osID = #win32 ifTrue:[ ^ '-DWIN32'].
0ccfdbd164d6 changed: #platformDefineForPlatformName: Stefan Vogel <sv@exept.de> parents: 11846 diff changeset	3810	osID = #os2 ifTrue:[ ^ '-DOS2'].
0ccfdbd164d6 changed: #platformDefineForPlatformName: Stefan Vogel <sv@exept.de> parents: 11846 diff changeset	3811	osID = #macos ifTrue:[ ^ '-DMACOS'].
0ccfdbd164d6 changed: #platformDefineForPlatformName: Stefan Vogel <sv@exept.de> parents: 11846 diff changeset	3812	osID = #beos ifTrue:[ ^ '-DBEOS'].
0ccfdbd164d6 changed: #platformDefineForPlatformName: Stefan Vogel <sv@exept.de> parents: 11846 diff changeset	3813	osID = #vms ifTrue:[ ^ '-DVMS'].
0ccfdbd164d6 changed: #platformDefineForPlatformName: Stefan Vogel <sv@exept.de> parents: 11846 diff changeset	3814	osID = #unix ifTrue:[ ^ '-DUNIX'].
9699 9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3815	self error:'unknown os'.
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3816
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3817	"
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3818	OperatingSystem platformDefineForName:(OperatingSystem platformName)
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3819	"
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3820
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3821	"Modified: 20.6.1997 / 17:37:26 / cg"
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3822	!
9e706dd0ccc8 * empty log message * Claus Gittinger <cg@exept.de> parents: 9698 diff changeset	3823
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3824	platformName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3825	"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	3826	This returns #unix for all unix derivatives.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3827	I.e. it is much less specific than getOSType or getSystemType."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3828
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3829	\|os\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3830
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3831	os := self getSystemType.
11170 ced52c04b215 #platformName - answer symbols Stefan Vogel <sv@exept.de> parents: 11166 diff changeset	3832	os = #win32 ifTrue:[ ^ #win32].
ced52c04b215 #platformName - answer symbols Stefan Vogel <sv@exept.de> parents: 11166 diff changeset	3833	os = #os2 ifTrue:[ ^ #os2].
ced52c04b215 #platformName - answer symbols Stefan Vogel <sv@exept.de> parents: 11166 diff changeset	3834	os = #macos ifTrue:[ ^ #macos].
ced52c04b215 #platformName - answer symbols Stefan Vogel <sv@exept.de> parents: 11166 diff changeset	3835	os = #VMS ifTrue:[ ^ #vms].
ced52c04b215 #platformName - answer symbols Stefan Vogel <sv@exept.de> parents: 11166 diff changeset	3836	os = #openVMS ifTrue:[ ^ #vms].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3837	^ #unix
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3838
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3839	"
9697 d079abe6b6e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 9476 diff changeset	3840	OperatingSystem knownPlatformNames
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3841	OperatingSystem platformName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3842	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3843
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3844	"Modified: 20.6.1997 / 17:37:26 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3845	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3846
12824 e3b8dd15b34e added: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12816 diff changeset	3847	randomBytesInto:bufferOrInteger
12826 524f9a981616 changed: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12824 diff changeset	3848	"If bufferOrInteger is a String or a ByteArray,
524f9a981616 changed: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12824 diff changeset	3849	fill a given buffer with random bytes from the RtlGenRandom function
524f9a981616 changed: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12824 diff changeset	3850	and nswer the buffer.
524f9a981616 changed: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12824 diff changeset	3851
524f9a981616 changed: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12824 diff changeset	3852	If bufferOrInteger is a SmallInteger,
524f9a981616 changed: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12824 diff changeset	3853	return this many bytes (max 4) as a SmallInteger.
524f9a981616 changed: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12824 diff changeset	3854
524f9a981616 changed: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12824 diff changeset	3855	Return nil on error (may raise PrimitiveFailure, too).
524f9a981616 changed: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12824 diff changeset	3856
524f9a981616 changed: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12824 diff changeset	3857	NOTE: This is a private interface, please use RandomGenerator!!
12824 e3b8dd15b34e added: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12816 diff changeset	3858
e3b8dd15b34e added: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12816 diff changeset	3859	Subclasses should implement this, if the OperatingSystem supports a random generator."
e3b8dd15b34e added: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12816 diff changeset	3860
e3b8dd15b34e added: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12816 diff changeset	3861	^ nil "not implemented"
e3b8dd15b34e added: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12816 diff changeset	3862	!
e3b8dd15b34e added: #randomBytesInto: Stefan Vogel <sv@exept.de> parents: 12816 diff changeset	3863
12604 022b583d6967 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12543 diff changeset	3864	setEnvironment:aStringOrSymbol to:newValueString
022b583d6967 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12543 diff changeset	3865	"set an environment variable"
022b583d6967 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12543 diff changeset	3866
022b583d6967 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12543 diff changeset	3867	^ self subclassResponsibility
022b583d6967 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12543 diff changeset	3868	!
022b583d6967 added: #setEnvironment:to: Claus Gittinger <cg@exept.de> parents: 12543 diff changeset	3869
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3870	setLocaleInfo:anInfoDictionary
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3871	"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	3872	(internal in ST/X only - the OS's settings remain unaffected)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3873	See description of fields in #getLocaleInfo.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3874
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3875	Notice, that (for now), the system does not use this information;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3876	it should be used by applications as required."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3877
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3878	LocaleInfo := anInfoDictionary
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3879
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3880	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3881	\|d\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3882
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3883	d := IdentityDictionary new.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3884	d at:#decimalPoint put:'.' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3885	d at:#thousandsSeparator put:',' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3886	d at:#currencySymbol put:'USD' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3887	d at:#monetaryDecimalPoint put:'.' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3888	d at:#monetaryThousandsSeparator put:'.' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3889	d at:#fractionalDigits put:2 .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3890	d at:#positiveSign put:'+' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3891	d at:#negativeSign put:'-' .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3892	d at:#positiveSignPrecedesCurrencySymbol put:true .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3893	d at:#negativeSignPrecedesCurrencySymbol put:false .
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3894	OperatingSystem setLocaleInfo:d
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3895	"
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3898	supportsChildInterrupts
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3899	"return true, if the OS supports childProcess termination signalling
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3900	through interrupts (i.e. SIGCHILD)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3901
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3902	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3903
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3904	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3905	OperatingSystem supportsChildInterrupts
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3906	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3907	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3908
3826 ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3909	supportsFileOwnerGroups
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3910	"return true, if the OS's file system supports file
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3911	group ownership - here, we are optimistic assuming that
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3912	we are running under a real OS.
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3913	Redefined in Win32OS to return false."
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3914
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3915	^ true
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3916
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3917	"Modified: / 10.9.1998 / 17:48:20 / cg"
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3918	"Created: / 10.9.1998 / 17:56:28 / cg"
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
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3921	supportsFileOwners
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3922	"return true, if the OS's file system supports file
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3923	ownership - here, we are optimistic assuming that
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3924	we are running under a real OS.
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3925	Redefined in Win32OS to return false."
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3926
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3927	^ true
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3928
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3929	"Modified: / 10.9.1998 / 17:48:20 / cg"
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3930	"Created: / 10.9.1998 / 17:56:11 / cg"
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3931	!
ba1c1f53560a checkin from browser Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	3932
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3933	supportsIOInterrupts
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3934	"return true, if the OS supports IO availability interrupts
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3935	(i.e. SIGPOLL/SIGIO)."
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	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3938
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3939	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3940	OperatingSystem supportsIOInterrupts
3576 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	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3943
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3944	supportsNonBlockingIO
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3945	"return true, if the OS supports nonblocking IO."
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	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3948
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3949	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3950	OperatingSystem supportsNonBlockingIO
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3951	"
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3954	supportsSelect
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3955	"return true, if the OS supports selecting on multiple
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3956	filedescriptors via select.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3957	If false is returned, ProcessorScheduler will poll in 50ms
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3958	intervals for I/O becoming ready."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3959
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3960	^ true
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3961
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3962	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3963	OperatingSystem supportsSelect
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	3964	"
3901 3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3965	!
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3966
5099 bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3967	supportsSelectOnPipes
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3968	"return true, if the OS supports selecting on pipe
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3969	filedescriptors via select.
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3970	If false is returned, ProcessorScheduler will poll in 50ms
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3971	intervals for I/O becoming ready."
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3972
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3973	^ true
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	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3976	OperatingSystem supportsSelectOnPipes
5099 bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3977	"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3978
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3979	"Modified: / 14.12.1999 / 19:40:32 / cg"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3980	"Created: / 14.12.1999 / 19:43:43 / cg"
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
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3983	supportsSelectOnSockets
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3984	"return true, if the OS supports selecting on socket
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3985	filedescriptors via select.
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3986	If false is returned, ProcessorScheduler will poll in 50ms
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3987	intervals for I/O becoming ready."
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3988
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3989	^ true
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3990
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3991	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	3992	OperatingSystem supportsSelectOnSockets
5099 bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3993	"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3994
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3995	"Modified: / 14.12.1999 / 19:40:32 / cg"
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3996	!
bb7e5db7b096 queries added Claus Gittinger <cg@exept.de> parents: 5036 diff changeset	3997
3901 3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3998	supportsVolumes
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	3999	"return true, if the OS supports disk volumes.
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4000	False is returned for UNIX, true for MSDOS and VMS"
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4001
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4002	^ false
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4003
3b435b0f4479 added #supportsVolumes Claus Gittinger <cg@exept.de> parents: 3829 diff changeset	4004	"Created: / 29.10.1998 / 13:20:37 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4005	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4006
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4007	!AbstractOperatingSystem class methodsFor:'path queries'!
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4008
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4009	defaultPackagePath
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4010	"return a default packagePath - thats a collection of
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4011	dirnames, where ST/X searches for its package subdirs.
5159 ca0524ab2576 defaultPackagePath initialization fixed Claus Gittinger <cg@exept.de> parents: 5148 diff changeset	4012	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	4013	OS-specific directory names."
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4014
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4015	\|packagePath dirName homeDirName priv userPrivateSTXDir appDir topDirName\|
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4016
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4017	"
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4018	the path is set to search files first locally
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4019	- this allows private stuff to override global stuff
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4020	"
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4021	packagePath := OrderedCollection new.
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4022
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4023	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4024	"/ the current (default) directory:
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4025	"/ ./packages
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4026	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4027	packagePath add:(Filename currentDirectory pathName).
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4028
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4029	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4030	"/ 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	4031	"/ (/opt/stx/bin/stx -> /opt/stx/packages)
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4032	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4033	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	4034	dirName := appDir pathName.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4035	(packagePath includes:dirName) ifFalse:[
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4036	packagePath add:dirName.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4037	].
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4038
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4039	homeDirName := OperatingSystem getHomeDirectory.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4040	homeDirName notNil ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4041	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4042	"/ 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	4043	"/ $HOME/.smalltalk/packages or $HOME\smalltalk\packages
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4044	"/
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4045	OperatingSystem isUNIXlike ifTrue:[
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4046	priv := '.smalltalk'.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4047	] ifFalse:[
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4048	priv := 'smalltalk'.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4049	].
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4050	userPrivateSTXDir := homeDirName asFilename / priv.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4051	(userPrivateSTXDir isDirectory) ifTrue:[
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4052	dirName := userPrivateSTXDir pathName.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4053	(packagePath includes:dirName) ifFalse:[
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4054	packagePath add:dirName
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4055	]
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4056	].
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4057	].
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4058
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4059	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4060	"/ 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	4061	"/ $STX_TOPDIR/packages
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4062	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4063	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	4064	topDirName notNil ifTrue:[
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4065	(packagePath includes:topDirName) ifFalse:[
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4066	packagePath add:topDirName
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4067	].
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4068	].
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4069
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4070	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	4071	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	4072
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4073	"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4074	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	4075	"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4076	(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	4077	dirName := dirName asCollectionOfSubstringsSeparatedBy:$:.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4078	dirName reverseDo:[:eachDirectoryName\|
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4079	(packagePath includes:eachDirectoryName) ifFalse:[
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4080	packagePath addFirst:eachDirectoryName.
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4081	].
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4082	].
5654 96a2142a2c04 Use for packagePath Stefan Vogel <sv@exept.de> parents: 5646 diff changeset	4083	].
96a2142a2c04 Use for packagePath Stefan Vogel <sv@exept.de> parents: 5646 diff changeset	4084
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4085	"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	4086	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	4087	- 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	4088
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4089	topDirName isNil ifTrue:[
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4090	"appdir is now: projects"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4091	appDir := appDir directory directory.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4092	(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	4093	packagePath add:appDir pathName.
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4094	].
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4095	].
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4096
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4097	^ packagePath
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4098
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4099	"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4100	OperatingSystem defaultPackagePath
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4101	"
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4102
5148 1a4b6b99888d * empty log message * Claus Gittinger <cg@exept.de> parents: 5143 diff changeset	4103	"Modified: / 24.12.1999 / 00:31:29 / cg"
5143 6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4104	!
6abffe0d8912 checkin from browser Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	4105
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4106	defaultSystemPath
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4107	"return a default systemPath - thats a collection of
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4108	dirnames, where ST/X searches for its files.
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4109	This method is redefined in concrete OS's to add
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4110	OS-specific directory names."
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4111
12755 abeb561f4f70 changed: #defaultSystemPath Claus Gittinger <cg@exept.de> parents: 12642 diff changeset	4112	\|sysPath p appDir homePath priv userPrivateSTXDir appPath\|
4146 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	"
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4115	the path is set to search files first locally
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4116	- this allows private stuff to override global stuff
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	sysPath := OrderedCollection new.
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4119
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4120	"/
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4121	"/ the current (default) directory
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4122	"/
9014 f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4123	sysPath add:(Filename currentDirectory pathName).
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4124
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4125	"/
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4126	"/ the executable's directory
9021 6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4127	"/
12755 abeb561f4f70 changed: #defaultSystemPath Claus Gittinger <cg@exept.de> parents: 12642 diff changeset	4128	appPath := self pathOfSTXExecutable.
abeb561f4f70 changed: #defaultSystemPath Claus Gittinger <cg@exept.de> parents: 12642 diff changeset	4129	appPath notNil ifTrue:[
abeb561f4f70 changed: #defaultSystemPath Claus Gittinger <cg@exept.de> parents: 12642 diff changeset	4130	appDir := appPath asFilename directory pathName.
abeb561f4f70 changed: #defaultSystemPath Claus Gittinger <cg@exept.de> parents: 12642 diff changeset	4131	(sysPath includes:appDir) ifFalse:[
abeb561f4f70 changed: #defaultSystemPath Claus Gittinger <cg@exept.de> parents: 12642 diff changeset	4132	sysPath add:appDir.
abeb561f4f70 changed: #defaultSystemPath Claus Gittinger <cg@exept.de> parents: 12642 diff changeset	4133	].
9021 6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4134	].
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4135
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4136	"/
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4137	"/ the users home (login) directory
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 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	homePath := self getHomeDirectory.
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4140	homePath notNil ifTrue:[
9014 f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4141	"/
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4142	"/ a users private smalltalk directory in its home (login) directory
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4143	"/
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4144	OperatingSystem isUNIXlike ifTrue:[
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4145	priv := '.smalltalk'.
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4146	] ifFalse:[
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4147	priv := 'smalltalk'.
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4148	].
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4149	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	4150	(userPrivateSTXDir isDirectory) ifTrue:[
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4151	userPrivateSTXDir := userPrivateSTXDir pathName.
9014 f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4152	(sysPath includes:userPrivateSTXDir) ifFalse:[
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4153	sysPath add:userPrivateSTXDir
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4154	]
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4155	].
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4156	].
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4157
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4158	"/
5036 a967da9d41ac checkin from browser Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	4159	"/ SMALLTALK_LIBDIR, STX_LIBDIR and STX_TOPDIR from the environment
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4160	"/
9014 f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4161	#(
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4162	'SMALLTALK_LIBDIR'
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4163	'STX_LIBDIR'
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4164	'STX_TOPDIR'
5646 5dfccce8e880 no longer automatically add the home-dir to the systemPath Claus Gittinger <cg@exept.de> parents: 5486 diff changeset	4165	) do:[:each \|
9014 f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4166	p := OperatingSystem getEnvironment:each.
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4167	p notNil ifTrue:[
9021 6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4168	p := p asFilename pathName.
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4169	(p asFilename isDirectory) ifTrue:[
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4170	(sysPath includes:p) ifFalse:[
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4171	sysPath add:p
6541db62a929 systemPath setup changed Claus Gittinger <cg@exept.de> parents: 9014 diff changeset	4172	]
9014 f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4173	]
f4df89a42724 * empty log message * Claus Gittinger <cg@exept.de> parents: 8997 diff changeset	4174	].
5036 a967da9d41ac checkin from browser Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	4175	].
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4176	^ sysPath
5148 1a4b6b99888d * empty log message * Claus Gittinger <cg@exept.de> parents: 5143 diff changeset	4177
11680 8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4178	"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4179	OperatingSystem defaultSystemPath
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4180	"
8616f1b36b4d Do not use relative pathnames when searching for packages, etc. Stefan Vogel <sv@exept.de> parents: 11548 diff changeset	4181
5148 1a4b6b99888d * empty log message * Claus Gittinger <cg@exept.de> parents: 5143 diff changeset	4182	"Modified: / 24.12.1999 / 00:30:27 / cg"
4146 9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4183	! !
9e06a0b5d37e checkin from browser Claus Gittinger <cg@exept.de> parents: 4004 diff changeset	4184
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	4185	!AbstractOperatingSystem class methodsFor:'printing support'!
d8547710430c printer stuff fm parents: 9380 diff changeset	4186
d8547710430c printer stuff fm parents: 9380 diff changeset	4187	getPrinters
d8547710430c printer stuff fm parents: 9380 diff changeset	4188	"return a collection of PrinterInfos"
d8547710430c printer stuff fm parents: 9380 diff changeset	4189
d8547710430c printer stuff fm parents: 9380 diff changeset	4190	self subclassResponsibility
d8547710430c printer stuff fm parents: 9380 diff changeset	4191
d8547710430c printer stuff fm parents: 9380 diff changeset	4192	"Created: / 27-07-2006 / 12:17:31 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	4193	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	4194
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4195	!AbstractOperatingSystem class methodsFor:'private'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4196
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4197	osProcessStatusClass
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4198	^ self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4199
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4200	"Created: / 12.6.1998 / 16:30:29 / cg"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4201	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	4202
7656 298c12201aa3 refactored OS command stuff Claus Gittinger <cg@exept.de> parents: 7637 diff changeset	4203	!AbstractOperatingSystem class methodsFor:'queries-sockets'!
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4204
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4205	domainCodeOf:aSymbolOrInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4206	"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	4207	Return nil for invalid or unsupported domains.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4208	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	4209	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	4210
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4211	\|domainCode\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4212
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4213	%{ /NOCONTEXT/
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	if (__isSmallInteger(aSymbolOrInteger) \|\| aSymbolOrInteger == nil) {
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4216	RETURN (aSymbolOrInteger);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4217	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4218
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4219	#ifdef AF_INET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4220	else if ((aSymbolOrInteger == @symbol(AF_INET)) \|\| (aSymbolOrInteger == @symbol(inet)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4221	domainCode = __mkSmallInteger(AF_INET);
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_INET6
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4224	else if ((aSymbolOrInteger == @symbol(AF_INET6)) \|\| (aSymbolOrInteger == @symbol(inet6)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4225	domainCode = __mkSmallInteger(AF_INET6);
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_UNIX
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4228	else if ((aSymbolOrInteger == @symbol(AF_UNIX)) \|\| (aSymbolOrInteger == @symbol(unix)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4229	domainCode = __mkSmallInteger(AF_UNIX);
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_APPLETALK
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4232	else if ((aSymbolOrInteger == @symbol(AF_APPLETALK)) \|\| (aSymbolOrInteger == @symbol(appletalk)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4233	domainCode = __mkSmallInteger(AF_APPLETALK);
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_DECnet
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4236	else if ((aSymbolOrInteger == @symbol(AF_DECnet)) \|\| (aSymbolOrInteger == @symbol(decnet)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4237	domainCode = __mkSmallInteger(AF_DECnet);
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_NS
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4240	else if ((aSymbolOrInteger == @symbol(AF_NS)) \|\| (aSymbolOrInteger == @symbol(ns)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4241	domainCode = __mkSmallInteger(AF_NS);
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_X25
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4244	else if ((aSymbolOrInteger == @symbol(AF_X25)) \|\| (aSymbolOrInteger == @symbol(x25)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4245	domainCode = __mkSmallInteger(AF_X25);
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_SNA
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4248	else if (aSymbolOrInteger == @symbol(AF_SNA))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4249	domainCode = __mkSmallInteger(AF_SNA);
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_RAW
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4252	else if ((aSymbolOrInteger == @symbol(AF_RAW)) \|\| (aSymbolOrInteger == @symbol(raw)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4253	domainCode = __mkSmallInteger(AF_RAW);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4254	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4255	#ifdef AF_ISO
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4256	else if ((aSymbolOrInteger == @symbol(AF_ISO)) \|\| (aSymbolOrInteger == @symbol(iso)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4257	domainCode = __mkSmallInteger(AF_ISO);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4258	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4259	#ifdef AF_ECMA
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4260	else if (aSymbolOrInteger == @symbol(AF_ECMA))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4261	domainCode = __mkSmallInteger(AF_ECMA);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4262	#endif
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4263	#ifdef AF_NETBIOS
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4264	else if ((aSymbolOrInteger == @symbol(AF_NETBIOS)) \|\| (aSymbolOrInteger == @symbol(netbios)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4265	domainCode = __mkSmallInteger(AF_NETBIOS);
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_NETBEUI
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4268	else if (aSymbolOrInteger == @symbol(AF_NETBEUI))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4269	domainCode = __mkSmallInteger(AF_NETBEUI);
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_IPX
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4272	else if (aSymbolOrInteger == @symbol(AF_IPX))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4273	domainCode = __mkSmallInteger(AF_IPX);
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_AX25
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4276	else if (aSymbolOrInteger == @symbol(AF_AX25))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4277	domainCode = __mkSmallInteger(AF_AX25);
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_NETROM
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4280	else if (aSymbolOrInteger == @symbol(AF_NETROM))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4281	domainCode = __mkSmallInteger(AF_NETROM);
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_BRIDGE
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4284	else if (aSymbolOrInteger == @symbol(AF_BRIDGE))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4285	domainCode = __mkSmallInteger(AF_BRIDGE);
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_BSC
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4288	else if (aSymbolOrInteger == @symbol(AF_BSC))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4289	domainCode = __mkSmallInteger(AF_BSC);
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_ROSE
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4292	else if (aSymbolOrInteger == @symbol(AF_ROSE))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4293	domainCode = __mkSmallInteger(AF_ROSE);
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_IRDA
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4296	else if ((aSymbolOrInteger == @symbol(AF_IRDA)) \|\| (aSymbolOrInteger == @symbol(irda)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4297	domainCode = __mkSmallInteger(AF_IRDA);
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_BAN
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4300	else if (aSymbolOrInteger == @symbol(AF_BAN))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4301	domainCode = __mkSmallInteger(AF_BAN);
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_VOICEVIEW
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4304	else if (aSymbolOrInteger == @symbol(AF_VOICEVIEW))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4305	domainCode = __mkSmallInteger(AF_VOICEVIEW);
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_ATM
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4308	else if (aSymbolOrInteger == @symbol(AF_ATM))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4309	domainCode = __mkSmallInteger(AF_ATM);
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_ATMPVC
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4312	else if (aSymbolOrInteger == @symbol(AF_ATMPVC))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4313	domainCode = __mkSmallInteger(AF_ATMPVC);
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_ATMSVC
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4316	else if (aSymbolOrInteger == @symbol(AF_ATMSVC))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4317	domainCode = __mkSmallInteger(AF_ATMSVC);
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_SECURITY
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4320	else if (aSymbolOrInteger == @symbol(AF_SECURITY))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4321	domainCode = __mkSmallInteger(AF_SECURITY);
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_KEY
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4324	else if (aSymbolOrInteger == @symbol(AF_KEY))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4325	domainCode = __mkSmallInteger(AF_KEY);
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_NETLINK
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4328	else if (aSymbolOrInteger == @symbol(AF_NETLINK))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4329	domainCode = __mkSmallInteger(AF_NETLINK);
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_PACKET
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4332	else if (aSymbolOrInteger == @symbol(AF_PACKET))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4333	domainCode = __mkSmallInteger(AF_PACKET);
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_ASH
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4336	else if (aSymbolOrInteger == @symbol(AF_ASH))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4337	domainCode = __mkSmallInteger(AF_ASH);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4338	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4339	#ifdef AF_ECONET
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4340	else if (aSymbolOrInteger == @symbol(AF_ECONET))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4341	domainCode = __mkSmallInteger(AF_ECONET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4342	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4343	#ifdef AF_IMPLINK
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4344	else if (aSymbolOrInteger == @symbol(AF_IMPLINK))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4345	domainCode = __mkSmallInteger(AF_IMPLINK);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4346	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4347	#ifdef AF_PUP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4348	else if (aSymbolOrInteger == @symbol(AF_PUP))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4349	domainCode = __mkSmallInteger(AF_PUP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4350	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4351	#ifdef AF_CHAOS
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4352	else if (aSymbolOrInteger == @symbol(AF_CHAOS))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4353	domainCode = __mkSmallInteger(AF_CHAOS);
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_DLI
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4356	else if (aSymbolOrInteger == @symbol(AF_DLI))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4357	domainCode = __mkSmallInteger(AF_DLI);
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_LAT
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4360	else if (aSymbolOrInteger == @symbol(AF_LAT))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4361	domainCode = __mkSmallInteger(AF_LAT);
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_HYLINK
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4364	else if (aSymbolOrInteger == @symbol(AF_HYLINK))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4365	domainCode = __mkSmallInteger(AF_HYLINK);
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_FIREFOX
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4368	else if (aSymbolOrInteger == @symbol(AF_FIREFOX))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4369	domainCode = __mkSmallInteger(AF_FIREFOX);
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_CLUSTER
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4372	else if (aSymbolOrInteger == @symbol(AF_CLUSTER))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4373	domainCode = __mkSmallInteger(AF_CLUSTER);
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_12844
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4376	else if (aSymbolOrInteger == @symbol(AF_12844))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4377	domainCode = __mkSmallInteger(AF_12844);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4378	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4379	#ifdef AF_NETDES
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4380	else if (aSymbolOrInteger == @symbol(AF_NETDES))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4381	domainCode = __mkSmallInteger(AF_NETDES);
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4382	#endif
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4383	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4384
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4385	^ domainCode.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4386
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4387	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4388	self domainCodeOf:#AF_INET
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4389	self domainCodeOf:#AF_INET6
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4390	self domainCodeOf:#AF_UNIX
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4391	self domainCodeOf:#AF_APPLETALK
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4392	self domainCodeOf:#AF_DECNET
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4393	"
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4394	"for backward compatibility only:
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4395	self domainCodeOf:#inet
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4396	self domainCodeOf:#inet6
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4397	self domainCodeOf:#unix
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4398	self domainCodeOf:#appletalk
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4399	self domainCodeOf:#decnet
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4400	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4401	!
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	domainSymbolOf:anInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4404	"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	4405	Return nil for invalid or unsupported domains."
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	\|domainSymbol\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4408
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4409	%{ /NOCONTEXT/
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4410
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4411	if (__isSmallInteger(anInteger)) {
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4412	switch(__intVal(anInteger)) {
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4413	#ifdef AF_INET
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4414	case AF_INET:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4415	domainSymbol = @symbol(AF_INET);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4416	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4417	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4418	#ifdef AF_INET6
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4419	case AF_INET6:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4420	domainSymbol = @symbol(AF_INET6);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4421	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4422	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4423	#ifdef AF_UNIX
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4424	case AF_UNIX:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4425	domainSymbol = @symbol(AF_UNIX);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4426	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4427	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4428	#ifdef AF_APPLETALK
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4429	case AF_APPLETALK:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4430	domainSymbol = @symbol(AF_APPLETALK);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4431	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4432	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4433	#ifdef AF_DECnet
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4434	case AF_DECnet:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4435	domainSymbol = @symbol(AF_DECnet);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4436	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4437	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4438	#ifdef AF_NS
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4439	case AF_NS:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4440	domainSymbol = @symbol(AF_NS);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4441	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4442	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4443	#ifdef AF_X25
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4444	case AF_X25:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4445	domainSymbol = @symbol(AF_X25);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4446	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4447	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4448	#ifdef AF_SNA
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4449	case AF_SNA:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4450	domainSymbol = @symbol(AF_SNA);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4451	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4452	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4453	#ifdef AF_RAW
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4454	case AF_RAW:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4455	domainSymbol = @symbol(AF_RAW);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4456	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4457	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4458	#ifdef AF_ISO
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4459	case AF_ISO:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4460	domainSymbol = @symbol(AF_ISO);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4461	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4462	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4463	#ifdef AF_ECMA
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4464	case AF_ECMA:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4465	domainSymbol = @symbol(AF_ECMA);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4466	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4467	#endif
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4468	#ifdef AF_NETBIOS
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4469	case AF_NETBIOS:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4470	domainSymbol = @symbol(AF_NETBIOS);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4471	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4472	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4473	#ifdef AF_IPX
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4474	case AF_IPX:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4475	domainSymbol = @symbol(AF_IPX);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4476	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4477	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4478	#ifdef AF_AX25
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4479	case AF_AX25:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4480	domainSymbol = @symbol(AF_AX25);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4481	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4482	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4483	#ifdef AF_NETROM
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4484	case AF_NETROM:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4485	domainSymbol = @symbol(AF_NETROM);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4486	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4487	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4488	#ifdef AF_BRIDGE
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4489	case AF_BRIDGE:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4490	domainSymbol = @symbol(AF_BRIDGE);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4491	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4492	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4493	#ifdef AF_BSC
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4494	case AF_BSC:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4495	domainSymbol = @symbol(AF_BSC);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4496	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4497	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4498	#ifdef AF_ROSE
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4499	case AF_ROSE:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4500	domainSymbol = @symbol(AF_ROSE);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4501	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4502	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4503	#ifdef AF_IRDA
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4504	case AF_IRDA:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4505	domainSymbol = @symbol(AF_IRDA);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4506	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4507	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4508	#ifdef AF_BAN
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4509	case AF_BAN:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4510	domainSymbol = @symbol(AF_BAN);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4511	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4512	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4513	#ifdef AF_VOICEVIEW
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4514	case AF_VOICEVIEW:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4515	domainSymbol = @symbol(AF_VOICEVIEW);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4516	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4517	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4518	#ifdef AF_ATM
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4519	case AF_ATM:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4520	domainSymbol = @symbol(AF_ATM);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4521	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4522	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4523	#ifdef AF_ATMPVC
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4524	case AF_ATMPVC:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4525	domainSymbol = @symbol(AF_ATMPVC);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4526	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4527	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4528	#ifdef AF_ATMSVC
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4529	case AF_ATMSVC:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4530	domainSymbol = @symbol(AF_ATMSVC);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4531	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4532	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4533	#ifdef AF_SECURITY
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4534	case AF_SECURITY:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4535	domainSymbol = @symbol(AF_SECURITY);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4536	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4537	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4538	#ifdef AF_KEY
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4539	case AF_KEY:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4540	domainSymbol = @symbol(AF_KEY);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4541	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4542	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4543	#ifdef AF_NETLINK
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4544	case AF_NETLINK:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4545	domainSymbol = @symbol(AF_NETLINK);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4546	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4547	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4548	#ifdef AF_PACKET
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4549	case AF_PACKET:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4550	domainSymbol = @symbol(AF_PACKET);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4551	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4552	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4553	#ifdef AF_ASH
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4554	case AF_ASH:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4555	domainSymbol = @symbol(AF_ASH);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4556	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4557	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4558	#ifdef AF_ECONET
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4559	case AF_ECONET:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4560	domainSymbol = @symbol(AF_ECONET);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4561	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4562	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4563	#ifdef AF_IMPLINK
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4564	case AF_IMPLINK:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4565	domainSymbol = @symbol(AF_IMPLINK);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4566	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4567	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4568	#ifdef AF_PUP
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4569	case AF_PUP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4570	domainSymbol = @symbol(AF_PUP);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4571	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4572	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4573	#ifdef AF_CHAOS
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4574	case AF_CHAOS:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4575	domainSymbol = @symbol(AF_CHAOS);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4576	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4577	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4578	#ifdef AF_DLI
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4579	case AF_DLI:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4580	domainSymbol = @symbol(AF_DLI);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4581	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4582	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4583	#ifdef AF_LAT
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4584	case AF_LAT:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4585	domainSymbol = @symbol(AF_LAT);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4586	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4587	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4588	#ifdef AF_HYLINK
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4589	case AF_HYLINK:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4590	domainSymbol = @symbol(AF_HYLINK);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4591	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4592	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4593	#ifdef AF_FIREFOX
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4594	case AF_FIREFOX:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4595	domainSymbol = @symbol(AF_FIREFOX);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4596	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4597	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4598	#ifdef AF_CLUSTER
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4599	case AF_CLUSTER:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4600	domainSymbol = @symbol(AF_CLUSTER);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4601	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4602	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4603	#ifdef AF_12844
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4604	case AF_12844:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4605	domainSymbol = @symbol(AF_12844);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4606	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4607	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4608	#ifdef AF_NETDES
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4609	case AF_NETDES:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4610	domainSymbol = @symbol(AF_NETDES);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4611	break;
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4612	#endif
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4613	}
7509 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	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4616
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4617	^ domainSymbol.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4618
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4619	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4620	self domainSymbolOf:(self domainCodeOf:#inet)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4621	self domainSymbolOf:(self domainCodeOf:#inet6)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4622	self domainSymbolOf:(self domainCodeOf:#unix)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4623	self domainSymbolOf:(self domainCodeOf:#appletalk)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4624	self domainSymbolOf:(self domainCodeOf:#decnet)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4625	self domainSymbolOf:(self domainCodeOf:#raw)
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4626	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4627	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4628
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4629	protocolCodeOf:aSymbolOrInteger
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4630	"return the numeric IPPROTO_xxx code of a given symbolic protocol name.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4631	Return nil for invalid or unsupported protocols.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4632	For backward compatibility, the obsolete (non-IPPROTO-prefixed) names
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4633	are still supported for a while - this support will vanish."
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4634
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4635	\|protocolCode\|
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4636
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4637	%{ /NOCONTEXT/
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4638
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4639	if (__isSmallInteger(aSymbolOrInteger) \|\| aSymbolOrInteger == nil) {
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4640	RETURN (aSymbolOrInteger);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4641	}
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4642
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4643	#ifdef IPPROTO_IP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4644	else if ((aSymbolOrInteger == @symbol(IPPROTO_IP)) \|\| (aSymbolOrInteger == @symbol(ip)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4645	protocolCode = __mkSmallInteger(IPPROTO_IP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4646	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4647	#ifdef IPPROTO_ICMP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4648	else if ((aSymbolOrInteger == @symbol(IPPROTO_ICMP)) \|\| (aSymbolOrInteger == @symbol(icmp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4649	protocolCode = __mkSmallInteger(IPPROTO_ICMP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4650	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4651	#ifdef IPPROTO_IGMP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4652	else if ((aSymbolOrInteger == @symbol(IPPROTO_IGMP)) \|\| (aSymbolOrInteger == @symbol(igmp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4653	protocolCode = __mkSmallInteger(IPPROTO_IGMP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4654	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4655	#ifdef IPPROTO_GGP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4656	else if ((aSymbolOrInteger == @symbol(IPPROTO_GGP)) \|\| (aSymbolOrInteger == @symbol(ggp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4657	protocolCode = __mkSmallInteger(IPPROTO_GGP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4658	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4659	#ifdef IPPROTO_TCP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4660	else if ((aSymbolOrInteger == @symbol(IPPROTO_TCP)) \|\| (aSymbolOrInteger == @symbol(tcp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4661	protocolCode = __mkSmallInteger(IPPROTO_TCP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4662	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4663	#ifdef IPPROTO_UDP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4664	else if ((aSymbolOrInteger == @symbol(IPPROTO_UDP)) \|\| (aSymbolOrInteger == @symbol(udp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4665	protocolCode = __mkSmallInteger(IPPROTO_UDP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4666	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4667	#ifdef IPPROTO_IDP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4668	else if ((aSymbolOrInteger == @symbol(IPPROTO_IDP)) \|\| (aSymbolOrInteger == @symbol(idp)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4669	protocolCode = __mkSmallInteger(IPPROTO_IDP);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4670	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4671	#ifdef IPPROTO_ND
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4672	else if ((aSymbolOrInteger == @symbol(IPPROTO_ND)) \|\| (aSymbolOrInteger == @symbol(nd)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4673	protocolCode = __mkSmallInteger(IPPROTO_ND);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4674	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4675	#ifdef IPPROTO_RAW
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4676	else if ((aSymbolOrInteger == @symbol(IPPROTO_RAW)) \|\| (aSymbolOrInteger == @symbol(raw)))
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	4677	protocolCode = __mkSmallInteger(IPPROTO_RAW);
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4678	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4679	%}.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4680
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4681	^ protocolCode.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4682
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4683	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4684	self protocolCodeOf:#IPPROTO_UDP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4685	self protocolCodeOf:#IPPROTO_TCP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4686	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4687	"for backward compatibility only:
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4688	self protocolCodeOf:#udp
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4689	self protocolCodeOf:#tcp
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4690	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4691	!
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4692
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4693	protocolSymbolOf:anInteger
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4694	"return the symbolic protocolName of a given numeric IPPROTO_xxx code.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4695	Return nil for invalid or unsupported protocols."
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4696
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4697	\|protocolSymbol\|
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4698
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4699	%{ /NOCONTEXT/
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4700
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4701	if (__isSmallInteger(anInteger)) {
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4702	switch(__intVal(anInteger)) {
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4703	#ifdef IPPROTO_IP
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4704	case IPPROTO_IP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4705	// protocolSymbol = @symbol(IPPROTO_IP);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4706	protocolSymbol = @symbol(ip);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4707	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4708	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4709	#ifdef IPPROTO_ICMP
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4710	case IPPROTO_ICMP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4711	// protocolSymbol = @symbol(IPPROTO_ICMP);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4712	protocolSymbol = @symbol(icmp);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4713	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4714	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4715	#ifdef IPPROTO_IGMP
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4716	case IPPROTO_IGMP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4717	// protocolSymbol = @symbol(IPPROTO_IGMP);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4718	protocolSymbol = @symbol(igmp);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4719	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4720	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4721	#ifdef IPPROTO_GGP
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4722	case IPPROTO_GGP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4723	// protocolSymbol = @symbol(IPPROTO_GGP);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4724	protocolSymbol = @symbol(ggp);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4725	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4726	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4727	#ifdef IPPROTO_TCP
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4728	case IPPROTO_TCP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4729	// protocolSymbol = @symbol(IPPROTO_TCP);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4730	protocolSymbol = @symbol(tcp);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4731	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4732	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4733	#ifdef IPPROTO_PUP
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4734	case IPPROTO_PUP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4735	// protocolSymbol = @symbol(IPPROTO_PUP);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4736	protocolSymbol = @symbol(pup);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4737	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4738	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4739	#ifdef IPPROTO_UDP
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4740	case IPPROTO_UDP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4741	// protocolSymbol = @symbol(IPPROTO_UDP);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4742	protocolSymbol = @symbol(udp);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4743	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4744	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4745	#ifdef IPPROTO_IDP
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4746	case IPPROTO_IDP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4747	// protocolSymbol = @symbol(IPPROTO_IDP);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4748	protocolSymbol = @symbol(idp);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4749	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4750	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4751	#ifdef IPPROTO_ND
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4752	case IPPROTO_ND:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4753	// protocolSymbol = @symbol(IPPROTO_ND);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4754	protocolSymbol = @symbol(nd);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4755	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4756	#endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4757	#ifdef IPPROTO_RAW
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4758	case IPPROTO_RAW:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4759	// protocolSymbol = @symbol(IPPROTO_RAW);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4760	protocolSymbol = @symbol(raw);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4761	break;
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4762	#endif
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4763	}
8784 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
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4767	^ protocolSymbol.
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4768
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4769	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4770	self protocolSymbolOf:(self protocolCodeOf:#tcp)
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4771	self protocolSymbolOf:(self protocolCodeOf:#udp)
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4772	self protocolSymbolOf:(self protocolCodeOf:#raw)
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4773	"
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4774	!
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4775
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4776	socketAddressSizeOfDomain:aSymbolOrInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4777	"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	4778	Return nil, if unknown or unsupported."
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	\|socketSize domainCode\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4781
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4782	domainCode := OperatingSystem domainCodeOf:aSymbolOrInteger.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4783
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4784	%{
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4785	if (__isSmallInteger(domainCode)) {
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4786	switch (__intVal(domainCode)) {
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4787	#ifdef AF_INET
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4788	case AF_INET:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4789	socketSize = __mkSmallInteger( sizeof(struct sockaddr_in) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4790	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4791	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4792	#ifdef AF_INET6
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4793	case AF_INET6:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4794	socketSize = __mkSmallInteger( sizeof(struct sockaddr_in6) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4795	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4796	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4797	#ifdef AF_UNIX
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4798	case AF_UNIX:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4799	socketSize = __mkSmallInteger( sizeof(struct sockaddr_un) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4800	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4801	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4802	#ifdef AF_APPLETALK
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4803	case AF_APPLETALK:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4804	socketSize = __mkSmallInteger( sizeof(struct sockaddr_at) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4805	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4806	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4807	#ifdef AF_DECnet
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4808	case AF_DECnet:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4809	socketSize = __mkSmallInteger( sizeof(struct sockaddr_dn) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4810	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4811	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4812	#ifdef AF_NS
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4813	case AF_NS:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4814	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ns) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4815	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4816	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4817	#ifdef AF_X25
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4818	case AF_X25:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4819	socketSize = __mkSmallInteger( sizeof(struct sockaddr_x25) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4820	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4821	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4822	#ifdef AF_SNA
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4823	case AF_SNA:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4824	socketSize = __mkSmallInteger( sizeof(struct sockaddr_sna) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4825	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4826	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4827	#ifdef AF_RAW
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4828	case AF_RAW:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4829	socketSize = __mkSmallInteger( sizeof(struct sockaddr_raw) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4830	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4831	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4832	#ifdef AF_ISO
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4833	case AF_ISO:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4834	socketSize = __mkSmallInteger( sizeof(struct sockaddr_iso) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4835	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4836	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4837	#ifdef AF_ECMA
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4838	# if 0
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4839	case AF_ECMA:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4840	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ecma) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4841	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4842	# endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4843	#endif
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4844	#ifdef AF_NETBIOS
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4845	case AF_NETBIOS:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4846	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netbios) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4847	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4848	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4849	#ifdef AF_NETBEUI
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4850	case AF_NETBEUI:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4851	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netbeui) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4852	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4853	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4854	#ifdef AF_IPX
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4855	case AF_IPX:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4856	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ipx) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4857	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4858	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4859	#ifdef AF_AX25
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4860	case AF_AX25:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4861	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ax25) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4862	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4863	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4864	#ifdef AF_NETROM
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4865	case AF_NETROM:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4866	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netrom) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4867	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4868	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4869	#ifdef AF_BRIDGE
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4870	case AF_BRIDGE:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4871	socketSize = __mkSmallInteger( sizeof(struct sockaddr_bridge) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4872	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4873	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4874	#ifdef AF_BSC
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4875	case AF_BSC:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4876	socketSize = __mkSmallInteger( sizeof(struct sockaddr_bsc) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4877	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4878	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4879	#ifdef AF_ROSE
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4880	case AF_ROSE:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4881	socketSize = __mkSmallInteger( sizeof(struct sockaddr_rose) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4882	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4883	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4884	#ifdef AF_IRDA
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4885	case AF_IRDA:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4886	socketSize = __mkSmallInteger( sizeof(struct sockaddr_irda) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4887	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4888	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4889	#ifdef AF_BAN
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4890	case AF_BAN:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4891	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ban) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4892	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4893	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4894	#ifdef AF_VOICEVIEW
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4895	case AF_VOICEVIEW:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4896	socketSize = __mkSmallInteger( sizeof(struct sockaddr_voiceview) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4897	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4898	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4899	#ifdef AF_ATM
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4900	case AF_ATM:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4901	socketSize = __mkSmallInteger( sizeof(struct sockaddr_atm) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4902	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4903	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4904	#ifdef AF_ATMPVC
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4905	case AF_ATMPVC:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4906	socketSize = __mkSmallInteger( sizeof(struct sockaddr_atmpvc) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4907	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4908	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4909	#ifdef AF_ATMSVC
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4910	case AF_ATMSVC:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4911	socketSize = __mkSmallInteger( sizeof(struct sockaddr_atmsvc) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4912	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4913	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4914	#ifdef AF_NETLINK
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4915	case AF_NETLINK:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4916	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netlink) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4917	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4918	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4919	#ifdef AF_PACKET
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4920	case AF_PACKET:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4921	socketSize = __mkSmallInteger( sizeof(struct sockaddr_packet) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4922	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4923	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4924	#ifdef AF_ASH
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4925	case AF_ASH:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4926	socketSize = __mkSmallInteger( sizeof(struct sockaddr_ash) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4927	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4928	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4929	#ifdef AF_ECONET
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4930	case AF_ECONET:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4931	socketSize = __mkSmallInteger( sizeof(struct sockaddr_eco) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4932	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4933	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4934	#ifdef AF_IMPLINK
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4935	case AF_IMPLINK:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4936	socketSize = __mkSmallInteger( sizeof(struct sockaddr_implink) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4937	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4938	#endif
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4939	#ifdef AF_PUP
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4940	# if 0
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4941	case AF_PUP:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4942	socketSize = __mkSmallInteger( sizeof(struct sockaddr_pup) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4943	break;
8784 7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4944	# endif
7e0ca6e28ad8 * empty log message * penk parents: 8715 diff changeset	4945	#endif
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4946	#ifdef AF_CHAOS
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4947	case AF_CHAOS:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4948	socketSize = __mkSmallInteger( sizeof(struct sockaddr_chaos) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4949	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4950	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4951	#ifdef AF_DLI
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4952	case AF_DLI:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4953	socketSize = __mkSmallInteger( sizeof(struct sockaddr_dli) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4954	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4955	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4956	#ifdef AF_LAT
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4957	case AF_LAT:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4958	socketSize = __mkSmallInteger( sizeof(struct sockaddr_lat) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4959	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4960	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4961	#ifdef AF_HYLINK
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4962	case AF_HYLINK:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4963	socketSize = __mkSmallInteger( sizeof(struct sockaddr_hylink) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4964	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4965	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4966	#ifdef AF_FIREFOX
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4967	case AF_FIREFOX:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4968	socketSize = __mkSmallInteger( sizeof(struct sockaddr_firefox) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4969	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4970	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4971	#ifdef AF_CLUSTER
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4972	case AF_CLUSTER:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4973	socketSize = __mkSmallInteger( sizeof(struct sockaddr_cluster) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4974	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4975	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4976	#ifdef AF_12844
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4977	case AF_12844:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4978	socketSize = __mkSmallInteger( sizeof(struct sockaddr_12844) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4979	break;
7716 41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4980	#endif
41535a2538c9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	4981	#ifdef AF_NETDES
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4982	case AF_NETDES:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4983	socketSize = __mkSmallInteger( sizeof(struct sockaddr_netdes) );
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4984	break;
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4985	#endif
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	4986	}
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4987	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4988	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4989	^ socketSize
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4990
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4991	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4992	self socketAddressSizeOfDomain:#'AF_INET'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4993	self socketAddressSizeOfDomain:#'AF_UNIX'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	4994	self socketAddressSizeOfDomain:#'Foo'
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4995	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4996	!
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	socketTypeCodeOf:aSymbolOrInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	4999	"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	5000	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	5001
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5002	\|typeCode\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5003
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5004	%{ /NOCONTEXT/
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	if (__isSmallInteger(aSymbolOrInteger) \|\| aSymbolOrInteger == nil) {
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5007	typeCode = aSymbolOrInteger;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5008	}
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5009
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5010	#ifdef SOCK_STREAM
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5011	else if ((aSymbolOrInteger == @symbol(stream)) \|\| (aSymbolOrInteger == @symbol(SOCK_STREAM)))
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5012	typeCode = __mkSmallInteger(SOCK_STREAM);
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_DGRAM
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5015	else if ((aSymbolOrInteger == @symbol(datagram)) \|\| (aSymbolOrInteger == @symbol(SOCK_DGRAM)))
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5016	typeCode = __mkSmallInteger(SOCK_DGRAM);
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_RAW
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5019	else if ((aSymbolOrInteger == @symbol(raw)) \|\| (aSymbolOrInteger == @symbol(SOCK_RAW)))
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5020	typeCode = __mkSmallInteger(SOCK_RAW);
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_RDM
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5023	else if ((aSymbolOrInteger == @symbol(rdm)) \|\| (aSymbolOrInteger == @symbol(SOCK_RDM)))
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5024	typeCode = __mkSmallInteger(SOCK_RDM);
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_SEQPACKET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5027	else if ((aSymbolOrInteger == @symbol(seqpacket)) \|\| (aSymbolOrInteger == @symbol(SOCK_SEQPACKET)))
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5028	typeCode = __mkSmallInteger(SOCK_SEQPACKET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5029	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5030	#ifdef SOCK_PACKET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5031	else if ((aSymbolOrInteger == @symbol(packet)) \|\| (aSymbolOrInteger == @symbol(SOCK_PACKET)))
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5032	typeCode = __mkSmallInteger(SOCK_PACKET);
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5033	#endif
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
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5036	^ typeCode.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5037
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	self socketTypeCodeOf:#stream
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5040	self socketTypeCodeOf:#datagram
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5041	self socketTypeCodeOf:#raw
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5042	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5043	!
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	socketTypeSymbolOf:anInteger
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5046	"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	5047	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	5048
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5049	\|socketTypeSymbol\|
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5050
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5051	%{ /NOCONTEXT/
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5052
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5053	if (__isSmallInteger(anInteger)) {
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5054	switch(__intVal(anInteger)) {
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5055	#ifdef SOCK_STREAM
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5056	case SOCK_STREAM:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5057	socketTypeSymbol = @symbol(SOCK_STREAM);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5058	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5059	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5060	#ifdef SOCK_DGRAM
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5061	case SOCK_DGRAM:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5062	socketTypeSymbol = @symbol(SOCK_DGRAM);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5063	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5064	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5065	#ifdef SOCK_RAW
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5066	case SOCK_RAW:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5067	socketTypeSymbol = @symbol(SOCK_RAW);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5068	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5069	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5070	#ifdef SOCK_RDM
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5071	case SOCK_RDM:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5072	socketTypeSymbol = @symbol(SOCK_RDM);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5073	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5074	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5075	#ifdef SOCK_SEQPACKET
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5076	case SOCK_SEQPACKET:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5077	socketTypeSymbol = @symbol(SOCK_SEQPACKET);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5078	break;
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5079	#endif
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5080	#ifdef SOCK_PACKET
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5081	case SOCK_PACKET:
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5082	socketTypeSymbol = @symbol(SOCK_PACKET);
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5083	break;
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5084	#endif
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5085	}
7509 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	%}.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5088	^ socketTypeSymbol.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5089	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5090
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5091	supportedProtocolFamilies
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5092	"return a collection of supported protocol families.
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5093	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	5094	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	5095	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	5096	(non-AF-prefixed) symbols; these will vanish."
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5097
7713 c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5098	^ #(
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5099	#AF_INET #inet
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5100	#AF_UNIX #unix
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5101	#AF_INET6 #inet6
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5102	#AF_APPLETALK #appletalk
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5103	#AF_DECnet #decnet
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5104	#AF_NS #ns
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5105	#AF_X25 #x25
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5106	#AF_SNA
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5107	#AF_RAW
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5108	#AF_ISO
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5109	#AF_ECMA
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5110	#AF_NETBIOS #netbios
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5111	#AF_IPX
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5112	#AF_AX25
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5113	#AF_NETROM
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5114	#AF_BRIDGE
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5115	#AF_BSC
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5116	#AF_ROSE
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5117	#AF_IRDA #irda
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5118	#AF_NETLINK
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5119	#AF_NETLINK
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5120	#AF_NETBEUI
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5121	#AF_ATM
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5122	#AF_ATMPVC
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5123	#AF_ATMSVC
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5124	#AF_BAN
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5125	#AF_VOICEVIEW
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5126	#AF_ECONET
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5127	#AF_IMPLINK
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5128	#AF_PUP
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5129	#AF_CHAOS
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5130	#AF_DLI
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5131	#AF_LAT
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5132	#AF_HYLINK
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5133	#AF_FIREFOX
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5134	#AF_CLUSTER
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5135	#AF_12844
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5136	#AF_NETDES
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5137	) select:[:sym \| (AbstractOperatingSystem domainCodeOf:sym) isNumber ]
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5138
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5139	"
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5140	AbstractOperatingSystem supportedProtocolFamilies
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5141	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5142	!
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5143
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5144	supportedSocketTypes
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5145	"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	5146	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	5147
7713 c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5148	^ #(
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5149	#SOCK_STREAM
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5150	#SOCK_DGRAM
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5151	#SOCK_RAW
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5152	#SOCK_RDM
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5153	#SOCK_SEQPACKET
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5154	#SOCK_PACKET
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5155	) select:[:sym \| (AbstractOperatingSystem socketTypeCodeOf:sym) isNumber ]
7713 c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5156
c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5157	"
c685886d38f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	5158	AbstractOperatingSystem supportedSocketTypes
7509 c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5159	"
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5160	! !
c8964822d8fd moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 7507 diff changeset	5161
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5162	!AbstractOperatingSystem class methodsFor:'shared memory access'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5163
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5164	shmAttach:id address:addr flags:flags
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5165	"low level entry to shmat()-system call.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5166	Not supported on all operatingSystems"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5167
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5168	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5169
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5170	"Modified: / 19.5.1999 / 14:21:35 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5171	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5172
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5173	shmDetach:addr
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5174	"low level entry to shmdt()-system call.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5175	Not supported on all operatingSystems"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5176
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5177	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5178
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5179	"Modified: / 19.5.1999 / 14:21:37 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5180	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5181
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5182	shmGet:key size:size flags:flags
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5183	"low level entry to shmget()-system call.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5184	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	5185	- use the provided wrapper class SharedExternalBytes instead."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5186
4204 49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5187	^ UnsupportedOperationSignal raise
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5188
49eec8601145 comments Claus Gittinger <cg@exept.de> parents: 4200 diff changeset	5189	"Modified: / 19.5.1999 / 14:21:41 / cg"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5190	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5191
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5192	!AbstractOperatingSystem class methodsFor:'time and date'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5193
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5194	computeDatePartsOf:osTime for:aBlock
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5195	"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	5196	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	5197	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	5198
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5199	<resource:#obsolete>
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\|
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5202
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5203	self obsoleteMethodWarning:'use #computeTimeAndDateFrom:osTime'.
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	i := self computeTimeAndDateFrom:osTime.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5206	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	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	OperatingSystem computeDatePartsOf:0 for:[:y :m :d \|
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5210	y printCR. m printCR. d printCR
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5211	]
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5212	"
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5213	!
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5214
4377 59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5215	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	5216	"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	5217	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	5218
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5219	self subclassResponsibility
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5220
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5221	"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	5222	!
59bb21ad2839 New method to compute Time form UTC. Stefan Vogel <sv@exept.de> parents: 4240 diff changeset	5223
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5224	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	5225	"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	5226	The arguments are assumed to be in localtime including
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5227	any daylight saving adjustings."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5228
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5229	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5230	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5231
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5232	computeTimeAndDateFrom:osTime
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5233	"given an OS-dependent time in osTime, return an Array
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5234	containing (full-) year, month, day, hour, minute and seconds,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5235	offset to UTC, daylight savings time flag, milliseconds,
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5236	dayInYear (1..) and dayInWeek (1..).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5237	Conversion is to localtime including any daylight saving adjustments."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5238
7733 f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5239	\|divMod ret\|
f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5240
f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5241	divMod := osTime divMod:1000.
7739 d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5242	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	5243	^ ret
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5244
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5245	"
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5246	OperatingSystem computeTimeAndDateFrom:0
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5247	OperatingSystem computeTimeAndDateFrom:1011
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5248	"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5249	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5250
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5251	computeTimePartsOf:osTime for:aBlock
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5252	"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	5253	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	5254	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	5255
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5256	<resource:#obsolete>
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	\|hours minutes seconds millis i\|
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5259
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5260	self obsoleteMethodWarning:'use #computeTimeAndDateFrom:osTime'.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5261
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5262	i := self computeTimeAndDateFrom:osTime.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5263	hours := i hours.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5264	minutes := i minutes.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5265	seconds := i seconds.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5266	millis := i milliseconds.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5267
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5268	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	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	OperatingSystem computeTimePartsOf:100 for:[:h :m :s :milli \|
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5272	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	5273	]
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5274	"
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5275	!
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5276
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5277	computeUTCTimeAndDateFrom:osTime
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5278	"given an OS-dependent time in osTime, return an Array
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5279	containing:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5280	(full-) year,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5281	month, (1..)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5282	day, (1..)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5283	hour, (0..23)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5284	minute (0..59)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5285	seconds, (0..59)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5286	offset to UTC, (seconds)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5287	daylight savings time flag,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5288	milliseconds, (0..999)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5289	dayInYear (1..)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5290	dayInWeek (1..).
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5291	Conversion is to utc."
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5292
7733 f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5293	\|divMod ret\|
f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5294
f556d689cf53 Speed up computations Stefan Vogel <sv@exept.de> parents: 7716 diff changeset	5295	divMod := osTime divMod:1000.
7739 d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5296	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	5297	^ ret
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5298
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5299	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5300	OperatingSystem computeUTCTimeAndDateFrom:0
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5301	OperatingSystem computeUTCTimeAndDateFrom:1011
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5302	"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5303	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5304
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5305	computeUTCTimePartsOf:osTime for:aBlock
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5306	"compute hours, minutes, seconds and milliseconds from the osTime
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5307	and evaluate the argument, a 4-arg block with these.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5308	Conversion is to UTC."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5309
8565 6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5310	<resource:#obsolete>
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	\|hours minutes seconds millis i\|
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5313
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5314	self obsoleteMethodWarning:'use #computeTimeAndDateFrom:osTime'.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5315
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5316	i := self computeUTCTimeAndDateFrom:osTime.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5317	hours := i hours.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5318	minutes := i minutes.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5319	seconds := i seconds.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5320	millis := i milliseconds.
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5321
6c5af0dd0269 Moved OS-independent obsolete methods from UnixOperatingSystem Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5322	aBlock value:hours value:minutes value:seconds value:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5323	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5324
3689 f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5325	getMicrosecondTime
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5326	"This returns the microsecond timers value - if available.
3689 f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5327	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	5328	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	5329	clock resolution value."
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5330
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5331	"/ fallBack - use getMillisecondTime, which must be implemented
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5332	"/ for all OS's
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	^ self getMillisecondTime * 1000
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5335
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5336	"Created: / 30.7.1998 / 16:38:26 / cg"
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5337	!
f3351f92641e added abstract for getMicrosecondTime Claus Gittinger <cg@exept.de> parents: 3576 diff changeset	5338
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5339	getMillisecondTime
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5340	"This returns the millisecond timers value.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5341	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	5342	LargeInteger arithmetic when doing timeouts and delays.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5343	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	5344	short relative time deltas.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5345	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	5346
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5347	BAD DESIGN:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5348	This should be changed to return some instance of RelativeTime,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5349	and these computations moved there.
3576 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	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	5352	interface. For compatibility with ST-80, use Time millisecondClockValue.
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5355	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5356	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5357
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5358	getOSTime
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5359	"This returns the OS time.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5360	The base of the returned value is not consistent across
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5361	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	5362	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	5363	converts as appropriate (by using my fromOSTime: conversion methods).
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	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	5366	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	5367	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	5368	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5369
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5370	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5371	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5372
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5373	maximumMillisecondTimeDelta
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5374	"this returns the maximum delta supported by millisecondCounter
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5375	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	5376	timer wraps."
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	%{ /* NOCONTEXT */
8913 b9498d27a554 64bit; mkSmallInteger Claus Gittinger <cg@exept.de> parents: 8901 diff changeset	5379	RETURN ( __mkSmallInteger(0x0FFFFFFF) );
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5380	%}
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5381	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5382
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5383	millisecondDelay:millis
7681 7c63f0b47f0d oops: millisecondDelay: was duplicated Claus Gittinger <cg@exept.de> parents: 7656 diff changeset	5384	"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	5385	All other threads proceed as usual.
7849 40819a29fdcd comment ca parents: 7835 diff changeset	5386	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	5387
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5388	\|now then delta\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5389
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5390	now := self getMillisecondTime.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5391	then := self millisecondTimeAdd:now and:millis.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5392
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5393	[(delta := self millisecondTimeDeltaBetween:then and:now) > 0] whileTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5394	self selectOnAnyReadable:nil writable:nil exception:nil withTimeOut:delta.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5395	now := self getMillisecondTime.
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	"
7849 40819a29fdcd comment ca parents: 7835 diff changeset	5399	OperatingSystem millisecondDelay:5000
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5400	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5401	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5402
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5403	millisecondTime:msTime1 isAfter:msTime2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5404	"return true if msTime1 is after msTime2, false if not.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5405	The two arguments are supposed to be millisecond times
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5406	(such as returned getMillisecondTime) which wrap at 16r1FFFFFFF.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5407
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5408	This should really be moved to some RelativeTime class."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5409
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5410	(msTime1 > msTime2) ifTrue:[
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5411	((msTime1 - msTime2) < 16r10000000) ifTrue:[
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5412	^ true
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5413	].
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5414	] ifFalse:[
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5415	((msTime2 - msTime1) > 16r10000000) ifTrue:[
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5416	^ true
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5417	].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5418	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5419	^ false
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5420	!
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	millisecondTimeAdd:msTime1 and:msTime2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5423	"Add two millisecond times (such as returned getMillisecondTime).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5424	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	5425
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5426	This should really be moved to some RelativeTime class."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5427
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5428	\|sum\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5429
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5430	sum := msTime1 + msTime2.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5431	(sum > 16r1FFFFFFF) ifTrue:[^ sum - 16r20000000].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5432	(sum < 0) ifTrue:[^ sum + 16r20000000].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5433	^ sum
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5434	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5435
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5436	millisecondTimeDeltaBetween:msTime1 and:msTime2
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5437	"subtract two millisecond times (such as returned getMillisecondTime)
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5438	and return the difference. Since milli-times wrap (at 16r01FFFFFFF),
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5439	some special handling is built-in here.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5440	The returned value is msTime1 - msTime2. The returned value is invalid
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5441	if the delta is >= 0x10000000.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5442
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5443	This should really be moved to some RelativeTime class;
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5444	better yet: create a subclass of Integer named LimitedRangeInteger."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5445
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5446	\|diff\|
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5447
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5448	diff := msTime1 - msTime2.
11166 52c2ccfc0d4c Make last change better looking Stefan Vogel <sv@exept.de> parents: 11165 diff changeset	5449	diff > 16r-10000000 ifTrue:[
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5450	(diff < 16r10000000) ifTrue:[
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5451	^ diff.
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5452	] ifFalse:[
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5453	^ diff - 16r20000000.
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5454	].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5455	].
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5456	^ diff + 16r20000000
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5457
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5458
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5459	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5460	OperatingSystem millisecondTimeAdd:16r0FFFFFFF and:1
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5461	OperatingSystem millisecondTimeAdd:16r0FFFFFFF and:(16 / 3)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5462	OperatingSystem millisecondTimeAdd:16r0FFFFFFF and:1000
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5463
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5464	OperatingSystem millisecondTimeDeltaBetween:0 and:16r0FFFFFFF
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5465	OperatingSystem millisecondTimeDeltaBetween:0 and:16r1FFFFFFF
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5466	OperatingSystem millisecondTimeDeltaBetween:16r1FFFFFFF and:0
be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5467
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5468	OperatingSystem millisecondTimeDeltaBetween:(13/3) and:16r0FFFFFFF
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5469	OperatingSystem millisecondTimeDeltaBetween:999 and:16r0FFFFFFF
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5470
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5471	OperatingSystem millisecondTime:0 isAfter:16r0FFFFFFF
11163 be8400d459aa #milliSecondsTimeDeltaBetween:and: Stefan Vogel <sv@exept.de> parents: 10734 diff changeset	5472	OperatingSystem millisecondTime:0 isAfter:16r1FFFFFFF
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5473	OperatingSystem millisecondTime:(13/3) isAfter:16r0FFFFFFF
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5474	OperatingSystem millisecondTime:999 isAfter:16r0FFFFFFF
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:0 isAfter:0
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5477	OperatingSystem millisecondTime:(13/3) isAfter:0
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5478	OperatingSystem millisecondTime:999 isAfter:0
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5479
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5480	OperatingSystem millisecondTime:1 isAfter:0
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5481	OperatingSystem millisecondTime:(13/3) isAfter:2
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5482	OperatingSystem millisecondTime:999 isAfter:900
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5483
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5484	\|t1 t2\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5485
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5486	t1 := Time millisecondClockValue.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5487	(Delay forMilliseconds:1) wait.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5488	t2 := Time millisecondClockValue.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5489	OperatingSystem millisecondTimeDeltaBetween:t2 and:t1
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5490	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5491	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5492
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5493	sleep:numberOfSeconds
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5494	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5495
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5496	"cease ANY action for some time. This suspends the whole smalltalk
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5497	(unix-) process for some time.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5498	Not really useful since not even low-prio processes and interrupt
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5499	handling will run during the sleep.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5500	Use either OperatingSystem>>millisecondDelay: (which makes all
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5501	threads sleep, but handles interrupts) or use a Delay (which makes
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5502	only the calling thread sleep)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5503
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5504	self subclassResponsibility
7514 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	timeInfoClass
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5508	^ TimeInfo
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5509	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5510
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5511	timeInfoFromSeconds:osSeconds localTime:isLocalTime
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5512	"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	5513	An internal helper"
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5514
7739 d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5515	^ self timeInfoFromSeconds:osSeconds milliseconds:0 localTime:isLocalTime
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5516	!
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5517
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5518	timeInfoFromSeconds:osSeconds milliseconds:osMilliSeconds localTime:isLocalTime
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5519	"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	5520	An internal helper"
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	5521
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	5522	self subclassResponsibility
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5523	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5524
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5525	!AbstractOperatingSystem class methodsFor:'users & groups'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5526
10544 83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5527	getDesktopDirectory
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5528	"{ Pragma: +optSpace }"
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5529
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5530	"return the name of the users desktop directory.
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5531	The fallback here returns the users home directory."
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5532
10545 8806e5e326c0 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10544 diff changeset	5533	^ self getHomeDirectory
8806e5e326c0 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10544 diff changeset	5534
8806e5e326c0 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10544 diff changeset	5535	"
8806e5e326c0 +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10544 diff changeset	5536	OperatingSystem getDesktopDirectory
10544 83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5537	"
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5538
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5539	"Created: / 16-05-2007 / 13:20:53 / cg"
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5540	!
83b87085880e +getDesktopDirectory Claus Gittinger <cg@exept.de> parents: 10528 diff changeset	5541
11760 84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5542	getDocumentsDirectory
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5543	"return your documents directory.
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5544	Under windows, thats the real 'Documents' or 'My Documents'.
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5545	The fallback here returns the users home directory."
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	"{ Pragma: +optSpace }"
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5548
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5549	^ self getHomeDirectory
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	"
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5552	OperatingSystem getDocumentsDirectory
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5553	"
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5554	!
84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5555
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5556	getEffectiveGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5557	"{ Pragma: +optSpace }"
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	"return the current users (thats you) effective numeric group id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5560	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	5561	as a setuid program (of which you should think about twice)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5562
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5563	^ self getGroupID
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	OperatingSystem getEffectiveGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5567	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5568	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5569
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5570	getEffectiveUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5571	"{ Pragma: +optSpace }"
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	"return the current users (thats you) effective numeric user id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5574	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	5575	as a setuid program (of which you should think about twice)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5576
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5577	^ self getUserID
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	OperatingSystem getEffectiveUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5581	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5582	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5583
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5584	getFullUserName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5585	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5586
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5587	"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	5588	If not, return the login name as a fallBack."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5589
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5590	^ self getFullUserNameFromID:(self getUserID)
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	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5593	OperatingSystem getFullUserName
3576 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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5596	"Modified: 24.1.1997 / 11:31:55 / cg"
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5599	getFullUserNameFromID:userID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5600	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5601
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5602	"return a string with the users full name - if available.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5603	If not, return the login name as a fallBack."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5604
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5605	^ self getUserNameFromID:userID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5606
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5607	"
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5608	OperatingSystem getFullUserNameFromID:0
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5609	OperatingSystem getFullUserNameFromID:(OperatingSystem getUserID)
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5610
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5611	OperatingSystem getUserNameFromID:(OperatingSystem getUserID)
3576 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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5614	"Modified: 15.7.1996 / 12:44:21 / cg"
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5617	getGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5618	"{ Pragma: +optSpace }"
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	"return the current users (thats you) numeric group id"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5621
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5622	^ 1 "/ just a dummy for systems which do not have userIDs
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	OperatingSystem getGroupID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5626	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5627	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5628
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5629	getGroupNameFromID:aNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5630	"{ Pragma: +optSpace }"
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	"return the group-name-string for a given numeric group-id"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5633
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5634	^ '???' "/ just a dummy for systems which do not have groups
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	OperatingSystem getGroupNameFromID:0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5638	OperatingSystem getGroupNameFromID:10
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5639	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5640	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5641
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5642	getHomeDirectory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5643	"return the name of the users home directory
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5644	(i.e. yours)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5645
11760 84dd7c9027e4 new: #getDocumnetDirectory Stefan Vogel <sv@exept.de> parents: 11680 diff changeset	5646	^ self subclassResponsibility
3576 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	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5649	OperatingSystem getHomeDirectory
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5652	"Modified: 24.1.1997 / 11:32:13 / cg"
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5655	getLoginName
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5656	"{ Pragma: +optSpace }"
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	"return a string with the users login name (thats yours)"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5659
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5660	self subclassResponsibility
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5663	getUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5664	"{ Pragma: +optSpace }"
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	"return the current users (thats you) numeric user id"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5667
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5668	^ 1 "just a dummy for systems which do not have userIDs"
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	OperatingSystem getUserID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5672	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5673	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5674
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5675	getUserNameFromID:aNumber
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5676	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5677
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5678	"return the user-name-string for a given numeric user-id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5679	This is the login name, not the fullName."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5680
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5681	"/ fallBack dummy
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 == self getUserID ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5684	^ self getLoginName
3576 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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5687	^ '? (' , aNumber printString , ')'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5688
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	OperatingSystem getUserNameFromID:0
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5691	OperatingSystem getUserNameFromID:100
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5692	OperatingSystem getUserNameFromID:9991
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5693	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5694	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5695
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5696	userInfoOf:aNameOrID
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5697	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5698
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5699	"return a dictionary filled with userinfo. The argument can be either
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5700	a string with the users name or its numeric id.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5701	Notice, that not all systems provide (all of) this info;
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5702	DOS systems return nothing;
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5703	non-SYSV4 systems have no age/comment.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5704	Portable applications may want to check the systemType and NOT depend
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5705	on all keys to be present in the returned dictionary.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5706	Another notice: on some systems (SYSV4), the gecos field includes multiple
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5707	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	5708	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	5709
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5710	\|info\|
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5711
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5712	"/ fallBack dummy
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5713	info := IdentityDictionary new.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5714	info at:#name put:(self getLoginName).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5715	info at:#dir put:(self getHomeDirectory).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5716	^ info
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5717
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5718	"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5719	OperatingSystem userInfoOf:'root'
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5720	OperatingSystem userInfoOf:1
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5721	OperatingSystem userInfoOf:'claus'
3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5722	OperatingSystem userInfoOf:'fooBar'
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5723	OperatingSystem userInfoOf:(OperatingSystem getUserID)
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	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5726
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5727	!AbstractOperatingSystem class methodsFor:'waiting for events'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5728
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5729	blockingChildProcessWait
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5730	"return true, if childProcessWait: blocks, if no children are ready.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5731	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	5732	a subprocesses status (to avoid blocking)."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5733
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5734	^ true
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
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5737	childProcessWait:blocking pid:pidToWait
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5738	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5739
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5740	"get status changes from child processes.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5741	Return an OSProcessStatus or nil, if no process has terminated.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5742	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	5743	otherwise we return immediately.
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5744	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	5745	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	5746
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5747	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5748	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5749
7802 79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5750	isBlockingOn:fd
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5751	"{ Pragma: +optSpace }"
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5752
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5753	"return the blocking attribute - if set (which is the default)
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5754	a read on the fileDescriptor will block until data is available.
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5755	If clear, a read operation will immediately return with a value nil.
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5756	Also affects write operations, which may perform partial writes when
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5757	blocking is off"
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5758
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5759	self subclassResponsibility
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5760	!
79bda5b10e90 comments; Claus Gittinger <cg@exept.de> parents: 7795 diff changeset	5761
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5762	numAvailableForReadOn:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5763	"return the number of bytes available for reading, without blocking."
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	"/ fallBack for systems which do not provide this info
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5766	^ (self readCheck:fd) ifTrue:[1] ifFalse:[0]
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5767	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5768
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5769	readCheck:fd
11835 bf65bdad3827 Avoid blocking in PipeStream (e.g. when doing a CVS checkin) Stefan Vogel <sv@exept.de> parents: 11834 diff changeset	5770	"return true, if a read is possible without blocking.
bf65bdad3827 Avoid blocking in PipeStream (e.g. when doing a CVS checkin) Stefan Vogel <sv@exept.de> parents: 11834 diff changeset	5771	This is the case if data is available on a filedescriptor
bf65bdad3827 Avoid blocking in PipeStream (e.g. when doing a CVS checkin) Stefan Vogel <sv@exept.de> parents: 11834 diff changeset	5772	or the read would return an error.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5773	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	5774
11834 48e189a9cc53 fix #readCheck: for windows - answer true if filedescriptor is closed Stefan Vogel <sv@exept.de> parents: 11768 diff changeset	5775	\|result\|
48e189a9cc53 fix #readCheck: for windows - answer true if filedescriptor is closed Stefan Vogel <sv@exept.de> parents: 11768 diff changeset	5776
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5777	self supportsSelect ifFalse:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5778	"/ mhmh - what should we do then ?
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5779	"/ For now, return true as if data was present,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5780	"/ and let the thread fall into the read.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5781	"/ It will then (hopefully) be descheduled there and
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5782	"/ effectively polling for input.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5783
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5784	^ true
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5785	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5786
11834 48e189a9cc53 fix #readCheck: for windows - answer true if filedescriptor is closed Stefan Vogel <sv@exept.de> parents: 11768 diff changeset	5787	result := self
48e189a9cc53 fix #readCheck: for windows - answer true if filedescriptor is closed Stefan Vogel <sv@exept.de> parents: 11768 diff changeset	5788	selectOnAnyReadable:(Array with:fd)
48e189a9cc53 fix #readCheck: for windows - answer true if filedescriptor is closed Stefan Vogel <sv@exept.de> parents: 11768 diff changeset	5789	writable:nil
48e189a9cc53 fix #readCheck: for windows - answer true if filedescriptor is closed Stefan Vogel <sv@exept.de> parents: 11768 diff changeset	5790	exception:nil
48e189a9cc53 fix #readCheck: for windows - answer true if filedescriptor is closed Stefan Vogel <sv@exept.de> parents: 11768 diff changeset	5791	withTimeOut:0.
48e189a9cc53 fix #readCheck: for windows - answer true if filedescriptor is closed Stefan Vogel <sv@exept.de> parents: 11768 diff changeset	5792
48e189a9cc53 fix #readCheck: for windows - answer true if filedescriptor is closed Stefan Vogel <sv@exept.de> parents: 11768 diff changeset	5793	"on select error, a read will immediately return, so answer true"
11835 bf65bdad3827 Avoid blocking in PipeStream (e.g. when doing a CVS checkin) Stefan Vogel <sv@exept.de> parents: 11834 diff changeset	5794	^ result == fd or:[result == #error].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5795	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5796
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5797	readWriteCheck:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5798	"return true, if filedescriptor can be read or written without blocking.
11835 bf65bdad3827 Avoid blocking in PipeStream (e.g. when doing a CVS checkin) Stefan Vogel <sv@exept.de> parents: 11834 diff changeset	5799	This is the case if data is available on a filedescriptor
bf65bdad3827 Avoid blocking in PipeStream (e.g. when doing a CVS checkin) Stefan Vogel <sv@exept.de> parents: 11834 diff changeset	5800	or the read or write would return an error.
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5801	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	5802	be finished."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5803
11835 bf65bdad3827 Avoid blocking in PipeStream (e.g. when doing a CVS checkin) Stefan Vogel <sv@exept.de> parents: 11834 diff changeset	5804	\|result\|
bf65bdad3827 Avoid blocking in PipeStream (e.g. when doing a CVS checkin) Stefan Vogel <sv@exept.de> parents: 11834 diff changeset	5805
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5806	self supportsSelect ifFalse:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5807	"/ mhmh - what should we do then ?
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5808	"/ For now, return true as if data was present,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5809	"/ and let the thread fall into the write.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5810	"/ It will then (hopefully) be desceduled there and
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5811	"/ effectively polling for output.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5812	^ true
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5813	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5814
11835 bf65bdad3827 Avoid blocking in PipeStream (e.g. when doing a CVS checkin) Stefan Vogel <sv@exept.de> parents: 11834 diff changeset	5815	result := self selectOnAnyReadable:(Array with:fd)
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5816	writable:(Array with:fd)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5817	exception:nil
11835 bf65bdad3827 Avoid blocking in PipeStream (e.g. when doing a CVS checkin) Stefan Vogel <sv@exept.de> parents: 11834 diff changeset	5818	withTimeOut:0.
bf65bdad3827 Avoid blocking in PipeStream (e.g. when doing a CVS checkin) Stefan Vogel <sv@exept.de> parents: 11834 diff changeset	5819
bf65bdad3827 Avoid blocking in PipeStream (e.g. when doing a CVS checkin) Stefan Vogel <sv@exept.de> parents: 11834 diff changeset	5820	^ result == fd or:[result == #error].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5821	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5822
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5823	selectOn:fd1 and:fd2 withTimeOut:millis
11835 bf65bdad3827 Avoid blocking in PipeStream (e.g. when doing a CVS checkin) Stefan Vogel <sv@exept.de> parents: 11834 diff changeset	5824	<resource: #obsolete>
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5825	"wait for any fd to become ready; timeout after t milliseconds.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5826	A zero timeout-time will immediately return (i.e. poll).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5827	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	5828	Obsolete:
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5829	This is a leftover method and will vanish."
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5830
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5831	^ self selectOnAnyReadable:(Array with:fd1 with:fd2)
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5832	writable:(Array with:fd1 with:fd2)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5833	exception:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5834	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5835	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5836
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5837	selectOn:fd withTimeOut:millis
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5838	"wait for aFileDesriptor to become ready; timeout after t milliseconds.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5839	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	5840	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	5841	of read-data.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5842	Experimental."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5843
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5844	^ self selectOnAnyReadable:(Array with:fd)
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5845	writable:(Array with:fd)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5846	exception:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5847	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5848	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5849
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5850	selectOnAny:fdArray withTimeOut:millis
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5851	"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	5852	timeout after t milliseconds. An empty set will always wait.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5853	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	5854	Experimental."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5855
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5856	^ self selectOnAnyReadable:fdArray
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5857	writable:fdArray
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5858	exception:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5859	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5860	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5861
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5862	selectOnAnyReadable:fdArray withTimeOut:millis
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5863	"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	5864	reading. Timeout after t milliseconds. An empty set will always wait.
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5865	A zero timeout-time will immediately return (i.e. poll).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5866	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	5867	Experimental."
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5868
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5869	^ self selectOnAnyReadable:fdArray
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5870	writable:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5871	exception:nil
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5872	withTimeOut:millis
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5873	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5874
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5875	selectOnAnyReadable:readFdArray writable:writeFdArray exception:exceptFdArray
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5876	readableInto:readableResultFdArray writableInto:writableResultFdArray
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5877	exceptionInto:exceptionResultFdArray
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5878	withTimeOut:millis
7510 46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	5879
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5880	"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	5881	writeFdArray to become ready for writing,
7510 46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	5882	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	5883	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	5884	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	5885	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	5886	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	5887	writableResultFdArray and exceptionResultFdArray respectively.
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	5888
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	5889	Return the (overall) number of selected filedescriptors.
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	5890	readableResultFdArray, writableResultFdArray and exceptionResultFdArray will
46a848d466b5 select: wake up readFDs if readable only; Claus Gittinger <cg@exept.de> parents: 7509 diff changeset	5891	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	5892	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	5893
f2bf4935e7eb New select for fair scheduling (not giving low filedescriptors Stefan Vogel <sv@exept.de> parents: 7488 diff changeset	5894	self subclassResponsibility
f2bf4935e7eb New select for fair scheduling (not giving low filedescriptors Stefan Vogel <sv@exept.de> parents: 7488 diff changeset	5895	!
f2bf4935e7eb New select for fair scheduling (not giving low filedescriptors Stefan Vogel <sv@exept.de> parents: 7488 diff changeset	5896
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5897	selectOnAnyReadable:readFdArray writable:writeFdArray exception:exceptFdArray withTimeOut:millis
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	5898	"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	5899	reading, writeFdArray to become ready for writing, or exceptFdArray to
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5900	arrive exceptional data (i.e. out-of-band data).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5901	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	5902	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	5903	descriptors (i.e. to check if I/O possible without blocking).
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5904	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	5905
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5906	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5907	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5908
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5909	setBlocking:aBoolean on:fd
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5910	"{ Pragma: +optSpace }"
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5911
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5912	"set/clear the blocking attribute - if set (which is the default)
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5913	a read on the fileDescriptor will block until data is available.
7803 2238df4944ca comments; Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	5914	If cleared, a read operation will immediately return with a value of nil.
2238df4944ca comments; Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	5915	Also affects write operations, which may perform partial writes when
2238df4944ca comments; Claus Gittinger <cg@exept.de> parents: 7802 diff changeset	5916	blocking is off"
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5917
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5918	self subclassResponsibility
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5919	!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5920
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5921	writeCheck:fd
11835 bf65bdad3827 Avoid blocking in PipeStream (e.g. when doing a CVS checkin) Stefan Vogel <sv@exept.de> parents: 11834 diff changeset	5922	"return true, if filedescriptor can be written without blocking.
bf65bdad3827 Avoid blocking in PipeStream (e.g. when doing a CVS checkin) Stefan Vogel <sv@exept.de> parents: 11834 diff changeset	5923	This is the case if data can be written to a filedescriptor
bf65bdad3827 Avoid blocking in PipeStream (e.g. when doing a CVS checkin) Stefan Vogel <sv@exept.de> parents: 11834 diff changeset	5924	or the write would return an error."
bf65bdad3827 Avoid blocking in PipeStream (e.g. when doing a CVS checkin) Stefan Vogel <sv@exept.de> parents: 11834 diff changeset	5925
bf65bdad3827 Avoid blocking in PipeStream (e.g. when doing a CVS checkin) Stefan Vogel <sv@exept.de> parents: 11834 diff changeset	5926	\|result\|
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5927
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5928	self supportsSelect ifFalse:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5929	"/ mhmh - what should we do then ?
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5930	"/ For now, return true as if data was present,
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5931	"/ and let the thread fall into the write.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5932	"/ It will then (hopefully) be desceduled there and
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5933	"/ effectively polling for output.
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5934	^ true
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5935	].
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5936
11835 bf65bdad3827 Avoid blocking in PipeStream (e.g. when doing a CVS checkin) Stefan Vogel <sv@exept.de> parents: 11834 diff changeset	5937	result := self selectOnAnyReadable:nil
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5938	writable:(Array with:fd)
cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	5939	exception:nil
11835 bf65bdad3827 Avoid blocking in PipeStream (e.g. when doing a CVS checkin) Stefan Vogel <sv@exept.de> parents: 11834 diff changeset	5940	withTimeOut:0.
bf65bdad3827 Avoid blocking in PipeStream (e.g. when doing a CVS checkin) Stefan Vogel <sv@exept.de> parents: 11834 diff changeset	5941
bf65bdad3827 Avoid blocking in PipeStream (e.g. when doing a CVS checkin) Stefan Vogel <sv@exept.de> parents: 11834 diff changeset	5942	^ result == fd or:[result == #error].
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5943	! !
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	5944
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	5945	!AbstractOperatingSystem::PrinterInfo class methodsFor:'constants'!
d8547710430c printer stuff fm parents: 9380 diff changeset	5946
d8547710430c printer stuff fm parents: 9380 diff changeset	5947	paperSizeNameForNumber:aNumber
d8547710430c printer stuff fm parents: 9380 diff changeset	5948	^ self paperSizeNumberToNameMapping at:aNumber
d8547710430c printer stuff fm parents: 9380 diff changeset	5949
d8547710430c printer stuff fm parents: 9380 diff changeset	5950	"
d8547710430c printer stuff fm parents: 9380 diff changeset	5951	self paperSizeNameForNumber:1
d8547710430c printer stuff fm parents: 9380 diff changeset	5952	"
d8547710430c printer stuff fm parents: 9380 diff changeset	5953
d8547710430c printer stuff fm parents: 9380 diff changeset	5954	"Created: / 31-07-2006 / 15:35:36 / fm"
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	paperSizeNameForNumber:aNumber ifAbsent: aBlock
d8547710430c printer stuff fm parents: 9380 diff changeset	5958	^ self paperSizeNumberToNameMapping at:aNumber ifAbsent: aBlock
d8547710430c printer stuff fm parents: 9380 diff changeset	5959
d8547710430c printer stuff fm parents: 9380 diff changeset	5960	"
d8547710430c printer stuff fm parents: 9380 diff changeset	5961	self paperSizeNameForNumber:11212 ifAbsent: [nil]
d8547710430c printer stuff fm parents: 9380 diff changeset	5962	"
d8547710430c printer stuff fm parents: 9380 diff changeset	5963
d8547710430c printer stuff fm parents: 9380 diff changeset	5964	"Created: / 31-07-2006 / 15:35:36 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5965	!
d8547710430c printer stuff fm parents: 9380 diff changeset	5966
d8547710430c printer stuff fm parents: 9380 diff changeset	5967	paperSizeNames
d8547710430c printer stuff fm parents: 9380 diff changeset	5968	\|codes\|
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	5969	codes := self paperSizeNumberToNameTable values asSortedCollection:[:a :b \| a < b].
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	5970	^codes collect:[:each \| self paperSizeNameForNumber: each]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	5971
d8547710430c printer stuff fm parents: 9380 diff changeset	5972	"Created: / 31-07-2006 / 15:35:36 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	5973	"Modified: / 16-04-2007 / 12:03:55 / cg"
9476 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	paperSizeNumberForName:aName
d8547710430c printer stuff fm parents: 9380 diff changeset	5977	^ self paperSizeNumberToNameMapping at:aName
d8547710430c printer stuff fm parents: 9380 diff changeset	5978
d8547710430c printer stuff fm parents: 9380 diff changeset	5979	"
d8547710430c printer stuff fm parents: 9380 diff changeset	5980	self paperSizeNumberForName:'Letter, 8 1/2- by 11-inches'
d8547710430c printer stuff fm parents: 9380 diff changeset	5981	"
d8547710430c printer stuff fm parents: 9380 diff changeset	5982
d8547710430c printer stuff fm parents: 9380 diff changeset	5983	"Created: / 31-07-2006 / 15:35:37 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5984	!
d8547710430c printer stuff fm parents: 9380 diff changeset	5985
d8547710430c printer stuff fm parents: 9380 diff changeset	5986	paperSizeNumberToNameMapping
d8547710430c printer stuff fm parents: 9380 diff changeset	5987	\|d\|
d8547710430c printer stuff fm parents: 9380 diff changeset	5988
d8547710430c printer stuff fm parents: 9380 diff changeset	5989	d := self paperSizeNumberToNameTable.
d8547710430c printer stuff fm parents: 9380 diff changeset	5990
d8547710430c printer stuff fm parents: 9380 diff changeset	5991	d keys copy do:[:k \| d at:(d at:k) put:k].
d8547710430c printer stuff fm parents: 9380 diff changeset	5992	^ d.
d8547710430c printer stuff fm parents: 9380 diff changeset	5993
d8547710430c printer stuff fm parents: 9380 diff changeset	5994	"Created: / 31-07-2006 / 15:35:37 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	5995	!
d8547710430c printer stuff fm parents: 9380 diff changeset	5996
d8547710430c printer stuff fm parents: 9380 diff changeset	5997	paperSizeNumberToNameTable
d8547710430c printer stuff fm parents: 9380 diff changeset	5998
d8547710430c printer stuff fm parents: 9380 diff changeset	5999	^Dictionary withKeysAndValues:
d8547710430c printer stuff fm parents: 9380 diff changeset	6000	#(
d8547710430c printer stuff fm parents: 9380 diff changeset	6001	'Letter, 8 1/2- by 11-inches' 1 "/ Letter
d8547710430c printer stuff fm parents: 9380 diff changeset	6002	'Legal 8 1/2- by 14-inches' 5 "/ Legal
d8547710430c printer stuff fm parents: 9380 diff changeset	6003	'10- by 14-inch sheet' 16 "/ 10x14
d8547710430c printer stuff fm parents: 9380 diff changeset	6004	'11- by 17-inch sheet' 17 "/ 11x17
d8547710430c printer stuff fm parents: 9380 diff changeset	6005	"/ '12X11' "/ Windows 98/Me, Windows NT 4.0 and later: 12- by 11-inch sheet
d8547710430c printer stuff fm parents: 9380 diff changeset	6006	'A3 sheet, 297- by 420-millimeters' 8 "/ A3
d8547710430c printer stuff fm parents: 9380 diff changeset	6007	'A3 rotated sheet, 420- by 297-millimeters' 67 "/ A3_rotated
d8547710430c printer stuff fm parents: 9380 diff changeset	6008	'A4 sheet, 210- by 297-millimeters' 9 "/ A4
d8547710430c printer stuff fm parents: 9380 diff changeset	6009	'A4 rotated sheet, 297- by 210-millimeters' 55 "/ A4_rotated
d8547710430c printer stuff fm parents: 9380 diff changeset	6010	'A4 small sheet, 210- by 297-millimeters' 10 "/ A4 small
d8547710430c printer stuff fm parents: 9380 diff changeset	6011	'A5 sheet, 148- by 210-millimeters' 11 "/ A5
d8547710430c printer stuff fm parents: 9380 diff changeset	6012	'A5 rotated sheet, 210- by 148-millimeters' 61 "/ A5 rotated
d8547710430c printer stuff fm parents: 9380 diff changeset	6013	"/ 'a6' "/ Windows 98/Me, Windows NT 4.0 and later: A6 sheet, 105- by 148-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	6014	"/ '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	6015	'B4 sheet, 250- by 354-millimeters' 12 "/ B4
d8547710430c printer stuff fm parents: 9380 diff changeset	6016	"/ 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	6017	'B5 sheet, 182- by 257-millimeter paper' 13 "/ B5
d8547710430c printer stuff fm parents: 9380 diff changeset	6018	"/ 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	6019	"/ 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	6020	"/ 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	6021	"/ csheet C Sheet, 17- by 22-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6022	"/ 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	6023	"/ 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	6024	"/ dsheet D Sheet, 22- by 34-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6025	'#9 Envelope, 3 7/8- by 8 7/8-inches' 19 "/ env_9
d8547710430c printer stuff fm parents: 9380 diff changeset	6026	'#10 Envelope, 4 1/8- by 9 1/2-inches' 20 "/ env_10
d8547710430c printer stuff fm parents: 9380 diff changeset	6027	'#11 Envelope, 4 1/2- by 10 3/8-inches' 21 "/ env_11
d8547710430c printer stuff fm parents: 9380 diff changeset	6028	'#12 Envelope, 4 3/4- by 11-inches' 22 "/ env_12
d8547710430c printer stuff fm parents: 9380 diff changeset	6029	'#14 Envelope, 5- by 11 1/2-inches' 23 "/ env_15
d8547710430c printer stuff fm parents: 9380 diff changeset	6030	'C5 Envelope, 162- by 229-millimeters' 28 "/ env_c5
d8547710430c printer stuff fm parents: 9380 diff changeset	6031	'C3 Envelope, 324- by 458-millimeters' 29 "/ env_c3
d8547710430c printer stuff fm parents: 9380 diff changeset	6032	'C4 Envelope, 229- by 324-millimeters' 30 "/ env_c4
d8547710430c printer stuff fm parents: 9380 diff changeset	6033	'C6 Envelope, 114- by 162-millimeters' 31 "/ env_c6
d8547710430c printer stuff fm parents: 9380 diff changeset	6034	'C65 Envelope, 114- by 229-millimeters' 32 "/ env_c65
d8547710430c printer stuff fm parents: 9380 diff changeset	6035	'B4 Envelope, 250- by 353-millimeters' 33 "/ env_b4
d8547710430c printer stuff fm parents: 9380 diff changeset	6036	'B5 Envelope, 176- by 250-millimeters' 34 "/ env_b5
d8547710430c printer stuff fm parents: 9380 diff changeset	6037	'B6 Envelope, 176- by 125-millimeters' 35 "/ env_b6
d8547710430c printer stuff fm parents: 9380 diff changeset	6038	'DL Envelope, 110- by 220-millimeters' 27 "/ env_dl
d8547710430c printer stuff fm parents: 9380 diff changeset	6039	'Italy Envelope, 110- by 230-millimeters' 36 "/ env_italy
d8547710430c printer stuff fm parents: 9380 diff changeset	6040	'Monarch Envelope, 3 7/8- by 7 1/2-inches' 37 "/ env_monarch
d8547710430c printer stuff fm parents: 9380 diff changeset	6041	"/ env_personal 6 3/4 Envelope, 3 5/8- by 6 1/2-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6042	"/ esheet E Sheet, 34- by 44-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6043	"/ executive Executive, 7 1/4- by 10 1/2-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6044	"/ fanfold_us US Std Fanfold, 14 7/8- by 11-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6045	"/ fanfold_std_german German Std Fanfold, 8 1/2- by 12-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6046	"/ fanfold_lgl_german German Legal Fanfold, 8 - by 13-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6047	"/ folio Folio, 8 1/2- by 13-inch paper
d8547710430c printer stuff fm parents: 9380 diff changeset	6048	"/ 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	6049	"/ jenv_chou3 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Chou #3
d8547710430c printer stuff fm parents: 9380 diff changeset	6050	"/ 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	6051	"/ jenv_chou4 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Chou #4
d8547710430c printer stuff fm parents: 9380 diff changeset	6052	"/ 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	6053	"/ jenv_kaku2 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Kaku #2
d8547710430c printer stuff fm parents: 9380 diff changeset	6054	"/ 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	6055	"/ jenv_kaku3 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope Kaku #3
d8547710430c printer stuff fm parents: 9380 diff changeset	6056	"/ 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	6057	"/ jenv_you4 Windows 98/Me, Windows NT 4.0 and later: Japanese Envelope You #4
d8547710430c printer stuff fm parents: 9380 diff changeset	6058	"/ 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	6059	"/ last Windows 2000/XP: PENV_10_ROTATED
d8547710430c printer stuff fm parents: 9380 diff changeset	6060	'Ledger, 17- by 11-inches' 4 "/ ledger
d8547710430c printer stuff fm parents: 9380 diff changeset	6061	'Letter Rotated 11 by 8 1/2 11 inches' 54 "/ letter_rotated
d8547710430c printer stuff fm parents: 9380 diff changeset	6062	"/ lettersmall Letter Small, 8 1/2- by 11-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6063	"/ note Note, 8 1/2- by 11-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6064	"/ p16k Windows 98/Me, Windows NT 4.0 and later: PRC 16K, 146- by 215-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	6065	"/ 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	6066	"/ p32k Windows 98/Me, Windows NT 4.0 and later: PRC 32K, 97- by 151-millimeters
d8547710430c printer stuff fm parents: 9380 diff changeset	6067	"/ 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	6068	"/ 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	6069	"/ 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	6070	"/ 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	6071	"/ 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	6072	"/ 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	6073	"/ 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	6074	"/ 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	6075	"/ 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	6076	"/ 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	6077	"/ 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	6078	"/ 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	6079	"/ 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	6080	"/ 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	6081	"/ 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	6082	"/ 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	6083	"/ 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	6084	"/ 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	6085	"/ 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	6086	"/ 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	6087	"/ 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	6088	"/ 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	6089	"/ 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	6090	"/ quarto Quarto, 215- by 275-millimeter paper
d8547710430c printer stuff fm parents: 9380 diff changeset	6091	"/ statement Statement, 5 1/2- by 8 1/2-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6092	"/ tabloid Tabloid, 11- by 17-inches
d8547710430c printer stuff fm parents: 9380 diff changeset	6093	).
d8547710430c printer stuff fm parents: 9380 diff changeset	6094
d8547710430c printer stuff fm parents: 9380 diff changeset	6095	"Created: / 31-07-2006 / 15:35:37 / fm"
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	statusNumberToDescriptionForNumber:aNumber
11403 0a34ea95a57b changed: #statusNumberToDescriptionForNumber: fm parents: 11180 diff changeset	6099	^ self statusNumberToDescriptionMapping at:aNumber ifAbsent:[('Unknown (%1)' bindWith:aNumber printString)]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6100
d8547710430c printer stuff fm parents: 9380 diff changeset	6101	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6102	self statusNumberToDescriptionForNumber:1
d8547710430c printer stuff fm parents: 9380 diff changeset	6103	"
d8547710430c printer stuff fm parents: 9380 diff changeset	6104
d8547710430c printer stuff fm parents: 9380 diff changeset	6105	"Created: / 01-08-2006 / 14:31:18 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6106	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6107
d8547710430c printer stuff fm parents: 9380 diff changeset	6108	statusNumberToDescriptionMapping
d8547710430c printer stuff fm parents: 9380 diff changeset	6109	\|d\|
d8547710430c printer stuff fm parents: 9380 diff changeset	6110
d8547710430c printer stuff fm parents: 9380 diff changeset	6111	d := self statusNumberToDescriptionTable.
d8547710430c printer stuff fm parents: 9380 diff changeset	6112
d8547710430c printer stuff fm parents: 9380 diff changeset	6113	d keys copy do:[:k \| d at:(d at:k) put:k].
d8547710430c printer stuff fm parents: 9380 diff changeset	6114	^ d.
d8547710430c printer stuff fm parents: 9380 diff changeset	6115
d8547710430c printer stuff fm parents: 9380 diff changeset	6116	"Created: / 01-08-2006 / 14:31:05 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6117	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6118
d8547710430c printer stuff fm parents: 9380 diff changeset	6119	statusNumberToDescriptionTable
d8547710430c printer stuff fm parents: 9380 diff changeset	6120
d8547710430c printer stuff fm parents: 9380 diff changeset	6121	^Dictionary withKeysAndValues:
d8547710430c printer stuff fm parents: 9380 diff changeset	6122	#( 'Ready' 0 "/ PRINTER_STATUS_READY
d8547710430c printer stuff fm parents: 9380 diff changeset	6123	'Paused' 1 "/ PRINTER_STATUS_PAUSED
d8547710430c printer stuff fm parents: 9380 diff changeset	6124	'Error' 2 "/ PRINTER_STATUS_ERROR
d8547710430c printer stuff fm parents: 9380 diff changeset	6125	'Deleting...' 4 "/ PRINTER_STATUS_PENDING_DELETION
d8547710430c printer stuff fm parents: 9380 diff changeset	6126	'Paper Jam' 8 "/ PRINTER_STATUS_PAPER_JAM
d8547710430c printer stuff fm parents: 9380 diff changeset	6127	'Paper Out' 16 "/ PRINTER_STATUS_PAPER_OUT
d8547710430c printer stuff fm parents: 9380 diff changeset	6128	'Manual Feed Required' 32 "/ PRINTER_STATUS_MANUAL_FEED
d8547710430c printer stuff fm parents: 9380 diff changeset	6129	'Paper Problem' 64 "/ PRINTER_STATUS_PAPER_PROBLEM
d8547710430c printer stuff fm parents: 9380 diff changeset	6130	'Offline' 128 "/ PRINTER_STATUS_OFFLINE
d8547710430c printer stuff fm parents: 9380 diff changeset	6131	'Downloading Job' 256 "/ PRINTER_STATUS_IO_ACTIVE
d8547710430c printer stuff fm parents: 9380 diff changeset	6132	'Busy' 512 "/ PRINTER_STATUS_BUSY
d8547710430c printer stuff fm parents: 9380 diff changeset	6133	'Printing' 1024 "/ PRINTER_STATUS_PRINTING
d8547710430c printer stuff fm parents: 9380 diff changeset	6134	'Output Bill Full' 2048 "/ PRINTER_STATUS_OUTPUT_BIN_FULL
d8547710430c printer stuff fm parents: 9380 diff changeset	6135	'Not Available' 4096 "/ PRINTER_STATUS_NOT_AVAILABLE
d8547710430c printer stuff fm parents: 9380 diff changeset	6136	'Waiting' 8192 "/ PRINTER_STATUS_WAITING
d8547710430c printer stuff fm parents: 9380 diff changeset	6137	'Processing Job' 16384 "/ PRINTER_STATUS_PROCESSING
d8547710430c printer stuff fm parents: 9380 diff changeset	6138	'Initializing' 32768 "/ PRINTER_STATUS_INITIALIZING
d8547710430c printer stuff fm parents: 9380 diff changeset	6139	'Warming Up' 65536 "/ PRINTER_STATUS_WARMING_UP
d8547710430c printer stuff fm parents: 9380 diff changeset	6140	'Toner Low' 131072 "/ PRINTER_STATUS_TONER_LOW
d8547710430c printer stuff fm parents: 9380 diff changeset	6141	'Toner Out' 262144 "/ PRINTER_STATUS_NO_TONER
d8547710430c printer stuff fm parents: 9380 diff changeset	6142	'Page too Complex' 524288 "/ PRINTER_STATUS_PAGE_PUNT
d8547710430c printer stuff fm parents: 9380 diff changeset	6143	'User Intervention Required'1048576 "/ PRINTER_STATUS_USER_INTERVENTION
d8547710430c printer stuff fm parents: 9380 diff changeset	6144	'Out of Memory' 2097152 "/ PRINTER_STATUS_OUT_OF_MEMORY
d8547710430c printer stuff fm parents: 9380 diff changeset	6145	'Door Open' 4194304 "/ PRINTER_STATUS_DOOR_OPEN
d8547710430c printer stuff fm parents: 9380 diff changeset	6146	'Unable to connect' 8388608 "/ PRINTER_STATUS_SERVER_UNKNOWN
d8547710430c printer stuff fm parents: 9380 diff changeset	6147	'Power Save Mode' 16777216 "/ PRINTER_STATUS_POWER_SAVE
d8547710430c printer stuff fm parents: 9380 diff changeset	6148	).
d8547710430c printer stuff fm parents: 9380 diff changeset	6149
d8547710430c printer stuff fm parents: 9380 diff changeset	6150	"Created: / 01-08-2006 / 14:23:33 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6151	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6152
d8547710430c printer stuff fm parents: 9380 diff changeset	6153	!AbstractOperatingSystem::PrinterInfo methodsFor:'accessing'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6154
d8547710430c printer stuff fm parents: 9380 diff changeset	6155	attributes
d8547710430c printer stuff fm parents: 9380 diff changeset	6156	^ attributes
d8547710430c printer stuff fm parents: 9380 diff changeset	6157
d8547710430c printer stuff fm parents: 9380 diff changeset	6158	"Created: / 27-07-2006 / 12:16:59 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6159	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6160
d8547710430c printer stuff fm parents: 9380 diff changeset	6161	collate
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6162	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6163
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6164	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6165	^ properties isNil ifTrue:[ nil ] ifFalse:[ properties collate = 1 ]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6166
d8547710430c printer stuff fm parents: 9380 diff changeset	6167	"Created: / 01-08-2006 / 09:56:14 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6168	"Modified: / 01-08-2006 / 11:49:18 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6169	"Modified: / 18-10-2006 / 12:02:29 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6170	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6171
d8547710430c printer stuff fm parents: 9380 diff changeset	6172	collate: aBoolean
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6173	\|integer\|
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6174
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6175	integer:= aBoolean
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6176	ifTrue:[1] "DMCOLLATE_TRUE"
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6177	ifFalse:[0]. "DMCOLLATE_FALSE"
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6178	self documentProperties collate: integer
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6179
d8547710430c printer stuff fm parents: 9380 diff changeset	6180	"Created: / 01-08-2006 / 09:56:01 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6181	"Modified: / 16-04-2007 / 12:01:30 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6182	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6183
d8547710430c printer stuff fm parents: 9380 diff changeset	6184	comment
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6185	^self printerInfo2 pComment
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6186
d8547710430c printer stuff fm parents: 9380 diff changeset	6187	"Created: / 01-08-2006 / 15:06:20 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6188	"Modified: / 16-04-2007 / 12:01:42 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6189	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6190
d8547710430c printer stuff fm parents: 9380 diff changeset	6191	copies
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6192	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6193
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6194	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6195	^ properties isNil ifTrue:[ nil ] ifFalse:[ properties copies ]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6196
d8547710430c printer stuff fm parents: 9380 diff changeset	6197	"Created: / 31-07-2006 / 13:46:53 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6198	"Modified: / 18-10-2006 / 12:02:14 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6199	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6200
d8547710430c printer stuff fm parents: 9380 diff changeset	6201	copies: anInteger
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6202	self documentProperties copies: anInteger
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6203
d8547710430c printer stuff fm parents: 9380 diff changeset	6204	"Created: / 31-07-2006 / 13:54:55 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6205	"Modified: / 16-04-2007 / 12:01:48 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6206	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6207
d8547710430c printer stuff fm parents: 9380 diff changeset	6208	documentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6209
d8547710430c printer stuff fm parents: 9380 diff changeset	6210	^documentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6211
d8547710430c printer stuff fm parents: 9380 diff changeset	6212	"Created: / 28-07-2006 / 11:50:04 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6213	"Modified: / 31-07-2006 / 13:06:24 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6214	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6215
d8547710430c printer stuff fm parents: 9380 diff changeset	6216	documentProperties: aDevModeStructure
d8547710430c printer stuff fm parents: 9380 diff changeset	6217
d8547710430c printer stuff fm parents: 9380 diff changeset	6218	documentProperties := aDevModeStructure.
d8547710430c printer stuff fm parents: 9380 diff changeset	6219
d8547710430c printer stuff fm parents: 9380 diff changeset	6220	"Created: / 28-07-2006 / 11:47:31 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6221	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6222
d8547710430c printer stuff fm parents: 9380 diff changeset	6223	driverName
d8547710430c printer stuff fm parents: 9380 diff changeset	6224
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6225	^self attributes at:#driverName
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6226
d8547710430c printer stuff fm parents: 9380 diff changeset	6227	"Created: / 01-08-2006 / 15:33:08 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6228	"Modified: / 16-04-2007 / 12:01:53 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6229	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6230
d8547710430c printer stuff fm parents: 9380 diff changeset	6231	location
d8547710430c printer stuff fm parents: 9380 diff changeset	6232
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6233	^self printerInfo2 pLocation
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6234
d8547710430c printer stuff fm parents: 9380 diff changeset	6235	"Created: / 01-08-2006 / 15:06:28 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6236	"Modified: / 16-04-2007 / 12:02:07 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6237	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6238
d8547710430c printer stuff fm parents: 9380 diff changeset	6239	longName
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6240	^attributes at:#longName ifAbsent:['']
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6241
d8547710430c printer stuff fm parents: 9380 diff changeset	6242	"Created: / 28-07-2006 / 12:06:32 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6243	"Modified: / 16-04-2007 / 12:02:11 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6244	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6245
d8547710430c printer stuff fm parents: 9380 diff changeset	6246	medium
d8547710430c printer stuff fm parents: 9380 diff changeset	6247
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6248	^self attributes at:#medium
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6249
d8547710430c printer stuff fm parents: 9380 diff changeset	6250	"Created: / 01-08-2006 / 15:34:26 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6251	"Modified: / 16-04-2007 / 12:02:14 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6252	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6253
d8547710430c printer stuff fm parents: 9380 diff changeset	6254	orientation
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6255	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6256
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6257	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6258	^ properties isNil ifTrue:[ nil ] ifFalse:[ properties orientation ]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6259
d8547710430c printer stuff fm parents: 9380 diff changeset	6260	"Created: / 28-07-2006 / 16:44:26 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6261	"Modified: / 18-10-2006 / 12:01:36 / User"
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6262	!
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6263
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6264	orientation:anInteger
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6265	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6266
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6267	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6268	properties notNil ifTrue:[
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6269	properties orientation:anInteger
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6270	]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6271
d8547710430c printer stuff fm parents: 9380 diff changeset	6272	"Created: / 28-07-2006 / 17:22:44 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6273	"Modified: / 18-10-2006 / 12:01:40 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6274	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6275
d8547710430c printer stuff fm parents: 9380 diff changeset	6276	pDriverName
d8547710430c printer stuff fm parents: 9380 diff changeset	6277
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6278	^self printerInfo2 pDriverName
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6279
d8547710430c printer stuff fm parents: 9380 diff changeset	6280	"Created: / 01-08-2006 / 15:33:08 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6281	"Modified: / 16-04-2007 / 12:02:21 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6282	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6283
d8547710430c printer stuff fm parents: 9380 diff changeset	6284	paperSize
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6285	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6286
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6287	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6288	^ properties isNil ifTrue:[ nil ] ifFalse:[ properties paperSize ]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6289
d8547710430c printer stuff fm parents: 9380 diff changeset	6290	"Created: / 31-07-2006 / 15:23:29 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6291	"Modified: / 31-07-2006 / 16:25:58 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6292	"Modified: / 18-10-2006 / 12:01:45 / User"
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6293	!
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6294
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6295	paperSize:anInteger
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6296	\|properties\|
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6297
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6298	properties := self documentProperties.
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6299	properties notNil ifTrue:[
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6300	properties paperSize:anInteger
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6301	]
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6302
d8547710430c printer stuff fm parents: 9380 diff changeset	6303	"Created: / 31-07-2006 / 15:23:20 / fm"
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6304	"Modified: / 18-10-2006 / 12:01:48 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6305	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6306
d8547710430c printer stuff fm parents: 9380 diff changeset	6307	paperSizeName
d8547710430c printer stuff fm parents: 9380 diff changeset	6308	^ self class paperSizeNameForNumber:self paperSize ifAbsent:[nil].
d8547710430c printer stuff fm parents: 9380 diff changeset	6309
d8547710430c printer stuff fm parents: 9380 diff changeset	6310	"Created: / 31-07-2006 / 15:35:12 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6311	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6312
10096 36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6313	paperSizeName:aString
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6314	self paperSize:(self class paperSizeNumberForName:aString)
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6315
36f3d09c3c2e * empty log message * fm parents: 10021 diff changeset	6316	"Modified: / 18-10-2006 / 12:01:56 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6317	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6318
d8547710430c printer stuff fm parents: 9380 diff changeset	6319	printQuality
d8547710430c printer stuff fm parents: 9380 diff changeset	6320	^self documentProperties printQuality
d8547710430c printer stuff fm parents: 9380 diff changeset	6321
d8547710430c printer stuff fm parents: 9380 diff changeset	6322	"Created: / 04-08-2006 / 13:10:06 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6323	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6324
d8547710430c printer stuff fm parents: 9380 diff changeset	6325	printerName
d8547710430c printer stuff fm parents: 9380 diff changeset	6326	^ printerName
d8547710430c printer stuff fm parents: 9380 diff changeset	6327
d8547710430c printer stuff fm parents: 9380 diff changeset	6328	"Created: / 27-07-2006 / 12:16:59 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6329	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6330
d8547710430c printer stuff fm parents: 9380 diff changeset	6331	printerName:printerNameArg attributes:attributesArg
d8547710430c printer stuff fm parents: 9380 diff changeset	6332
d8547710430c printer stuff fm parents: 9380 diff changeset	6333	printerName := printerNameArg.
d8547710430c printer stuff fm parents: 9380 diff changeset	6334	attributes := attributesArg.
d8547710430c printer stuff fm parents: 9380 diff changeset	6335
d8547710430c printer stuff fm parents: 9380 diff changeset	6336	"Created: / 27-07-2006 / 12:29:18 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6337	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6338
d8547710430c printer stuff fm parents: 9380 diff changeset	6339	remotePrinterHost
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6340	^attributes at:#remotePrinterHost ifAbsent:['']
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6341
d8547710430c printer stuff fm parents: 9380 diff changeset	6342	"Created: / 28-07-2006 / 16:30:13 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6343	"Modified: / 16-04-2007 / 12:02:32 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6344	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6345
d8547710430c printer stuff fm parents: 9380 diff changeset	6346	remotePrinterName
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6347	^attributes at:#remotePrinterName ifAbsent:['']
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6348
d8547710430c printer stuff fm parents: 9380 diff changeset	6349	"Created: / 28-07-2006 / 16:30:06 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6350	"Modified: / 16-04-2007 / 12:03:23 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6351	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6352
d8547710430c printer stuff fm parents: 9380 diff changeset	6353	status
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6354	self isAvailable ifFalse:[^''].
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6355	^self class statusNumberToDescriptionForNumber: self getPrinterInfo2 status
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6356
d8547710430c printer stuff fm parents: 9380 diff changeset	6357	"Created: / 01-08-2006 / 13:48:58 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6358	"Modified: / 16-04-2007 / 12:03:41 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6359	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6360
d8547710430c printer stuff fm parents: 9380 diff changeset	6361	userFriendlyName
d8547710430c printer stuff fm parents: 9380 diff changeset	6362	^self remotePrinterName isEmpty
d8547710430c printer stuff fm parents: 9380 diff changeset	6363	ifTrue:[self printerName]
d8547710430c printer stuff fm parents: 9380 diff changeset	6364	ifFalse:[self remotePrinterName, ' on ', self remotePrinterHost]
d8547710430c printer stuff fm parents: 9380 diff changeset	6365
d8547710430c printer stuff fm parents: 9380 diff changeset	6366	"Created: / 03-08-2006 / 12:50:09 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6367	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6368
d8547710430c printer stuff fm parents: 9380 diff changeset	6369	!AbstractOperatingSystem::PrinterInfo methodsFor:'dc creation'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6370
d8547710430c printer stuff fm parents: 9380 diff changeset	6371	createDC
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6372	\|driverName pName\|
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	driverName := self driverName.
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6375	pName := self printerName.
10513 0a27c8d86154 * empty log message * Claus Gittinger <cg@exept.de> parents: 10510 diff changeset	6376	"/ Transcript show:driverName; show:' '; showCR:printerName.
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6377
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6378	^OperatingSystem createPrinterDC:driverName
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6379	device:pName
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6380	output:self medium
d8547710430c printer stuff fm parents: 9380 diff changeset	6381	initData:self documentProperties.
d8547710430c printer stuff fm parents: 9380 diff changeset	6382
d8547710430c printer stuff fm parents: 9380 diff changeset	6383	"Created: / 02-08-2006 / 16:51:02 / fm"
10513 0a27c8d86154 * empty log message * Claus Gittinger <cg@exept.de> parents: 10510 diff changeset	6384	"Modified: / 16-04-2007 / 13:56:56 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6385	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6386
d8547710430c printer stuff fm parents: 9380 diff changeset	6387	!AbstractOperatingSystem::PrinterInfo methodsFor:'dialogs'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6388
d8547710430c printer stuff fm parents: 9380 diff changeset	6389	openPropertiesDialog
9844 c92a32fa507d * empty log message * Claus Gittinger <cg@exept.de> parents: 9721 diff changeset	6390	"Returns true if the documentProperties have been accepted. Otherwise, returns false"
c92a32fa507d * empty log message * Claus Gittinger <cg@exept.de> parents: 9721 diff changeset	6391
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6392	\|h newDocumentProperties\|
d8547710430c printer stuff fm parents: 9380 diff changeset	6393
d8547710430c printer stuff fm parents: 9380 diff changeset	6394	h := OperatingSystem openPrinter: self printerName.
d8547710430c printer stuff fm parents: 9380 diff changeset	6395	newDocumentProperties := OperatingSystem documentPropertiesDialogFor:nil
d8547710430c printer stuff fm parents: 9380 diff changeset	6396	hPrinter:h
d8547710430c printer stuff fm parents: 9380 diff changeset	6397	pDeviceName: self printerName
d8547710430c printer stuff fm parents: 9380 diff changeset	6398	devModeInput:self documentProperties.
9844 c92a32fa507d * empty log message * Claus Gittinger <cg@exept.de> parents: 9721 diff changeset	6399	(newDocumentProperties contains:[:el \| el ~= 0])
c92a32fa507d * empty log message * Claus Gittinger <cg@exept.de> parents: 9721 diff changeset	6400	ifFalse:[^false].
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6401	self documentProperties: newDocumentProperties.
d8547710430c printer stuff fm parents: 9380 diff changeset	6402	OperatingSystem closePrinter:h.
d8547710430c printer stuff fm parents: 9380 diff changeset	6403	^true
d8547710430c printer stuff fm parents: 9380 diff changeset	6404
d8547710430c printer stuff fm parents: 9380 diff changeset	6405	"Created: / 28-07-2006 / 11:44:01 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6406	"Modified: / 01-08-2006 / 11:55:49 / fm"
9844 c92a32fa507d * empty log message * Claus Gittinger <cg@exept.de> parents: 9721 diff changeset	6407	"Modified: / 13-09-2006 / 11:36:10 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6408	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6409
d8547710430c printer stuff fm parents: 9380 diff changeset	6410	!AbstractOperatingSystem::PrinterInfo methodsFor:'modifying'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6411
d8547710430c printer stuff fm parents: 9380 diff changeset	6412	setLandscapeOrientation
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6413	"DMORIENT_LANDSCAPE = 2"
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6414	self documentProperties orientation: 2
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6415
d8547710430c printer stuff fm parents: 9380 diff changeset	6416	"Created: / 28-07-2006 / 15:53:35 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6417	"Modified: / 16-04-2007 / 12:03:30 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6418	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6419
d8547710430c printer stuff fm parents: 9380 diff changeset	6420	setNumberOfCopies: n
d8547710430c printer stuff fm parents: 9380 diff changeset	6421
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6422	self documentProperties copies: n
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6423
d8547710430c printer stuff fm parents: 9380 diff changeset	6424	"Created: / 28-07-2006 / 16:04:04 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6425	"Modified: / 16-04-2007 / 12:03:33 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6426	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6427
d8547710430c printer stuff fm parents: 9380 diff changeset	6428	setPortraitOrientation
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6429	"DMORIENT_PORTRAIT = 1"
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6430	self documentProperties orientation: 1
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6431
d8547710430c printer stuff fm parents: 9380 diff changeset	6432	"Created: / 28-07-2006 / 15:49:45 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6433	"Modified: / 16-04-2007 / 12:03:36 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6434	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6435
d8547710430c printer stuff fm parents: 9380 diff changeset	6436	!AbstractOperatingSystem::PrinterInfo methodsFor:'printing & storing'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6437
d8547710430c printer stuff fm parents: 9380 diff changeset	6438	printOn:aStream
d8547710430c printer stuff fm parents: 9380 diff changeset	6439	aStream nextPutAll:(self class name); nextPutAll:'('.
d8547710430c printer stuff fm parents: 9380 diff changeset	6440	printerName printOn:aStream.
d8547710430c printer stuff fm parents: 9380 diff changeset	6441	aStream nextPutAll:')'.
d8547710430c printer stuff fm parents: 9380 diff changeset	6442
d8547710430c printer stuff fm parents: 9380 diff changeset	6443	"Created: / 27-07-2006 / 12:30:28 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6444	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6445
d8547710430c printer stuff fm parents: 9380 diff changeset	6446	!AbstractOperatingSystem::PrinterInfo methodsFor:'private'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6447
d8547710430c printer stuff fm parents: 9380 diff changeset	6448	getDocumentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6449	"Returns a aDevModeStructure"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6450
f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6451	\|h devMode \|
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6452
d8547710430c printer stuff fm parents: 9380 diff changeset	6453	h := OperatingSystem openPrinter: self printerName.
d8547710430c printer stuff fm parents: 9380 diff changeset	6454	devMode := OperatingSystem getDocumentProperties:nil
d8547710430c printer stuff fm parents: 9380 diff changeset	6455	hPrinter:h
d8547710430c printer stuff fm parents: 9380 diff changeset	6456	pDeviceName: self printerName.
d8547710430c printer stuff fm parents: 9380 diff changeset	6457	OperatingSystem closePrinter: h.
d8547710430c printer stuff fm parents: 9380 diff changeset	6458	^devMode
d8547710430c printer stuff fm parents: 9380 diff changeset	6459
d8547710430c printer stuff fm parents: 9380 diff changeset	6460	"Created: / 28-07-2006 / 11:49:33 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6461	"Modified: / 31-07-2006 / 10:33:04 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6462	"Modified: / 16-04-2007 / 12:02:00 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6463	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6464
d8547710430c printer stuff fm parents: 9380 diff changeset	6465	getPrinterInfo2
d8547710430c printer stuff fm parents: 9380 diff changeset	6466	"Returns a aPrinterInfo2 structure"
10097 2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6467
2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6468	printerInfo2 := OperatingSystem getPrinterInfo2:self printerName.
2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6469	^ printerInfo2
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6470
d8547710430c printer stuff fm parents: 9380 diff changeset	6471	"Created: / 01-08-2006 / 13:50:55 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6472	"Modified: / 01-08-2006 / 15:11:03 / fm"
10097 2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6473	"Modified: / 18-10-2006 / 12:03:54 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6474	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6475
d8547710430c printer stuff fm parents: 9380 diff changeset	6476	printerInfo2
d8547710430c printer stuff fm parents: 9380 diff changeset	6477	"Returns a aPrinterInfo2 structure"
10097 2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6478
2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6479	printerInfo2 isNil ifTrue:[
2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6480	self getPrinterInfo2.
2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6481	].
2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6482	^ printerInfo2
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6483
d8547710430c printer stuff fm parents: 9380 diff changeset	6484	"Created: / 01-08-2006 / 15:10:18 / fm"
10097 2ff9a17f57e1 * empty log message * fm parents: 10096 diff changeset	6485	"Modified: / 18-10-2006 / 12:03:57 / User"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6486	!
d8547710430c printer stuff fm parents: 9380 diff changeset	6487
d8547710430c printer stuff fm parents: 9380 diff changeset	6488	setDocumentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6489	"Sets a aDevModeStructure or nil if the printer is not available"
d8547710430c printer stuff fm parents: 9380 diff changeset	6490
d8547710430c printer stuff fm parents: 9380 diff changeset	6491	self documentProperties: self getDocumentProperties
d8547710430c printer stuff fm parents: 9380 diff changeset	6492
d8547710430c printer stuff fm parents: 9380 diff changeset	6493	"Created: / 31-07-2006 / 13:04:58 / fm"
d8547710430c printer stuff fm parents: 9380 diff changeset	6494	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6495
d8547710430c printer stuff fm parents: 9380 diff changeset	6496	!AbstractOperatingSystem::PrinterInfo methodsFor:'queries'!
d8547710430c printer stuff fm parents: 9380 diff changeset	6497
d8547710430c printer stuff fm parents: 9380 diff changeset	6498	isAvailable
d8547710430c printer stuff fm parents: 9380 diff changeset	6499
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6500	^self documentProperties notNil
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6501
d8547710430c printer stuff fm parents: 9380 diff changeset	6502	"Created: / 31-07-2006 / 13:08:58 / fm"
10510 f404894c7ea2 code cleanup Claus Gittinger <cg@exept.de> parents: 10498 diff changeset	6503	"Modified: / 16-04-2007 / 12:02:05 / cg"
9476 d8547710430c printer stuff fm parents: 9380 diff changeset	6504	! !
d8547710430c printer stuff fm parents: 9380 diff changeset	6505
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6506	!AbstractOperatingSystem::TimeInfo methodsFor:'accessing'!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6507
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6508	at:index
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6509	"backward compatibility"
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6510
8357 64be78ef1e77 Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 8250 diff changeset	6511	<resource: #obsolete>
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6512	self obsoleteMethodWarning:'use accessor for index ', index printString.
7739 d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6513
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6514	index == 1 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6515	^ self year.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6516	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6517	index == 2 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6518	^ self month.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6519	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6520	index == 3 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6521	^ self day.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6522	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6523	index == 4 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6524	^ self hours.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6525	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6526	index == 5 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6527	^ self minutes.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6528	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6529	index == 6 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6530	^ self seconds.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6531	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6532	index == 7 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6533	^ self utcOffset.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6534	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6535	index == 8 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6536	^ self dst.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6537	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6538	index == 9 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6539	^ self milliseconds.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6540	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6541	index == 10 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6542	^ self dayInYear.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6543	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6544	index == 11 ifTrue:[
10528 cbc252eb060f PrinterInfo fm parents: 10513 diff changeset	6545	^ self dayInWeek.
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6546	].
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6547	self subscriptBoundsError:index
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	day
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6551	^ day
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	dayInWeek
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6555	^ dayInWeek
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	dayInYear
12816 ff4a03e2da97 TimeInfo>>#dayInYear - compute if missing Stefan Vogel <sv@exept.de> parents: 12755 diff changeset	6559	"answer of compute the day of the year - if necessary
ff4a03e2da97 TimeInfo>>#dayInYear - compute if missing Stefan Vogel <sv@exept.de> parents: 12755 diff changeset	6560	(it is not set in windows)"
ff4a03e2da97 TimeInfo>>#dayInYear - compute if missing Stefan Vogel <sv@exept.de> parents: 12755 diff changeset	6561
ff4a03e2da97 TimeInfo>>#dayInYear - compute if missing Stefan Vogel <sv@exept.de> parents: 12755 diff changeset	6562	\|dayCount\|
ff4a03e2da97 TimeInfo>>#dayInYear - compute if missing Stefan Vogel <sv@exept.de> parents: 12755 diff changeset	6563
ff4a03e2da97 TimeInfo>>#dayInYear - compute if missing Stefan Vogel <sv@exept.de> parents: 12755 diff changeset	6564	dayInYear notNil ifTrue:[
ff4a03e2da97 TimeInfo>>#dayInYear - compute if missing Stefan Vogel <sv@exept.de> parents: 12755 diff changeset	6565	^ dayInYear.
ff4a03e2da97 TimeInfo>>#dayInYear - compute if missing Stefan Vogel <sv@exept.de> parents: 12755 diff changeset	6566	].
ff4a03e2da97 TimeInfo>>#dayInYear - compute if missing Stefan Vogel <sv@exept.de> parents: 12755 diff changeset	6567
ff4a03e2da97 TimeInfo>>#dayInYear - compute if missing Stefan Vogel <sv@exept.de> parents: 12755 diff changeset	6568	dayCount := #(0 31 59 90 120 151 181 212 243 273 304 334) at:month.
ff4a03e2da97 TimeInfo>>#dayInYear - compute if missing Stefan Vogel <sv@exept.de> parents: 12755 diff changeset	6569	(month > 2
ff4a03e2da97 TimeInfo>>#dayInYear - compute if missing Stefan Vogel <sv@exept.de> parents: 12755 diff changeset	6570	and:[(year \\ 4 == 0)
ff4a03e2da97 TimeInfo>>#dayInYear - compute if missing Stefan Vogel <sv@exept.de> parents: 12755 diff changeset	6571	and:[(year \\ 100 ~~ 0)
ff4a03e2da97 TimeInfo>>#dayInYear - compute if missing Stefan Vogel <sv@exept.de> parents: 12755 diff changeset	6572	and:[(year \\ 400 == 0)]]]) ifTrue:[
ff4a03e2da97 TimeInfo>>#dayInYear - compute if missing Stefan Vogel <sv@exept.de> parents: 12755 diff changeset	6573	"leap year and month after February"
ff4a03e2da97 TimeInfo>>#dayInYear - compute if missing Stefan Vogel <sv@exept.de> parents: 12755 diff changeset	6574	dayCount := dayCount + 1.
ff4a03e2da97 TimeInfo>>#dayInYear - compute if missing Stefan Vogel <sv@exept.de> parents: 12755 diff changeset	6575	].
ff4a03e2da97 TimeInfo>>#dayInYear - compute if missing Stefan Vogel <sv@exept.de> parents: 12755 diff changeset	6576
ff4a03e2da97 TimeInfo>>#dayInYear - compute if missing Stefan Vogel <sv@exept.de> parents: 12755 diff changeset	6577	^ dayCount + day.
ff4a03e2da97 TimeInfo>>#dayInYear - compute if missing Stefan Vogel <sv@exept.de> parents: 12755 diff changeset	6578
ff4a03e2da97 TimeInfo>>#dayInYear - compute if missing Stefan Vogel <sv@exept.de> parents: 12755 diff changeset	6579
ff4a03e2da97 TimeInfo>>#dayInYear - compute if missing Stefan Vogel <sv@exept.de> parents: 12755 diff changeset	6580	"
ff4a03e2da97 TimeInfo>>#dayInYear - compute if missing Stefan Vogel <sv@exept.de> parents: 12755 diff changeset	6581	\|daysSoFar\|
ff4a03e2da97 TimeInfo>>#dayInYear - compute if missing Stefan Vogel <sv@exept.de> parents: 12755 diff changeset	6582
ff4a03e2da97 TimeInfo>>#dayInYear - compute if missing Stefan Vogel <sv@exept.de> parents: 12755 diff changeset	6583	daysSoFar := 0.
ff4a03e2da97 TimeInfo>>#dayInYear - compute if missing Stefan Vogel <sv@exept.de> parents: 12755 diff changeset	6584	#(0 31 28 31 30 31 30 31 31 30 31 30) collect:[:daysInMonth\| daysSoFar := daysSoFar + daysInMonth. daysSoFar]
ff4a03e2da97 TimeInfo>>#dayInYear - compute if missing Stefan Vogel <sv@exept.de> parents: 12755 diff changeset	6585	"
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6586	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6587
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6588	dst
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6589	^ dst
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6590	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6591
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6592	hours
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6593	^ hours
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6594	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6595
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6596	milliseconds
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6597	^ milliseconds
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6598	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6599
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6600	milliseconds:something
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6601	milliseconds := something.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6602	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6603
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6604	minutes
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6605	^ minutes
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6606	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6607
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6608	month
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6609	^ month
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6610	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6611
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6612	seconds
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6613	^ seconds
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6614	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6615
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6616	utcOffset
8887 0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6617	"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	6618	If daylight saving time applies to ourself, take that into account.
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6619	Add utcOffset to convert from local time to UTC time.
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6620	Subtract utcOffset to convert from UTC time to local time.
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6621
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6622	If utcOffset is negative, the local timezone is east of Greenwich.
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6623	If utcOffset is positive, the local timezone is west of Greenwich."
0cf225d543d1 Comment for #utcOffset Stefan Vogel <sv@exept.de> parents: 8808 diff changeset	6624
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6625	^ utcOffset
11843 b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6626
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6627	"
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6628	OperatingSystem utcOffset
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6629	"
7514 0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6630	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6631
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6632	year
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6633	^ year
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6634	!
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6635
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6636	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	6637	"set instance variables (automatically generated)"
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6638
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6639	year := yearArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6640	month := monthArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6641	day := dayArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6642	hours := hoursArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6643	minutes := minutesArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6644	seconds := secondsArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6645	milliseconds := millisecondsArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6646	utcOffset := utcOffsetArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6647	dst := dstArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6648	dayInYear := dayInYearArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6649	dayInWeek := dayInWeekArg.
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6650	!
d09af69f0466 timeInfoFromOSTime - cache last return Claus Gittinger <cg@exept.de> parents: 7733 diff changeset	6651
8669 3e822458c660 * empty log message * Claus Gittinger <cg@exept.de> parents: 8655 diff changeset	6652	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	6653	"set instance variables (automatically generated)"
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6654
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6655	year := yearArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6656	month := monthArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6657	day := dayArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6658	hours := hoursArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6659	minutes := minutesArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6660	seconds := secondsArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6661	utcOffset := utcOffsetArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6662	dst := dstArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6663	dayInYear := dayInYearArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6664	dayInWeek := dayInWeekArg.
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6665	! !
0335bec855aa * empty log message * Claus Gittinger <cg@exept.de> parents: 7510 diff changeset	6666
11843 b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6667	!AbstractOperatingSystem::TimeZoneInfo class methodsFor:'documentation'!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6668
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6669	documentation
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6670	"
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6671	Bias
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6672	The current bias for local time translation on this computer, in minutes.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6673	The bias is the difference, in minutes, between Coordinated Universal Time (UTC)
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6674	and local time.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6675	All translations between UTC and local time are based on the following formula:
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6676
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6677	UTC = local time + bias
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6678
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6679	StandardName
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6680	A description for standard time. For example, 'EST' could indicate Eastern Standard Time.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6681	The string will be returned unchanged by the GetTimeZoneInformation function.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6682	This string can be empty.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6683	This is for information only - do not depend on the value of the string.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6684
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6685	StandardDate
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6686	A Timestamp that contains a date and local time when the transition from daylight saving
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6687	time to standard time occurs on this operating system.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6688	If the time zone does not support daylight saving time or if the caller needs to disable
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6689	daylight saving time, the standardDate is nil.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6690	If this date is specified, the DaylightDate member of this structure must also be specified.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6691	Otherwise, the system assumes the time zone data is invalid and no changes will be applied.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6692
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6693	To select the correct day in the month, set the wYear member to zero, the wHour and wMinute members
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6694	to the transition time, the wDayOfWeek member to the appropriate weekday, and the wDay member to indicate
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6695	the occurrence of the day of the week within the month (1 to 5, where 5 indicates the final occurrence
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6696	during the month if that day of the week does not occur 5 times).
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6697
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6698	Using this notation, specify 02:00 on the first Sunday in April as follows:
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6699	wHour = 2, wMonth = 4, wDayOfWeek = 0, wDay = 1.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6700	Specify 02:00 on the last Thursday in October as follows:
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6701	wHour = 2, wMonth = 10, wDayOfWeek = 4, wDay = 5.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6702
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6703	If the wYear member is not zero, the transition date is absolute; it will only occur one time.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6704	Otherwise, it is a relative date that occurs yearly.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6705
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6706	StandardBias
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6707	The bias value to be used during local time translations that occur during standard time.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6708	This member is ignored if a value for the StandardDate member is not supplied.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6709
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6710	This value is added to the value of the Bias member to form the bias used during standard time.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6711	In most time zones, the value of this member is zero.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6712
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6713	DaylightName
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6714	A description for daylight saving time. For example, 'PDT' could indicate Pacific Daylight Time.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6715	The string will be returned unchanged by the GetTimeZoneInformation function. This string can be empty.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6716	This is for information only - do not depend on the value of the string.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6717
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6718	DaylightDate
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6719	A Timestamp structure that contains a date and local time when the transition from standard time
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6720	to daylight saving time occurs on this operating system.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6721	If the time zone does not support daylight saving time or if the caller needs to disable daylight
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6722	saving time, this entry is nil.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6723	If this date is specified, the StandardDate member in this structure must also be specified.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6724	Otherwise, the system assumes the time zone data is invalid and no changes will be applied.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6725
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6726	To select the correct day in the month, set the wYear member to zero, the wHour and wMinute members to
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6727	the transition time, the wDayOfWeek member to the appropriate weekday, and the wDay member to indicate
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6728	the occurrence of the day of the week within the month (1 to 5, where 5 indicates the final occurrence
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6729	during the month if that day of the week does not occur 5 times).
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6730
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6731	If the wYear member is not zero, the transition date is absolute; it will only occur one time.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6732	Otherwise, it is a relative date that occurs yearly.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6733
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6734	DaylightBias
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6735	The bias value to be used during local time translations that occur during daylight saving time.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6736	This member is ignored if a value for the DaylightDate member is not supplied.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6737
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6738	This value is added to the value of the Bias member to form the bias used during daylight saving time.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6739	In most time zones, the value of this member is -60
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6740	"
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6741	! !
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6742
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6743	!AbstractOperatingSystem::TimeZoneInfo methodsFor:'accessing'!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6744
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6745	bias
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6746	^ bias
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6747	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6748
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6749	bias:something
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6750	bias := something.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6751	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6752
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6753	bias:biasArg name:nameArg standardBias:standardBiasArg daylightName:daylightNameArg daylightBias:daylightBiasArg
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6754	bias := biasArg.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6755	name := nameArg.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6756	standardBias := standardBiasArg.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6757	daylightName := daylightNameArg.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6758	daylightBias := daylightBiasArg.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6759	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6760
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6761	bias:biasArg name:nameArg standardDate:standardDateArg standardBias:standardBiasArg daylightName:daylightNameArg daylightDate:daylightDateArg daylightBias:daylightBiasArg
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6762	bias := biasArg.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6763	name := nameArg.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6764	standardDate := standardDateArg.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6765	standardBias := standardBiasArg.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6766	daylightName := daylightNameArg.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6767	daylightDate := daylightDateArg.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6768	daylightBias := daylightBiasArg.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6769	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6770
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6771	daylightBias
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6772	^ daylightBias
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6773	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6774
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6775	daylightBias:something
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6776	daylightBias := something.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6777	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6778
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6779	daylightDay
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6780	^ daylightDay
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6781	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6782
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6783	daylightDay:something
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6784	daylightDay := something.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6785	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6786
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6787	daylightHour
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6788	^ daylightHour
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6789	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6790
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6791	daylightHour:something
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6792	daylightHour := something.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6793	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6794
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6795	daylightMinute
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6796	^ daylightMinute
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6797	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6798
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6799	daylightMinute:something
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6800	daylightMinute := something.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6801	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6802
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6803	daylightMonth
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6804	^ daylightMonth
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6805	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6806
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6807	daylightMonth:something
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6808	daylightMonth := something.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6809	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6810
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6811	daylightName
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6812	^ daylightName
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6813	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6814
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6815	daylightName:something
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6816	daylightName := something.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6817	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6818
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6819	daylightWeekDay
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6820	^ daylightWeekDay
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6821	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6822
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6823	daylightWeekDay:something
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6824	daylightWeekDay := something.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6825	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6826
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6827	daylightYear
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6828	^ daylightYear
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6829	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6830
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6831	daylightYear:something
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6832	daylightYear := something.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6833	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6834
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6835	daylightYear:daylightYearArg daylightMonth:daylightMonthArg daylightDay:daylightDayArg daylightWeekDay:daylightWeekDayArg daylightHour:daylightHourArg daylightMinute:daylightMinuteArg
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6836	daylightYear := daylightYearArg.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6837	daylightMonth := daylightMonthArg.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6838	daylightDay := daylightDayArg.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6839	daylightWeekDay := daylightWeekDayArg.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6840	daylightHour := daylightHourArg.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6841	daylightMinute := daylightMinuteArg.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6842	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6843
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6844	name
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6845	^ name
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6846	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6847
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6848	name:something
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6849	name := something.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6850	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6851
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6852	standardBias
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6853	^ standardBias
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6854	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6855
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6856	standardBias:something
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6857	standardBias := something.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6858	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6859
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6860	standardDay
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6861	^ standardDay
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6862	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6863
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6864	standardDay:something
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6865	standardDay := something.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6866	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6867
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6868	standardHour
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6869	^ standardHour
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6870	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6871
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6872	standardHour:something
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6873	standardHour := something.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6874	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6875
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6876	standardMinute
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6877	^ standardMinute
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6878	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6879
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6880	standardMinute:something
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6881	standardMinute := something.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6882	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6883
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6884	standardMonth
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6885	^ standardMonth
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6886	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6887
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6888	standardMonth:something
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6889	standardMonth := something.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6890	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6891
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6892	standardWeekDay
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6893	^ standardWeekDay
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6894	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6895
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6896	standardWeekDay:something
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6897	standardWeekDay := something.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6898	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6899
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6900	standardYear
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6901	^ standardYear
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6902	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6903
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6904	standardYear:something
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6905	standardYear := something.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6906	!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6907
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6908	standardYear:standardYearArg standardMonth:standardMonthArg standardDay:standardDayArg standardWeekDay:standardWeekDayArg standardHour:standardHourArg standardMinute:standardMinuteArg
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6909	standardYear := standardYearArg.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6910	standardMonth := standardMonthArg.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6911	standardDay := standardDayArg.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6912	standardWeekDay := standardWeekDayArg.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6913	standardHour := standardHourArg.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6914	standardMinute := standardMinuteArg.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6915	! !
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6916
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6917	!AbstractOperatingSystem::TimeZoneInfo methodsFor:'queries'!
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6918
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6919	utcOffset
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6920	"return the difference between UTC (Greenwich Mean Time) and the local time in seconds.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6921	If daylight saving time applies to ourself, take that into account.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6922	Add utcOffset to convert from local time to UTC time.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6923	Subtract utcOffset to convert from UTC time to local time.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6924
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6925	If utcOffset is negative, the local timezone is east of Greenwich.
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6926	If utcOffset is positive, the local timezone is west of Greenwich."
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6927
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6928	^ (bias + daylightBias) * 60
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6929
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6930	"
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6931	OperatingSystem utcOffset
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6932	"
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6933	! !
b5bd41fe1e8f timeZoneInfo & utcOffset stuff added Claus Gittinger <cg@exept.de> parents: 11835 diff changeset	6934
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6935	!AbstractOperatingSystem class methodsFor:'documentation'!
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6936
9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6937	version
12959 4fc6924e462f comment/format in: #getHostName Stefan Vogel <sv@exept.de> parents: 12826 diff changeset	6938	^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.198 2010-07-23 09:48:39 stefan Exp $'
12543 0ccfdbd164d6 changed: #platformDefineForPlatformName: Stefan Vogel <sv@exept.de> parents: 11846 diff changeset	6939	!
0ccfdbd164d6 changed: #platformDefineForPlatformName: Stefan Vogel <sv@exept.de> parents: 11846 diff changeset	6940
0ccfdbd164d6 changed: #platformDefineForPlatformName: Stefan Vogel <sv@exept.de> parents: 11846 diff changeset	6941	version_CVS
12959 4fc6924e462f comment/format in: #getHostName Stefan Vogel <sv@exept.de> parents: 12826 diff changeset	6942	^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.198 2010-07-23 09:48:39 stefan Exp $'
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6943	! !
6772 6bfdc2522ea2 isMountPoint penk parents: 6720 diff changeset	6944
3576 9287c054ac83 started to remove abbreviations ... Claus Gittinger <cg@exept.de> parents: diff changeset	6945	AbstractOperatingSystem initialize!

author	Stefan Vogel <sv@exept.de>
	Fri, 23 Jul 2010 11:48:39 +0200
changeset 12959	4fc6924e462f
parent 12826	524f9a981616
child 12971	8aa39c96e885
permissions	-rw-r--r--