mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-12-13 18:37:08 +03:00
0aaee5cee7
git-svn-id: svn://kolibrios.org@8490 a494cfbc-eb01-0410-851d-a64ba20cac60
245 lines
5.0 KiB
Objective-C
245 lines
5.0 KiB
Objective-C
#ifndef INCLUDE_DLL_H
|
|
#define INCLUDE_DLL_H
|
|
#print "[include <dll.h>]\n"
|
|
|
|
#ifndef INCLUDE_FILESYSTEM_H
|
|
#include "../lib/fs.h"
|
|
#endif
|
|
|
|
#ifdef LANG_RUS
|
|
#define _TEXT_ERROR_ADD "'Žè¨¡ª ¯à¨ § £à㧪¥ ¡¨¡«¨®â¥ª¨\n"
|
|
#elif LANG_EST
|
|
#define _TEXT_ERROR_ADD "'Viga teegi laadimisel\n"
|
|
#else
|
|
#define _TEXT_ERROR_ADD "'Error while loading library\n"
|
|
#endif
|
|
|
|
char a_libdir[43] = "/sys/lib/\0";
|
|
|
|
// stdcall with 1 parameter
|
|
:void dll_Load() {
|
|
asm {
|
|
push ebp
|
|
mov ebp, esp
|
|
mov esi, SSDWORD[EBP+8]
|
|
@next_lib:
|
|
mov edx, DSDWORD[ESI]
|
|
or edx, edx
|
|
jz exit
|
|
push esi
|
|
mov esi, DSDWORD[ESI+4]
|
|
mov edi, #a_libdir+9
|
|
|
|
@loc01:
|
|
lodsb
|
|
stosb
|
|
or al, al
|
|
jnz loc01
|
|
|
|
mov eax, 68
|
|
mov ebx, 19
|
|
mov ecx, #a_libdir
|
|
int 0x40
|
|
or eax, eax
|
|
jz fail
|
|
|
|
push edx
|
|
push eax
|
|
call dll_Link
|
|
|
|
push eax
|
|
mov eax, DSDWORD[eax]
|
|
cmp DSDWORD[EAX], '_bil' // somehow this needs to be reversed..
|
|
pop eax
|
|
jnz loc02
|
|
|
|
push DSDWORD[EAX+4]
|
|
call dll_Init
|
|
@loc02:
|
|
|
|
pop esi
|
|
add esi, 8
|
|
jmp next_lib
|
|
@exit:
|
|
xor eax, eax
|
|
leave
|
|
ret 4
|
|
|
|
@fail:
|
|
add esp, 4
|
|
xor eax, eax
|
|
inc eax
|
|
leave
|
|
ret 4
|
|
}
|
|
}
|
|
|
|
//stdcall with 2 parameters
|
|
:void dll_Link() {
|
|
asm {
|
|
push ebp
|
|
mov ebp, esp
|
|
push eax
|
|
mov esi, SSDWORD[EBP+12]
|
|
test esi, esi
|
|
jz done
|
|
@next:
|
|
lodsd
|
|
test eax, eax
|
|
jz done
|
|
push eax
|
|
push SSDWORD[EBP+8]
|
|
call dll_GetProcAddress
|
|
or eax, eax
|
|
jz loc03
|
|
mov DSDWORD[esi-4], eax
|
|
jmp next
|
|
@loc03:
|
|
mov SSDWORD[esp], 0
|
|
@done:
|
|
pop eax
|
|
leave
|
|
ret 8
|
|
}
|
|
}
|
|
|
|
|
|
//stdcall with 1 parameter
|
|
:void dll_Init() {
|
|
asm {
|
|
push ebp
|
|
mov ebp, esp
|
|
pushad
|
|
mov eax, #malloc
|
|
mov ebx, #free;
|
|
mov ecx, #realloc;
|
|
mov edx, #dll_Load;
|
|
call SSDWORD[EBP+8]
|
|
popad
|
|
leave
|
|
ret 4
|
|
}
|
|
}
|
|
|
|
|
|
// stdcall with 2 parameters
|
|
:void dll_GetProcAddress(){
|
|
asm {
|
|
push ebp
|
|
mov ebp, esp
|
|
mov edx, CSDWORD[EBP+8]
|
|
xor eax, eax
|
|
|
|
@next:
|
|
or edx, edx
|
|
jz end
|
|
cmp CSDWORD[edx], 0
|
|
jz end
|
|
|
|
push CSDWORD[EBP+12]
|
|
push CSDWORD[EDX]
|
|
call dll_StrCmp
|
|
test eax, eax
|
|
jz ok
|
|
add edx, 8
|
|
jmp next
|
|
@ok:
|
|
mov eax, DSDWORD[EDX+4]
|
|
@end:
|
|
leave
|
|
ret 8
|
|
}
|
|
}
|
|
|
|
|
|
// stdcall with 2 parameters
|
|
:void dll_StrCmp() {
|
|
asm {
|
|
push ebp
|
|
mov ebp, esp
|
|
push esi
|
|
push edi
|
|
mov esi, CSDWORD[EBP+8]
|
|
mov edi, CSDWORD[EBP+12]
|
|
xor eax, eax
|
|
@label1:
|
|
lodsb
|
|
scasb
|
|
jne fail
|
|
or al, al
|
|
jnz label1
|
|
jmp label_ok
|
|
@fail:
|
|
or eax, -1
|
|
@label_ok:
|
|
pop edi
|
|
pop esi
|
|
leave
|
|
ret 8
|
|
}
|
|
}
|
|
|
|
:void load_dll(dword dllname, import_table, byte need_init)
|
|
{
|
|
// load DLL
|
|
$mov eax, 68
|
|
$mov ebx, 19
|
|
ECX=dllname;
|
|
$int 0x40
|
|
$test eax, eax
|
|
$jz exit01
|
|
|
|
// initialize import
|
|
$mov edx,eax
|
|
ESI=import_table;
|
|
|
|
@import_loop01:
|
|
$lodsd
|
|
$test eax,eax
|
|
$jz import_done01
|
|
$push edx
|
|
@import_find01:
|
|
$mov ebx,DSDWORD[EDX]
|
|
$test ebx, ebx
|
|
$jz exit01
|
|
$push eax
|
|
@nex101:
|
|
$mov cl,DSBYTE[EAX];
|
|
$cmp cl,DSBYTE[EBX];
|
|
$jnz import_find_next01
|
|
$test cl,cl
|
|
$jz import_found01
|
|
$inc eax
|
|
$inc ebx
|
|
$jmp nex101
|
|
@import_find_next01:
|
|
$pop eax
|
|
$add edx, 8
|
|
$jmp import_find01
|
|
@import_found01:
|
|
$pop eax
|
|
$mov eax,DSDWORD[edx+4]
|
|
$mov DSDWORD[esi-4],eax
|
|
$pop edx
|
|
|
|
$jmp import_loop01
|
|
@import_done01:
|
|
#ifndef NO_DLL_INIT
|
|
IF (need_init) dll_Init (DSDWORD[EDX+4]);
|
|
#endif
|
|
return;
|
|
@exit01:
|
|
error_init(dllname);
|
|
}
|
|
|
|
:inline void error_init(dword lirary_path)
|
|
{
|
|
char error_text[1024];
|
|
strcpy(#error_text, _TEXT_ERROR_ADD);
|
|
strcat(#error_text, lirary_path);
|
|
strcat(#error_text, "' -E");
|
|
notify(#error_text);
|
|
}
|
|
|
|
|
|
#endif |