/tutorial/cecil/JVM/root2.e

http://github.com/tybor/Liberty · Specman e · 23 lines · 17 code · 5 blank · 1 comment · 0 complexity · 87c497d846adca57b18bde88a234a6d0 MD5 · raw file

  1. class ROOT2
  2. creation {ANY}
  3. make
  4. feature {ANY}
  5. make is
  6. -- Dummy root procedure to make some live code.
  7. do
  8. put_string(get_string)
  9. end
  10. get_string: STRING is
  11. do
  12. Result := "Hi from ROOT2%N"
  13. end
  14. put_string (s: STRING) is
  15. do
  16. io.put_string(s)
  17. end
  18. end -- class ROOT2