author | vranyj1 |
Tue, 03 Apr 2012 16:50:39 +0000 | |
branch | jk_new_structure |
changeset 1452 | 69dcb9c33742 |
parent 1450 | 4817f2a363d6 |
child 1455 | 0bd5fedc1d2c |
permissions | -rw-r--r-- |
1440 | 1 |
" |
2 |
COPYRIGHT (c) 1996-2011 by Claus Gittinger |
|
3 |
||
4 |
New code and modifications done at SWING Research Group [1]: |
|
5 |
||
6 |
COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko |
|
7 |
SWING Research Group, Czech Technical University in Prague |
|
8 |
||
9 |
This software is furnished under a license and may be used |
|
10 |
only in accordance with the terms of that license and with the |
|
11 |
inclusion of the above copyright notice. This software may not |
|
12 |
be provided or otherwise made available to, or used by, any |
|
13 |
other person. No title to or ownership of the software is |
|
14 |
hereby transferred. |
|
15 |
||
16 |
[1] Code written at SWING Research Group contains a signature |
|
17 |
of one of the above copright owners. For exact set of such code, |
|
18 |
see the differences between this version and version stx:libjava |
|
19 |
as of 1.9.2010 |
|
20 |
" |
|
21 |
"{ Package: 'stx:libjava' }" |
|
22 |
||
23 |
TestCase subclass:#JavaExceptionTests |
|
1452
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
24 |
instanceVariableNames:'signal' |
1440 | 25 |
classVariableNames:'' |
26 |
poolDictionaries:'' |
|
27 |
category:'Languages-Java-Tests' |
|
28 |
! |
|
29 |
||
30 |
!JavaExceptionTests class methodsFor:'documentation'! |
|
31 |
||
32 |
copyright |
|
33 |
" |
|
34 |
COPYRIGHT (c) 1996-2011 by Claus Gittinger |
|
35 |
||
36 |
New code and modifications done at SWING Research Group [1]: |
|
37 |
||
38 |
COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko |
|
39 |
SWING Research Group, Czech Technical University in Prague |
|
40 |
||
41 |
This software is furnished under a license and may be used |
|
42 |
only in accordance with the terms of that license and with the |
|
43 |
inclusion of the above copyright notice. This software may not |
|
44 |
be provided or otherwise made available to, or used by, any |
|
45 |
other person. No title to or ownership of the software is |
|
46 |
hereby transferred. |
|
47 |
||
48 |
[1] Code written at SWING Research Group contains a signature |
|
49 |
of one of the above copright owners. For exact set of such code, |
|
50 |
see the differences between this version and version stx:libjava |
|
51 |
as of 1.9.2010 |
|
52 |
||
53 |
" |
|
54 |
! ! |
|
55 |
||
56 |
!JavaExceptionTests class methodsFor:'accessing'! |
|
57 |
||
58 |
resources |
|
59 |
||
60 |
^ Array |
|
61 |
with: JavaInitializedResource |
|
62 |
with: JavaLibrariesResource |
|
63 |
with: JavaTestsResource |
|
64 |
||
65 |
"Created: / 30-03-2012 / 13:38:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
66 |
! ! |
|
67 |
||
1452
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
68 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
69 |
!JavaExceptionTests methodsFor:'callbacks'! |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
70 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
71 |
call: trhower with: aBoolean |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
72 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
73 |
aBoolean ifTrue:[signal raise]. |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
74 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
75 |
"Created: / 03-04-2012 / 17:33:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
76 |
! |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
77 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
78 |
throw_me: aBoolean |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
79 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
80 |
aBoolean ifTrue:[signal raise]. |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
81 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
82 |
"Created: / 03-04-2012 / 17:31:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
83 |
! ! |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
84 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
85 |
!JavaExceptionTests methodsFor:'error handling (interop)'! |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
86 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
87 |
doesNotUnderstand:aMessage |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
88 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
89 |
| method selector class args| |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
90 |
selector := aMessage selector. |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
91 |
args := aMessage arguments. |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
92 |
class := self class. |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
93 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
94 |
JavaLookup isNil ifTrue:[ |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
95 |
(Smalltalk loadPackage: 'stx:libjava/experiments') ifFalse:[ |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
96 |
self error: 'You should load package stx:libjava/experiments if you want some interop - still experimental' mayProceed: true. |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
97 |
^nil |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
98 |
] |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
99 |
]. |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
100 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
101 |
method := JavaLookup instance lookupMethodForSelector: selector |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
102 |
directedTo: class |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
103 |
for: self |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
104 |
withArguments: args |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
105 |
from: thisContext sender sender |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
106 |
ilc: nil. |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
107 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
108 |
method isNil ifTrue:[ |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
109 |
^super doesNotUnderstand:aMessage |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
110 |
] ifFalse:[ |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
111 |
^ method valueWithReceiver: self arguments: args |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
112 |
]. |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
113 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
114 |
"Created: / 06-09-2011 / 22:16:26 / Jan Kurs <kursjan@fit.cvut.cz>" |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
115 |
"Modified: / 15-12-2011 / 23:42:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
116 |
! ! |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
117 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
118 |
!JavaExceptionTests methodsFor:'running'! |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
119 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
120 |
setUp |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
121 |
signal := Signal new. |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
122 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
123 |
"Created: / 03-04-2012 / 17:30:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
124 |
! ! |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
125 |
|
1440 | 126 |
!JavaExceptionTests methodsFor:'tests'! |
127 |
||
128 |
test_01a |
|
129 |
" |
|
130 |
Scenario (method activation stack, last called at bottom) |
|
131 |
1) ST method, handles IllegalArgumentException |
|
132 |
2) Java method, throws IllegalArgumentException. |
|
133 |
" |
|
134 |
||
135 |
| thrower caught | |
|
136 |
thrower := JAVA stx libjava tests SimpleExceptionThrower new. |
|
137 |
[ |
|
138 |
thrower throw_me: true. |
|
139 |
caught := false. |
|
140 |
||
141 |
] on: JAVA java lang IllegalArgumentException do: [:ex| |
|
142 |
caught := true. |
|
143 |
]. |
|
144 |
||
145 |
self assert: caught == true |
|
146 |
||
147 |
"Created: / 18-03-2012 / 11:06:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
148 |
! |
|
149 |
||
150 |
test_01b |
|
151 |
" |
|
152 |
Scenario (method activation stack, last called at bottom) |
|
153 |
1) ST method, handles IllegalArgumentException |
|
154 |
2) Java method, does not IllegalArgumentException. |
|
155 |
" |
|
156 |
||
157 |
| thrower caught | |
|
158 |
thrower := JAVA stx libjava tests SimpleExceptionThrower new. |
|
159 |
[ |
|
160 |
thrower throw_me: false. |
|
161 |
caught := false. |
|
162 |
||
163 |
] on: JAVA java lang IllegalArgumentException do: [:ex| |
|
164 |
caught := true. |
|
165 |
]. |
|
166 |
||
167 |
self assert: caught == false |
|
168 |
||
169 |
"Created: / 18-03-2012 / 21:49:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
170 |
! |
|
171 |
||
172 |
test_01c |
|
173 |
" |
|
174 |
Scenario (method activation stack, last called at bottom) |
|
175 |
1) ST method, handles IllegalArgumentException |
|
176 |
2) Java method, does not IllegalArgumentException. |
|
177 |
" |
|
178 |
||
179 |
| thrower caught | |
|
180 |
thrower := JAVA stx libjava tests SimpleExceptionThrower new. |
|
181 |
[ |
|
182 |
thrower throw_me: true. |
|
183 |
caught := false. |
|
184 |
||
185 |
] on: JAVA java lang Throwable do: [:ex| |
|
186 |
caught := true. |
|
187 |
]. |
|
188 |
||
189 |
self assert: caught == true |
|
190 |
||
191 |
"Created: / 18-03-2012 / 22:11:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
192 |
! |
|
193 |
||
194 |
test_01d |
|
195 |
" |
|
196 |
Scenario (method activation stack, last called at bottom) |
|
197 |
1) ST method, handles IllegalArgumentException |
|
198 |
2) Java method, does not IllegalArgumentException. |
|
199 |
" |
|
200 |
||
201 |
| thrower caught | |
|
202 |
thrower := JAVA stx libjava tests SimpleExceptionThrower new. |
|
203 |
[ |
|
204 |
[ |
|
205 |
thrower throw_me: true. |
|
206 |
caught := false. |
|
207 |
||
208 |
] on: JAVA java lang ArrayIndexOutOfBoundsException do: [:ex| |
|
209 |
caught := true. |
|
210 |
]. |
|
211 |
] on: JavaUnhandledExceptionError do:[ |
|
212 |
caught := 123. |
|
213 |
]. |
|
214 |
||
215 |
self assert: caught == 123 |
|
216 |
||
217 |
"Created: / 18-03-2012 / 22:12:06 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1450 | 218 |
! |
219 |
||
220 |
test_01e |
|
221 |
" |
|
222 |
Scenario (method activation stack, last called at bottom) |
|
223 |
1) ST method, handles IllegalArgumentException |
|
224 |
2) Java method, throws IllegalArgumentException. |
|
225 |
" |
|
226 |
||
227 |
| thrower caught | |
|
228 |
thrower := JAVA stx libjava tests SimpleExceptionThrower new. |
|
229 |
[ |
|
230 |
thrower call: true. |
|
231 |
caught := false. |
|
232 |
||
233 |
] on: JAVA java lang IllegalArgumentException do: [:ex| |
|
234 |
caught := true. |
|
235 |
]. |
|
236 |
||
237 |
self assert: caught == true |
|
238 |
||
239 |
"Created: / 03-04-2012 / 14:44:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
240 |
! |
|
241 |
||
242 |
test_03a |
|
243 |
" |
|
244 |
Scenario (method activation stack, last called at bottom) |
|
245 |
1) ST method, handles IllegalArgumentException |
|
246 |
2) Java method with finally |
|
247 |
3) Java method, throws IllegalArgumentException. |
|
248 |
" |
|
249 |
||
250 |
| thrower caught | |
|
251 |
thrower := JAVA stx libjava tests SimpleExceptionThrower new. |
|
252 |
[ |
|
253 |
thrower test_03: true. |
|
254 |
caught := false. |
|
255 |
||
256 |
] on: JAVA java lang IllegalArgumentException do: [:ex| |
|
257 |
caught := true. |
|
258 |
]. |
|
259 |
||
260 |
self assert: caught == true. |
|
261 |
self assert: thrower token == 3. |
|
262 |
||
263 |
"Created: / 03-04-2012 / 15:39:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1452
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
264 |
! |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
265 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
266 |
test_04a |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
267 |
" |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
268 |
Scenario (method activation stack, last called at bottom) |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
269 |
1) ST method, handles 'signal' |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
270 |
2) Java method with finally |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
271 |
3) Smalltak method, throws 'signal' |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
272 |
" |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
273 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
274 |
| thrower caught | |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
275 |
thrower := JAVA stx libjava tests SimpleExceptionThrower new. |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
276 |
[ |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
277 |
thrower test_04: self with: true. |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
278 |
caught := false. |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
279 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
280 |
] on: signal do: [:ex| |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
281 |
caught := true. |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
282 |
]. |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
283 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
284 |
self assert: caught == true. |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
285 |
self assert: thrower token == 3. |
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
286 |
|
69dcb9c33742
Some more support for finally block when a Smalltalk exception is thrown - not yet working correctly
vranyj1
parents:
1450
diff
changeset
|
287 |
"Created: / 03-04-2012 / 17:30:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1440 | 288 |
! ! |
289 |
||
290 |
!JavaExceptionTests class methodsFor:'documentation'! |
|
291 |
||
292 |
version_SVN |
|
293 |
^ '$Id$' |
|
294 |
! ! |