/[eiffelstudio]/trunk/eweasel/tests/scoop066/supplier.e
ViewVC logotype

Contents of /trunk/eweasel/tests/scoop066/supplier.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 97465 - (show annotations)
Fri Jun 12 09:42:40 2015 UTC (4 years, 7 months ago) by romanschmocker
File size: 1014 byte(s)
Added two eweasel tests for some basic features of passive processors.

1 note
2 description: "A supplier class with several different queries and commands."
3 author: "Roman Schmocker"
4 date: "$Date$"
5 revision: "$Revision$"
6
7 class
8 SUPPLIER
9
10 create
11 make
12
13 feature {NONE} -- Initialization
14
15 make (a_shared: like shared)
16 -- Initialization for `Current'.
17 do
18 shared := a_shared
19 end
20
21 feature -- Access
22
23 shared: separate ANY
24 -- The shared object.
25
26 simple_query: INTEGER
27 do
28 Result := 42
29 end
30
31 regular_lockpassing (arg: separate ANY): INTEGER
32 -- A stub query.
33 do
34 arg.default_pointer.do_nothing
35 Result := 42
36 end
37
38 passive_query_lockpassing: INTEGER
39 do
40 lock_shared (shared)
41 Result := 42
42 end
43
44 passive_command_lockpassing
45 do
46 lock_shared (shared)
47 end
48
49 callback_query (a_test: separate TEST): INTEGER
50 do
51 a_test.out.do_nothing
52 Result := 42
53 end
54
55 callback_command (a_test: separate TEST)
56 do
57 a_test.out.do_nothing
58 end
59
60 feature {NONE} -- Implementation
61
62 lock_shared (a_shared: like shared)
63 do
64 a_shared.out.do_nothing
65 end
66
67 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23