# # $Id: method.icn,v 1.2 2004/02/12 17:07:56 rparlett Exp $ # # This file is in the public domain. # # Author: Robert Parlett (parlett@dial.pipex.com) # package lang # # This class encapsulates information about a class method. # class Method(as_proc, method_name, defining_class) # # Get the procedure name, ec "Mypackage__Myclass_mymethod" # method get_procedure_name() image(as_proc) ? { ="procedure " return tab(0) } end # # Get the method name eg "mymethod" # method get_method_name() return method_name end # # Get the name of the defining class # method get_defining_class() return defining_class end # # Get as a procedure # method get_as_procedure() return as_proc end # # Invoke with the specified object and parameters # method invoke(obj, args[]) as_proc ! ([obj] ||| args) end # # Invoke with the specified object and parameters, given as a list # method invoke_list(obj, args) as_proc ! ([obj] ||| args) end end