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

 	jz	set_bgr
 	inc	ecx	; for 15.4: 2 = stretch
 	cmp	word [@PARAMS], '\S'
 	jz	set_bgr
+; initialize keyboard handling
+	invoke	ini_get_shortcut, inifilename, aShortcuts, aNext, -1, next_mod
+	mov	[next_key], eax
+	invoke	ini_get_shortcut, inifilename, aShortcuts, aPrev, -1, prev_mod
+	mov	[prev_key], eax
+	mcall	66, 1, 1	; set kbd mode to scancodes
 	cmp	byte [@PARAMS], 0
 	jnz	params_given
 	call	set_as_bgr
 	jmp	exit
 params_given:
+	mov	esi, @PARAMS
+	push	esi
+	call	find_last_name_component
-	mov	eax, @PARAMS
+	pop	eax
+	call	load_image
-	call	load_image
+	jc	exit
-	jc	exit
+	call	generate_header
 	jz	red
 	dec	eax
 	jnz	button
+key:
+	xor	esi, esi
-key:
+keyloop:
+	mcall	2
+	test	al, al
+	jnz	keyloopdone
+	shr	eax, 8
+	mov	ecx, eax
+	mcall	66, 3
+	mov	edx, next_mod
+	call	check_shortcut
+	jz	.next
+	add	edx, prev_mod - next_mod
+	call	check_shortcut
+	jnz	keyloop
+.prev:
+	dec	esi
+	jmp	keyloop
+.next:
+	inc	esi
+	jmp	keyloop
+keyloopdone:
-	mcall	2
+	test	esi, esi
+	jz	still
+next_or_prev_handler:
+	call	next_or_prev_image
-	jmp	still
+	jmp	red
 red_update_frame:
 	mov	eax, [cur_frame]
 	call	set_as_bgr
 	jmp	still
+    @@:
     @@:
-	cmp	eax, 'bck'
+	or	esi, -1
-	jnz	@f
+	cmp	eax, 'bck'
-	call	prev_image
-	jmp	red
+	jz	next_or_prev_handler
-    @@:
-	cmp	eax, 'fwd'
+	neg	esi
-	jnz	@f
-	call	next_image
-	jmp	red
+	cmp	eax, 'fwd'
-    @@:
+	jz	next_or_prev_handler
 @@:
 	mcall	15, 3
+	ret
-	ret
+; seek to ESI image files
+; esi>0 means next file, esi<0 - prev file
 next_or_prev_image:
-prev_image:
-	call	load_directory
+	push	esi
-	cmp	[directory_ptr], 0
+	call	load_directory
+	pop	esi
+	mov	ebx, [directory_ptr]
+	test	ebx, ebx
+	jz	.ret
-	jz	.ret
+	cmp	dword[ebx+4], 0
-	mov	ebx, [directory_ptr]
+	jz	.ret
 	mov	eax, [cur_file_idx]
+	cmp	eax, -1
+	jnz	@f
-	cmp	eax, -1
+	test	esi, esi
-	jnz	@f
+	jns	@f
 	mov	eax, [ebx+4]
 @@:
+	push	[image]
-	push	[image]
+	add	eax, esi
-.scanloop:
+@@:
-	dec	eax
+	test	eax, eax
 	jns	@f
-	mov	eax, [ebx+4]
-	dec	eax
-	cmp	[cur_file_idx], -1
+	add	eax, [ebx+4]
-	jz	.notfound
+	jmp	@b
 @@:
+	cmp	eax, [ebx+4]
+	jb	@f
+	sub	eax, [ebx+4]
+	jmp	@b
+@@:
-	cmp	eax, [cur_file_idx]
+	push	eax
-	jz	.notfound
+.scanloop:
-	push	eax ebx
+	push	eax ebx esi
 	imul	esi, eax, 304
 	add	esi, [directory_ptr]
 	add	esi, 32 + 40
 	dec	esi
 	cmp	byte [esi], '/'
 	jnz	@b
 	mov	byte [esi], 0
 	popf
-	pop	ebx eax
+	pop	esi ebx eax
-	jc	.scanloop
+	jnc	.loadedok
-	mov	[cur_file_idx], eax
-	invoke	img.destroy
-.ret:
-	ret
-.notfound:
-	pop	[image]
+	test	esi, esi
-	call	init_frame
-	ret
-next_image:
-	call	load_directory
-	cmp	[directory_ptr], 0
-	jz	.ret
+	js	.try_prev
-	mov	ebx, [directory_ptr]
-	mov	eax, [cur_file_idx]
-	push	[image]
-.scanloop:
+.try_next:
 	inc	eax
 	cmp	eax, [ebx+4]
 	jb	@f
 	xor	eax, eax
-	cmp	[cur_file_idx], -1
-	jz	.notfound
 @@:
+.try_common:
-	cmp	eax, [cur_file_idx]
+	cmp	eax, [esp]
 	jz	.notfound
-	push	eax ebx
-	imul	esi, eax, 304
+	jmp	.scanloop
-	add	esi, [directory_ptr]
-	add	esi, 32 + 40
-	mov	edi, curdir
+.try_prev:
-@@:
-	inc	edi
+	dec	eax
-	cmp	byte [edi-1], 0
-	jnz	@b
-	mov	byte [edi-1], '/'
-@@:
-	lodsb
-	stosb
-	test	al, al
-	jnz	@b
+	jns	@f
-	mov	eax, curdir
+	mov	eax, [ebx+4]
-	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
+	dec	eax
-@@:
-	lodsb
-	test	al, al
-	jnz	@b
 @@:
-	dec	esi
-	cmp	byte [esi], '/'
+	jmp	.try_common
-	jnz	@b
-	mov	byte [esi], 0
-	popf
-	pop	ebx eax
+.loadedok:
-	jc	.scanloop
 	mov	[cur_file_idx], eax
+	pop	eax
 	invoke	img.destroy
+	call	generate_header
 .ret:
 	ret
 .notfound:
+	pop	eax
 	pop	[image]
 	call	init_frame
 	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	esi, @PARAMS
+	mov	edi, curdir
+	mov	ecx, [last_name_component]
+	sub	ecx, esi
+	dec	ecx
-	mov	edi, curdir
+	js	@f
+	rep	movsb
-	rep	movsb
+@@:
 	mov	byte [edi], 0
 	mcall	68, 12, 0x1000
 	test	eax, eax
 	jz	.ret
 	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
 free_directory:
 	mcall	68, 13, [directory_ptr]
 	and	[directory_ptr], 0
 	ret
+; in: esi->full name (e.g. /path/to/file.png)
+; out: [last_name_component]->last component (e.g. file.png)
+find_last_name_component:
+	mov	ecx, esi
+@@:
+	lodsb
+	test	al, al
+	jnz	@b
+@@:
+	dec	esi
+	cmp	esi, ecx
+	jb	@f
+	cmp	byte [esi], '/'
+	jnz	@b
+@@:
+	inc	esi
+	mov	[last_name_component], esi
+	ret
 init_frame:
 	push	eax
 	mov	eax, [image]
 	mov	[cur_frame], eax
 	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, 0, s_header
+	mcall	0, , , 0x73FFFFFF, 0, real_header
 	mcall	9, procinfo, -1
 	mov	[bFirstDraw], 1
 	cmp	dword [ebx + 66], 0
 	mov	ecx, [esp+12]
 	mcall	68, 13
 	pop	ecx ebx
 	ret	4
+check_shortcut:
+; in:	cl = scancode (from sysfn 2),
+;	eax = state of modifiers (from sysfn 66.3),
+;	edx -> shortcut descriptor
+; out:	ZF set <=> fail
+	cmp	cl, [edx+4]
+	jnz	.not
+	push	eax
+	mov	esi, [edx]
+	and	esi, 0xF
+	and	al, 3
+	call	dword [check_modifier_table+esi*4]
+	test	al, al
+	pop	eax
+	jnz	.not
+	push	eax
+	mov	esi, [edx]
+	shr	esi, 4
+	and	esi, 0xF
+	shr	al, 2
+	and	al, 3
+	call	dword [check_modifier_table+esi*4]
+	test	al, al
+	pop	eax
+	jnz	.not
+	push	eax
+	mov	esi, [edx]
+	shr	esi, 8
+	and	esi, 0xF
+	shr	al, 4
+	and	al, 3
+	call	dword [check_modifier_table+esi*4]
+	test	al, al
+	pop	eax
+;	jnz	.not
+.not:
+	ret
+check_modifier_0:
+	setnz	al
+	ret
+check_modifier_1:
+	setp	al
+	ret
+check_modifier_2:
+	cmp	al, 3
+	setnz	al
+	ret
+check_modifier_3:
+	cmp	al, 1
+	setnz	al
+	ret
+check_modifier_4:
+	cmp	al, 2
+	setnz	al
+	ret
+; fills real_header with window title
+; window title is generated as ' - Kolibri Image Viewer'
+generate_header:
+	push	eax
+	mov	esi, [last_name_component]
+	mov	edi, real_header
+@@:
+	lodsb
+	test	al, al
+	jz	@f
+	stosb
+	cmp	edi, real_header+256
+	jb	@b
+.overflow:
+	mov	dword [edi-4], '...'
+.ret:
+	pop	eax
+	ret
+@@:
+	mov	esi, s_header
+@@:
+	lodsb
+	stosb
+	test	al, al
+	jz	.ret
+	cmp	edi, real_header+256
+	jb	@b
+	jmp	.overflow
 ;-----------------------------------------------------------------------------
-s_header db 'Kolibri Image Viewer', 0
+s_header db ' - Kolibri Image Viewer', 0
 library 			\
 	libio  , 'libio.obj'  , \
 	libgfx , 'libgfx.obj' , \
+	libimg , 'libimg.obj' , \
-	libimg , 'libimg.obj' , \
+	libini , 'libini.obj' , \
 	sort   , 'sort.obj'
 import	libio			  , \
 	img.flip    , 'img_flip'   , \
 	img.rotate  , 'img_rotate' , \
 	img.destroy , 'img_destroy', \
 	img.draw    , 'img_draw'
+import	libini, \
+	ini_get_shortcut, 'ini_get_shortcut'
 import  sort, sort.START, 'START', SortDir, 'SortDir', strcmpi, 'strcmpi'
 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
+inifilename	db	'/sys/media/kiv.ini',0
+aShortcuts	db	'Shortcuts',0
+aNext		db	'Next',0
+aPrev		db	'Prev',0
+align 4
+check_modifier_table:
+	dd	check_modifier_0
+	dd	check_modifier_1
+	dd	check_modifier_2
+	dd	check_modifier_3
+	dd	check_modifier_4
 ; DATA AREA
 get_loops   dd 0
 dlg_pid_get dd 0
 last_name_component	dd	?
 cur_file_idx	dd	?
 cur_frame_time	dd	?
 cur_frame	dd	?
+next_mod	dd	?
+next_key	dd	?
+prev_mod	dd	?
-ctx dd ?
+prev_key	dd	?
+procinfo:	rb	1024
-procinfo:	rb	1024
+path:		rb	1024+16

Subversion Repositories Kolibri OS

(root)/programs/media/kiv/trunk/kiv.asm – Rev 1422 → 1427