/[eiffelstudio]/trunk/eweasel/tests/exec120/worker.e
ViewVC logotype

Contents of /trunk/eweasel/tests/exec120/worker.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 65297 - (show annotations)
Thu Nov 30 20:22:33 2006 UTC (13 years ago) by manus
File size: 591 byte(s)
Moved from trunk/Src/eweasel to trunk/eweasel so that a simple checkout of the source code is not penalized by the lenghty process of checking out all the tests of eweasel.
1
2 --| Copyright (c) 1993-2006 University of Southern California and contributors.
3 --| All rights reserved.
4 --| Your use of this work is governed under the terms of the GNU General
5 --| Public License version 2.
6
7 class WORKER
8 inherit
9 THREAD
10 feature
11
12 make is
13 do
14 end;
15
16 execute is
17 local
18 k, item_count, count: INTEGER;
19 r: RANDOM;
20 do
21 item_count := 100
22 !!r.set_seed (47);
23 from
24 k := 1;
25 r.start;
26 until
27 k > 100000
28 loop
29 count := r.item \\ item_count;
30 !!s.make (count);
31 s.fill_blank;
32 k := k + 1;
33 r.forth;
34 end
35 end;
36
37
38 s: STRING;
39
40 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23