Subversion Repositories Kolibri OS

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

proc clear_selection ;////////////////////////////////////////////////////////

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

	push	eax ebx

	mov	eax,[cur_editor.SelStart.Y]

	mov	ebx,[cur_editor.Caret.Y]

	cmp	eax,ebx

	jle	@f

	xchg	eax,ebx

    @@: push	[cur_editor.Caret.X] [cur_editor.Caret.Y]

	pop	[cur_editor.SelStart.Y] [cur_editor.SelStart.X]

	pop	ebx eax

	ret

endp

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

proc 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

endp

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

proc check_bottom_right ;/////////////////////////////////////////////////////

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

	push	eax

	mov	eax,[cur_editor.TopLeft.Y]

	or	eax,eax

	jns	@f

	xor	eax,eax

	mov	[cur_editor.TopLeft.Y],eax

    @@: add	eax,[lines.scr]

	cmp	eax,[cur_editor.Lines.Count]

	jbe	.lp1

	mov	eax,[cur_editor.Lines.Count]

	sub	eax,[lines.scr]

	jns	@f

	xor	eax,eax

    @@: mov	[cur_editor.TopLeft.Y],eax

  .lp1: mov	eax,[cur_editor.TopLeft.X]

	or	eax,eax

	jns	@f

	xor	eax,eax

	mov	[cur_editor.TopLeft.X],eax

    @@: add	eax,[columns.scr]

	cmp	eax,[cur_editor.Columns.Count]

	jbe	.exit

	mov	eax,[cur_editor.Columns.Count]

	sub	eax,[columns.scr]

	jns	@f

	xor	eax,eax

    @@: mov	[cur_editor.TopLeft.X],eax

  .exit:

	pop	eax

	ret

endp

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

proc get_real_length ;////////////////////////////////////////////////////////

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

	movzx	eax,word[esi]

    @@: cmp	byte[esi+eax+4-1],' '

	jne	@f

	dec	eax

	jnz	@b

    @@: ret

endp

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

proc get_line_offset ;////////////////////////////////////////////////////////

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

; Input:

;  ECX = line number

; Output:

;  ESI = line data offset

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

	push	eax ecx

	mov	esi,[cur_editor.Lines]

    @@: dec	ecx

	js	.exit

	movzx	eax,word[esi]

	lea	esi,[esi+eax+4]

	jmp	@b

  .exit:

	pop	ecx eax

	ret

endp

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

proc init_sel_vars ;//////////////////////////////////////////////////////////

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

	pushad

	mov	[sel.selected],1

	mov	eax,[ebp+EDITOR.SelStart.X]

	mov	ebx,[ebp+EDITOR.SelStart.Y]

	mov	ecx,[ebp+EDITOR.Caret.X]

	mov	edx,[ebp+EDITOR.Caret.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

endp

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

proc 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

    @@:

	pop	edx ebx eax

	ret

  .null:

	mov	dword[esp+4],0

	mov	dword[esp+8],0

	jmp	@b

endp

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

proc 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

endp

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

proc 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

endp

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

proc strlen ;/////////////////////////////////////////////////////////////////

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

	push	ebx

	mov	ebx,eax

	xor	eax,eax

    @@: cmp	byte[ebx+eax],0

	je	@f