/[eiffelstudio]/trunk/eweasel/tests/except012/application.e
ViewVC logotype

Contents of /trunk/eweasel/tests/except012/application.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 70039 - (show annotations)
Mon Aug 20 13:02:15 2007 UTC (12 years, 6 months ago) by tedf
File size: 539 byte(s)
Made them compile with new exception classes and fixed some typos.
1 class
2 APPLICATION
3
4 inherit
5 A
6
7 create
8 make
9
10 feature -- Initialization
11
12 make is
13 -- Run application.
14 local
15 a: A
16 l_exception: ROUTINE_FAILURE
17 retried: BOOLEAN
18 do
19 if not retried then
20 create a
21 a.f
22 end
23 rescue
24 retried := True
25 l_exception ?= last_exception
26 if l_exception /= Void then
27 print ("True" + "%N")
28 else
29 print ("False" + "%N")
30 end
31 if last_exception = my_exception then
32 print ("True" + "%N")
33 else
34 print ("False" + "%N")
35 end
36 retry
37 end
38
39 end -- class APPLICATION

Properties

Name Value
svn:eol-style native
svn:keywords Author Date ID Revision

  ViewVC Help
Powered by ViewVC 1.1.23