5506ab09dc
Replacement of `is' by `=' for constant definitions. Replaced `indexing' by `note'. git-svn-id: https://svn.origo.ethz.ch/eiffelstudio/trunk/Src/library/cURL@76420 8089f293-4706-0410-a29e-feb5c42a2edf
97 lines
2.8 KiB
Plaintext
97 lines
2.8 KiB
Plaintext
note
|
|
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
|
|
-- 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
|
|
-- 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
|
|
-- 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
|
|
-- 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
|
|
|
|
note
|
|
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
|