Moved API_LOADER class to where it was used, i.e. the cURL library.

git-svn-id: https://svn.origo.ethz.ch/eiffelstudio/trunk/Src/library/cURL@75972 8089f293-4706-0410-a29e-feb5c42a2edf
2008-12-01 19:34:30 +00:00
parent 9ef3391b26
commit 544b5784ae
4 changed files with 311 additions and 3 deletions
--- a/implementation/mswin/api_loader_imp.e
+++ b/implementation/mswin/api_loader_imp.e
@@ -0,0 +1,96 @@
+indexing
+	description: "[
+					Interactive with native system APIs for dynamic loading.
+					Windows verson.
+																					]"
+	status: "See notice at end of class."
+	legal: "See notice at end of class."
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	API_LOADER_IMP
+
+feature -- Command
+
+	load_module (a_name: STRING): POINTER is
+			-- Load module with `a_name'.
+			-- `a_name' is LPCTSTR, we should use WEL_STRING here.
+		require
+			exists: a_name /= Void
+		local
+			l_wel_string: WEL_STRING
+		do
+			create l_wel_string.make (a_name)
+			Result := c_load_module (l_wel_string.item)
+		end
+
+	loal_api (a_module: POINTER; a_name: STRING): POINTER is
+			-- Load api which name is `a_name' in `a_module'
+		require
+			exists: a_module /= default_pointer
+			exists: a_name /= Void
+		local
+			l_c_string: C_STRING
+		do
+			create l_c_string.make (a_name)
+			Result := c_loal_api (a_module, l_c_string.item)
+		end
+
+feature {NONE} -- Implementation
+
+	c_load_module (a_name: POINTER): POINTER is
+			-- Load module with `a_name'.
+			-- `a_name' is LPCTSTR, we should use WEL_STRING here.
+		require
+			exists: a_name /= default_pointer
+		external
+			"C inline use <windows.h>"
+		alias
+			"return (EIF_POINTER) LoadLibrary ($a_name);"
+		end
+
+	c_loal_api (a_module: POINTER; a_name: POINTER): POINTER is
+			-- Load api which name is `a_name' in `a_module'
+		require
+			exists: a_module /= default_pointer
+			exists: a_name /= default_pointer
+		external
+			"C inline use <windows.h>"
+		alias
+			"return GetProcAddress ((HMODULE) $a_module, $a_name);"
+		end
+
+indexing
+	copyright: "Copyright (c) 1984-2007, Eiffel Software"
+	license:   "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
+	licensing_options: "http://www.eiffel.com/licensing"
+	copying: "[
+			This file is part of Eiffel Software's Eiffel Development Environment.
+			
+			Eiffel Software's Eiffel Development Environment is free
+			software; you can redistribute it and/or modify it under
+			the terms of the GNU General Public License as published
+			by the Free Software Foundation, version 2 of the License
+			(available at the URL listed under "license" above).
+			
+			Eiffel Software's Eiffel Development Environment is
+			distributed in the hope that it will be useful, but
+			WITHOUT ANY WARRANTY; without even the implied warranty
+			of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+			See the GNU General Public License for more details.
+			
+			You should have received a copy of the GNU General Public
+			License along with Eiffel Software's Eiffel Development
+			Environment; if not, write to the Free Software Foundation,
+			Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
+		]"
+	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