note description: "[ no comment yet ]" legal: "See notice at end of class." status: "Community Preview 1.0" date: "$Date$" revision: "$Revision$" class MY_XMLRPC_API inherit XWA_XRPC_API feature -- Basic operations hello (a_name: STRING): STRING require a_name_attached: attached a_name not_a_name_is_empty: not a_name.is_empty do Result := "Hello there " + a_name.string end test_array (a_array: XRPC_ARRAY): BOOLEAN do Result := a_array.count > 0 and attached {XRPC_BOOLEAN} a_array.item (1) as l_bool and then l_bool.value end sum (i, j: NATURAL_16): INTEGER -- XML-RPC using Eiffel types. do Result := (i + j).as_integer_32 end product(i, j: DOUBLE): DOUBLE -- XML-RPC using Eiffel types. do Result := i * j end sum_x (a_int1: XRPC_INTEGER; a_int2: XRPC_INTEGER): XRPC_INTEGER -- XML-RPC using XRPC types. do create Result.make (a_int1.value + a_int2.value) end end