hg/stx-libbasic: OpenError.st@956342c369a2 (annotated)

8728 d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	1	"
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	2	COPYRIGHT (c) 2004 by eXept Software AG
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	3	All Rights Reserved
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	4
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	5	This software is furnished under a license and may be used
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	6	only in accordance with the terms of that license and with the
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	7	inclusion of the above copyright notice. This software may not
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	8	be provided or otherwise made available to, or used by, any
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	9	other person. No title to or ownership of the software is
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	10	hereby transferred.
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	11	"
8064 081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12	"{ Package: 'stx:libbasic' }"
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	StreamError subclass:#OpenError
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15	instanceVariableNames:''
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16	classVariableNames:''
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17	poolDictionaries:''
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	category:'Kernel-Exceptions-Errors'
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	!
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20
8728 d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	21	!OpenError class methodsFor:'documentation'!
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	22
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	23	copyright
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	24	"
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	25	COPYRIGHT (c) 2004 by eXept Software AG
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	26	All Rights Reserved
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	27
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	28	This software is furnished under a license and may be used
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	29	only in accordance with the terms of that license and with the
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	30	inclusion of the above copyright notice. This software may not
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	31	be provided or otherwise made available to, or used by, any
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	32	other person. No title to or ownership of the software is
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	33	hereby transferred.
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	34	"
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	35	! !
8064 081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37	!OpenError methodsFor:'accessing'!
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39	pathName
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40	"the name of the file/device which failed to open"
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41
17993 956342c369a2 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	42	(parameter respondsTo:#pathName) ifTrue:[
956342c369a2 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	43	^ parameter pathName.
11395 4ca8adad4510 changed #pathName - fix acessing when parameter is Socket or stream Stefan Vogel <sv@exept.de> parents: 10838 diff changeset	44	].
17993 956342c369a2 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	45	^ parameter
10838 f168636f0237 changed #pathName Claus Gittinger <cg@exept.de> parents: 8973 diff changeset	46
f168636f0237 changed #pathName Claus Gittinger <cg@exept.de> parents: 8973 diff changeset	47	"Modified: / 16-01-2008 / 20:24:24 / cg"
8282 b209958b06aa openErrorSignal arg: always a string Claus Gittinger <cg@exept.de> parents: 8064 diff changeset	48	!
b209958b06aa openErrorSignal arg: always a string Claus Gittinger <cg@exept.de> parents: 8064 diff changeset	49
b209958b06aa openErrorSignal arg: always a string Claus Gittinger <cg@exept.de> parents: 8064 diff changeset	50	stream
b209958b06aa openErrorSignal arg: always a string Claus Gittinger <cg@exept.de> parents: 8064 diff changeset	51	"the stream which failed to open"
b209958b06aa openErrorSignal arg: always a string Claus Gittinger <cg@exept.de> parents: 8064 diff changeset	52
8064 081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	53	^ parameter
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54	! !
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	55
8514 9e18649ad0c9 Log pathname in description of OpenError Stefan Vogel <sv@exept.de> parents: 8509 diff changeset	56	!OpenError methodsFor:'printing & storing'!
9e18649ad0c9 Log pathname in description of OpenError Stefan Vogel <sv@exept.de> parents: 8509 diff changeset	57
9e18649ad0c9 Log pathname in description of OpenError Stefan Vogel <sv@exept.de> parents: 8509 diff changeset	58	description
8734 8f38a9cf32d6 better error description Claus Gittinger <cg@exept.de> parents: 8728 diff changeset	59	\|description p\|
8514 9e18649ad0c9 Log pathname in description of OpenError Stefan Vogel <sv@exept.de> parents: 8509 diff changeset	60
8734 8f38a9cf32d6 better error description Claus Gittinger <cg@exept.de> parents: 8728 diff changeset	61	description := super description.
8f38a9cf32d6 better error description Claus Gittinger <cg@exept.de> parents: 8728 diff changeset	62
8f38a9cf32d6 better error description Claus Gittinger <cg@exept.de> parents: 8728 diff changeset	63	p := self pathName.
8973 c715c59b633d omit '(empty path)' in description Stefan Vogel <sv@exept.de> parents: 8734 diff changeset	64	p notEmptyOrNil ifTrue:[
17993 956342c369a2 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	65	description := description, ': ', p printString
8734 8f38a9cf32d6 better error description Claus Gittinger <cg@exept.de> parents: 8728 diff changeset	66	].
8973 c715c59b633d omit '(empty path)' in description Stefan Vogel <sv@exept.de> parents: 8734 diff changeset	67	^ description
8514 9e18649ad0c9 Log pathname in description of OpenError Stefan Vogel <sv@exept.de> parents: 8509 diff changeset	68
9e18649ad0c9 Log pathname in description of OpenError Stefan Vogel <sv@exept.de> parents: 8509 diff changeset	69	"
9e18649ad0c9 Log pathname in description of OpenError Stefan Vogel <sv@exept.de> parents: 8509 diff changeset	70	'/tmp/nIcHtExIsTeNt' asFilename readStream
9e18649ad0c9 Log pathname in description of OpenError Stefan Vogel <sv@exept.de> parents: 8509 diff changeset	71	"
9e18649ad0c9 Log pathname in description of OpenError Stefan Vogel <sv@exept.de> parents: 8509 diff changeset	72	! !
9e18649ad0c9 Log pathname in description of OpenError Stefan Vogel <sv@exept.de> parents: 8509 diff changeset	73
8064 081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	74	!OpenError class methodsFor:'documentation'!
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	75
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	76	version
17993 956342c369a2 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	77	^ '$Header: /cvs/stx/stx/libbasic/OpenError.st,v 1.10 2012/11/14 22:31:19 stefan Exp $'
17865 598963c6ff8e Recommited from itself Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	78	!
598963c6ff8e Recommited from itself Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	79
598963c6ff8e Recommited from itself Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17846 diff changeset	80	version_SVN
17993 956342c369a2 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17911 diff changeset	81	^ '$Id: OpenError.st 10876 2012-11-30 17:19:23Z vranyj1 $'
17846 24edc476ac18 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17845 diff changeset	82	! !
17892 d86c8bd5ece3 Merged with CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17869 diff changeset	83
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17892 diff changeset	84
17911 a99f15c5efa5 Updated with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17910 diff changeset	85

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Fri, 30 Nov 2012 17:19:23 +0000
branch	jv
changeset 17993	956342c369a2
parent 17911	a99f15c5efa5
child 18011	deb0c3355881
permissions	-rw-r--r--