note legal: "See notice at end of class." status: "See notice at end of class." class TEST inherit SHARED_LIBRARY_CONSTANTS create make feature make do io.putstring ("Hello%N") testdesc io.read_line end testdesc local dll: DLL_32 routine: DLL_32_ROUTINE a: ARRAY [INTEGER] r1, r2: REAL do create dll.make ("testdesc.dll") -- Create a DLL_32 object create routine.make_by_name (dll, "Sum", <>, T_integer) -- Create a DLL_32_ROUTINE object a := <<10, 20, 30>> routine.call (<<"Eiffel", a, 3>>) -- Call the routine with the arguments io.put_string ("Sum of the array is ") io.put_integer (routine.integer_result) -- Print the result io.new_line routine.make_by_name (dll, "EiffelString", <<>>, T_string) -- A routine without arguments which -- returns a string (from the same DLL) routine.call (<<>>) io.put_string (routine.string_result) io.new_line create routine.make_by_name (dll, "double_function", <>, T_double) routine.call (<<90.9, 2.2>>) io.putdouble (routine.double_result) create routine.make_by_name (dll, "output", <>, T_integer) routine.call (<<5, 6>>) io.putint (routine.integer_result) io.new_line create routine.make_by_name (dll, "float_function", <>, T_real) r1 := 12.2 r2 := 6.6 routine.call (<< r1, r2>>) io.putreal (routine.real_result) io.new_line end note copyright: "Copyright (c) 1984-2006, Eiffel Software and others" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" source: "[ Eiffel Software 356 Storke Road, Goleta, CA 93117 USA Telephone 805-685-1006, Fax 805-685-6869 Website http://www.eiffel.com Customer support http://support.eiffel.com ]" end -- class TEST