OpenError.st
author Stefan Vogel <sv@exept.de>
Tue, 28 Apr 2020 14:41:21 +0200
changeset 25372 389daab3ee10
parent 25169 366ba1117187
permissions -rw-r--r--
#DOCUMENTATION by stefan class: ReadWriteStream category of: #isEmpty #isReadable
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
25169
366ba1117187 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 15844
diff changeset
    14
"{ NameSpace: Smalltalk }"
366ba1117187 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 15844
diff changeset
    15
8064
081bff3d87a4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
StreamError subclass:#OpenError
081bff3d87a4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
	instanceVariableNames:''
081bff3d87a4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	classVariableNames:''
081bff3d87a4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
	poolDictionaries:''
081bff3d87a4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
	category:'Kernel-Exceptions-Errors'
081bff3d87a4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
!
081bff3d87a4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
8728
d70396dc4e96 copyright
Claus Gittinger <cg@exept.de>
parents: 8514
diff changeset
    23
!OpenError class methodsFor:'documentation'!
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
d70396dc4e96 copyright
Claus Gittinger <cg@exept.de>
parents: 8514
diff changeset
    26
"
d70396dc4e96 copyright
Claus Gittinger <cg@exept.de>
parents: 8514
diff changeset
    27
 COPYRIGHT (c) 2004 by eXept Software AG
d70396dc4e96 copyright
Claus Gittinger <cg@exept.de>
parents: 8514
diff changeset
    28
              All Rights Reserved
d70396dc4e96 copyright
Claus Gittinger <cg@exept.de>
parents: 8514
diff changeset
    29
d70396dc4e96 copyright
Claus Gittinger <cg@exept.de>
parents: 8514
diff changeset
    30
 This software is furnished under a license and may be used
d70396dc4e96 copyright
Claus Gittinger <cg@exept.de>
parents: 8514
diff changeset
    31
 only in accordance with the terms of that license and with the
d70396dc4e96 copyright
Claus Gittinger <cg@exept.de>
parents: 8514
diff changeset
    32
 inclusion of the above copyright notice.   This software may not
d70396dc4e96 copyright
Claus Gittinger <cg@exept.de>
parents: 8514
diff changeset
    33
 be provided or otherwise made available to, or used by, any
d70396dc4e96 copyright
Claus Gittinger <cg@exept.de>
parents: 8514
diff changeset
    34
 other person.  No title to or ownership of the software is
d70396dc4e96 copyright
Claus Gittinger <cg@exept.de>
parents: 8514
diff changeset
    35
 hereby transferred.
d70396dc4e96 copyright
Claus Gittinger <cg@exept.de>
parents: 8514
diff changeset
    36
"
d70396dc4e96 copyright
Claus Gittinger <cg@exept.de>
parents: 8514
diff changeset
    37
! !
8064
081bff3d87a4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
25169
366ba1117187 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 15844
diff changeset
    39
!OpenError class methodsFor:'initialization'!
366ba1117187 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 15844
diff changeset
    40
366ba1117187 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 15844
diff changeset
    41
initialize
366ba1117187 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 15844
diff changeset
    42
    NotifierString := 'open error'.
366ba1117187 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 15844
diff changeset
    43
! !
366ba1117187 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 15844
diff changeset
    44
8064
081bff3d87a4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
!OpenError methodsFor:'accessing'!
081bff3d87a4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
081bff3d87a4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
pathName
081bff3d87a4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
    "the name of the file/device which failed to open"
081bff3d87a4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
14515
d67e2c9e2acb class: OpenError
Stefan Vogel <sv@exept.de>
parents: 11395
diff changeset
    50
    (parameter respondsTo:#pathName) ifTrue:[
d67e2c9e2acb class: OpenError
Stefan Vogel <sv@exept.de>
parents: 11395
diff changeset
    51
        ^ parameter pathName.
11395
4ca8adad4510 changed #pathName - fix acessing when parameter is Socket or stream
Stefan Vogel <sv@exept.de>
parents: 10838
diff changeset
    52
    ].
14515
d67e2c9e2acb class: OpenError
Stefan Vogel <sv@exept.de>
parents: 11395
diff changeset
    53
    ^ parameter
10838
f168636f0237 changed #pathName
Claus Gittinger <cg@exept.de>
parents: 8973
diff changeset
    54
f168636f0237 changed #pathName
Claus Gittinger <cg@exept.de>
parents: 8973
diff changeset
    55
    "Modified: / 16-01-2008 / 20:24:24 / cg"
8282
b209958b06aa openErrorSignal arg: always a string
Claus Gittinger <cg@exept.de>
parents: 8064
diff changeset
    56
!
b209958b06aa openErrorSignal arg: always a string
Claus Gittinger <cg@exept.de>
parents: 8064
diff changeset
    57
b209958b06aa openErrorSignal arg: always a string
Claus Gittinger <cg@exept.de>
parents: 8064
diff changeset
    58
stream
b209958b06aa openErrorSignal arg: always a string
Claus Gittinger <cg@exept.de>
parents: 8064
diff changeset
    59
    "the stream which failed to open"
b209958b06aa openErrorSignal arg: always a string
Claus Gittinger <cg@exept.de>
parents: 8064
diff changeset
    60
8064
081bff3d87a4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
    ^ parameter
081bff3d87a4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
! !
081bff3d87a4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
081bff3d87a4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
!OpenError class methodsFor:'documentation'!
081bff3d87a4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
081bff3d87a4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
version
25169
366ba1117187 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 15844
diff changeset
    67
    ^ '$Header$'
8064
081bff3d87a4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
! !
14602
b99d699beb17 class: OpenError
Claus Gittinger <cg@exept.de>
parents: 14515
diff changeset
    69
25169
366ba1117187 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 15844
diff changeset
    70
366ba1117187 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 15844
diff changeset
    71
OpenError initialize!