OpenEuphoria

Re: Prototype-Based Programming

• Posted by TheresNoTime Sep 25, 2013
• 2287 views

prototype person = clone() 
 
properties(person) 
 
  sequence name 
  integer age 
 
  procedure greet() 
    puts(1, "Hello, my name is " & name & "!\n") 
  end procedure 
 
end properties 
 
----------------------- 
 
prototype worker = clone(person) 
 
properties(worker) 
 
  procedure work(prototype self) 
    puts(1, "I am " & sprint(self.age) & "years old and I need a job.\n") 
    if self.age < 18 then 
      puts(1, "The exploitation of children is prohibited.") 
    else 
      puts(1, "Now " & self.name "makes some money!") 
    end if 
  end procedure 
 
end properties 
 
----------------------- 
 
Mike = clone(worker) 
 
Mike.name = "Mike" 
Mike.age = 99  --  :) 
 
Mike.greet() 
Mike.work() 
 
-- output: 
 
Hello, my name is Mike! 
I am 99 years old and I need a job! 
Now Mike makes some money!