/tutorial/cecil/JVM/root4.e

 1class ROOT4
 2
 3creation {ANY}
 4	make
 5
 6feature {ANY}
 7	make is
 8			-- Dummy root procedure to make some live code.
 9		do
10			put_string(get_string)
11		end
12
13	get_string: STRING is
14		do
15			-- get a string that has capacity greater than count
16			Result := "XXXXHi from ROOT4"
17			Result.remove(1)
18			Result.remove(1)
19			Result.remove(1)
20			Result.remove(1)
21		end
22
23	put_string (s: STRING) is
24		do
25			io.put_string("'")
26			io.put_string(s)
27			io.put_string("'%N")
28		end
29
30end -- class ROOT4