WebSVN – Kolibri OS – Diff – /programs/media/kiv/trunk/kiv.asm


use32
org 0x0
 
db 'MENUET01'
dd 0x01, START, I_END, 0x4000, 0x4000, @PARAMS, 0x0
 
;-----------------------------------------------------------------------------
 
FALSE = 0
TRUE  = 1
 
include '../../../../../proc32.inc'
include '../../../../../macros.inc'
include 'dll.inc'
 
include '../../../develop/libraries/libs-dev/libio/libio.inc'
include '../../../develop/libraries/libs-dev/libimg/libimg.inc'
 
;-----------------------------------------------------------------------------
 
START:
	mcall	68, 11
 
	stdcall dll.Load, @IMPORT
	or	eax, eax
	jnz	exit
 
	invoke	sort.START, 1
 
	mov	ecx, 1	; for 15.4: 1 = tile
	cmp	word [@PARAMS], '\T'
	jz	set_bgr
	inc	ecx	; for 15.4: 2 = stretch
	cmp	word [@PARAMS], '\S'
	jz	set_bgr
 
	cmp	byte [@PARAMS], 0
	jnz	params_given
 
	call	opendialog
	jc	exit
	mov	esi, path
	mov	edi, @PARAMS
	mov	ecx, 512/4
	rep	movsd
	mov	byte [edi-1], 0
	jmp	params_given
 
set_bgr:
	mcall	15, 4
	mov	eax, @PARAMS + 4
	call	load_image
	jc	exit
 
	call	set_as_bgr
	jmp	exit
 
params_given:
 
	mov	eax, @PARAMS
	call	load_image
	jc	exit
 
;-----------------------------------------------------------------------------
 
red:
	call	draw_window
 
still:
	mcall	10
	dec	eax
	jz	red
	dec	eax
	jnz	button
 
  key:
	mcall	2
	jmp	still
 
  button:
	mcall	17
	shr	eax, 8
 
	; flip horizontally
	cmp	eax, 'flh'
	jne	@f
 
	invoke	img.flip, [image], FLIP_HORIZONTAL
	jmp	redraw_image
 
	; flip vertically
    @@: cmp	eax, 'flv'
	jne	@f
 
	invoke	img.flip, [image], FLIP_VERTICAL
	jmp	redraw_image
 
	; flip both horizontally and vertically
    @@: cmp	eax, 'flb'
	jne	@f
 
	invoke	img.flip, [image], FLIP_BOTH
	jmp	redraw_image
 
	; rotate left
    @@: cmp	eax, 'rtl'
	jne	@f
 
	push	ROTATE_90_CCW
.rotate_common:
	invoke	img.rotate, [image]
	mov	eax, [image]
	test	eax, eax	; clear ZF flag
	call	update_image_sizes
	jmp	redraw_image
 
	; rotate right
    @@: cmp	eax, 'rtr'
	jne	@f
 
	push	ROTATE_90_CW
	jmp	.rotate_common
 
	; open new file
    @@: cmp	eax, 'opn'
	jne	@f
	
	call	opendialog
	jc	still
	push	[image]
	mov	eax, path
	call	load_image
	jc	.restore_old
	mov	esi, path
	mov	edi, @PARAMS
	mov	ecx, 512/4
	rep	movsd
	mov	byte [edi-1], 0
	invoke	img.destroy
	call	free_directory
	jmp	red
    .restore_old:
	pop	[image]
	jmp	still
 
	; set background
    @@:
	cmp	eax, 'bgr'
	jne	@f
 
	call	set_as_bgr
	jmp	still
 
    @@:
 
	cmp	eax, 'bck'
	jnz	@f
	call	prev_image
	jmp	still
    @@:
	cmp	eax, 'fwd'
	jnz	@f
	call	next_image
	jmp	still
    @@:
 
	cmp	eax, 1
	jne	still
 
  exit:
	mcall	-1
 
  redraw_image = red
 
load_image:
	and	[img_data], 0
	push	eax
	invoke	file.open, eax, O_READ
	or	eax, eax
	jz	.error_pop
	mov	[fh], eax
	invoke	file.size
	mov	[img_data_len], ebx
	stdcall mem.Alloc, ebx
	test	eax, eax
	jz	.error_close
	mov	[img_data], eax
	invoke	file.read, [fh], eax, [img_data_len]
	cmp	eax, -1
	jz	.error_close
	cmp	eax, [img_data_len]
	jnz	.error_close
	invoke	file.close, [fh]
	inc	eax
	jz	.error
 
; img.decode checks for img.is_img
;	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	.error
	cmp	[image], 0
	mov	[image], eax
	call	update_image_sizes
	call	free_img_data
	clc
	ret
 
.error_free:
	invoke	img.destroy, [image]
	jmp	.error
 
.error_pop:
	pop	eax
	jmp	.error
.error_close:
	invoke	file.close, [fh]
.error:
	call	free_img_data
	stc
	ret
 
free_img_data:
	mov	eax, [img_data]
	test	eax, eax
	jz	@f
	stdcall	mem.Free, eax
@@:
	ret
 
update_image_sizes:
	pushf
	mov	edx, [eax + Image.Width]
	mov	[draw_width], edx
	add	edx, 19
	cmp	edx, 40 + 25*9
	jae	@f
	mov	edx, 40 + 25*9
@@:
	mov	[wnd_width], edx
	mov	esi, [eax + Image.Height]
	mov	[draw_height], esi
	add	esi, 44
	mov	[wnd_height], esi
	popf
	jz	.no_resize
	mcall	48, 4
	add	esi, eax
	mcall	67,-1,-1
.no_resize:
	ret
 
set_as_bgr:
	mov	esi, [image]
	mov	ecx, [esi + Image.Width]
	mov	edx, [esi + Image.Height]
	mcall	15, 1
 
	mcall	15, 6
	test	eax, eax
	jz	@f
 
	push	eax
	invoke	img.to_rgb2, esi, eax
	pop	ecx
	mcall	15, 7
 
@@:
	mcall	15, 3
	ret
 
prev_image:
	call	load_directory
	cmp	[directory_ptr], 0
	jz	.ret
	mov	ebx, [directory_ptr]
	mov	eax, [cur_file_idx]
	cmp	eax, -1
	jnz	@f
	mov	eax, [ebx+4]
@@:
	push	[image]
.scanloop:
	dec	eax
	jns	@f
	mov	eax, [ebx+4]
	dec	eax
	cmp	[cur_file_idx], -1
	jz	.notfound
@@:
	cmp	eax, [cur_file_idx]
	jz	.notfound
	push	eax ebx
	imul	esi, eax, 304
	add	esi, [directory_ptr]
	add	esi, 32 + 40
	mov	edi, curdir
@@:
	inc	edi
	cmp	byte [edi-1], 0
	jnz	@b
	mov	byte [edi-1], '/'
@@:
	lodsb
	stosb
	test	al, al
	jnz	@b
	mov	eax, curdir
	call	load_image
	pushf
 
 
 
	mov	esi, curdir
	push	esi
	mov	edi, @PARAMS
	mov	ecx, 512/4
	rep	movsd
	mov	byte [edi-1], 0
	pop	esi
@@:
	lodsb
	test	al, al
	jnz	@b
@@:
	dec	esi
	cmp	byte [esi], '/'
	jnz	@b
	mov	byte [esi], 0
	popf
	pop	ebx eax
	jc	.scanloop
	mov	[cur_file_idx], eax
	invoke	img.destroy
.ret:
	ret
.notfound:
	pop	[image]
	ret
 
next_image:
	call	load_directory
	cmp	[directory_ptr], 0
	jz	.ret
	mov	ebx, [directory_ptr]
	mov	eax, [cur_file_idx]
	push	[image]
.scanloop:
	inc	eax
	cmp	eax, [ebx+4]
	jb	@f
	xor	eax, eax
	cmp	[cur_file_idx], -1
	jz	.notfound
@@:
	cmp	eax, [cur_file_idx]
	jz	.notfound
	push	eax ebx
	imul	esi, eax, 304
	add	esi, [directory_ptr]
	add	esi, 32 + 40
	mov	edi, curdir
@@:
	inc	edi
	cmp	byte [edi-1], 0
	jnz	@b
	mov	byte [edi-1], '/'
@@:
	lodsb
	stosb
	test	al, al
	jnz	@b
	mov	eax, curdir
	call	load_image
	pushf
 
 
 
	mov	esi, curdir
	push	esi
	mov	edi, @PARAMS
	mov	ecx, 512/4
	rep	movsd
	mov	byte [edi-1], 0
	pop	esi
@@:
	lodsb
	test	al, al
	jnz	@b
@@:
	dec	esi
	cmp	byte [esi], '/'
	jnz	@b
	mov	byte [esi], 0
	popf
	pop	ebx eax
	jc	.scanloop
	mov	[cur_file_idx], eax
	invoke	img.destroy
.ret:
	ret
.notfound:
	pop	[image]
	ret
 
load_directory:
	cmp	[directory_ptr], 0
	jnz	.ret
	mov	esi, @PARAMS
	mov	ecx, esi
@@:
	lodsb
	test	al, al
	jnz	@b
@@:
	dec	esi
	cmp	byte [esi], '/'
	jnz	@b
	mov	[last_name_component], esi
	sub	esi, ecx
	xchg	ecx, esi
	mov	edi, curdir
	rep	movsb
	mov	byte [edi], 0
	mcall	68, 12, 0x1000
	test	eax, eax
	jz	.ret
	mov	ebx, readdir_fileinfo
	mov	dword [ebx+12], (0x1000 - 32) / 304
	mov	dword [ebx+16], eax
	mcall	70
	cmp	eax, 6
	jz	.dirok
	test	eax, eax
	jnz	free_directory
	mov	edx, [directory_ptr]
	mov	ecx, [edx+8]
	mov	[readblocks], ecx
	imul	ecx, 304
	add	ecx, 32
	mcall	68, 20
	test	eax, eax
	jz	free_directory
	mov	[directory_ptr], eax
	mcall	70, readdir_fileinfo
.dirok:
	cmp	ebx, 0
	jle	free_directory
	mov	eax, [directory_ptr]
	add	eax, 32
	mov	edi, eax
	push	0
.dirskip:
	push	eax
	test	byte [eax], 18h
	jnz	.nocopy
	lea	esi, [eax+40]
	mov	ecx, esi
@@:
	lodsb
	test	al, al
	jnz	@b
@@:
	dec	esi
	cmp	esi, ecx
	jb	.noext
	cmp	byte [esi], '.'
	jnz	@b
	inc	esi
	mov	ecx, [esi]
	or	ecx, 0x202020
	cmp	ecx, 'jpg'
	jz	.copy
	cmp	ecx, 'bmp'
	jz	.copy
	cmp	ecx, 'gif'
	jz	.copy
	cmp	ecx, 'png'
	jz	.copy
	cmp	ecx, 'jpe'
	jz	.copy
	cmp	ecx, 'jpeg'
	jz	@f
	cmp	ecx, 'jpeG'
	jnz	.nocopy
@@:
	cmp	byte [esi+4], 0
	jnz	.nocopy
.copy:
	mov	esi, [esp]
	mov	ecx, 304 / 4
	rep	movsd
	inc	dword [esp+4]
.nocopy:
.noext:
	pop	eax
	add	eax, 304
	dec	ebx
	jnz	.dirskip
	mov	eax, [directory_ptr]
	pop	ebx
	mov	[eax+4], ebx
	test	ebx, ebx
	jz	free_directory
	push	0	; sort mode
	push	ebx
	add	eax, 32
	push	eax
	call	[SortDir]
	xor	eax, eax
	mov	edi, [directory_ptr]
	add	edi, 32 + 40
.scan:
	mov	esi, [last_name_component]
	inc	esi
	push	edi
	invoke	strcmpi
	pop	edi
	jz	.found
	inc	eax
	add	edi, 304
	dec	ebx
	jnz	.scan
	or	eax, -1
.found:
	mov	[cur_file_idx], eax
.ret:
	ret
 
free_directory:
	mcall	68, 13, [directory_ptr]
	and	[directory_ptr], 0
	ret
 
draw_window:
	cmp	[bFirstDraw], 0
	jz	.posok
	or	ecx, -1
	mcall	9, procinfo
 
	cmp	dword [ebx + 66], 0
	jle	.noredraw
 
	mov	edx, ecx
	mov	esi, ecx
	cmp	dword [ebx + 42], 40 + 25 * 9
	jae	@f
	mov	edx, 40 + 25 * 9
@@:
	cmp	dword [ebx + 46], 70
	jae	@f
	mov	esi, 70
@@:
	mov	eax, edx
	and	eax, esi
	cmp	eax, -1
	jz	@f
	mov	ebx, ecx
	mcall	67
@@:
 
.posok:
	mcall	12, 1
	mcall	48, 4
	mov	ebp, eax	; save skin height
	add	eax, [wnd_height]
	__mov	ebx, 100, 0
	add	ebx, [wnd_width]
	lea	ecx, [100*65536 + eax]
	mcall	0, , , 0x73FFFFFF, , s_header
 
	mcall	9, procinfo, -1
 
	mov	[bFirstDraw], 1
	mov	ebx, [procinfo + 62]
	inc	ebx
	mcall	13, , <0, 35>, 0xFFFFFF
	mov	ecx, [procinfo + 66]
	inc	ecx
	mov	esi, [draw_height]
	add	esi, 35
	sub	ecx, esi
	jbe	@f
	push	esi
	shl	esi, 16
	add	ecx, esi
	pop	esi
	mcall
	xor	ecx, ecx
@@:
	add	ecx, esi
	add	ecx, 35*10000h - 35
	__mov	ebx, 0, 5
	mcall
 
 
 
	mov	esi, [draw_width]
	add	esi, ebx
 
	mov	ebx, [procinfo+62]
 
 
	inc	ebx
	sub	ebx, esi
	jbe	@f
	shl	esi, 16
	add	ebx, esi
	mcall
@@:
 
	mov	ebx, [procinfo + 62]
	push	ebx
	mcall	38, , <30, 30>, 0x007F7F7F
	mcall	, <5 + 25 * 1, 5 + 25 * 1>, <0, 30>
	mcall	, <10 + 25 * 3, 10 + 25 * 3>
	mcall	, <15 + 25 * 4, 15 + 25 * 4>
	pop	ebx
	sub	ebx, 25 * 5 + 10
	push	ebx
	imul	ebx, 10001h
	mcall
 
	mcall	8, <5 + 25 * 0, 20>, <5, 20>, 'opn'+40000000h
	mcall	, <10 + 25 * 1, 20>, , 'bck'+40000000h
	mcall	, <10 + 25 * 2, 20>, , 'fwd'+40000000h
	mcall	, <15 + 25 * 3, 20>, , 'bgr'+40000000h
	pop	ebx
	add	ebx, 5
	shl	ebx, 16
	mov	bl, 20
	mcall	, , , 'flh'+40000000h
	add	ebx, 25 * 65536
	mcall	, , , 'flv'+40000000h
	add	ebx, 30 * 65536
	mcall	, , , 'rtr'+40000000h
	add	ebx, 25 * 65536
	mcall	, , , 'rtl'+40000000h
	add	ebx, 25 * 65536
	mcall	, , , 'flb'+40000000h
 
	mov	ebp, (numimages-1)*20
 
	mcall	65, buttons+openbtn*20, <20, 20>, <5 + 25 * 0, 5>, 8, palette
	mcall	, buttons+backbtn*20, , <10 + 25 * 1, 5>
	mcall	, buttons+forwardbtn*20, , <10 + 25 * 2, 5>
	mcall	, buttons+bgrbtn*20, , <15 + 25 * 3, 5>
	mov	edx, [procinfo + 62]
	sub	edx, 25 * 5 + 4
	shl	edx, 16
	mov	dl, 5
	mcall	, buttons+fliphorzbtn*20
	add	edx, 25 * 65536
	mcall	, buttons+flipvertbtn*20
	add	edx, 30 * 65536
	mcall	, buttons+rotcwbtn*20
	add	edx, 25 * 65536
	mcall	, buttons+rotccwbtn*20
	add	edx, 25 * 65536
	mcall	, buttons+rot180btn*20
 
	mov	ebx, [image]
	mov	ecx, [procinfo+62]
	sub	ecx, 4
	mov	ebp, [ebx + Image.Width]
	cmp	ecx, ebp
	jb	@f
	mov	ecx, ebp
@@:
	sub	ebp, ecx
	mov	edx, [procinfo+66]
	sub	edx, 34
	cmp	edx, [ebx + Image.Height]
	jb	@f
	mov	edx, [ebx + Image.Height]
@@:
	shl	ecx, 16
	add	ecx, edx
	__mov	edx, 5, 35
	mov	esi, 8
	cmp	[ebx + Image.Type], Image.bpp8
	jz	.bpp8
 
	cmp	[ebx + Image.Type], Image.bpp24
	jz	.bpp24
	mov	esi, 32
	shl	ebp, 2
	jmp	@f
.bpp24:
	mov	esi, 24
	lea	ebp, [ebp*3]
.bpp8:
@@:
	mov	edi, [ebx + Image.Palette]
	mov	ebx, [ebx + Image.Data]
 
	mcall	65
 
	mcall	12, 2
 
.noredraw:
	ret
 
; void* __stdcall mem.Alloc(unsigned size);
mem.Alloc:
	push	ebx ecx
	mov	ecx, [esp+12]
	mcall	68, 12
	pop	ecx ebx
	ret	4
 
; void* __stdcall mem.ReAlloc(void* mptr, unsigned size);
mem.ReAlloc:
	push	ebx ecx edx
	mov	edx, [esp+16]
	mov	ecx, [esp+20]
	mcall	68, 20
	pop	edx ecx ebx
	ret	8
 
; void __stdcall mem.Free(void* mptr);
mem.Free:
	push	ebx ecx
	mov	ecx, [esp+12]
	mcall	68, 13
	pop	ecx ebx
	ret	4
 
;-----------------------------------------------------------------------------
 
s_header db 'Kolibri Image Viewer', 0
 
;-----------------------------------------------------------------------------
 
opendialog:
;
; STEP 1 Run SYSXTREE with parametrs MYPID 4 bytes in dec,
; 1 byte space, 1 byte type of dialog (O - Open ,S - Save)
;
 
;;    mov esi,path
    mov edi,path
    xor eax,eax
    mov ecx,(1024+16)/4
    rep stosd
 
;mov [get_loops],0
mov [dlg_pid_get],0
 
; Get my PID in dec format 4 bytes
    mov eax,9
    mov ebx,procinfo
    or  ecx,-1
    mcall
 
; convert eax bin to param dec
    mov eax,dword [procinfo+30]  ;offset of myPID
    mov edi,param+4-1		 ;offset to 4 bytes
    mov ecx,4
    mov ebx,10
new_d:
    xor edx,edx
    div ebx
    add dl,'0'
    mov [edi],dl
    dec edi
    loop new_d
 
; wirite 1 byte space to param
    mov [param+4],byte 32    ;Space for next parametr
; and 1 byte type of dialog to param
    mov [param+5],byte 'O'   ;Get Open dialog (Use 'S' for Save dialog)
 
;
; STEP2 prepare IPC area for get messages
;
 
; prepare IPC area
    mov [path],dword 0
    mov [path+4],dword 8
 
; define IPC memory
    mov eax,60
    mov ebx,1	     ; define IPC
    mov ecx,path     ; offset of area
    mov edx,1024+16  ; size
    mcall
 
; change wanted events list 7-bit IPC event
    mov eax,40
    mov ebx,01000111b
	cmp	[image], 0
	jnz	@f
	mov	bl, 01000110b
@@:
    mcall
 
;
; STEP 3 run SYSTEM XTREE with parameters
;
 
    mov eax,70
    mov ebx,run_fileinfo
    mcall
 
    mov [get_loops],0
getmesloop:
    mov eax,23
    mov ebx,50	   ;0.5 sec
    mcall
        dec     eax
        jz      mred
        dec     eax
        jz      mkey
        dec     eax
        jz      mbutton
        cmp     al, 7-3
        jz      mgetmes
 
; Get number of procces
    mov ebx,procinfo
    mov ecx,-1
    mov eax,9
    mcall
    mov ebp,eax
 
loox:
    mov eax,9
    mov ebx,procinfo
    mov ecx,ebp
    mcall
    mov eax,[DLGPID]
    cmp [procinfo+30],eax    ;IF Dialog find
    je	dlg_is_work	     ;jmp to dlg_is_work
    dec ebp
    jnz loox
 
    jmp erroff
 
dlg_is_work:
    cmp [procinfo+50],word 9 ;If slot state 9 - dialog is terminated
    je	erroff		       ;TESTODP2 terminated too
 
    cmp [dlg_pid_get],dword 1
    je	getmesloop
    inc [get_loops]
    cmp [get_loops],4  ;2 sec if DLG_PID not get, TESTOP2  terminated
    jae erroff
    jmp getmesloop
 
mred:
	cmp	[image], 0
	jz	getmesloop
    call draw_window
    jmp  getmesloop
mkey:
    mov  eax,2
    mcall			; read (eax=2)
    jmp  getmesloop
mbutton:
    mov  eax,17 		; get id
    mcall
    cmp  ah,1			; button id=1 ?
    jne  getmesloop
    mov  eax,-1 		; close this program
    mcall
mgetmes:
 
; If dlg_pid_get then second message get jmp to still
    cmp  [dlg_pid_get],dword 1
    je	 ready
 
; First message is number of PID SYSXTREE dialog
 
; convert PID dec to PID bin
    movzx eax,byte [path+16]
    sub eax,48
    imul eax,10
    movzx ebx,byte [path+16+1]
    add eax,ebx
    sub eax,48
    imul eax,10
    movzx ebx,byte [path+16+2]
    add eax,ebx
    sub eax,48
    imul eax,10
    movzx ebx,byte [path+16+3]
    add eax,ebx
    sub eax,48
    mov [DLGPID],eax
 
; Claear and prepare IPC area for next message
    mov [path],dword 0
    mov [path+4],dword 8
    mov [path+8],dword 0
    mov [path+12],dword 0
    mov [path+16],dword 0
 
; Set dlg_pid_get for get next message
    mov [dlg_pid_get],dword 1
	cmp	[image], 0
	jz	getmesloop
    call draw_window
    jmp  getmesloop
 
ready:
;
; The second message get
; Second message is 100 bytes path to SAVE/OPEN file
; shl path string on 16 bytes
;
    mov esi,path+16
    mov edi,path
    mov ecx,1024/4
    rep movsd
    mov [edi],byte 0
 
openoff:
	mcall	40, 7
	clc
	ret
 
erroff:
	mcall	40, 7
	stc
	ret
 
;-----------------------------------------------------------------------------
 
align 4
@IMPORT:
 
library 			\
	libio  , 'libio.obj'  , \
	libgfx , 'libgfx.obj' , \
	libimg , 'libimg.obj' , \
	sort   , 'sort.obj'
 
import	libio			  , \
	libio.init , 'lib_init'   , \
	file.size  , 'file.size'  , \
	file.open  , 'file.open'  , \
	file.read  , 'file.read'  , \
	file.close , 'file.close'
 
import	libgfx				, \
	libgfx.init   , 'lib_init'	, \
	gfx.open      , 'gfx.open'	, \
	gfx.close     , 'gfx.close'	, \
	gfx.pen.color , 'gfx.pen.color' , \
	gfx.line      , 'gfx.line'
 
import	libimg			   , \
	libimg.init , 'lib_init'   , \
	img.is_img  , 'img.is_img' , \
	img.to_rgb2 , 'img.to_rgb2', \
	img.decode  , 'img.decode' , \
	img.flip    , 'img.flip'   , \
	img.rotate  , 'img.rotate' , \
	img.destroy , 'img.destroy'
 
import  sort, sort.START, 'START', SortDir, 'SortDir', strcmpi, 'strcmpi'
 
bFirstDraw	db	0
;-----------------------------------------------------------------------------
 
virtual at 0
file 'kivicons.bmp':0xA,4
load offbits dword from 0
end virtual
numimages = 9
openbtn = 0
backbtn = 1
forwardbtn = 2
bgrbtn = 3
fliphorzbtn = 4
flipvertbtn = 5
rotcwbtn = 6
rotccwbtn = 7
rot180btn = 8
 
palette:
	file 'kivicons.bmp':0x36,offbits-0x36
buttons:
	file 'kivicons.bmp':offbits
repeat 10
y = % - 1
z = 20 - %
repeat numimages*5
load a dword from $ - numimages*20*20 + numimages*20*y + (%-1)*4
load b dword from $ - numimages*20*20 + numimages*20*z + (%-1)*4
store dword a at $ - numimages*20*20 + numimages*20*z + (%-1)*4
store dword b at $ - numimages*20*20 + numimages*20*y + (%-1)*4
end repeat
end repeat
 
; DATA AREA
get_loops   dd 0
dlg_pid_get dd 0
DLGPID	    dd 0
 
param:
   dd 0    ; My dec PID
   dd 0,0  ; Type of dialog
 
run_fileinfo:
 dd 7
 dd 0
 dd param
 dd 0
 dd 0
;run_filepath
 db '/sys/SYSXTREE',0
 
readdir_fileinfo:
	dd	1
	dd	0
	dd	0
readblocks dd	0
directory_ptr	dd	0
 
;-----------------------------------------------------------------------------
 
I_END:
 
curdir		rb	1024
 
align 4
img_data     dd ?
img_data_len dd ?
fh	     dd ?
image	     dd ?
wnd_width	dd	?
wnd_height	dd	?
draw_width	dd	?
draw_height	dd	?
last_name_component	dd	?
cur_file_idx	dd	?
 
ctx dd ?
 
procinfo:	rb	1024
path:		rb	1024+16
 
@PARAMS rb 512

Rev 1016	Rev 1040
1	use32	1	use32
2	org 0x0	2	org 0x0
3		3
4	db 'MENUET01'	4	db 'MENUET01'
5	dd 0x01, START, I_END, 0x4000, 0x4000, @PARAMS, 0x0	5	dd 0x01, START, I_END, 0x4000, 0x4000, @PARAMS, 0x0
6		6
7	;-----------------------------------------------------------------------------	7	;-----------------------------------------------------------------------------
8		8
9	FALSE = 0	9	FALSE = 0
10	TRUE = 1	10	TRUE = 1
11		11
12	include '../../../../../proc32.inc'	12	include '../../../../../proc32.inc'
13	include '../../../../../macros.inc'	13	include '../../../../../macros.inc'
14	include 'dll.inc'	14	include 'dll.inc'
15		15
16	include '../../../develop/libraries/libs-dev/libio/libio.inc'	16	include '../../../develop/libraries/libs-dev/libio/libio.inc'
17	include '../../../develop/libraries/libs-dev/libimg/libimg.inc'	17	include '../../../develop/libraries/libs-dev/libimg/libimg.inc'
18		18
19	;-----------------------------------------------------------------------------	19	;-----------------------------------------------------------------------------
20		20
21	START:	21	START:
22	mcall 68, 11	22	mcall 68, 11
23		23
24	stdcall dll.Load, @IMPORT	24	stdcall dll.Load, @IMPORT
25	or eax, eax	25	or eax, eax
26	jnz exit	26	jnz exit
27		27
28	invoke sort.START, 1	28	invoke sort.START, 1
29		29
30	mov ecx, 1 ; for 15.4: 1 = tile	30	mov ecx, 1 ; for 15.4: 1 = tile
31	cmp word [@PARAMS], '\T'	31	cmp word [@PARAMS], '\T'
32	jz set_bgr	32	jz set_bgr
33	inc ecx ; for 15.4: 2 = stretch	33	inc ecx ; for 15.4: 2 = stretch
34	cmp word [@PARAMS], '\S'	34	cmp word [@PARAMS], '\S'
35	jz set_bgr	35	jz set_bgr
36		36
37	cmp byte [@PARAMS], 0	37	cmp byte [@PARAMS], 0
38	jnz params_given	38	jnz params_given
39		39
40	call opendialog	40	call opendialog
41	jc exit	41	jc exit
42	mov esi, path	42	mov esi, path
43	mov edi, @PARAMS	43	mov edi, @PARAMS
44	mov ecx, 512/4	44	mov ecx, 512/4
45	rep movsd	45	rep movsd
46	mov byte [edi-1], 0	46	mov byte [edi-1], 0
47	jmp params_given	47	jmp params_given
48		48
49	set_bgr:	49	set_bgr:
50	mcall 15, 4	50	mcall 15, 4
51	mov eax, @PARAMS + 4	51	mov eax, @PARAMS + 4
52	call load_image	52	call load_image
53	jc exit	53	jc exit
54		54
55	call set_as_bgr	55	call set_as_bgr
56	jmp exit	56	jmp exit
57		57
58	params_given:	58	params_given:
59		59
60	mov eax, @PARAMS	60	mov eax, @PARAMS
61	call load_image	61	call load_image
62	jc exit	62	jc exit
63		63
64	;-----------------------------------------------------------------------------	64	;-----------------------------------------------------------------------------
65		65
66	red:	66	red:
67	call draw_window	67	call draw_window
68		68
69	still:	69	still:
70	mcall 10	70	mcall 10
71	dec eax	71	dec eax
72	jz red	72	jz red
73	dec eax	73	dec eax
74	jnz button	74	jnz button
75		75
76	key:	76	key:
77	mcall 2	77	mcall 2
78	jmp still	78	jmp still
79		79
80	button:	80	button:
81	mcall 17	81	mcall 17
82	shr eax, 8	82	shr eax, 8
83		83
84	; flip horizontally	84	; flip horizontally
85	cmp eax, 'flh'	85	cmp eax, 'flh'
86	jne @f	86	jne @f
87		87
88	invoke img.flip, [image], FLIP_HORIZONTAL	88	invoke img.flip, [image], FLIP_HORIZONTAL
89	jmp redraw_image	89	jmp redraw_image
90		90
91	; flip vertically	91	; flip vertically
92	@@: cmp eax, 'flv'	92	@@: cmp eax, 'flv'
93	jne @f	93	jne @f
94		94
95	invoke img.flip, [image], FLIP_VERTICAL	95	invoke img.flip, [image], FLIP_VERTICAL
96	jmp redraw_image	96	jmp redraw_image
97		97
98	; flip both horizontally and vertically	98	; flip both horizontally and vertically
99	@@: cmp eax, 'flb'	99	@@: cmp eax, 'flb'
100	jne @f	100	jne @f
101		101
102	invoke img.flip, [image], FLIP_BOTH	102	invoke img.flip, [image], FLIP_BOTH
103	jmp redraw_image	103	jmp redraw_image
104		104
105	; rotate left	105	; rotate left
106	@@: cmp eax, 'rtl'	106	@@: cmp eax, 'rtl'
107	jne @f	107	jne @f
108		108
109	push ROTATE_90_CCW	109	push ROTATE_90_CCW
110	.rotate_common:	110	.rotate_common:
111	invoke img.rotate, [image]	111	invoke img.rotate, [image]
112	mov eax, [image]	112	mov eax, [image]
113	test eax, eax ; clear ZF flag	113	test eax, eax ; clear ZF flag
114	call update_image_sizes	114	call update_image_sizes
115	jmp redraw_image	115	jmp redraw_image
116		116
117	; rotate right	117	; rotate right
118	@@: cmp eax, 'rtr'	118	@@: cmp eax, 'rtr'
119	jne @f	119	jne @f
120		120
121	push ROTATE_90_CW	121	push ROTATE_90_CW
122	jmp .rotate_common	122	jmp .rotate_common
123		123
124	; open new file	124	; open new file
125	@@: cmp eax, 'opn'	125	@@: cmp eax, 'opn'
126	jne @f	126	jne @f
127		127
128	call opendialog	128	call opendialog
129	jc still	129	jc still
130	push [image]	130	push [image]
131	mov eax, path	131	mov eax, path
132	call load_image	132	call load_image
133	jc .restore_old	133	jc .restore_old
134	mov esi, path	134	mov esi, path
135	mov edi, @PARAMS	135	mov edi, @PARAMS
136	mov ecx, 512/4	136	mov ecx, 512/4
137	rep movsd	137	rep movsd
138	mov byte [edi-1], 0	138	mov byte [edi-1], 0
139	invoke img.destroy	139	invoke img.destroy
140	call free_directory	140	call free_directory
141	jmp red	141	jmp red
142	.restore_old:	142	.restore_old:
143	pop [image]	143	pop [image]
144	jmp still	144	jmp still
145		145
146	; set background	146	; set background
147	@@:	147	@@:
148	cmp eax, 'bgr'	148	cmp eax, 'bgr'
149	jne @f	149	jne @f
150		150
151	call set_as_bgr	151	call set_as_bgr
152	jmp still	152	jmp still
153		153
154	@@:	154	@@:
155		155
156	cmp eax, 'bck'	156	cmp eax, 'bck'
157	jnz @f	157	jnz @f
158	call prev_image	158	call prev_image
159	jmp still	159	jmp still
160	@@:	160	@@:
161	cmp eax, 'fwd'	161	cmp eax, 'fwd'
162	jnz @f	162	jnz @f
163	call next_image	163	call next_image
164	jmp still	164	jmp still
165	@@:	165	@@:
166		166
167	cmp eax, 1	167	cmp eax, 1
168	jne still	168	jne still
169		169
170	exit:	170	exit:
171	mcall -1	171	mcall -1
172		172
173	redraw_image = red	173	redraw_image = red
174		174
175	load_image:	175	load_image:
176	and [img_data], 0	176	and [img_data], 0
177	push eax	177	push eax
178	invoke file.open, eax, O_READ	178	invoke file.open, eax, O_READ
179	or eax, eax	179	or eax, eax
180	jz .error_pop	180	jz .error_pop
181	mov [fh], eax	181	mov [fh], eax
182	invoke file.size	182	invoke file.size
183	mov [img_data_len], ebx	183	mov [img_data_len], ebx
184	stdcall mem.Alloc, ebx	184	stdcall mem.Alloc, ebx
185	test eax, eax	185	test eax, eax
186	jz .error_close	186	jz .error_close
187	mov [img_data], eax	187	mov [img_data], eax
188	invoke file.read, [fh], eax, [img_data_len]	188	invoke file.read, [fh], eax, [img_data_len]
189	cmp eax, -1	189	cmp eax, -1
190	jz .error_close	190	jz .error_close
191	cmp eax, [img_data_len]	191	cmp eax, [img_data_len]
192	jnz .error_close	192	jnz .error_close
193	invoke file.close, [fh]	193	invoke file.close, [fh]
194	inc eax	194	inc eax
195	jz .error	195	jz .error
196		196
197	; img.decode checks for img.is_img	197	; img.decode checks for img.is_img
198	; invoke img.is_img, [img_data], [img_data_len]	198	; invoke img.is_img, [img_data], [img_data_len]
199	; or eax, eax	199	; or eax, eax
200	; jz exit	200	; jz exit
201	invoke img.decode, [img_data], [img_data_len]	201	invoke img.decode, [img_data], [img_data_len]
202	or eax, eax	202	or eax, eax
203	jz .error	203	jz .error
204	cmp [image], 0	204	cmp [image], 0
205	mov [image], eax	205	mov [image], eax
206	call update_image_sizes	206	call update_image_sizes
207	call free_img_data	207	call free_img_data
208	clc	208	clc
209	ret	209	ret
210		210
211	.error_free:	211	.error_free:
212	invoke img.destroy, [image]	212	invoke img.destroy, [image]
213	jmp .error	213	jmp .error
214		214
215	.error_pop:	215	.error_pop:
216	pop eax	216	pop eax
217	jmp .error	217	jmp .error
218	.error_close:	218	.error_close:
219	invoke file.close, [fh]	219	invoke file.close, [fh]
220	.error:	220	.error:
221	call free_img_data	221	call free_img_data
222	stc	222	stc
223	ret	223	ret
224		224
225	free_img_data:	225	free_img_data:
226	mov eax, [img_data]	226	mov eax, [img_data]
227	test eax, eax	227	test eax, eax
228	jz @f	228	jz @f
229	stdcall mem.Free, eax	229	stdcall mem.Free, eax
230	@@:	230	@@:
231	ret	231	ret
232		232
233	update_image_sizes:	233	update_image_sizes:
234	pushf	234	pushf
235	mov edx, [eax + Image.Width]	235	mov edx, [eax + Image.Width]
-		236	mov [draw_width], edx
236	add edx, 19	237	add edx, 19
237	cmp edx, 40 + 25*9	238	cmp edx, 40 + 25*9
238	jae @f	239	jae @f
239	mov edx, 40 + 25*9	240	mov edx, 40 + 25*9
240	@@:	241	@@:
241	mov [wnd_width], edx	242	mov [wnd_width], edx
242	mov esi, [eax + Image.Height]	243	mov esi, [eax + Image.Height]
-		244	mov [draw_height], esi
243	add esi, 44	245	add esi, 44
244	mov [wnd_height], esi	246	mov [wnd_height], esi
245	popf	247	popf
246	jz .no_resize	248	jz .no_resize
247	mcall 48, 4	249	mcall 48, 4
248	add esi, eax	250	add esi, eax
249	mcall 67,-1,-1	251	mcall 67,-1,-1
250	.no_resize:	252	.no_resize:
251	ret	253	ret
252		254
253	set_as_bgr:	255	set_as_bgr:
254	mov esi, [image]	256	mov esi, [image]
255	mov ecx, [esi + Image.Width]	257	mov ecx, [esi + Image.Width]
256	mov edx, [esi + Image.Height]	258	mov edx, [esi + Image.Height]
257	mcall 15, 1	259	mcall 15, 1
258		260
259	mcall 15, 6	261	mcall 15, 6
260	test eax, eax	262	test eax, eax
261	jz @f	263	jz @f
262		264
263	push eax	265	push eax
264	invoke img.to_rgb2, esi, eax	266	invoke img.to_rgb2, esi, eax
265	pop ecx	267	pop ecx
266	mcall 15, 7	268	mcall 15, 7
267		269
268	@@:	270	@@:
269	mcall 15, 3	271	mcall 15, 3
270	ret	272	ret
271		273
272	prev_image:	274	prev_image:
273	call load_directory	275	call load_directory
274	cmp [directory_ptr], 0	276	cmp [directory_ptr], 0
275	jz .ret	277	jz .ret
276	mov ebx, [directory_ptr]	278	mov ebx, [directory_ptr]
277	mov eax, [cur_file_idx]	279	mov eax, [cur_file_idx]
278	cmp eax, -1	280	cmp eax, -1
279	jnz @f	281	jnz @f
280	mov eax, [ebx+4]	282	mov eax, [ebx+4]
281	@@:	283	@@:
282	push [image]	284	push [image]
283	.scanloop:	285	.scanloop:
284	dec eax	286	dec eax
285	jns @f	287	jns @f
286	mov eax, [ebx+4]	288	mov eax, [ebx+4]
287	dec eax	289	dec eax
288	cmp [cur_file_idx], -1	290	cmp [cur_file_idx], -1
289	jz .notfound	291	jz .notfound
290	@@:	292	@@:
291	cmp eax, [cur_file_idx]	293	cmp eax, [cur_file_idx]
292	jz .notfound	294	jz .notfound
293	push eax	295	push eax ebx
294	imul esi, eax, 304	296	imul esi, eax, 304
295	add esi, [directory_ptr]	297	add esi, [directory_ptr]
296	add esi, 32 + 40	298	add esi, 32 + 40
297	mov edi, curdir	299	mov edi, curdir
298	@@:	300	@@:
299	inc edi	301	inc edi
300	cmp byte [edi-1], 0	302	cmp byte [edi-1], 0
301	jnz @b	303	jnz @b
302	mov byte [edi-1], '/'	304	mov byte [edi-1], '/'
303	@@:	305	@@:
304	lodsb	306	lodsb
305	stosb	307	stosb
306	test al, al	308	test al, al
307	jnz @b	309	jnz @b
308	mov eax, curdir	310	mov eax, curdir
309	call load_image	311	call load_image
310	pop eax	312	pushf
311	jc .scanloop	-
312	mov [cur_file_idx], eax	-
313	invoke img.destroy	-
314	mov esi, curdir	313	mov esi, curdir
-		314	push esi
315	mov edi, @PARAMS	315	mov edi, @PARAMS
316	mov ecx, 512/4	316	mov ecx, 512/4
317	rep movsd	317	rep movsd
318	mov byte [edi-1], 0	318	mov byte [edi-1], 0
-		319	pop esi
-		320	@@:
-		321	lodsb
-		322	test al, al
-		323	jnz @b
-		324	@@:
-		325	dec esi
-		326	cmp byte [esi], '/'
-		327	jnz @b
-		328	mov byte [esi], 0
-		329	popf
-		330	pop ebx eax
-		331	jc .scanloop
-		332	mov [cur_file_idx], eax
-		333	invoke img.destroy
319	.ret:	334	.ret:
320	ret	335	ret
321	.notfound:	336	.notfound:
322	pop [image]	337	pop [image]
323	ret	338	ret
324		339
325	next_image:	340	next_image:
326	call load_directory	341	call load_directory
327	cmp [directory_ptr], 0	342	cmp [directory_ptr], 0
328	jz .ret	343	jz .ret
329	mov ebx, [directory_ptr]	344	mov ebx, [directory_ptr]
330	mov eax, [cur_file_idx]	345	mov eax, [cur_file_idx]
331	push [image]	346	push [image]
332	.scanloop:	347	.scanloop:
333	inc eax	348	inc eax
334	cmp eax, [ebx+4]	349	cmp eax, [ebx+4]
335	jb @f	350	jb @f
336	xor eax, eax	351	xor eax, eax
337	cmp [cur_file_idx], -1	352	cmp [cur_file_idx], -1
338	jz .notfound	353	jz .notfound
339	@@:	354	@@:
340	cmp eax, [cur_file_idx]	355	cmp eax, [cur_file_idx]
341	jz .notfound	356	jz .notfound
342	push eax ebx	357	push eax ebx
343	imul esi, eax, 304	358	imul esi, eax, 304
344	add esi, [directory_ptr]	359	add esi, [directory_ptr]
345	add esi, 32 + 40	360	add esi, 32 + 40
346	mov edi, curdir	361	mov edi, curdir
347	@@:	362	@@:
348	inc edi	363	inc edi
349	cmp byte [edi-1], 0	364	cmp byte [edi-1], 0
350	jnz @b	365	jnz @b
351	mov byte [edi-1], '/'	366	mov byte [edi-1], '/'
352	@@:	367	@@:
353	lodsb	368	lodsb
354	stosb	369	stosb
355	test al, al	370	test al, al
356	jnz @b	371	jnz @b
357	mov eax, curdir	372	mov eax, curdir
358	call load_image	373	call load_image
359	pop ebx eax	374	pushf
360	jc .scanloop	-
361	mov [cur_file_idx], eax	-
362	invoke img.destroy	-
363	mov esi, curdir	375	mov esi, curdir
364	push esi	376	push esi
365	mov edi, @PARAMS	377	mov edi, @PARAMS
366	mov ecx, 512/4	378	mov ecx, 512/4
367	rep movsd	379	rep movsd
368	mov byte [edi-1], 0	380	mov byte [edi-1], 0
369	pop esi	381	pop esi
370	@@:	382	@@:
371	lodsb	383	lodsb
372	test al, al	384	test al, al
373	jnz @b	385	jnz @b
374	@@:	386	@@:
375	dec esi	387	dec esi
376	cmp byte [esi], '/'	388	cmp byte [esi], '/'
377	jnz @b	389	jnz @b
378	mov byte [esi], 0	390	mov byte [esi], 0
-		391	popf
-		392	pop ebx eax
-		393	jc .scanloop
-		394	mov [cur_file_idx], eax
-		395	invoke img.destroy
379	.ret:	396	.ret:
380	ret	397	ret
381	.notfound:	398	.notfound:
382	pop [image]	399	pop [image]
383	ret	400	ret
384		401
385	load_directory:	402	load_directory:
386	cmp [directory_ptr], 0	403	cmp [directory_ptr], 0
387	jnz .ret	404	jnz .ret
388	mov esi, @PARAMS	405	mov esi, @PARAMS
389	mov ecx, esi	406	mov ecx, esi
390	@@:	407	@@:
391	lodsb	408	lodsb
392	test al, al	409	test al, al
393	jnz @b	410	jnz @b
394	@@:	411	@@:
395	dec esi	412	dec esi
396	cmp byte [esi], '/'	413	cmp byte [esi], '/'
397	jnz @b	414	jnz @b
398	mov [last_name_component], esi	415	mov [last_name_component], esi
399	sub esi, ecx	416	sub esi, ecx
400	xchg ecx, esi	417	xchg ecx, esi
401	mov edi, curdir	418	mov edi, curdir
402	rep movsb	419	rep movsb
403	mov byte [edi], 0	420	mov byte [edi], 0
404	mcall 68, 12, 0x1000	421	mcall 68, 12, 0x1000
405	test eax, eax	422	test eax, eax
406	jz .ret	423	jz .ret
407	mov ebx, readdir_fileinfo	424	mov ebx, readdir_fileinfo
408	mov dword [ebx+12], (0x1000 - 32) / 304	425	mov dword [ebx+12], (0x1000 - 32) / 304
409	mov dword [ebx+16], eax	426	mov dword [ebx+16], eax
410	mcall 70	427	mcall 70
411	cmp eax, 6	428	cmp eax, 6
412	jz .dirok	429	jz .dirok
413	test eax, eax	430	test eax, eax
414	jnz free_directory	431	jnz free_directory
415	mov edx, [directory_ptr]	432	mov edx, [directory_ptr]
416	mov ecx, [edx+8]	433	mov ecx, [edx+8]
417	mov [readblocks], ecx	434	mov [readblocks], ecx
418	imul ecx, 304	435	imul ecx, 304
419	add ecx, 32	436	add ecx, 32
420	mcall 68, 20	437	mcall 68, 20
421	test eax, eax	438	test eax, eax
422	jz free_directory	439	jz free_directory
423	mov [directory_ptr], eax	440	mov [directory_ptr], eax
424	mcall 70, readdir_fileinfo	441	mcall 70, readdir_fileinfo
425	.dirok:	442	.dirok:
426	cmp ebx, 0	443	cmp ebx, 0
427	jle free_directory	444	jle free_directory
428	mov eax, [directory_ptr]	445	mov eax, [directory_ptr]
429	add eax, 32	446	add eax, 32
430	mov edi, eax	447	mov edi, eax
431	push 0	448	push 0
432	.dirskip:	449	.dirskip:
433	push eax	450	push eax
434	test byte [eax], 18h	451	test byte [eax], 18h
435	jnz .nocopy	452	jnz .nocopy
436	lea esi, [eax+40]	453	lea esi, [eax+40]
437	mov ecx, esi	454	mov ecx, esi
438	@@:	455	@@:
439	lodsb	456	lodsb
440	test al, al	457	test al, al
441	jnz @b	458	jnz @b
442	@@:	459	@@:
443	dec esi	460	dec esi
444	cmp esi, ecx	461	cmp esi, ecx
445	jb .noext	462	jb .noext
446	cmp byte [esi], '.'	463	cmp byte [esi], '.'
447	jnz @b	464	jnz @b
448	inc esi	465	inc esi
449	mov ecx, [esi]	466	mov ecx, [esi]
450	or ecx, 0x202020	467	or ecx, 0x202020
451	cmp ecx, 'jpg'	468	cmp ecx, 'jpg'
452	jz .copy	469	jz .copy
453	cmp ecx, 'bmp'	470	cmp ecx, 'bmp'
454	jz .copy	471	jz .copy
455	cmp ecx, 'gif'	472	cmp ecx, 'gif'
456	jz .copy	473	jz .copy
457	cmp ecx, 'png'	474	cmp ecx, 'png'
458	jz .copy	475	jz .copy
459	cmp ecx, 'jpe'	476	cmp ecx, 'jpe'
460	jz .copy	477	jz .copy
461	cmp ecx, 'jpeg'	478	cmp ecx, 'jpeg'
462	jz @f	479	jz @f
463	cmp ecx, 'jpeG'	480	cmp ecx, 'jpeG'
464	jnz .nocopy	481	jnz .nocopy
465	@@:	482	@@:
466	cmp byte [esi+4], 0	483	cmp byte [esi+4], 0
467	jnz .nocopy	484	jnz .nocopy
468	.copy:	485	.copy:
469	mov esi, [esp]	486	mov esi, [esp]
470	mov ecx, 304 / 4	487	mov ecx, 304 / 4
471	rep movsd	488	rep movsd
472	inc dword [esp+4]	489	inc dword [esp+4]
473	.nocopy:	490	.nocopy:
474	.noext:	491	.noext:
475	pop eax	492	pop eax
476	add eax, 304	493	add eax, 304
477	dec ebx	494	dec ebx

Subversion Repositories Kolibri OS

(root)/programs/media/kiv/trunk/kiv.asm @ 1016 – Rev 1016 → 1040