equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2001 by eXept Software AG |
4 COPYRIGHT (c) 2001 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
102 |
104 |
103 !ZeroDivide class methodsFor:'initialization'! |
105 !ZeroDivide class methodsFor:'initialization'! |
104 |
106 |
105 initialize |
107 initialize |
106 NotifierString := 'division by zero'. |
108 NotifierString := 'division by zero'. |
|
109 ! ! |
|
110 |
|
111 !ZeroDivide class methodsFor:'instance creation'! |
|
112 |
|
113 dividend:aNumber |
|
114 ^ self new originator:aNumber |
|
115 |
|
116 " |
|
117 [ |
|
118 (ZeroDivide dividend:10) raise |
|
119 ] on:ZeroDivide do:[:ex | |
|
120 self assert:ex dividend == 10 |
|
121 ]. |
|
122 |
|
123 [ |
|
124 10 / 0 |
|
125 ] on:ZeroDivide do:[:ex | |
|
126 self assert:ex dividend == 10 |
|
127 ]. |
|
128 " |
|
129 |
|
130 "Created: / 27-05-2019 / 14:45:29 / Claus Gittinger" |
107 ! ! |
131 ! ! |
108 |
132 |
109 !ZeroDivide methodsFor:'accessing'! |
133 !ZeroDivide methodsFor:'accessing'! |
110 |
134 |
111 defaultResumeValue |
135 defaultResumeValue |
152 ! |
176 ! |
153 |
177 |
154 dividend |
178 dividend |
155 "Return the number that was being divided by zero." |
179 "Return the number that was being divided by zero." |
156 |
180 |
157 ^ parameter receiver |
181 ^ originator |
|
182 "/ ^ parameter receiver |
158 |
183 |
159 " |
184 " |
160 |a b| |
185 |a b| |
161 |
186 |
162 a := 5. |
187 a := 5. |
165 Transcript showCR:('division by zero - dividend was: ' , ex dividend printString) |
190 Transcript showCR:('division by zero - dividend was: ' , ex dividend printString) |
166 ] do:[ |
191 ] do:[ |
167 a // b |
192 a // b |
168 ] |
193 ] |
169 " |
194 " |
|
195 |
|
196 "Modified: / 27-05-2019 / 14:49:41 / Claus Gittinger" |
170 ! ! |
197 ! ! |
171 |
198 |
172 !ZeroDivide class methodsFor:'documentation'! |
199 !ZeroDivide class methodsFor:'documentation'! |
173 |
200 |
174 version |
201 version |