hg/stx-libbasic: OpenError.st@c715c59b633d (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	"
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	12
8064 081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13	"{ Package: 'stx:libbasic' }"
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15	StreamError subclass:#OpenError
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16	instanceVariableNames:''
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17	classVariableNames:''
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	poolDictionaries:''
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	category:'Kernel-Exceptions-Errors'
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20	!
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21
8728 d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	22	!OpenError class methodsFor:'documentation'!
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	23
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	24	copyright
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	25	"
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	26	COPYRIGHT (c) 2004 by eXept Software AG
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	27	All Rights Reserved
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	28
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	29	This software is furnished under a license and may be used
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	30	only in accordance with the terms of that license and with the
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	31	inclusion of the above copyright notice. This software may not
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	32	be provided or otherwise made available to, or used by, any
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	33	other person. No title to or ownership of the software is
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	34	hereby transferred.
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	35	"
d70396dc4e96 copyright Claus Gittinger <cg@exept.de> parents: 8514 diff changeset	36	! !
8064 081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38	!OpenError methodsFor:'accessing'!
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40	pathName
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41	"the name of the file/device which failed to open"
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42
8282 b209958b06aa openErrorSignal arg: always a string Claus Gittinger <cg@exept.de> parents: 8064 diff changeset	43	^ parameter pathName
b209958b06aa openErrorSignal arg: always a string Claus Gittinger <cg@exept.de> parents: 8064 diff changeset	44	!
b209958b06aa openErrorSignal arg: always a string Claus Gittinger <cg@exept.de> parents: 8064 diff changeset	45
b209958b06aa openErrorSignal arg: always a string Claus Gittinger <cg@exept.de> parents: 8064 diff changeset	46	stream
b209958b06aa openErrorSignal arg: always a string Claus Gittinger <cg@exept.de> parents: 8064 diff changeset	47	"the stream which failed to open"
b209958b06aa openErrorSignal arg: always a string Claus Gittinger <cg@exept.de> parents: 8064 diff changeset	48
8064 081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	49	^ parameter
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	50	! !
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51
8514 9e18649ad0c9 Log pathname in description of OpenError Stefan Vogel <sv@exept.de> parents: 8509 diff changeset	52	!OpenError methodsFor:'printing & storing'!
9e18649ad0c9 Log pathname in description of OpenError Stefan Vogel <sv@exept.de> parents: 8509 diff changeset	53
9e18649ad0c9 Log pathname in description of OpenError Stefan Vogel <sv@exept.de> parents: 8509 diff changeset	54	description
8734 8f38a9cf32d6 better error description Claus Gittinger <cg@exept.de> parents: 8728 diff changeset	55	\|description p\|
8514 9e18649ad0c9 Log pathname in description of OpenError Stefan Vogel <sv@exept.de> parents: 8509 diff changeset	56
8734 8f38a9cf32d6 better error description Claus Gittinger <cg@exept.de> parents: 8728 diff changeset	57	description := super description.
8f38a9cf32d6 better error description Claus Gittinger <cg@exept.de> parents: 8728 diff changeset	58
8f38a9cf32d6 better error description Claus Gittinger <cg@exept.de> parents: 8728 diff changeset	59	p := self pathName.
8973 c715c59b633d omit '(empty path)' in description Stefan Vogel <sv@exept.de> parents: 8734 diff changeset	60	p notEmptyOrNil ifTrue:[
c715c59b633d omit '(empty path)' in description Stefan Vogel <sv@exept.de> parents: 8734 diff changeset	61	description := description, ': ', p
8734 8f38a9cf32d6 better error description Claus Gittinger <cg@exept.de> parents: 8728 diff changeset	62	].
8973 c715c59b633d omit '(empty path)' in description Stefan Vogel <sv@exept.de> parents: 8734 diff changeset	63	^ description
8514 9e18649ad0c9 Log pathname in description of OpenError Stefan Vogel <sv@exept.de> parents: 8509 diff changeset	64
9e18649ad0c9 Log pathname in description of OpenError Stefan Vogel <sv@exept.de> parents: 8509 diff changeset	65	"
9e18649ad0c9 Log pathname in description of OpenError Stefan Vogel <sv@exept.de> parents: 8509 diff changeset	66	'/tmp/nIcHtExIsTeNt' asFilename readStream
9e18649ad0c9 Log pathname in description of OpenError Stefan Vogel <sv@exept.de> parents: 8509 diff changeset	67	"
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
8064 081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	70	!OpenError class methodsFor:'documentation'!
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	71
081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	72	version
8973 c715c59b633d omit '(empty path)' in description Stefan Vogel <sv@exept.de> parents: 8734 diff changeset	73	^ '$Header: /cvs/stx/stx/libbasic/OpenError.st,v 1.7 2005-11-08 11:08:47 stefan Exp $'
8064 081bff3d87a4 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	74	! !

author	Stefan Vogel <sv@exept.de>
	Tue, 08 Nov 2005 12:08:47 +0100
changeset 8973	c715c59b633d
parent 8734	8f38a9cf32d6
child 10838	f168636f0237
permissions	-rw-r--r--