Subversion Repositories Kolibri OS

; ����� ��� ��⥬��� ������⥪� box_lib.obj

; ������� TextEditor ��� Kolibri OS

; 䠩� ��᫥���� ࠧ �������� 29.01.2019 IgorA

; �� ��� �ਬ����� GPL2 ��業���

;input:

; edi = pointer to tedit struct

; reg = index

;output:

; reg = pointer to 'tex' struct

macro ConvertIndexToPointer reg {

	imul reg,sizeof.symbol

	add reg,ted_tex

}

;--- out_reg = ted_key_words_data[ind_reg].Text[0] ---

macro ColToIndexOffset ind_reg,out_reg {

	mov out_reg,ind_reg

	imul out_reg,sizeof.TexColViv

	add out_reg,ted_key_words_data

}

TED_LINES_IN_NEW_FILE equ 30 ;�᫮ ��ப � ����� 䠩��

MAX_COLOR_WORD_LEN equ 40

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

struct TexSelect

	x0 dd ?

	y0 dd ?

	x1 dd ?

	y1 dd ?

ends

struct TexColViv

	Text  rb MAX_COLOR_WORD_LEN ; ᫮�� ��� ���ᢥ⪨

	f1    dd 0 ; �ࠢ�� �� ᫮��

	flags db ? ; f1+4 䫠�� �ᯮ��㥬� �� �뤥�����

	endc  db ? ; f1+5 ᨬ��� ���� �뤥����� (�ᯮ������ �� flags&4)

	escc  db ? ; f1+6 ��࠭����騩 ᨬ��� (�ᯮ������ �� flags&4)

	color db ? ; f1+7 ����� 梥�

ends

struct symbol

	c db ?    ;  +0 ᨬ���

	col db ?  ;  +1 梥�

	perv dd ? ;  +2

	next dd ? ;  +6 㪠��⥫�

	tc dd ?   ; +10 �६. ᮧ�����

	td dd ?   ; +14 �६. 㤠�����

ends

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

ted_symbol_space db 32 ;ascii ��� �஡���, ������ �뢠�� �㦥� � ����

ted_symbol_tab db 26 ;ascii ��� ��५�� ��ࠢ�, �ᯮ������ ��� �ᮢ���� ⠡��樨 � ०��� ������ ��������� ᨬ�����

if lang eq ru

txtRow db '��ப�',0

txtCol db '����',0

txtOtm db '�⬥��',0

txtBuf db '����:',0

else

txtRow db 'Rows',0

txtCol db 'Cols',0

txtOtm db 'Undo',0

txtBuf db 'Buffer:',0

end if

;EvChar - ⠡��� ��� 䨫��஢���� ������塞�� ᨬ�����, ��-�� �� ������ ��譨� �����

align 16

EvChar db 0,0,0,0,0,0,0,0,0,1,0,0,0,1,0,0

    db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

    db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

    db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

    db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

    db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

    db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

    db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0

    db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

    db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

    db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

    db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

    db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

    db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

    db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

    db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

KM_SHIFT equ 0x00010000

KM_CTRL equ 0x00020000

KM_ALT equ 0x00040000

KM_NUMLOCK equ 0x00080000

; KEY CODES

KEY_F1 equ 0x0000003B

KEY_F2 equ 0x0000003C

KEY_F3 equ 0x0000003D

align 16

proc ted_init uses eax ecx edi, edit:dword

	mov edi,[edit]

	mov ecx,sizeof.symbol

	imul ecx,ted_max_chars

	invoke mem.alloc,ecx ;�뤥�塞 ������

	mov ted_tex,eax

	mov ted_tex_1,eax

	add ted_tex_1,sizeof.symbol

	add eax,ecx

	mov ted_tex_end,eax

	stdcall ted_clear, edi,1

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

	mov ecx,1024 ;1024 - ��� ���ᨢ� ted_arr_key_pos

	add ecx,ted_syntax_file_size

	invoke mem.alloc,ecx

	mov ted_arr_key_pos,eax

	add eax,1024

	mov ted_syntax_file,eax

	stdcall ted_init_scroll_bars,edi,3

	ret

endp

MIN_W_SCRL_ARE equ 3 ;�������쭠� �⮡ࠦ����� ������� ��� ����. �஫�����

MIN_H_SCRL_ARE equ 3 ;�������쭠� �⮡ࠦ����� ������� ��� ��ਧ. �஫�����

;input:

; opt = 1 - ������ 梥� �஫������, 2 - ���������� ࠧ���� ����,

;  4 - ���������� ࠧ���� ���㬥��

align 16

proc ted_init_scroll_bars, edit:dword, opt:dword

	pushad

	mov edi,[edit]

	mov esi,ted_scr_w

	mov ebx,ted_scr_h

	bt dword[opt],0

	jae @f

		mov ecx,ted_color_wnd_work

		mov dword[esi+sb_offs_bckg_col],ecx

		mov dword[ebx+sb_offs_bckg_col],ecx

		mov ecx,ted_color_wnd_capt

		mov dword[esi+sb_offs_frnt_col],ecx

		mov dword[ebx+sb_offs_frnt_col],ecx

		mov ecx,ted_color_wnd_bord

		mov dword[esi+sb_offs_line_col],ecx

		mov dword[ebx+sb_offs_line_col],ecx

	@@:

	bt dword[opt],2 ; ���������� ࠧ���� ���㬥�� ?

	jae .doc_resize

		call ted_get_num_lines

		cmp eax,TED_LINES_IN_NEW_FILE

		jge @f

			mov eax,TED_LINES_IN_NEW_FILE

		@@:

		mov dword[esi+sb_offs_max_area],eax

	.doc_resize:

	bt dword[opt],1 ; ���������� ࠧ���� ���� ?

	jae .no_size

			mov edx,ted_wnd_l

			add edx,ted_rec_l

			mov word[ebx+sb_offs_start_x],dx ;���⠢�塞 ���� ����� ��ਧ. �஫�����

			mov eax,ted_wnd_h ;calculate lines in page

			mov edx,ted_wnd_t

			add edx,eax

			mov word[ebx+sb_offs_start_y],dx ;���⠢�塞 ���孨� ����� ��ਧ. �஫�����

		sub eax,ted_rec_t

		xor edx,edx

		mov ecx,ted_rec_h

		div ecx

		cmp eax,MIN_W_SCRL_ARE

		jg @f

			mov eax,MIN_W_SCRL_ARE

		@@:

		mov dword[esi+sb_offs_cur_area],eax

		mov eax,ted_wnd_w ;calculate cols in page

			mov edx,ted_wnd_l ;���� ����� ����

			add edx,eax ;������塞 �ਭ� ����

			mov word[esi+sb_offs_start_x],dx ;���⠢�塞 ���� ����� ����. �஫�����

			mov edx,ted_wnd_t

			mov word[esi+sb_offs_start_y],dx ;���⠢�塞 ���孨� ����� ����. �஫�����

			mov edx,ted_wnd_h

			mov word[esi+sb_offs_size_y],dx ;���⠢�塞 ����� ����. �஫�����

		sub eax,ted_rec_l

			mov word[ebx+sb_offs_size_x],ax ;���⠢�塞 �ਭ� ��ਧ. �஫�����

		xor edx,edx

		mov ecx,ted_rec_w

		div ecx

		cmp eax,MIN_H_SCRL_ARE

		jg @f

			mov eax,MIN_H_SCRL_ARE

		@@:

		dec eax

		mov dword[ebx+sb_offs_cur_area],eax ;��⠭�������� �᫮ ᨬ�����, ����� ������ � ��࠭ ��� ��ਧ. �஫�����

	.no_size:

	popad

	ret

endp

align 16

proc ted_delete uses edi, edit:dword

	mov edi,[edit]

	invoke mem.free,ted_tex

	invoke mem.free,ted_arr_key_pos ;ted_syntax_file

	ret

endp

;input:

; eax = key kodes

align 16

proc ted_key, edit:dword, table:dword, control:dword

	pushad

	mov edi,[edit]

	mov esi,ted_el_focus

	cmp dword[esi],edi

	jne .end_key_fun ;������� �� � 䮪�� ��室�� �� �㭪樨

	mov esi,dword[control]

	cmp ah,KEY_F1 ;[F1]

	jne @f

		stdcall ted_show_help_f1,edi

		jmp .end_key_fun

	@@:

	cmp ah,KEY_F3 ;[F3]

	jne @f

		stdcall ted_but_find,edi,0

		jmp .end_key_fun

	@@:

	test esi,KM_CTRL ;Ctrl+...

	jz .key_Ctrl

		; *** �맮� ���譨� �㭪権 ����� �ॡ��� ���� ������/��࠭����/���᪠/...

		cmp ted_fun_on_key_ctrl_all,0

		je .end0

		xor al,al

		cmp ah,24 ;Ctrl+O

		jne @f

			mov al,'O'

		@@:

		cmp ah,31 ;Ctrl+S

		jne @f

			mov al,'S'

		@@:

		cmp ah,33 ;Ctrl+F

		jne @f

			mov al,'F'

		@@:

		cmp ah,34 ;Ctrl+G

		jne @f

			mov al,'G'

		@@:

		cmp ah,35 ;Ctrl+H

		jne @f

			mov al,'H'

		@@:

		cmp ah,49 ;Ctrl+N

		jne @f

			mov al,'N'

		@@:

		or al,al

		jz .end0

			and eax,0xff

			test esi,KM_SHIFT

			jz @f

				or eax,0x100

			@@:

			stdcall ted_fun_on_key_ctrl_all, eax

			jmp .end_key_fun

		.end0:

		; *** �맮� ����७��� �㭪権

		cmp ah,30 ;Ctrl+A

		jne @f

			call ted_sel_all

		@@:

		cmp ah,44 ;Ctrl+Z

		jne @f

			stdcall ted_but_undo,edi

		@@:

		cmp ah,45 ;Ctrl+X

		jne @f

			stdcall ted_but_cut,edi

		@@:

		cmp ah,46 ;Ctrl+C

		jne @f

			stdcall ted_but_copy,edi

		@@:

		cmp ah,47 ;Ctrl+V

		jne @f

			stdcall ted_but_paste,edi

		@@:

		cmp ah,199 ;Ctrl+Home

		jne @f

			call ted_key_ctrl_home

		@@:

		cmp ah,207 ;Ctrl+End

		jne @f

			call ted_key_ctrl_end

		@@:

		jmp .end_key_fun

	.key_Ctrl:

	test esi,KM_SHIFT ;Shift+...

	jz .key_Shift

		cmp ah,72 ;Shift+Up

		jne @f

			call ted_sel_key_up

		@@:

		cmp ah,75 ;Shift+Left

		jne @f

			call ted_sel_key_left

		@@:

		cmp ah,77 ;Shift+Right

		jne @f

			call ted_sel_key_right

		@@:

		cmp ah,80 ;Shift+Down

		jne @f

			call ted_sel_key_down

		@@:

		;mov ted_drag_k,1 ;��稭��� �뤥����� �� ����������

		jmp .key_MoveCur

	.key_Shift:

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

	cmp ah,72 ;178 ;Up

	jne @f

		call ted_draw_cursor_sumb

		call ted_cur_move_up

		cmp dl,8

		jne .no_red_0

			call ted_scroll_set_redraw

			stdcall ted_draw,edi

			jmp @f

		.no_red_0:

		call ted_draw_main_cursor

		mov ted_drag_k,0 ;�����稢��� �뤥����� �� ����������

	@@:

	cmp ah,80 ;177 ;Down

	jne @f

		call ted_draw_cursor_sumb

		call ted_cur_move_down

		cmp dl,8

		jne .no_red_1

			call ted_scroll_set_redraw

			stdcall ted_draw,edi

			jmp @f

		.no_red_1:

		call ted_draw_main_cursor

		mov ted_drag_k,0 ;�����稢��� �뤥����� �� ����������

	@@:

	cmp ah,75 ;176 ;Left

	jne @f

		call ted_draw_cursor_sumb

		call ted_cur_move_left

		cmp dl,8

		jne .no_red_2

			call ted_scroll_set_redraw

			stdcall ted_draw,edi

			jmp @f

		.no_red_2:

		call ted_draw_main_cursor

		mov ted_drag_k,0 ;�����稢��� �뤥����� �� ����������

	@@:

	cmp ah,77 ;179 ;Right

	jne @f

		call ted_draw_cursor_sumb

		call ted_cur_move_right

		cmp dl,8

		jne .no_red_3

			call ted_scroll_set_redraw

			stdcall ted_draw,edi

			jmp @f

		.no_red_3:

		call ted_draw_main_cursor

		mov ted_drag_k,0 ;�����稢��� �뤥����� �� ����������

	@@:

	cmp ah,71 ;180 ;Home

	jne @f

		call ted_draw_cursor_sumb

		call ted_cur_move_x_first_char

		cmp dl,8

		jne .no_red_4

			call ted_scroll_set_redraw

			stdcall ted_draw,edi

			jmp @f

		.no_red_4:

		call ted_draw_main_cursor

		mov ted_drag_k,0 ;�����稢��� �뤥����� �� ����������

	@@:

	cmp ah,79 ;181 ;End

	jne @f

		call ted_draw_cursor_sumb

		call ted_cur_move_x_last_char

		cmp dl,8

		jne .no_red_5

			call ted_scroll_set_redraw

			stdcall ted_draw,edi

			jmp @f

		.no_red_5:

		call ted_draw_main_cursor

		mov ted_drag_k,0 ;�����稢��� �뤥����� �� ����������

	@@:

	cmp ah,73 ;184 ;PageUp

	jne @f

		call ted_cur_move_page_up

		cmp dl,0

		je @f

		call ted_scroll_set_redraw

		stdcall ted_draw,edi

	@@:

	cmp ah,81 ;183 ;PageDown

	jne @f

		call ted_cur_move_page_down

		cmp dl,0

		je @f

		call ted_scroll_set_redraw

		stdcall ted_draw,edi

		mov ted_drag_k,0 ;�����稢��� �뤥����� �� ����������

	@@:

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

	.key_MoveCur:

	;���� �ய�᪠���� �㦥��� ������, ����� ����� ������ ����� ᨬ���� � ����

	cmp ah,42 ;[L Shift] ����� ����� ��� ��㣨� ������

	je .end_key_fun

	cmp ah,54 ;[R Shift] ����� ����� ��� ��㣨� ������

	je .end_key_fun

	cmp ah,58 ;[Caps Lock]

	je .end_key_fun

	cmp ah,69 ;[Pause Break]

	je .end_key_fun

	cmp ah,120 ;[Fn]

	je .end_key_fun

	cmp ah,0x80 ;if key up

	ja .end_key_fun

	cmp dword[table],0

	je @f

		stdcall KeyConvertToASCII, [table]

	@@:

	;mov ted_drag_k,0 ;�����稢��� �뤥����� �� ����������

	lea edx,[EvChar] ;��६ ���� ⠡���� � �����⨬묨 ᨬ������

	add dl,ah

	jae @f

		add edx,0x100 ;�᫨ �뫮 ��९������� �� ���������� ���� ᨬ����

	@@:

	cmp byte[edx],1

	jne @f

		mov ted_key_new,ah

		call ted_set_undo

		mov edx,ted_opt_ed_change_time+ted_opt_ed_move_cursor

		stdcall ted_sel_text_del,edx

		cmp al,1

		jne .del

			mov edx,ted_opt_ed_move_cursor

		.del:

		cmp ted_cur_ins,1

		je .no_ins_mod

			stdcall ted_text_del,edi,ted_opt_ed_change_time

			mov edx,ted_opt_ed_move_cursor

		.no_ins_mod:

		mov ecx,edi

		add ecx,ted_offs_key_new

		stdcall ted_text_add,edi,ecx,1,edx ;������塞 ᨬ��� �������� � ����������

		cmp ted_key_new,13

		jne .dr_m_win

			;�᫨ ��⠢��� ᨬ��� ����� ��ப�

			mov ecx,ted_scr_w

			inc dword[ecx+sb_offs_max_area] ;㢥��稢��� ࠧ��� ���⨪��쭮�� �஫�����

			mov edx,ted_cur_y

			cmp edx,[ecx+sb_offs_cur_area]

			jl .no_change

				dec ted_cur_y ;����� ��⠢�塞 �� ����

				inc dword[ecx+sb_offs_position] ;ᤢ����� ����㭮�

			.no_change:

			stdcall ted_draw,edi

			jmp .dr_cur_l

		.dr_m_win:

			stdcall ted_draw_cur_line,edi

		.dr_cur_l:

		cmp ted_fun_draw_panel_buttons,0

		je @f

			call ted_fun_draw_panel_buttons

	@@:

	cmp ah,8 ;[<-]

	jne @f

		call ted_set_undo

		stdcall ted_sel_text_del,ted_opt_ed_change_time

		cmp al,1

		je .del_one_b

			stdcall ted_text_del,edi,ted_opt_ed_change_time+ted_opt_ed_move_cursor

		.del_one_b:

		stdcall ted_draw,edi

		cmp ted_fun_draw_panel_buttons,0

		je .end_key_fun

			call ted_fun_draw_panel_buttons

		jmp .end_key_fun

align 4

	@@:

	cmp ah,182 ;Delete

	jne @f

		call ted_set_undo

		stdcall ted_sel_text_del,ted_opt_ed_change_time

		cmp al,1

		je .del_one_d

			stdcall ted_text_del,edi,ted_opt_ed_change_time

		.del_one_d:

		stdcall ted_draw,edi

		cmp ted_fun_draw_panel_buttons,0

		je .end_key_fun

			call ted_fun_draw_panel_buttons

		jmp .end_key_fun

	@@:

	cmp ah,185 ;Ins

	jne @f

		call ted_draw_cursor_sumb

		xor ted_cur_ins,1

		call ted_draw_main_cursor

	@@:

	.end_key_fun:

	popad

	ret

endp

;output:

; al = 1 - can save

align 16

proc ted_can_save uses ecx edi, edit:dword

	mov edi,[edit]

	mov ecx,ted_tim_ch

	sub ecx,ted_tim_undo

	mov al,1

	cmp ted_tim_ls,ecx

	jne @f

		dec al

	@@:

	ret

endp

;input:

; edi = pointer to tedit struct

;output:

; al = 1 - selected

align 16

proc ted_is_select uses ebx

	xor al,al

	cmp ted_drag_m,1

	je @f

		inc al

		mov ebx,ted_sel_x0

		cmp ebx,ted_sel_x1

		jne @f

		mov ebx,ted_sel_y0

		cmp ebx,ted_sel_y1

		jne @f

		xor al,al

	@@:

	ret

endp

;input:

; edi = pointer to tedit struct

align 16

proc ted_sel_normalize uses ecx esi

	push edi

		mov esi,edi

		add esi,ted_offs_sel

		add edi,ted_offs_seln

		mov ecx,sizeof.TexSelect/4

		rep movsd

	pop edi

	jmp @f

		.swp_f:

		mov ecx,ted_seln_x0

		m2m ted_seln_x0,ted_seln_x1

		mov ted_seln_x1,ecx

		mov ecx,ted_seln_y0

		cmp ecx,ted_seln_y1 ;(sel_y0>sel_y1)

		jle .end_f

		m2m ted_seln_y0,ted_seln_y1

		mov ted_seln_y1,ecx

		jmp .end_f

align 4

	@@:

	mov ecx,ted_seln_y0

	cmp ecx,ted_seln_y1 ;(sel_y0>sel_y1)

	jg .swp_f

	cmp ecx,ted_seln_y1 ;(sel_y0==sel_y1)

	jne .end_f

		mov ecx,ted_seln_x0

		cmp ecx,ted_seln_x1 ;(sel_x0>sel_x1)

		jg .swp_f

	.end_f:

	ret

endp

;input:

; edi = pointer to tedit struct

;description:

; �㭪�� ��뢠���� �� ��砫� �뤥�����

align 16

proc ted_sel_start uses eax ecx

	mov eax,ted_scr_h

	mov ecx,ted_cur_x

	add ecx,[eax+sb_offs_position]

	mov ted_sel_x0,ecx

	mov ted_sel_x1,ecx

	mov eax,ted_scr_w

	mov ecx,ted_cur_y

	add ecx,[eax+sb_offs_position]

	mov ted_sel_y0,ecx

	mov ted_sel_y1,ecx

	ret

endp

;input:

; edi = pointer to tedit struct

;description:

; �㭪�� ��뢠���� �� ��६�饭�� �뤥�����

align 16

proc ted_sel_move

	push eax ecx

		mov ecx,ted_cur_x

		mov eax,ted_scr_h

		add ecx,[eax+sb_offs_position]

		mov ted_sel_x1,ecx

		mov eax,ted_scr_w

		mov ecx,ted_cur_y

		add ecx,[eax+sb_offs_position]

		mov ted_sel_y1,ecx

	pop ecx eax

	cmp ted_fun_draw_panel_buttons,0 ;redraw toolbar (need to button Copy)

	je @f

		call ted_fun_draw_panel_buttons

	@@:

	ret

endp

;input:

; edi = pointer to tedit struct

;description:

; �㭪�� ��뢠���� �� �뤥����� �ᥣ� ���㬥��

align 16

proc ted_sel_all

	push eax

		xor eax,eax

		mov ted_sel_x0,eax

		mov ted_sel_y0,eax

		mov ted_sel_x1,eax ;???

		call ted_get_num_lines

		mov ted_sel_y1,eax

	pop eax

	stdcall ted_draw,edi

	cmp ted_fun_draw_panel_buttons,0 ;redraw toolbar (need to button Copy)

	je @f

		call ted_fun_draw_panel_buttons

	@@:

	ret

endp

;input:

; cl_al_mem = 1 - clear all memory

align 16

proc ted_clear uses ecx edi, edit:dword, cl_al_mem:dword

	mov edi,[edit]

	mov ted_cur_x,0

	mov ted_cur_y,0

	mov ted_tim_ch,0

	mov ted_tim_ls,0

	mov ted_tim_co,0

	mov ted_tim_undo,0

	mov ted_help_id,-1

	mov ecx,sizeof.symbol

	shl ecx,1

	add ecx,ted_tex

	mov ted_ptr_free_symb,ecx

	mov ecx,ted_scr_w

	mov dword[ecx+sb_offs_position],0

	mov dword[ecx+sb_offs_max_area],100 ;�᫮ ��ப ������� � ����� ���㬥��

	mov dword[ecx+sb_offs_redraw],1

	mov ecx,ted_scr_h

	mov dword[ecx+sb_offs_position],0

	mov dword[ecx+sb_offs_max_area],100 ;�᫮ ᨬ����� ������� � ����� ���㬥��

	mov ted_sel_x0,0

	mov ted_sel_y0,0

	mov ted_sel_x1,0

	mov ted_sel_y1,0

	cmp dword[cl_al_mem],0

	je .exit

	push edx

	mov ecx,sizeof.symbol

	imul ecx,ted_max_chars

	mov edx,ted_tex

	@@:

		mov byte [edx],0

		inc edx

	loop @b

	mov edx,ted_tex

	mov dword [edx+symbol.next],1

	pop edx

	.exit:

	ret

endp

align 16

proc ted_init_syntax_file, edit:dword

	pushad

	mov edi,[edit]

	mov ecx,0x100

	mov edx,ted_arr_key_pos

	@@:

		mov dword[edx],-1

		add edx,4

	loop @b

	;init: ted_colors_text_count, ted_key_words_count, ...

	mov ted_colors_text_count,1

	mov ted_key_words_count,0

	mov ted_help_text_f1,0

	mov ted_help_id,-1 ;�����䨪��� ᫮�� ��� �ࠢ��

	mov eax,edi ;��࠭塞 ���祭�� edi

	mov esi,ted_syntax_file

	add edi,ted_offs_count_colors

	mov ecx,9

	rep movsd

	mov edi,eax ;���⠭�������� ���祭�� edi

	mov eax,ted_syntax_file

	add eax,32

	mov ted_text_colors,eax

	mov eax,ted_colors_text_count ;init: count_colors_text (offset to key words)

	lea eax,[4*eax+32]

	add eax,ted_syntax_file

	mov ted_key_words_data,eax

	mov ecx,ted_key_words_count ;init: ted_arr_key_pos (first key positions)

	xor eax,eax

	@@:

		ColToIndexOffset eax,edx

		movzx ebx,byte[edx]

		mov esi,ted_arr_key_pos

		lea esi,[esi+4*ebx]

		cmp dword[esi],-1

		jne .no_ch_key

			mov [esi],eax

		.no_ch_key:

		inc eax

	loop @b

	;init: ted_help_text_f1

	mov ecx,ted_key_words_count ;������⢮ ���祢�� ᫮�

	imul ecx,sizeof.TexColViv   ;ࠧ��� �������� � 1-� ��. �.

	add ecx,ted_key_words_data  ;��砫� 䠩�� � ��. �.

	mov ted_help_text_f1,ecx    ;��⪠ � �����, ��� ��稭���� ⥪�� � �ࠢ���

	stdcall ted_init_scroll_bars,edi,1 ;���塞 梥� �஫������

	.no_colors:

	popad

	ret

endp

;input:

; ebx = file size

; edi = pointer to tedit struct

;description:

; �㭪�� ��뢠���� �� ����⨨ 䠩��

align 16

proc ted_on_open_file

	push eax ;destination

	push ecx ;for cycle

	push edx ;source

	push esi

	stdcall ted_clear,edi,0 ;��⨬ �� ��� ������, ��⮬� �� ���� �㤥� �� ��������� ���묨 ���묨

	;����� ᨬ��� �����襭�� ��ப� ⮫쪮 10 (��� 13)

	mov edx,ted_tex

	mov ecx,ebx

	@@:

		cmp byte[edx],13

		je .no_10 ;�᫨ ������ ᨬ��� 13, � 10-� ������㥬

		inc edx

		loop @b

	mov edx,ted_tex

	mov ecx,ebx

	.s_10:

		cmp byte[edx],10

		jne @f

			mov byte[edx],13 ;���塞 10-� ᨬ��� ���� ��ப�

		@@:

		inc edx

		loop .s_10

	.no_10:

	;��ॢ���� ������ 䠩� ������ ������� t_edit

	mov eax,ebx

	mov ecx,ebx

	add eax,2

	ConvertIndexToPointer eax

	mov edx,ted_tex

	add edx,ebx

	push ebx

	@@:

		mov ebx,[edx]

		mov byte[eax],bl

		mov dword[eax+symbol.perv],ecx

		inc dword[eax+symbol.perv]

		mov dword[eax+symbol.next],ecx

		add dword[eax+symbol.next],3

		;mov byte[eax+1],0 ;col=0

		mov dword[eax+symbol.tc],-1

		mov dword[eax+symbol.td],0

		cmp ecx,0

		je @f

		dec ecx

		dec edx

		sub eax,sizeof.symbol

		jmp @b

	@@:

	pop ebx

	mov dword[eax+symbol.perv],0 ; first sumbol 'perv=0'

	mov edx,ted_tex ; ����ன�� ��砫쭮�� �㦥����� ᨬ����

	; begining sumbol 'perv=0' 'next=2'

	mov dword[edx+symbol.perv],0

	mov dword[edx+symbol.next],2

	add edx,sizeof.symbol ; ����ன�� ����筮�� �㦥����� ᨬ����

	mov dword[edx+symbol.next],0 ; last sumbol 'next=0'

	mov dword[edx+symbol.perv],ebx ; last sumbol 'perv=last'

	inc dword[edx+symbol.perv]

	mov dword[edx+symbol.tc],0 ; �⠢�� �६� ᮧ����� ࠢ��� 0, �� �� ᨬ��� �ࠢ��쭮 ��ࠡ��뢠��� �� ����⨨ 䠩��� ������ 28 ����

	mov edx,ebx

	inc edx ;2 = rezerv sumbols

	imul edx,sizeof.symbol

	add edx,ted_tex

	mov dword[edx+symbol.next],1 ; last sumbol 'next=1'

	@@: ;clear memory, need if before was open big file

		add edx,sizeof.symbol

		cmp edx,ted_tex_end

		jge @f

			mov dword[edx+symbol.tc],0

			mov dword[edx+symbol.td],0

		jmp @b

	@@:

	call ted_get_num_lines

	cmp eax,TED_LINES_IN_NEW_FILE

	jge @f

		mov eax,TED_LINES_IN_NEW_FILE

	@@:

	mov esi,ted_scr_w

	mov dword[esi+sb_offs_max_area],eax

	pop esi edx ecx eax

	call ted_text_colored

	stdcall ted_draw,edi

	cmp ted_fun_draw_panel_buttons,0

	je @f

		call ted_fun_draw_panel_buttons

	@@:

	ret

endp

;input:

; edx = pointer to symbol struct

; edi = pointer to tedit struct

;output:

; edx = pointer to 'perv' visible symbol struct

align 16

ted_iterat_perv:

	cmp ted_tim_undo,0

	je .else

	push ebx

	@@:

		mov edx,[edx+symbol.perv]

		or edx,edx

		jz @f

		imul edx,sizeof.symbol

		add edx,ted_tex

		call ted_symbol_not_vis

		cmp bl,1

		je @b

		cmp byte[edx],10 ;�ய�� ᨬ���� � ����� 10

		je @b

	pop ebx

	ret

	@@:

	mov edx,ted_tex ;��砫� 䠩��

	pop ebx

	ret

	.else:

		mov edx,[edx+symbol.perv]

		or edx,edx

		jz @f

		imul edx,sizeof.symbol

		add edx,ted_tex

		cmp dword[edx+symbol.td],0

		jne .else

		cmp byte[edx],10 ;�ய�� ᨬ���� � ����� 10

		je .else

	ret

	@@:

	mov edx,ted_tex ;��砫� 䠩��

	ret

;input:

; edx = pointer to symbol struct

; edi = pointer to tedit struct

;output:

; edx = pointer to 'next' visible symbol struct

align 16

ted_iterat_next:

	cmp ted_tim_undo,0

	je .else

	push ebx

	@@:

		mov edx,[edx+symbol.next]

		cmp edx,1

		jle @f

		imul edx,sizeof.symbol

		add edx,ted_tex

		call ted_symbol_not_vis

		cmp bl,1

		je @b

		cmp byte[edx],10 ;�ய�� ᨬ���� � ����� 10

		je @b

	pop ebx

	ret

	@@:

	mov edx,ted_tex_1 ;����� 䠩��

	pop ebx

	ret

	.else:

		mov edx,[edx+symbol.next]

		cmp edx,1

		jle @f

		imul edx,sizeof.symbol

		add edx,ted_tex

		cmp dword[edx+symbol.td],0

		jne .else

		cmp byte[edx],10 ;�ய�� ᨬ���� � ����� 10

		je .else

	ret

	@@:

	mov edx,ted_tex_1 ;����� 䠩��

	ret

;input:

; bl = symbol end of select

; bh = ��࠭����騩 ᨬ��� (= 0 �᫨ ��� �஢�ન �� ���)

; edx = pointer to symbol struct

; edi = pointer to tedit struct

;description:

; ���� ᫥������ ������ 㪠������� ᨬ����

align 16

ted_iterat_next_pos_char:

	push ax

	mov al,1 ;�।��騩 ᨬ���, �㦨� ��� �ࠢ����� � ᨬ����� bh

	@@:

		cmp bl,byte[edx]

		je .found

		.no_found:

		cmp edx,ted_tex_1

		jle @f

			mov al,byte[edx]

			call ted_iterat_next

			jmp @b

	.found:

		cmp bh,al

		je .no_found

	@@:

	call ted_iterat_next

	pop ax

	ret

;input:

; edx = pointer to symbol struct

; edi = pointer to tedit struct

align 16

ted_iterat_perv_color_tag:

	@@:

		cmp byte[edx+1],0

		jne @f

		call ted_iterat_perv

		cmp edx,ted_tex_1

		jle @f

		jmp @b

align 4

	@@:

	ret

;input:

; edx = pointer to symbol struct

; edi = pointer to tedit struct

align 16

ted_iterat_next_color_tag:

	@@:

		call ted_iterat_next

		cmp byte[edx+1],0

		jne @f

		cmp edx,ted_tex_1

		jle @f

		jmp @b

align 4

	@@:

	ret

;input:

; edx = pointer to symbol struct

; edi = pointer to tedit struct

;output:

; bl = 1 if sumbol not visible

; (tex[i].td+ted_tim_undo<=ted_tim_ch && tex[i].td) || (tex[i].tc>ted_tim_ch-ted_tim_undo)

align 16

ted_symbol_not_vis:

	push eax

	xor bl,bl

	cmp dword[edx+symbol.td],0

	je @f

	mov eax,[edx+symbol.td] ;eax=tex[i].td

	add eax,ted_tim_undo

	cmp eax,ted_tim_ch

	jg @f

		mov bl,1

		pop eax

		ret

	@@:

	mov eax,ted_tim_ch

	sub eax,ted_tim_undo

	cmp [edx+symbol.tc],eax

	jle @f

		or bl,1

	@@:

	pop eax

	ret

;input:

; text - pointer to text string

; add_opt - options

align 16

proc ted_text_add, edit:dword, text:dword, t_len:dword, add_opt:dword

	locals

		new_spc dd ? ;count new spaces

		new_lin dd ? ;count new lines

	endl

;�ᯮ�짮����� ॣ���஢ ����� �㭪樨:

;eax - ������ ��� ��⠢�� ⥪��

;ebx - ��� �६����� �㦤, ������ ��⠢�塞��� ⥪��

;ecx - ��� �६����� �㦤