/src/wrappers/glib/examples/do_stuff.e

 1class DO_STUFF
 2inherit G_POOLED_ROUTINE
 3creation
 4	make,
 5	default_create
 6feature 
 7	make (an_i: INTEGER_32) is
 8	local msg: STRING
 9	do
10		i:=an_i
11		msg := "Looking for "
12		i.append_in(msg)
13		msg.append(once ".%N")
14		-- Warning! to_string is NOT thread safe!
15		print(msg)
16
17	end
18	
19	invoke (a_pool: G_THREAD_POOL[G_POOLED_ROUTINE]) is
20		local x: like i; msg: STRING
21		do
22			from is_prime:=False; x:=2
23			until not is_prime or x>=i loop
24				is_prime := (i\\x)=0 -- rest of the division
25				x:=x+1
26			end
27			msg := ""; i.append_in(msg)
28			if is_prime then msg.append(" is prime.%N") 
29			else msg.append(" is not prime.%N") 
30			end
31			print (msg)
32
33		end
34
35	i: INTEGER_32
36	is_prime: BOOLEAN
37end