Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
1951 mario79 1 
;-----------------------------------------------------------------------------
2 
proc dll.Load, import_table:dword
3 
	mov		esi,[import_table]
4 
.next_lib:
5 
	mov		edx,[esi]
6 
	or		edx,edx
7 
	jz		.exit
8 
	push	esi
9 
	mov		esi,[esi+4]
10 
	mov		edi,s_libdir.fname
11 
@@:
12 
	lodsb
13 
	stosb
14 
	or		al,al
15 
	jnz		@b
16 
	mcall	68,19,s_libdir
17 
	or		eax,eax
18 
	jz		.fail
19 
	stdcall dll.Link,eax,edx
20 
	stdcall dll.Init,[eax+4]
21 
	pop		esi
22 
	add		esi,8
23 
	jmp		.next_lib
24 
.exit:
25 
	xor		eax,eax
26 
	ret
27 
.fail:
28 
	add		esp,4
29 
	xor		eax,eax
30 
	inc		eax
31 
	ret
32 
endp
33 
;-----------------------------------------------------------------------------
34 
proc dll.Link, exp:dword,imp:dword
35 
	push	eax
36 
	mov		esi,[imp]
37 
	test	esi,esi
38 
	jz		.done
39 
.next:
40 
	lodsd
41 
	test	eax,eax
42 
	jz		.done
43 
	stdcall dll.GetProcAddress,[exp],eax
44 
	or		eax,eax
45 
	jz		@f
46 
	mov		[esi-4],eax
47 
	jmp		.next
48 
@@:
49 
	mov		dword[esp],0
50 
.done:
51 
	pop		eax
52 
	ret
53 
endp
54 
;-----------------------------------------------------------------------------
55 
proc dll.Init, dllentry:dword
56 
	pushad
57 
	mov		eax,mem.Alloc ;libini_alloc
58 
	mov		ebx,mem.Free ;libini_free
59 
	mov		ecx,mem.ReAlloc ;libini_realloc
60 
	mov		edx,dll.Load
61 
	stdcall [dllentry]
62 
	popad
63 
	ret
64 
endp
65 
;-----------------------------------------------------------------------------
66 
proc dll.GetProcAddress, exp:dword,sz_name:dword
67 
	mov		edx,[exp]
68 
	xor		eax,eax
69 
.next:
70 
	or		edx,edx
71 
	jz		.end
72 
	cmp		dword[edx],0
73 
	jz		.end
74 
	stdcall strcmp,[edx],[sz_name]
75 
	test	eax,eax
76 
	jz		.ok
77 
	add		edx,8
78 
	jmp		.next
79 
.ok:
80 
	mov	eax,[edx+4]
81 
  .end:
82 
	ret
83 
endp
84 
;-----------------------------------------------------------------------------
85 
proc strcmp, str1:dword,str2:dword
86 
	push	esi edi
87 
	mov		esi,[str1]
88 
	mov		edi,[str2]
89 
	xor		eax,eax
90 
@@:
91 
	lodsb
92 
	scasb
93 
	jne		.fail
94 
	or		al,al
95 
	jnz		@b
96 
	jmp		.ok
97 
.fail:
98 
	or	eax,-1
99 
.ok:
100 
	pop	edi esi
101 
	ret
102 
endp
103 
;-----------------------------------------------------------------------------
104 
s_libdir:
105 
  db '/sys/lib/'
106 
  .fname rb 32
107 
;-----------------------------------------------------------------------------
108 
proc mem.Alloc,size
109 
	push	ebx ecx
110 
	mov		ecx,[size]
111 
	mcall	68,12
112 
	pop		ecx ebx
113 
	ret
114 
endp
115 
;-----------------------------------------------------------------------------
116 
proc mem.ReAlloc,mptr,size
117 
	push	ebx ecx edx
118 
	mov		ecx,[size]
119 
	or		ecx,ecx
120 
	jz		@f
121 
@@:
122 
	mov		edx,[mptr]
123 
	or		edx,edx
124 
	jz		@f
125 
@@:
126 
	mcall	68,20
127 
	or		eax,eax
128 
	jz		@f
129 
@@:
130 
	pop		edx ecx ebx
131 
	ret
132 
endp
133 
;-----------------------------------------------------------------------------
134 
proc mem.Free,mptr
135 
	push	ebx ecx
136 
	mov		ecx,[mptr]
137 
	or		ecx,ecx
138 
	jz		@f
139 
@@:
140 
	mcall	68,13
141 
	pop		ecx ebx
142 
	ret
143 
endp
144 
;-----------------------------------------------------------------------------