forked from KolibriOS/kolibrios
Libs-dev: libio, libini, libgfx, libimg
git-svn-id: svn://kolibrios.org@717 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Mihail Semenyako (mike.dld)
417
programs/develop/libraries/libs-dev/.test/001/test001.asm
Normal file
417
programs/develop/libraries/libs-dev/.test/001/test001.asm
Normal file
@@ -0,0 +1,417 @@
|
||||
|
||||
use32
|
||||
org 0x0
|
||||
|
||||
db 'MENUET01'
|
||||
dd 0x01
|
||||
dd START
|
||||
dd I_END
|
||||
dd 0x1000
|
||||
dd 0x1000
|
||||
dd 0x0
|
||||
dd 0x0
|
||||
|
||||
FALSE = 0
|
||||
TRUE = 1
|
||||
|
||||
include '../../../../../proc32.inc'
|
||||
include '../../../../../macros.inc'
|
||||
include '../../libio/libio.inc'
|
||||
include '../dll.inc'
|
||||
|
||||
yy dd 20
|
||||
|
||||
proc draw xx,color,key,val
|
||||
pushad
|
||||
|
||||
mov esi,[key]
|
||||
mov edi,buf
|
||||
cld
|
||||
mov al,"'"
|
||||
stosb
|
||||
@@: lodsb
|
||||
stosb
|
||||
or al,al
|
||||
jnz @b
|
||||
mov word[edi-1],"'"
|
||||
|
||||
mov esi,[val]
|
||||
or esi,esi
|
||||
je .noval
|
||||
mov eax," = '"
|
||||
stosd
|
||||
@@: lodsb
|
||||
stosb
|
||||
or al,al
|
||||
jnz @b
|
||||
mov word[edi-1],"'"
|
||||
.noval:
|
||||
|
||||
or [color],0x80000000
|
||||
mcall 4,<[xx],[yy]>,[color],buf
|
||||
add [yy],10
|
||||
popad
|
||||
ret
|
||||
endp
|
||||
|
||||
proc callb_k f_name,sec_name,key_name,key_val
|
||||
stdcall draw,224,0x0000FF,[key_name],[key_val]
|
||||
mov eax,TRUE
|
||||
ret
|
||||
endp
|
||||
|
||||
proc callb f_name,sec_name
|
||||
stdcall draw,200,0xFF0000,[sec_name],0
|
||||
invoke ini.enum_keys,[f_name],[sec_name],callb_k
|
||||
mov eax,TRUE
|
||||
ret
|
||||
endp
|
||||
|
||||
;---------------------------------------------------------------------
|
||||
;--- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ----------------------------------------------
|
||||
;---------------------------------------------------------------------
|
||||
|
||||
s_key1 db "LeftViewMode",0
|
||||
s_key2 db "RightViewMode",0
|
||||
|
||||
s_null db "",0
|
||||
|
||||
macro wildcard_test_data label1, label2, label3, [str1, str2, res]
|
||||
{
|
||||
common
|
||||
label label1
|
||||
forward
|
||||
local ..lbl
|
||||
dd ..lbl - $
|
||||
db str1,0
|
||||
..lbl:
|
||||
common
|
||||
dd 0
|
||||
label label2
|
||||
forward
|
||||
local ..lbl
|
||||
dd ..lbl - $
|
||||
db str2,0
|
||||
..lbl:
|
||||
common
|
||||
label label3
|
||||
forward
|
||||
if res = "t"
|
||||
dd 1
|
||||
else
|
||||
dd 0
|
||||
end if
|
||||
}
|
||||
|
||||
wildcard_test_data _str1, _str2, _str3, \
|
||||
"" ,"" ,"t", "" ,"a" ,"f", \
|
||||
"a" ,"a" ,"t", "a" ,"b" ,"f", \
|
||||
"?" ,"b" ,"t", "??" ,"bc" ,"t", \
|
||||
"?c" ,"bc" ,"t", "b?" ,"bc" ,"t", \
|
||||
"[a-z]" ,"b" ,"t", "[A-Z]" ,"b" ,"f", \
|
||||
"*" ,"a" ,"t", "**" ,"a" ,"t", \
|
||||
"*" ,"" ,"t", "*bc*hij" ,"abcdfghij","t", \
|
||||
"*b*a*" ,"b" ,"f", "*bc*hik" ,"abcdfghij","f", \
|
||||
"abc*" ,"abc" ,"t", "abc**" ,"abc" ,"t", \
|
||||
"[^]]" ,"^" ,"t", "[^]]" ,"]" ,"f", \
|
||||
"[^abc]" ,"d" ,"t", "[^abc]" ,"b" ,"f", \
|
||||
"*???" ,"abc" ,"t", "*???" ,"ab" ,"f", \
|
||||
"*???" ,"abcd" ,"t", "*?*" ,"abcd" ,"t", \
|
||||
"*bc" ,"abc" ,"t", "*cc" ,"abc" ,"f", \
|
||||
"[a-c]*" ,"d" ,"f", "*[a-e]" ,"d" ,"t", \
|
||||
"*a*" ,"de" ,"f", "*[a-c]" ,"d" ,"f", \
|
||||
"[a-c]" ,"d" ,"f", "[b-d]" ,"a" ,"f", \
|
||||
"[]abc]" ,"b" ,"t", "[]abc]" ,"d" ,"f", \
|
||||
"[z-a]" ,"-" ,"t", "[z-a]" ,"b" ,"f", \
|
||||
"[A-]" ,"-" ,"t", "[A-]" ,"]" ,"f", \
|
||||
"[-a]" ,"-" ,"t", "[-[]" ,"-" ,"t", \
|
||||
"[-]" ,"-" ,"t", "[^-b]" ,"a" ,"t", \
|
||||
"[^-b]" ,"-" ,"f", "[-b]" ,"a" ,"f", \
|
||||
"[a-g]lorian","florian","t", "[a-g]*rorian","f" ,"f", \
|
||||
"*???*" ,"123" ,"t"
|
||||
|
||||
START:
|
||||
mcall 68,11
|
||||
|
||||
stdcall dll.Load,@IMPORT
|
||||
or eax,eax
|
||||
jnz exit
|
||||
|
||||
mov esi,_str1 + 4
|
||||
mov edi,_str2 + 4
|
||||
mov ecx,_str3
|
||||
xor ebx,ebx
|
||||
inc ebx
|
||||
@@: invoke file.aux.match_wildcard,edi,esi,0
|
||||
cmp eax,[ecx]
|
||||
je .ok
|
||||
mcall -1
|
||||
.ok: inc ebx
|
||||
add esi,[esi-4]
|
||||
add edi,[edi-4]
|
||||
add ecx,4
|
||||
cmp dword[esi-4],0
|
||||
jnz @b
|
||||
|
||||
invoke ini.set_int,s_ini,s_sec,s_key1,100
|
||||
invoke ini.set_int,s_ini,s_sec,s_key2,101
|
||||
|
||||
invoke ini.get_int,s_ini,s_sec,s_key1,-1
|
||||
cmp eax,100
|
||||
jne exit
|
||||
invoke ini.get_int,s_ini,s_sec,s_key2,-1
|
||||
cmp eax,101
|
||||
jne exit
|
||||
|
||||
mov dword[buf],'102'
|
||||
invoke ini.set_str,s_ini,s_sec,s_key1,buf,3
|
||||
mov dword[buf],'103'
|
||||
invoke ini.set_str,s_ini,s_sec,s_key2,buf,3
|
||||
|
||||
invoke ini.get_str,s_ini,s_sec,s_key1,buf,1024,s_null
|
||||
cmp dword[buf],'102'
|
||||
jne exit
|
||||
invoke ini.get_str,s_ini,s_sec,s_key2,buf,1024,s_null
|
||||
cmp dword[buf],'103'
|
||||
jne exit
|
||||
|
||||
invoke ini.enum_sections,s_ini,callb
|
||||
|
||||
; invoke file.open,s_ininame,O_WRITE+O_CREATE
|
||||
; or eax,eax
|
||||
; jnz @f
|
||||
; int3
|
||||
; @@: mov [fh],eax
|
||||
; invoke file.seek,[fh],SEEK_SET,8192
|
||||
; invoke file.write,[fh],s_ininame,16
|
||||
; invoke file.seteof,[fh]
|
||||
; invoke file.close,[fh]
|
||||
|
||||
red:
|
||||
|
||||
call draw_window
|
||||
|
||||
;---------------------------------------------------------------------
|
||||
;--- <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ----------------------------------------
|
||||
;---------------------------------------------------------------------
|
||||
|
||||
still:
|
||||
mcall 10
|
||||
|
||||
cmp eax,1
|
||||
je red
|
||||
cmp eax,2
|
||||
je key
|
||||
cmp eax,3
|
||||
je button
|
||||
|
||||
jmp still
|
||||
|
||||
;---------------------------------------------------------------------
|
||||
|
||||
key:
|
||||
mcall 2
|
||||
jmp still
|
||||
|
||||
;---------------------------------------------------------------------
|
||||
|
||||
button:
|
||||
mcall 17
|
||||
|
||||
cmp ah,1
|
||||
jne still
|
||||
|
||||
exit:
|
||||
mcall -1
|
||||
|
||||
;---------------------------------------------------------------------
|
||||
;--- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> ----------------------------------
|
||||
;---------------------------------------------------------------------
|
||||
|
||||
ctx dd ?
|
||||
|
||||
draw_window:
|
||||
invoke gfx.open,TRUE
|
||||
mov [ctx],eax
|
||||
mcall 0,<200,700>,<200,200>,0x33FFFFFF,,s_header
|
||||
invoke gfx.pen.color,[ctx],0x00FF0000
|
||||
invoke gfx.line,[ctx],0,0,50,50
|
||||
invoke gfx.framerect,[ctx],10,10,100,70
|
||||
invoke gfx.brush.color,[ctx],0x000000FF
|
||||
invoke gfx.fillrect,[ctx],15,15,95,65
|
||||
invoke gfx.pen.color,[ctx],0x00008800
|
||||
invoke gfx.brush.color,[ctx],0x00CCCCFF
|
||||
invoke gfx.rectangle,[ctx],20,20,90,60
|
||||
invoke gfx.move.to,[ctx],13,5
|
||||
invoke gfx.line.to,[ctx],105,5
|
||||
invoke gfx.line.to,[ctx],105,75
|
||||
invoke gfx.line.to,[ctx],5,75
|
||||
invoke gfx.line.to,[ctx],5,13
|
||||
invoke gfx.line.to,[ctx],13,5
|
||||
invoke gfx.pen.color,[ctx],0x00888888
|
||||
invoke gfx.polyline,[ctx],poly_points,11
|
||||
invoke gfx.close,[ctx]
|
||||
|
||||
mov [yy],10
|
||||
invoke ini.enum_sections,s_ini,callb
|
||||
|
||||
invoke file.find_first,_f_path,_f_mask,FA_ANY-FA_FOLDER
|
||||
cmp eax,0
|
||||
jle .finished
|
||||
mov ebp,eax
|
||||
mov [yy],10
|
||||
@@: lea edx,[ebp+FileInfo.FileName]
|
||||
mcall 4,<450,[yy]>,0x80000000
|
||||
add [yy],10
|
||||
invoke file.find_next,ebp
|
||||
cmp eax,0
|
||||
jg @b
|
||||
invoke file.find_close,ebp
|
||||
|
||||
.finished:
|
||||
|
||||
ret
|
||||
|
||||
_f_path db '/rd/1/lib',0
|
||||
_f_mask db '*ini*',0
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
proc mem.Alloc size ;/////////////////////////////////////////////////////////
|
||||
;-----------------------------------------------------------------------------
|
||||
push ebx ecx
|
||||
mov eax,[size]
|
||||
lea ecx,[eax+4+4095]
|
||||
and ecx,not 4095
|
||||
mcall 68,12
|
||||
add ecx,-4
|
||||
mov [eax],ecx
|
||||
add eax,4
|
||||
pop ecx ebx
|
||||
ret
|
||||
endp
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
proc mem.ReAlloc mptr,size;///////////////////////////////////////////////////
|
||||
;-----------------------------------------------------------------------------
|
||||
push ebx ecx esi edi eax
|
||||
mov eax,[mptr]
|
||||
mov ebx,[size]
|
||||
or eax,eax
|
||||
jz @f
|
||||
lea ecx,[ebx+4+4095]
|
||||
and ecx,not 4095
|
||||
add ecx,-4
|
||||
cmp ecx,[eax-4]
|
||||
je .exit
|
||||
@@: mov eax,ebx
|
||||
call mem.Alloc
|
||||
xchg eax,[esp]
|
||||
or eax,eax
|
||||
jz .exit
|
||||
mov esi,eax
|
||||
xchg eax,[esp]
|
||||
mov edi,eax
|
||||
mov ecx,[esi-4]
|
||||
cmp ecx,[edi-4]
|
||||
jbe @f
|
||||
mov ecx,[edi-4]
|
||||
@@: add ecx,3
|
||||
shr ecx,2
|
||||
cld
|
||||
rep movsd
|
||||
xchg eax,[esp]
|
||||
call mem.Free
|
||||
.exit:
|
||||
pop eax edi esi ecx ebx
|
||||
ret
|
||||
endp
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
proc mem.Free mptr ;//////////////////////////////////////////////////////////
|
||||
;-----------------------------------------------------------------------------
|
||||
mov eax,[mptr]
|
||||
or eax,eax
|
||||
jz @f
|
||||
push ebx ecx
|
||||
lea ecx,[eax-4]
|
||||
mcall 68,13
|
||||
pop ecx ebx
|
||||
@@: ret
|
||||
endp
|
||||
|
||||
;---------------------------------------------------------------------
|
||||
;--- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ----------------------------------------------
|
||||
;---------------------------------------------------------------------
|
||||
|
||||
s_header db 'EXAMPLE APPLICATION',0
|
||||
|
||||
s_ini db '/rd/1/test001.ini',0
|
||||
s_sec db 'Panels',0
|
||||
s_key db 'param1',0
|
||||
|
||||
align 4
|
||||
poly_points dd \
|
||||
140, 10, \
|
||||
150, 10, \
|
||||
150, 20, \
|
||||
160, 20, \
|
||||
160, 30, \
|
||||
170, 30, \
|
||||
170, 40, \
|
||||
180, 40, \
|
||||
180, 50, \
|
||||
140, 50, \
|
||||
140, 10
|
||||
|
||||
;---------------------------------------------------------------------
|
||||
|
||||
align 16
|
||||
@IMPORT:
|
||||
|
||||
library \
|
||||
libini,'libini.obj',\
|
||||
libio ,'libio.obj',\
|
||||
libgfx,'libgfx.obj'
|
||||
|
||||
import libini, \
|
||||
ini.get_str,'ini.get_str',\
|
||||
ini.set_str,'ini.set_str',\
|
||||
ini.get_int,'ini.get_int',\
|
||||
ini.set_int,'ini.set_int',\
|
||||
ini.enum_sections,'ini.enum_sections',\
|
||||
ini.enum_keys,'ini.enum_keys'
|
||||
|
||||
import libio, \
|
||||
file.aux.match_wildcard,'file.aux.match_wildcard',\
|
||||
file.find_first,'file.find_first',\
|
||||
file.find_next,'file.find_next',\
|
||||
file.find_close,'file.find_close',\
|
||||
file.open,'file.open',\
|
||||
file.seek,'file.seek',\
|
||||
file.write,'file.write',\
|
||||
file.truncate,'file.truncate',\
|
||||
file.close,'file.close'
|
||||
|
||||
import libgfx, \
|
||||
gfx.open ,'gfx.open',\
|
||||
gfx.close ,'gfx.close',\
|
||||
gfx.pen.color ,'gfx.pen.color',\
|
||||
gfx.brush.color ,'gfx.brush.color',\
|
||||
gfx.pixel ,'gfx.pixel',\
|
||||
gfx.move.to ,'gfx.move.to',\
|
||||
gfx.line.to ,'gfx.line.to',\
|
||||
gfx.line ,'gfx.line',\
|
||||
gfx.polyline ,'gfx.polyline',\
|
||||
gfx.polyline.to ,'gfx.polyline.to',\
|
||||
gfx.fillrect ,'gfx.fillrect',\
|
||||
gfx.fillrect.ex ,'gfx.fillrect.ex',\
|
||||
gfx.framerect ,'gfx.framerect',\
|
||||
gfx.framerect.ex,'gfx.framerect.ex',\
|
||||
gfx.rectangle ,'gfx.rectangle',\
|
||||
gfx.rectangle.ex,'gfx.rectangle.ex'
|
||||
|
||||
I_END:
|
||||
|
||||
fh dd ?
|
||||
|
||||
buf rb 1024
|
||||
20
programs/develop/libraries/libs-dev/.test/001/test001.ini
Normal file
20
programs/develop/libraries/libs-dev/.test/001/test001.ini
Normal file
@@ -0,0 +1,20 @@
|
||||
[section 1]
|
||||
key 11=val 11 11
|
||||
key 12=val 12
|
||||
|
||||
[-s-e-c-t-i-o-n- -#-2-]
|
||||
-k-e-y- -2-1- = -v-a-l- -2-1-
|
||||
-k-e-y- -2-2- = -v-a-l- -2-2-
|
||||
|
||||
[ section3 ]
|
||||
key31 = val31
|
||||
key32 = val32
|
||||
|
||||
[ /section/ "#4" (the) <best> ]
|
||||
/key/ "41" = (val) <41>
|
||||
/key/ "42" = (val) <42>
|
||||
|
||||
[Panels]
|
||||
LeftViewMode=102
|
||||
RightViewMode=103
|
||||
Param=
|
||||
196
programs/develop/libraries/libs-dev/.test/002/test002.asm
Normal file
196
programs/develop/libraries/libs-dev/.test/002/test002.asm
Normal file
@@ -0,0 +1,196 @@
|
||||
use32
|
||||
org 0x0
|
||||
|
||||
db 'MENUET01'
|
||||
dd 0x01, START, I_END, 0x1000, 0x1000, @PARAMS, 0x0
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
|
||||
FALSE = 0
|
||||
TRUE = 1
|
||||
|
||||
include '../../../../../proc32.inc'
|
||||
include '../../../../../macros.inc'
|
||||
include '../dll.inc'
|
||||
|
||||
include '../../libio/libio.inc'
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
|
||||
START:
|
||||
mcall 68, 11
|
||||
|
||||
stdcall dll.Load, @IMPORT
|
||||
or eax, eax
|
||||
jnz exit
|
||||
|
||||
invoke file.open, @PARAMS, O_READ
|
||||
or eax, eax
|
||||
jz exit
|
||||
mov [fh], eax
|
||||
invoke file.size, @PARAMS
|
||||
mov [img_data_len], ebx
|
||||
stdcall mem.Alloc, ebx
|
||||
or eax, eax
|
||||
jz exit
|
||||
mov [img_data], eax
|
||||
invoke file.read, [fh], eax, [img_data_len]
|
||||
cmp eax, -1
|
||||
je exit
|
||||
cmp eax, [img_data_len]
|
||||
jne exit
|
||||
invoke file.close, [fh]
|
||||
inc eax
|
||||
jz exit
|
||||
|
||||
invoke img.is_img, [img_data], [img_data_len]
|
||||
or eax, eax
|
||||
jz exit
|
||||
invoke img.decode, [img_data], [img_data_len]
|
||||
or eax, eax
|
||||
jz exit
|
||||
invoke img.to_rgb, eax
|
||||
or eax, eax
|
||||
jz exit
|
||||
mov [rgb_img], eax
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
|
||||
red:
|
||||
call draw_window
|
||||
|
||||
still:
|
||||
mcall 10
|
||||
cmp eax, 1
|
||||
je red
|
||||
cmp eax, 2
|
||||
je key
|
||||
cmp eax, 3
|
||||
je button
|
||||
jmp still
|
||||
|
||||
key:
|
||||
mcall 2
|
||||
jmp still
|
||||
|
||||
button:
|
||||
mcall 17
|
||||
cmp ah, 1
|
||||
jne still
|
||||
|
||||
exit:
|
||||
mcall -1
|
||||
|
||||
draw_window:
|
||||
invoke gfx.open, TRUE
|
||||
mov [ctx], eax
|
||||
|
||||
mov edi, [rgb_img]
|
||||
mov ebx, 200 * 65536
|
||||
mov bx, [edi + 0]
|
||||
add bx, 9
|
||||
mov ecx, 200 * 65536
|
||||
mov cx, [edi + 4]
|
||||
add cx, 5 + 21
|
||||
mcall 0, , , 0x33FF0000, , s_header
|
||||
|
||||
mov ebx, [rgb_img]
|
||||
mov ecx, [ebx + 0]
|
||||
shl ecx, 16
|
||||
mov cx, [ebx + 4]
|
||||
add ebx, 4 * 2
|
||||
mcall 7, , , <0, 0>
|
||||
|
||||
invoke gfx.close, [ctx]
|
||||
ret
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
proc mem.Alloc, size ;////////////////////////////////////////////////////////
|
||||
;-----------------------------------------------------------------------------
|
||||
push ebx ecx
|
||||
mov ecx, [size]
|
||||
add ecx, 4
|
||||
mcall 68, 12
|
||||
add ecx, -4
|
||||
mov [eax], ecx
|
||||
add eax, 4
|
||||
pop ecx ebx
|
||||
ret
|
||||
endp
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
proc mem.ReAlloc, mptr, size ;////////////////////////////////////////////////
|
||||
;-----------------------------------------------------------------------------
|
||||
push ebx ecx edx
|
||||
mov ecx, [size]
|
||||
or ecx, ecx
|
||||
jz @f
|
||||
add ecx, 4
|
||||
@@: mov edx, [mptr]
|
||||
or edx, edx
|
||||
jz @f
|
||||
add edx, -4
|
||||
@@: mcall 68, 20
|
||||
or eax, eax
|
||||
jz @f
|
||||
add ecx, -4
|
||||
mov [eax], ecx
|
||||
add eax, 4
|
||||
@@: pop edx ecx ebx
|
||||
ret
|
||||
endp
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
proc mem.Free, mptr ;/////////////////////////////////////////////////////////
|
||||
;-----------------------------------------------------------------------------
|
||||
push ebx ecx
|
||||
mov ecx, [mptr]
|
||||
or ecx, ecx
|
||||
jz @f
|
||||
add ecx, -4
|
||||
@@: mcall 68, 13
|
||||
pop ecx ebx
|
||||
ret
|
||||
endp
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
|
||||
s_header db 'Image Viewer (test app)', 0
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
|
||||
align 16
|
||||
@IMPORT:
|
||||
|
||||
library \
|
||||
libio , 'libio.obj' , \
|
||||
libgfx , 'libgfx.obj' , \
|
||||
libimg , 'libimg.obj'
|
||||
|
||||
import libio , \
|
||||
file.size , 'file.size' , \
|
||||
file.open , 'file.open' , \
|
||||
file.read , 'file.read' , \
|
||||
file.close , 'file.close'
|
||||
|
||||
import libgfx , \
|
||||
gfx.open , 'gfx.open' , \
|
||||
gfx.close , 'gfx.close'
|
||||
|
||||
import libimg , \
|
||||
img.is_img , 'img.is_img' , \
|
||||
img.to_rgb , 'img.to_rgb' , \
|
||||
img.decode , 'img.decode'
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
|
||||
I_END:
|
||||
|
||||
img_data dd ?
|
||||
img_data_len dd ?
|
||||
fh dd ?
|
||||
rgb_img dd ?
|
||||
|
||||
ctx dd ?
|
||||
|
||||
@PARAMS rb 512
|
||||
90
programs/develop/libraries/libs-dev/.test/dll.inc
Normal file
90
programs/develop/libraries/libs-dev/.test/dll.inc
Normal file
@@ -0,0 +1,90 @@
|
||||
|
||||
proc dll.Load, import_table:dword
|
||||
mov esi,[import_table]
|
||||
.next_lib: mov edx,[esi]
|
||||
or edx,edx
|
||||
jz .exit
|
||||
push esi
|
||||
mov esi,[esi+4]
|
||||
mov edi,s_libdir.fname
|
||||
@@: lodsb
|
||||
stosb
|
||||
or al,al
|
||||
jnz @b
|
||||
mcall 68,19,s_libdir
|
||||
or eax,eax
|
||||
jz .fail
|
||||
stdcall dll.Link,eax,edx
|
||||
stdcall dll.Init,[eax+4]
|
||||
pop esi
|
||||
add esi,8
|
||||
jmp .next_lib
|
||||
.exit: xor eax,eax
|
||||
ret
|
||||
.fail: add esp,4
|
||||
xor eax,eax
|
||||
inc eax
|
||||
ret
|
||||
endp
|
||||
|
||||
proc dll.Link, exp:dword,imp:dword
|
||||
push eax
|
||||
mov esi,[imp]
|
||||
test esi,esi
|
||||
jz .done
|
||||
.next: lodsd
|
||||
test eax,eax
|
||||
jz .done
|
||||
stdcall dll.GetProcAddress,[exp],eax
|
||||
or eax,eax
|
||||
jz @f
|
||||
mov [esi-4],eax
|
||||
jmp .next
|
||||
@@: mov dword[esp],0
|
||||
.done: pop eax
|
||||
ret
|
||||
endp
|
||||
|
||||
proc dll.Init, dllentry:dword
|
||||
pushad
|
||||
mov eax,mem.Alloc
|
||||
mov ebx,mem.Free
|
||||
mov ecx,mem.ReAlloc
|
||||
mov edx,dll.Load
|
||||
stdcall [dllentry]
|
||||
popad
|
||||
ret
|
||||
endp
|
||||
|
||||
proc dll.GetProcAddress, exp:dword,sz_name:dword
|
||||
mov edx,[exp]
|
||||
.next: test edx,edx
|
||||
jz .end
|
||||
stdcall strcmp,[edx],[sz_name]
|
||||
test eax,eax
|
||||
jz .ok
|
||||
add edx,8
|
||||
jmp .next
|
||||
.ok: mov eax,[edx+4]
|
||||
.end: ret
|
||||
endp
|
||||
|
||||
proc strcmp, str1:dword,str2:dword
|
||||
push esi edi
|
||||
mov esi,[str1]
|
||||
mov edi,[str2]
|
||||
xor eax,eax
|
||||
@@: lodsb
|
||||
scasb
|
||||
jne .fail
|
||||
or al,al
|
||||
jnz @b
|
||||
jmp .ok
|
||||
.fail: or eax,-1
|
||||
.ok: pop edi esi
|
||||
ret
|
||||
endp
|
||||
|
||||
s_libdir:
|
||||
db '/sys/lib/'
|
||||
.fname rb 32
|
||||
Reference in New Issue
Block a user