Advertisement
Guest User

Untitled

a guest
Oct 6th, 2015
93
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.50 KB | None | 0 0
  1. % TODO (unimplemented)
  2.  
  3. TYPE Animal IS INTERFACE
  4. FUNCTION make_sound(self: Animal)
  5. END INTERFACE
  6.  
  7. TYPE Dog IS CLASS(Animal)
  8. size: Number
  9. END CLASS
  10.  
  11. FUNCTION Dog.make_sound(self: Dog)
  12. print("bark \(self.size)")
  13. END FUNCTION
  14.  
  15. TYPE Cat IS CLASS(Animal)
  16. longhair: Boolean
  17. END CLASS
  18.  
  19. FUNCTION Cat.make_sound(self: Cat)
  20. print("meow \(self.longhair)")
  21. END FUNCTION
  22.  
  23. VAR d: Dog
  24. d.size := 5
  25. VAR a: Animal := d
  26. a.make_sound()
  27. %= bark 5
  28.  
  29. VAR c: Cat
  30. c.longhair := TRUE
  31. a := c
  32. a.make_sound()
  33. %= meow TRUE
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement