Libs-dev: libio, libini, libgfx, libimg

git-svn-id: svn://kolibrios.org@717 a494cfbc-eb01-0410-851d-a64ba20cac60
2008-02-07 22:45:15 +00:00
parent c3db1855f8
commit 9a8b3fd945
18 changed files with 5450 additions and 0 deletions
@@ -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