@ tefigel

###
#   Generate implementation for the given attribute, when applicable.
###

interface(ATTRIBUTE)

set attr_name=~attribute_info(ATTRIBUTE,name)
set attr_type=~attribute_info(ATTRIBUTE,type)

case attr_type

   when=class
      mk_getset(attr_name,~to_lower(attr_name))

   when=method
      set   M_type=~attribute_info(ATTRIBUTE,method_type)
      set M_params=~list_contents(CLASS_ID&attr_name)
@     text
   public M_type attr_name(M_params) {

     System.out.println("Method CLASS_ID.attr_name called");

     // Handcraft your method implementation below

     SAFE_AREA_BEGIN attr_name
     SAFE_AREA_END
   }

@     endtext

   otherwise
      mk_getset(~java_type(attr_type),attr_name)

endcase