Tinypad 4.0.4 in progress
git-svn-id: svn://kolibrios.org@258 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Mihail Semenyako (mike.dld)
590
programs/develop/tinypad/trunk/tp-common.asm
Normal file
590
programs/develop/tinypad/trunk/tp-common.asm
Normal file
@@ -0,0 +1,590 @@
|
||||
;-----------------------------------------------------------------------------
|
||||
func check_cur_vis_inv ;//////////////////////////////////////////////////////
|
||||
;-----------------------------------------------------------------------------
|
||||
push eax ebx
|
||||
xor bl,bl
|
||||
.chk_y:
|
||||
mov eax,[pos.y]
|
||||
or eax,eax
|
||||
jge @f
|
||||
mov [pos.y],0
|
||||
jmp .chk_dy
|
||||
@@: cmp eax,[lines]
|
||||
jl .chk_dy
|
||||
mov eax,[lines]
|
||||
dec eax
|
||||
mov [pos.y],eax
|
||||
.chk_dy:
|
||||
mov eax,[top_line]
|
||||
cmp eax,[pos.y]
|
||||
jle @f
|
||||
push [pos.y]
|
||||
pop [top_line]
|
||||
inc bl
|
||||
@@: add eax,[lines.scr]
|
||||
cmp eax,[pos.y]
|
||||
jg .chk_x
|
||||
mov eax,[pos.y]
|
||||
sub eax,[lines.scr]
|
||||
inc eax
|
||||
mov [top_line],eax
|
||||
inc bl
|
||||
.chk_x:
|
||||
mov eax,[pos.x]
|
||||
or eax,eax
|
||||
jge @f
|
||||
mov [pos.x],0
|
||||
jmp .chk_dx
|
||||
@@: cmp eax,[columns]
|
||||
jl .chk_dx
|
||||
mov eax,[columns]
|
||||
mov [pos.x],eax
|
||||
.chk_dx:
|
||||
mov eax,[left_col]
|
||||
cmp eax,[pos.x]
|
||||
jle @f
|
||||
push [pos.x]
|
||||
pop [left_col]
|
||||
inc bl
|
||||
@@: add eax,[columns.scr]
|
||||
cmp eax,[pos.x]
|
||||
jg @f
|
||||
mov eax,[pos.x]
|
||||
sub eax,[columns.scr]
|
||||
inc eax
|
||||
mov [left_col],eax
|
||||
inc bl
|
||||
@@: cmp [mev],MEV_LDOWN
|
||||
jne .exit
|
||||
push [pos.x] [pos.y]
|
||||
pop [sel.y] [sel.x]
|
||||
.exit:
|
||||
or bl,bl
|
||||
clc
|
||||
jz @f
|
||||
call draw_file
|
||||
stc
|
||||
@@: pop ebx eax
|
||||
ret
|
||||
endf
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
func clear_selection ;////////////////////////////////////////////////////////
|
||||
;-----------------------------------------------------------------------------
|
||||
push eax ebx
|
||||
mov eax,[sel.y]
|
||||
mov ebx,[pos.y]
|
||||
cmp eax,ebx
|
||||
jle @f
|
||||
xchg eax,ebx
|
||||
@@: push [pos.x] [pos.y]
|
||||
pop [sel.y] [sel.x]
|
||||
call draw_file.ex
|
||||
pop ebx eax
|
||||
ret
|
||||
endf
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
func pt_in_rect ;/////////////////////////////////////////////////////////////
|
||||
;-----------------------------------------------------------------------------
|
||||
cmp eax,[ecx+0x0]
|
||||
jl @f
|
||||
cmp ebx,[ecx+0x4]
|
||||
jl @f
|
||||
cmp eax,[ecx+0x8]
|
||||
jg @f
|
||||
cmp ebx,[ecx+0xC]
|
||||
jg @f
|
||||
stc
|
||||
ret
|
||||
@@: clc
|
||||
ret
|
||||
endf
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
func check_bottom_right ;/////////////////////////////////////////////////////
|
||||
;-----------------------------------------------------------------------------
|
||||
push eax
|
||||
mov eax,[top_line]
|
||||
add eax,[lines.scr]
|
||||
cmp eax,[lines]
|
||||
jbe .lp1
|
||||
mov eax,[lines]
|
||||
sub eax,[lines.scr]
|
||||
jns @f
|
||||
xor eax,eax
|
||||
@@: mov [top_line],eax
|
||||
.lp1: mov eax,[left_col]
|
||||
add eax,[columns.scr]
|
||||
cmp eax,[columns]
|
||||
jbe .exit
|
||||
mov eax,[columns]
|
||||
sub eax,[columns.scr]
|
||||
jns @f
|
||||
xor eax,eax
|
||||
@@: mov [left_col],eax
|
||||
.exit:
|
||||
pop eax
|
||||
ret
|
||||
endf
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
func check_inv_str ;//////////////////////////////////////////////////////////
|
||||
;-----------------------------------------------------------------------------
|
||||
@^
|
||||
mov eax,[pos.y]
|
||||
mov ecx,[top_line]
|
||||
.skip_init:
|
||||
call check_cur_vis
|
||||
mov [pos.y],eax
|
||||
mov [top_line],ecx
|
||||
.skip_check:
|
||||
; call invalidate_string
|
||||
call drawfile
|
||||
ret
|
||||
^@
|
||||
endf
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
func check_inv_all ;//////////////////////////////////////////////////////////
|
||||
;-----------------------------------------------------------------------------
|
||||
mov eax,[pos.y]
|
||||
mov ecx,[top_line]
|
||||
.skip_init:
|
||||
call check_cur_vis
|
||||
mov [pos.y],eax
|
||||
mov [top_line],ecx
|
||||
.skip_check:
|
||||
; call clear_screen
|
||||
call draw_file
|
||||
ret
|
||||
endf
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
func check_cur_vis ;//////////////////////////////////////////////////////////
|
||||
;-----------------------------------------------------------------------------
|
||||
cmp eax,ecx
|
||||
jb .low
|
||||
mov edx,ecx
|
||||
add edx,[lines.scr]
|
||||
cmp edx,[lines]
|
||||
jbe @f
|
||||
mov edx,[lines]
|
||||
@@: cmp eax,edx
|
||||
jb @f
|
||||
lea ecx,[eax+1]
|
||||
sub ecx,[lines.scr]
|
||||
jns @f
|
||||
xor ecx,ecx
|
||||
jmp @f
|
||||
.low: mov ecx,eax
|
||||
@@: mov edx,ecx
|
||||
add edx,[lines.scr]
|
||||
cmp edx,[lines]
|
||||
jbe @f
|
||||
mov ecx,[lines]
|
||||
sub ecx,[lines.scr]
|
||||
jns @f
|
||||
xor ecx,ecx
|
||||
@@:;mov [top_line],ecx
|
||||
|
||||
pushad
|
||||
mov eax,[pos.x]
|
||||
mov ebx,[left_col]
|
||||
mov ecx,ebx
|
||||
add ecx,[columns.scr]
|
||||
cmp eax,ebx
|
||||
jb .lp1
|
||||
cmp eax,ecx
|
||||
jb .exit
|
||||
lea ebx,[eax]
|
||||
sub ebx,[columns.scr]
|
||||
jmp @f
|
||||
.lp1: mov ebx,eax
|
||||
@@: mov [left_col],ebx
|
||||
|
||||
.exit:
|
||||
mov [pos.x],eax
|
||||
popad
|
||||
|
||||
ret
|
||||
endf
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
func get_real_length ;////////////////////////////////////////////////////////
|
||||
;-----------------------------------------------------------------------------
|
||||
movzx eax,word[esi]
|
||||
@@: cmp byte[esi+eax+4-1],' '
|
||||
jne @f
|
||||
dec eax
|
||||
jnz @b
|
||||
@@: ret
|
||||
endf
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
func get_line_offset ;////////////////////////////////////////////////////////
|
||||
;-----------------------------------------------------------------------------
|
||||
; Input:
|
||||
; ECX = line number
|
||||
; Output:
|
||||
; ESI = line data offset
|
||||
;-----------------------------------------------------------------------------
|
||||
push eax ecx
|
||||
mov esi,AREA_EDIT
|
||||
jecxz .exit
|
||||
@@: movzx eax,word[esi]
|
||||
dec ecx
|
||||
lea esi,[esi+eax+4]
|
||||
jnz @b
|
||||
.exit:
|
||||
pop ecx eax
|
||||
ret
|
||||
endf
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
func init_sel_vars ;//////////////////////////////////////////////////////////
|
||||
;-----------------------------------------------------------------------------
|
||||
pushad
|
||||
mov [sel.selected],1
|
||||
mov eax,[sel.x]
|
||||
mov ebx,[sel.y]
|
||||
mov ecx,[pos.x]
|
||||
mov edx,[pos.y]
|
||||
cmp ebx,edx
|
||||
jl .lp2
|
||||
jne @f
|
||||
cmp eax,ecx
|
||||
jl .lp2
|
||||
jne .lp1
|
||||
dec [sel.selected]
|
||||
jmp .lp2
|
||||
@@: xchg ebx,edx
|
||||
.lp1: xchg eax,ecx
|
||||
.lp2: mov [sel.begin.x],eax
|
||||
mov [sel.begin.y],ebx
|
||||
mov [sel.end.x],ecx
|
||||
mov [sel.end.y],edx
|
||||
popad
|
||||
ret
|
||||
endf
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
func get_scroll_vars ;////////////////////////////////////////////////////////
|
||||
;-----------------------------------------------------------------------------
|
||||
; Input:
|
||||
; EAX = maximum data size (units)
|
||||
; EBX = visible data size (units)
|
||||
; ECX = current data position (units)
|
||||
; EDX = scrolling area size (pixels)
|
||||
; Output:
|
||||
; EAX = srcoller offset (pixels)
|
||||
; EBX = scroller size (pixels)
|
||||
;-----------------------------------------------------------------------------
|
||||
push eax ebx edx
|
||||
; sub eax,ebx
|
||||
mov esi,eax
|
||||
mov eax,edx
|
||||
imul ebx
|
||||
idiv esi
|
||||
cmp eax,[esp]
|
||||
jge .null
|
||||
cmp eax,AMINS
|
||||
jge @f
|
||||
neg eax
|
||||
add eax,AMINS
|
||||
sub [esp],eax
|
||||
mov eax,AMINS
|
||||
@@: mov [esp+4],eax ; scroller size
|
||||
mov eax,[esp]
|
||||
imul ecx
|
||||
idiv esi
|
||||
or eax,eax
|
||||
jns @f
|
||||
xor eax,eax
|
||||
@@: mov [esp+8],eax ; scroller offset
|
||||
add eax,[esp+4]
|
||||
cmp eax,[esp]
|
||||
jle @f
|
||||
; mov eax,[esp]
|
||||
; sub eax,[esp+4]
|
||||
; js @f
|
||||
; mov [esp+8],eax
|
||||
@@:
|
||||
pop edx ebx eax
|
||||
ret
|
||||
.null:
|
||||
mov dword[esp+4],0
|
||||
mov dword[esp+8],0
|
||||
jmp @b
|
||||
endf
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
func uint2strz ;//////////////////////////////////////////////////////////////
|
||||
;-----------------------------------------------------------------------------
|
||||
dec ebx
|
||||
jz @f
|
||||
xor edx,edx
|
||||
div ecx
|
||||
push edx
|
||||
call uint2strz
|
||||
pop eax
|
||||
@@: cmp al,10
|
||||
sbb al,$69
|
||||
das
|
||||
stosb
|
||||
ret
|
||||
endf
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
func uint2str ;///////////////////////////////////////////////////////////////
|
||||
;-----------------------------------------------------------------------------
|
||||
cmp eax,ecx
|
||||
jb @f
|
||||
xor edx,edx
|
||||
div ecx
|
||||
push edx
|
||||
call uint2str
|
||||
pop eax
|
||||
@@: cmp al,10
|
||||
sbb al,$69
|
||||
das
|
||||
stosb
|
||||
ret
|
||||
endf
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
func rgb_to_gray ;////////////////////////////////////////////////////////////
|
||||
;-----------------------------------------------------------------------------
|
||||
push 0 eax
|
||||
and dword[esp],0x000000FF
|
||||
fild dword[esp]
|
||||
fmul [float_gray_b]
|
||||
shr eax,8
|
||||
mov [esp],eax
|
||||
and dword[esp],0x000000FF
|
||||
fild dword[esp]
|
||||
fmul [float_gray_g]
|
||||
faddp
|
||||
shr eax,8
|
||||
and eax,0x000000FF
|
||||
mov [esp],eax
|
||||
fild dword[esp]
|
||||
fmul [float_gray_r]
|
||||
faddp
|
||||
frndint
|
||||
fist dword[esp]
|
||||
fist dword[esp+1]
|
||||
fistp dword[esp+2]
|
||||
pop eax
|
||||
add esp,4
|
||||
ret
|
||||
endf
|
||||
|
||||
;float_gray_r dd 0.30f
|
||||
;float_gray_g dd 0.59f
|
||||
;float_gray_b dd 0.11f
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
func get_active_menu_item ;///////////////////////////////////////////////////
|
||||
;-----------------------------------------------------------------------------
|
||||
pushad
|
||||
mov [mi_cur],0
|
||||
mcall 37,1
|
||||
movsx ebx,ax
|
||||
sar eax,16
|
||||
mov ecx,__rc
|
||||
pushd 2 0 (main_menu.width+7) (ATOPH-2)
|
||||
popd [__rc+0xC] [__rc+0x8] [__rc+0x4] [__rc+0x0]
|
||||
; add [__rc+0xC],ATOPH-2
|
||||
call pt_in_rect
|
||||
jnc .outside_menu
|
||||
m2m dword[ecx+0x8],dword[ecx+0x0]
|
||||
mov edx,main_menu
|
||||
@@: inc [mi_cur]
|
||||
movzx esi,word[edx+0]
|
||||
add [ecx+0x8],esi
|
||||
call pt_in_rect
|
||||
jc .exit
|
||||
m2m dword[ecx+0x0],dword[ecx+0x8]
|
||||
add edx,8+1
|
||||
movzx esi,byte[edx-1]
|
||||
add edx,esi
|
||||
cmp byte[edx+8],0
|
||||
jne @b
|
||||
mov [mi_cur],0
|
||||
.exit:
|
||||
popad
|
||||
ret
|
||||
.outside_menu:
|
||||
or [mi_cur],-1
|
||||
@@: popad
|
||||
ret
|
||||
endf
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
func get_active_popup_item ;//////////////////////////////////////////////////
|
||||
;-----------------------------------------------------------------------------
|
||||
pushad
|
||||
mov [pi_cur],0
|
||||
mcall 37,1
|
||||
movsx ebx,ax
|
||||
sar eax,16
|
||||
mov ecx,__rc
|
||||
mov dword[ecx+0x0],0
|
||||
mov dword[ecx+0x4],0
|
||||
movzx edx,[ebp+POPUP.width]
|
||||
mov dword[ecx+0x8],edx;POP_WIDTH
|
||||
movzx edx,[ebp+POPUP.height]
|
||||
mov dword[ecx+0xC],edx;POP_HEIGHT
|
||||
call pt_in_rect
|
||||
jnc .outside_window
|
||||
inc dword[ecx+0x0]
|
||||
mov dword[ecx+0x4],3
|
||||
dec dword[ecx+0x8]
|
||||
mov dword[ecx+0xC],3+POP_IHEIGHT-1
|
||||
mov edx,[ebp+POPUP.data];popup_text.data
|
||||
@@: inc [pi_cur]
|
||||
inc edx
|
||||
movzx esi,byte[edx-1]
|
||||
cmp byte[edx],'-'
|
||||
jne .lp1
|
||||
pushd [ecx+0xC]
|
||||
sub dword[ecx+0xC],POP_IHEIGHT-4
|
||||
call pt_in_rect
|
||||
popd [ecx+0xC]
|
||||
jc .separator
|
||||
add dword[ecx+0x4],4
|
||||
add dword[ecx+0xC],4
|
||||
jmp .lp3
|
||||
.lp1: call pt_in_rect
|
||||
jnc .lp2
|
||||
mov eax,[pi_cur]
|
||||
test byte[ebp+eax-1],1;byte[popup_text+eax-1],1
|
||||
jnz .exit
|
||||
jmp .separator
|
||||
.lp2: add dword[ecx+0x4],POP_IHEIGHT
|
||||
add dword[ecx+0xC],POP_IHEIGHT
|
||||
add edx,esi
|
||||
inc edx
|
||||
movzx esi,byte[edx-1]
|
||||
.lp3: add edx,esi
|
||||
cmp byte[edx],0
|
||||
jne @b
|
||||
.separator:
|
||||
mov [pi_cur],0
|
||||
.exit:
|
||||
popad
|
||||
ret
|
||||
.outside_window:
|
||||
or [pi_cur],-1
|
||||
jmp .exit
|
||||
endf
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
func line_add_spaces ;////////////////////////////////////////////////////////
|
||||
;-----------------------------------------------------------------------------
|
||||
; esi = line offset
|
||||
; ecx = needed line length
|
||||
;-----------------------------------------------------------------------------
|
||||
pushad
|
||||
movzx edx,word[esi]
|
||||
cmp ecx,edx
|
||||
jbe .exit
|
||||
sub ecx,edx
|
||||
push ecx
|
||||
mov edi,AREA_TEMP2
|
||||
mov eax,esi
|
||||
mov esi,edi
|
||||
sub esi,ecx
|
||||
lea ecx,[eax+4]
|
||||
add ecx,edx;[eax]
|
||||
push ecx
|
||||
neg ecx
|
||||
lea ecx,[esi+ecx+1]
|
||||
std
|
||||
rep movsb
|
||||
pop edi ecx
|
||||
add [eax],cx
|
||||
mov al,' '
|
||||
cld
|
||||
rep stosb
|
||||
.exit:
|
||||
popad
|
||||
ret
|
||||
endf
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
func delete_selection ;///////////////////////////////////////////////////////
|
||||
;-----------------------------------------------------------------------------
|
||||
cmp [sel.selected],0
|
||||
je .exit.2
|
||||
|
||||
pushad
|
||||
mov ecx,[sel.begin.y]
|
||||
cmp ecx,[sel.end.y]
|
||||
je .single_line
|
||||
call get_line_offset
|
||||
and dword[esi],not 0x00020000
|
||||
or dword[esi],0x00010000
|
||||
mov ecx,[sel.begin.x]
|
||||
call line_add_spaces
|
||||
lea edi,[esi+4]
|
||||
mov ecx,[sel.end.y]
|
||||
call get_line_offset
|
||||
call get_real_length
|
||||
cmp eax,[sel.end.x]
|
||||
jbe @f
|
||||
mov eax,[sel.end.x]
|
||||
@@: movzx ecx,word[esi]
|
||||
sub ecx,eax
|
||||
mov ebx,[sel.begin.x]
|
||||
add ebx,ecx
|
||||
mov [edi-4],bx
|
||||
add edi,[sel.begin.x]
|
||||
lea esi,[esi+eax+4]
|
||||
mov ecx,AREA_TEMP2
|
||||
sub ecx,esi
|
||||
cld
|
||||
rep movsb
|
||||
mov eax,[sel.end.y]
|
||||
sub eax,[sel.begin.y]
|
||||
sub [lines],eax
|
||||
jmp .exit
|
||||
|
||||
.single_line:
|
||||
call get_line_offset
|
||||
and dword[esi],not 0x00020000
|
||||
or dword[esi],0x00010000
|
||||
call get_real_length
|
||||
cmp eax,[sel.begin.x]
|
||||
jbe .exit
|
||||
mov ecx,[sel.end.x]
|
||||
cmp ecx,eax
|
||||
jbe @f
|
||||
mov ecx,eax
|
||||
@@: sub ecx,[sel.begin.x]
|
||||
sub [esi],cx
|
||||
lea edi,[esi+4]
|
||||
add edi,[sel.begin.x]
|
||||
lea esi,[edi+ecx]
|
||||
mov ecx,AREA_TEMP2
|
||||
sub ecx,esi
|
||||
cld
|
||||
rep movsb
|
||||
|
||||
.exit:
|
||||
mov eax,[sel.begin.x]
|
||||
mov [pos.x],eax
|
||||
mov [sel.x],eax
|
||||
mov eax,[sel.begin.y]
|
||||
mov [pos.y],eax
|
||||
mov [sel.y],eax
|
||||
popad
|
||||
mov [modified],1
|
||||
clc
|
||||
ret
|
||||
|
||||
.exit.2:
|
||||
stc
|
||||
ret
|
||||
endf
|
||||
Reference in New Issue
Block a user