Subversion Repositories Kolibri OS

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]

	add	edx, 19

	cmp	edx, 40 + 25*9

	jae	@f

	mov	edx, 40 + 25*9

@@:

	mov	[wnd_width], edx

	mov	esi, [eax + Image.Height]

	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

	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

	pop	eax

	jc	.scanloop

	mov	[cur_file_idx], eax

	invoke	img.destroy

	mov	esi, curdir

	mov	edi, @PARAMS

	mov	ecx, 512/4

	rep	movsd

	mov	byte [edi-1], 0

.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

	pop	ebx eax

	jc	.scanloop

	mov	[cur_file_idx], eax

	invoke	img.destroy

	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

.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:

	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	ebx, [procinfo + 62]

	inc	ebx

	mcall	13, , <0, 35>, 0xFFFFFF

	mov	ecx, [procinfo + 66]

	sub	ecx, 4

	shl	ecx, 16

	mov	cl, 5

	mcall

	mov	cl, 35

	ror	ecx, 16

	sub	cx, 35

	mov	ebx, 5

	mcall

; 5 pixels for indentation, [image.Width] pixels for image

; client_width - 5 - [image.Width] pixels must be white

	mov	ebx, [image]

	mov	esi, [procinfo + 62]

	inc	esi

	push	esi

	mov	ebx, [ebx + Image.Width]

	sub	esi, 5

	sub	esi, ebx

	pop	ebx

	sub	ebx, esi

	shl	ebx, 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, [ebx + Image.Width]

	shl	ecx, 16

	add	ecx, [ebx + Image.Height]

	__mov	edx, 5, 35

	mov	esi, 8

	cmp	[ebx + Image.Type], Image.bpp8

	jz	@f

	mov	esi, 24

	cmp	[ebx + Image.Type], Image.bpp24

	jz	@f

	mov	esi, 32

@@:

	mov	edi, [ebx + Image.Palette]

	mov	ebx, [ebx + Image.Data]

	xor	ebp, ebp

	mcall	65

	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'

;-----------------------------------------------------------------------------

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	?

last_name_component	dd	?

cur_file_idx	dd	?

ctx dd ?

procinfo:	rb	1024

path:		rb	1024+16

@PARAMS rb 512