PageRenderTime 14ms CodeModel.GetById 11ms app.highlight 1ms RepoModel.GetById 1ms app.codeStats 0ms

/tutorial/cecil/JVM/root4.e

http://github.com/tybor/Liberty
Specman e | 30 lines | 23 code | 5 blank | 2 comment | 0 complexity | 5210ccbac549ca963ed8c3c998725e75 MD5 | raw file
 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