aabc2/KOS_qrcodes
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Activity

cmm move small aps into cmm/misc folder

Browse Source 
git-svn-id: svn://kolibrios.org@7911 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Kiril Lipatov
2020-05-11 07:58:18 +00:00
parent 842c228f23
commit 27cb400814
35 changed files with 30 additions and 155 deletions
Download Patch File Download Diff File Expand all files Collapse all files

201
programs/cmm/experimental/python/static/lib.h Normal file
View File

@@ -0,0 +1,201 @@
:dword strcmp(dword str1,str2)
{
LOOPCMP:
IF(DSBYTE[str1]!=DSBYTE[str2]) RETURN DSBYTE[str1]-DSBYTE[str2];
IF(!DSBYTE[str1]) RETURN DSBYTE[str1]-DSBYTE[str2];
IF(!DSBYTE[str2]) RETURN DSBYTE[str1]-DSBYTE[str2];
str1++;
str2++;
GOTO LOOPCMP;
}
/*
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, #libPath
add edi,9
@loc01:
lodsb
stosb
or al, al
jnz loc01
mov eax, 68
mov ebx, 19
mov ecx, #libPath
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
}
}
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
}
}
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 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
}
}
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
}
}
*/
:dword importLibrary(dword name)
{
dword l = 0;
dword i = 0;
dword list = 0;
dword key = 0;
dword data = 0;
dword ret = 0;
i = malloc(1000);
l = strcpy(TEMP,#libPath);
l += strcpy(TEMP+l,name);
memcpy(TEMP+l,".obj",5);
EAX = 68;
EBX = 19;
ECX = TEMP;
$int 0x40;
list = EAX;
while(DSDWORD[list])
{
test2(DSDWORD[list],0);
IF(!strcmp(DSDWORD[list],"con_init"))
{
//dll_Init(DSDWORD[list+4]);
}
ELSE dictSet(ret,DSDWORD[list],DSDWORD[list+4]);
list+=8;
}
EAX = DSDWORD[i+92];
i = malloc(10);
strcpy(i,"test");
i = realloc(i,19);
test1(i,0);
}