forked from KolibriOS/kolibrios
664 lines
12 KiB
NASM
664 lines
12 KiB
NASM
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
|
|
|
|
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_bgr
|
|
|
|
mov esi, [image]
|
|
mov ecx, [esi + Image.Width]
|
|
mov edx, [esi + Image.Height]
|
|
mcall 15, 1
|
|
|
|
mcall 15, 6
|
|
test eax, eax
|
|
jz exit_bgr
|
|
|
|
push eax
|
|
invoke img.to_rgb2, esi, eax
|
|
pop ecx
|
|
mcall 15, 7
|
|
|
|
exit_bgr:
|
|
mcall 15, 3
|
|
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
|
|
invoke img.destroy
|
|
mov byte [edi-1], 0
|
|
jmp red
|
|
.restore_old:
|
|
pop [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, 50 + 25*5
|
|
jae @f
|
|
mov edx, 50 + 25*5
|
|
@@:
|
|
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
|
|
|
|
draw_window:
|
|
invoke gfx.open, TRUE
|
|
mov [ctx], eax
|
|
|
|
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 + 42]
|
|
sub ebx, 9
|
|
mcall 13, , <0, 35>, 0xFFFFFF
|
|
mov ecx, [procinfo + 46]
|
|
sub ecx, ebp
|
|
sub ecx, 9
|
|
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
|
|
|
|
invoke gfx.pen.color, [ctx], 0x007F7F7F
|
|
mov eax, [procinfo + 42]
|
|
sub eax, 10
|
|
invoke gfx.line, [ctx], 0, 30, eax, 30
|
|
|
|
xor ebp, ebp
|
|
|
|
mcall 8, <5 + 25 * 0, 20>, <5, 20>, 'opn'+40000000h
|
|
mcall 65, openbtn, <20, 20>, <5 + 25 * 0, 5>, 4, palette
|
|
|
|
invoke gfx.line, [ctx], 5 + 25 * 1, 0, 5 + 25 * 1, 30
|
|
|
|
mcall 8, <10 + 25 * 1, 20>, <5, 20>, 'flh'+40000000h
|
|
mcall 65, fliphorzbtn, <20, 20>, <10 + 25 * 1, 5>, 4, palette
|
|
mcall 8, <10 + 25 * 2, 20>, <5, 20>, 'flv'+40000000h
|
|
mcall 65, flipvertbtn, <20, 20>, <10 + 25 * 2, 5>, 4, palette
|
|
|
|
invoke gfx.line, [ctx], 10 + 25 * 3, 0, 10 + 25 * 3, 30
|
|
|
|
mcall 8, <15 + 25 * 3, 20>, <5, 20>, 'rtr'+40000000h
|
|
mcall 65, rotcwbtn, <20, 20>, <15 + 25 * 3, 5>, 4, palette
|
|
mcall 8, <15 + 25 * 4, 20>, <5, 20>, 'rtl'+40000000h
|
|
mcall 65, rotccwbtn, <20, 20>, <15 + 25 * 4, 5>, 4, palette
|
|
mcall 8, <15 + 25 * 5, 20>, <5, 20>, 'flb'+40000000h
|
|
mcall 65, rot180btn, <20, 20>, <15 + 25 * 5, 5>, 4, palette
|
|
|
|
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
|
|
|
|
invoke gfx.close, [ctx]
|
|
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'
|
|
|
|
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'
|
|
|
|
;-----------------------------------------------------------------------------
|
|
|
|
palette:
|
|
dd 0x000000, 0x800000, 0x008000, 0x808000
|
|
dd 0x000080, 0x800080, 0x008080, 0x808080
|
|
dd 0xC0C0C0, 0xFF0000, 0x00FF00, 0xFFFF00
|
|
dd 0x0000FF, 0xFF00FF, 0x00FFFF, 0xFFFFFF
|
|
|
|
macro loadbtn filename
|
|
{
|
|
repeat 20
|
|
file filename:76h+(%-1)*12,10
|
|
end repeat
|
|
repeat 10
|
|
y = % - 1
|
|
z = 20 - %
|
|
repeat 10
|
|
load a byte from $ - 20*10 + y*10 + (%-1)
|
|
load b byte from $ - 20*10 + z*10 + (%-1)
|
|
store byte a at $ - 20*10 + z*10 + (%-1)
|
|
store byte b at $ - 20*10 + y*10 + (%-1)
|
|
end repeat
|
|
end repeat
|
|
}
|
|
|
|
openbtn:
|
|
loadbtn 'open.bmp'
|
|
fliphorzbtn:
|
|
loadbtn 'fliphorz.bmp'
|
|
flipvertbtn:
|
|
loadbtn 'flipvert.bmp'
|
|
rotcwbtn:
|
|
loadbtn 'rotcw.bmp'
|
|
rotccwbtn:
|
|
loadbtn 'rotccw.bmp'
|
|
rot180btn:
|
|
loadbtn 'rot180.bmp'
|
|
|
|
; 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
|
|
|
|
;-----------------------------------------------------------------------------
|
|
|
|
I_END:
|
|
|
|
img_data dd ?
|
|
img_data_len dd ?
|
|
fh dd ?
|
|
image dd ?
|
|
wnd_width dd ?
|
|
wnd_height dd ?
|
|
|
|
ctx dd ?
|
|
|
|
procinfo: rb 1024
|
|
path: rb 1024+16
|
|
|
|
@PARAMS rb 512
|