small SDK for libGUI

git-svn-id: svn://kolibrios.org@699 a494cfbc-eb01-0410-851d-a64ba20cac60
2008-01-19 11:38:15 +00:00
parent 25713b7524
commit b66406549f
6 changed files with 976 additions and 0 deletions
--- a/programs/develop/sdk/trunk/libGUI_SDK/cofflib.asm
+++ b/programs/develop/sdk/trunk/libGUI_SDK/cofflib.asm
@@ -0,0 +1,73 @@
+format ELF
+include 'proc32.inc'
+section '.text' executable
+
+public _ksys_cofflib_load
+public _ksys_cofflib_getproc
+
+proc  _ksys_cofflib_load stdcall, name:dword
+
+        mov eax, 68
+        mov ebx, 19
+        mov ecx, [name]
+        int 0x40
+        ret
+endp
+
+proc  _ksys_cofflib_getproc stdcall, export:dword,name:dword
+
+        mov ebx,[export]
+
+        next_name_check:
+
+        mov ecx,[ebx]
+        test ecx,ecx
+        jz end_export
+
+        ;cmp export string with name
+        mov esi,[name]
+        xor edi,edi
+        next_simbol_check:
+
+        xor eax,eax
+        mov al,[ecx]
+        test al,al
+        jz exit_check_simbol
+
+                xor edx,edx
+                mov dl,[esi]
+                cmp al,dl
+                je simbols_equvalent
+                        add edi,1
+                        jmp exit_check_simbol
+                simbols_equvalent:
+
+		  ;pushad
+
+		  ;mov	cl,al
+		  ;mov	ebx,1
+		  ;mov	eax,63
+		  ;int	0x40
+
+		  ;popad
+
+        add ecx,1
+        add esi,1
+        jmp next_simbol_check
+        exit_check_simbol:
+
+        test edi,edi
+        jnz function_not_finded
+                mov eax,[ebx+4]
+                jmp end_export
+        function_not_finded:
+
+        add ebx,8
+
+        jmp next_name_check
+
+        end_export:
+
+        ret 
+endp
+