Re: Object-oriented preprocessor
- Posted by Icy_Viking Aug 25, 2022
- 2108 views
jmduro said...
There is even a version without lists of classes or entities: http://jean-marc.duro.pagesperso-orange.fr/class_demo.zip
include std/datetime.e include std/console.e include classes.e ------------------------------------------------------------------------------ function get_years(atom secs) atom days = floor(secs/86400) return floor(days/365.25) end function ------------------------------------------------------------------------------ function describe(sequence entity, sequence params) atom secs = diff(getProperty(entity, "birth_date"), now()) printf(1, "\nHello! I speak %s.\n", {getProperty(entity, "mother_tongue")}) if length(params) then printf(1, "I am %d years old. I was born in %s (%s).\n", {get_years(secs), getProperty(entity, "birth_place"), params[1]}) else printf(1, "I am %d years old. I was born in %s.\n", {get_years(secs), getProperty(entity, "birth_place")}) end if return 0 end function ------------------------------------------------------------------------------ procedure main(sequence cmd) object void sequence TPerson = class("TPerson") TPerson = addProperty(TPerson, "birth_date", now()) TPerson = addProperty(TPerson, "birth_place", "") TPerson = addProperty(TPerson, "mother_tongue", "") TPerson = addMethod(TPerson, "describe", routine_id("describe")) sequence englishman = classes:new(TPerson) englishman = setProperty(englishman, "birth_date", datetime:new(2010, 5, 14)) englishman = setProperty(englishman, "birth_place", "Liverpool") englishman = setProperty(englishman, "mother_tongue", "english") sequence frenchman = classes:new(TPerson) frenchman = setProperty(frenchman, "birth_date", datetime:new(1960, 8, 10)) frenchman = setProperty(frenchman, "birth_place", "Thionville") frenchman = setProperty(frenchman, "mother_tongue", "french") sequence german = classes:new(TPerson) german = setProperty(german, "birth_date", datetime:new(1993, 2, 23)) german = setProperty(german, "birth_place", "Munich") german = setProperty(german, "mother_tongue", "german") void = callMethod(englishman, "describe", {"Merseyside"}) void = callMethod(frenchman, "describe", {"Lorraine"}) void = callMethod(german, "describe", {"Bavaria"}) end procedure -- main ------------------------------------------------------------------------------ -- Main main(command_line()) maybe_any_key()
Jean-Marc
I wonder if this would work making wrappers?
Something like
include classes.e sequence TRect = class("TRect") TRect = addProperty(TRect,atom x,"") TRect = addProperty(TRect,atom y,"")
Would that work or would I be on the right track?