Subversion Repositories Kolibri OS

;

; â ýòîì ôàéëå ñîáðàíû ôóíêöèè ñîçäàþùèå ïðîãðàìíûé êîä

;

u_object object ;âðåìåííûé îáúåêò äëÿ çàäàíèÿ ñìåùåíèé

macro insert_coma

{

	stdcall [ted_text_add], tedit0,txt_coma,1,ted_opt_ed_move_cursor

}

macro insert_nl

{

	stdcall [ted_text_add], tedit0,txt_nl,1,ted_opt_ed_move_cursor

}

macro insert_com

{

	stdcall [ted_text_add], tedit0,txt_com,1,ted_opt_ed_move_cursor

}

macro insert_sp

{

	stdcall [ted_text_add], tedit0,txt_sp,1,ted_opt_ed_move_cursor

}

;ôóíêöèÿ âñòàâëÿåò òåêñòîâóþ ñòðîêó â òåêñòîâûé ðåäàêòîð

align 4

proc insert_text, txt:dword

	push eax

	stdcall str_len,dword[txt]

	cmp eax,1

	jl @f

		stdcall [ted_text_add], tedit0,dword[txt],eax,ted_opt_ed_move_cursor

	@@:

	pop eax

	ret

endp

;âñòàâëÿåò óêàçàííîå ñâîéñòâî èç îáúåêòà â òåêñòîâûé ðåäàêòîð

align 4

proc insert_text_prop, p_obj:dword,index:dword

	push eax edx

		mov eax,[p_obj]

		mov edx,[index]

		stdcall get_obj_text_col,eax,edx

		stdcall str_len,edx

		stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor

	pop edx eax

	ret

endp

macro insert_tab

{

	stdcall [ted_text_add], tedit0,txt_tab,1,ted_opt_ed_move_cursor

}

macro insert_br

{

	stdcall [ted_text_add], tedit0,txt_br,3,ted_opt_ed_move_cursor

}

macro insert_a_met

{

	stdcall [ted_text_add], tedit0,txt_a_met,3,ted_opt_ed_move_cursor

}

macro insert_0

{

	stdcall [ted_text_add], tedit0,txt_0,1,ted_opt_ed_move_cursor

}

macro insert_plus

{

	stdcall [ted_text_add], tedit0,txt_plus,1,ted_opt_ed_move_cursor

}

macro insert_xor

{

	stdcall [ted_text_add], tedit0,txt_xor,4,ted_opt_ed_move_cursor

}

macro insert_cmp

{

	stdcall [ted_text_add], tedit0,txt_cmp,4,ted_opt_ed_move_cursor

}

macro insert_reg reg_name

{

	stdcall [ted_text_add], tedit0,reg_name,3,ted_opt_ed_move_cursor

}

macro insert_reg8 reg_name

{

	stdcall [ted_text_add], tedit0,reg_name,2,ted_opt_ed_move_cursor

}

macro insert_i65p

{

	stdcall [ted_text_add], tedit0,txt_i65p,7,ted_opt_ed_move_cursor

}

;

macro insert_but_beg

{

	stdcall [ted_text_add], tedit0,txt_but_1,txt_but_2-txt_but_1,ted_opt_ed_move_cursor

}

macro insert_but_end

{

	stdcall [ted_text_add], tedit0,txt_but_2,txt_but_3-txt_but_2,ted_opt_ed_move_cursor

}

;

macro insert_key_beg

{

	stdcall [ted_text_add], tedit0,txt_key_1,txt_key_2-txt_key_1,ted_opt_ed_move_cursor

}

macro insert_key_end

{

	stdcall [ted_text_add], tedit0,txt_key_2,txt_key_3-txt_key_2,ted_opt_ed_move_cursor

}

macro insert_d_poi

{

	stdcall [ted_text_add], tedit0,txt_d_poi,1,ted_opt_ed_move_cursor

}

macro insert_ret

{

	stdcall [ted_text_add], tedit0,txt_ret,4,ted_opt_ed_move_cursor

}

align 4

but_code_gen:

	call code_gen

	cmp byte[show_mode],1 ;óñëîâèå âèäèìîñòè òåêñòîâîãî îêíà

	jne @f

		stdcall [ted_draw], tedit0

	@@:

	ret

;ôóíêöèÿ ñîçäàþùàÿ êîä âñåãî ôàéëà

align 4

code_gen:

	stdcall [ted_clear], tedit0,1

pushad

	stdcall dword[tl_node_poi_get_info], 0,tree2

	pop esi

	xor bl,bl

	call code_gen_obj

	stdcall [ted_text_add], tedit0,\

		txt_nl,1,ted_opt_ed_move_cursor+ted_opt_ed_change_time ;äîáàâëÿåì ñèìâîë íîâîé ñòðîêè ñ îïöèåé ted_opt_ed_change_time äëÿ âîçìîæíîñòè ñîõðàíåíèÿ ôàéëà

	stdcall [ted_init_scroll_bars], tedit0, 4 ;ìåíÿåì ðàçìåðû ñêðîëëèíãîâ

popad

	ret

;input:

; bl - óðîâåíü îáúåêòà

; esi - óêàçàòåëü íà óçåë

align 4

code_gen_obj:

push ebx

	.beg_iterat:

		cmp esi,0

		je .find_no

		cmp byte[esi+2],bl ;lev

		jl .find_no

		stdcall dword[tl_node_poi_get_data], esi,tree2

		pop eax ;ïîëó÷àåì äàííûå óçëà

		cmp eax,0

		je .find_no

		cmp byte[eax],C_ST

		jne @f

			stdcall get_code_struct,eax ;îáðàáîòêà îáúåêòà

			stdcall dword[tl_node_poi_get_next_info], esi,tree2

			pop ecx ;ïåðåõîäèì ê ñëåäóùåìó óçëó

			cmp ecx,0

			je .find_no

			cmp byte[ecx+2],bl ;lev

			jle .end_st

				mov esi,ecx

				push bx

					mov bl,byte[esi+2]

					call code_gen_obj ;ðåêóðñèâíûé âûçîâ äî÷åðíèõ îáúåêòîâ

				pop bx

			.end_st:

			stdcall [ted_text_add], tedit0,txt_ends,6,ted_opt_ed_move_cursor

			jmp .beg_iterat

		@@:

		cmp byte[eax],C_TT

		jne @f

			stdcall get_code_text,eax ;îáðàáîòêà îáúåêòà

		@@:

		cmp byte[eax],C_IN

		jne @f

			stdcall get_code_incl,eax ;îáðàáîòêà îáúåêòà

		@@:

		cmp byte[eax],C_CO

		jne @f

			stdcall get_code_comment,eax ;îáðàáîòêà îáúåêòà

		@@:

		cmp byte[eax],C_VR

		jne @f

			stdcall get_code_variable,eax,ebx ;îáðàáîòêà îáúåêòà

		@@:

		cmp byte[eax],C_WI

		jne @f

			stdcall get_code_window,eax ;îáðàáîòêà îáúåêòà

		@@:

		cmp byte[eax],C_AC

		jne @f

			stdcall get_code_auto,eax ;îáðàáîòêà îáúåêòà

		@@:

		cmp byte[eax],C_KE ;êëàâèàòóðà

		jne @f

			stdcall get_code_key,eax ;îáðàáîòêà îáúåêòà

		@@:

		stdcall dword[tl_node_poi_get_next_info], esi,tree2

		pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó

		jmp .beg_iterat

	.find_no:

pop ebx

	ret

align 4

proc get_code_text, p_obj:dword

	pushad

		insert_nl

		mov ebx,dword[p_obj]

		stdcall get_obj_text_col,ebx,0

		stdcall str_len,edx

		stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor

		insert_nl

	popad

	ret

endp

align 4

proc get_code_auto, p_obj:dword

	pushad

		insert_nl

		mov ebx,dword[p_obj]

		mov ecx,dword[ebx+u_object.modif-u_object]

		bt ecx,BIT_MOD_ACM

		jae @f

			;àâòîìàòè÷åñêèå ñîáûòèÿ îò ìûøè

			call get_code_auto_m

		@@:

		bt ecx,BIT_MOD_ABU

		jae @f

			;ñîçäàíèå ôóíêöèè button

			insert_but_beg

			call get_code_auto_but ;êîäû âûçîâà êíîïîê

			insert_but_end

			call get_code_a_but_fun ;êîäû ôóíêöèé, âûçûâàåìûõ ïðè íàæàòèè êíîïîê

		@@:

		bt ecx,BIT_MOD_ACD

		jae @f

			call get_code_auto_data_el

			call get_code_auto_data_dop

		@@:

		insert_nl

	popad

	ret

endp

align 4

proc get_code_auto_m

	pushad

	stdcall dword[tl_node_poi_get_info], 0,tree2

	pop esi

	.beg_iterat:

		cmp esi,0

		je .find_no

		stdcall dword[tl_node_poi_get_data], esi,tree2

		pop ebx ;ïîëó÷àåì äàííûå óçëà

		cmp ebx,0

		je .find_no

		cmp byte[ebx],C_ED

		jne @f

			stdcall insert_text, txt_std_mouse_ed

			;insert_sp

			stdcall get_obj_text_col,ebx,0

			stdcall str_len,edx

			stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor

			insert_nl

		@@:

		cmp byte[ebx],C_CB

		jne @f

			stdcall insert_text, txt_std_mouse_cb

			;insert_sp

			stdcall get_obj_text_col,ebx,0

			stdcall str_len,edx

			stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor

			insert_nl

		@@:

		stdcall dword[tl_node_poi_get_next_info], esi,tree2

		pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó

		jmp .beg_iterat

	.find_no:

	popad

	ret

endp

;ñîçäàíèå äàííûõ (ñòðóêòóð îáúåêòîâ)

align 4

proc get_code_auto_data_el

	pushad

	insert_nl ;îòñòóï äëÿ ôîðìàòèðîâàíèÿ

	stdcall dword[tl_node_poi_get_info], 0,tree2

	pop esi

	.beg_iterat:

		cmp esi,0

		je .find_no

		stdcall dword[tl_node_poi_get_data], esi,tree2

		pop ebx ;ïîëó÷àåì äàííûå óçëà

		cmp ebx,0

		je .find_no

		cmp byte[ebx],C_ED

		jne @f

			;1,2,3,4,...,6,...8,...,10 - w,x,y,col_fon,...,col_frame,...,col_txt,...,txt

			stdcall get_obj_text_col,ebx,0

			stdcall str_len,edx

			stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor

			stdcall insert_text, txt_ebox

			mov ecx,1

			.prop:

				insert_sp

				stdcall get_obj_text_col,ebx,ecx

				stdcall str_len,edx

				stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor

				insert_coma

				inc ecx

				cmp ecx,10

			jl .prop

			insert_br

			;insert_tab

			stdcall insert_text, txt_txt

			mov edx,fp_icon

			stdcall get_obj_id, ebx,edx

			stdcall str_len,edx ;eax = len(fp_icon)

			stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor

			;insert_coma

			;insert_sp

			stdcall insert_text, txt_mouse_dd

			insert_nl

		@@:

		;cmp byte[ebx],C_CB

		;jne @f

		;@@:

		stdcall dword[tl_node_poi_get_next_info], esi,tree2

		pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó

		jmp .beg_iterat

	.find_no:

	popad

	ret

endp

;

align 4

proc get_code_auto_data_dop

	pushad

	insert_nl ;îòñòóï äëÿ ôîðìàòèðîâàíèÿ

	stdcall dword[tl_node_poi_get_info], 0,tree2

	pop esi

	.beg_iterat:

		cmp esi,0

		je .find_no

		stdcall dword[tl_node_poi_get_data], esi,tree2

		pop ebx ;ïîëó÷àåì äàííûå óçëà

		cmp ebx,0

		je .find_no

		cmp byte[ebx],C_ED

		jne @f

			;1,2,3,4,...,6,...8,...,10 - w,x,y,col_fon,...,col_frame,...,col_txt,...,txt

			stdcall insert_text, txt_txt

			mov edx,fp_icon

			stdcall get_obj_id, ebx,edx

			stdcall str_len,edx ;eax = len(fp_icon)

			stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor

			stdcall insert_text, txt_times

			stdcall get_obj_text_col,ebx,9

			stdcall str_len,edx

			stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor

			insert_plus

			stdcall insert_text, txt_2

			stdcall insert_text, txt_db

			insert_0

			insert_nl

		@@:

		;cmp byte[ebx],C_CB

		;jne @f

		;@@:

		stdcall dword[tl_node_poi_get_next_info], esi,tree2

		pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó

		jmp .beg_iterat

	.find_no:

	popad

	ret

endp

;ñâÿçûâàåì êíîïêè ñ ôóíêöèÿìè

align 4

proc get_code_auto_but

	pushad

	stdcall dword[tl_node_poi_get_info], 0,tree2

	pop esi

	.beg_iterat:

		cmp esi,0

		je .find_no

		stdcall dword[tl_node_poi_get_data], esi,tree2

		pop ebx ;ïîëó÷àåì äàííûå óçëà

		cmp ebx,0

		je .find_no

		cmp byte[ebx],C_BU

		jne @f

			insert_tab

			insert_cmp

			insert_reg8 txt_ah

			insert_coma

			stdcall get_obj_text_col,ebx,0

			stdcall str_len,edx

			stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor

			insert_nl

			insert_tab

			stdcall insert_text, txt_jne_f

			insert_nl

			insert_tab

			insert_tab

			stdcall insert_text, txt_call

			stdcall get_obj_text_col,ebx,6

			stdcall str_len,edx

			cmp eax,1

			jl .c_fun

				stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor

			.c_fun:

			insert_nl

			insert_tab

			insert_a_met ;@@:

			insert_nl

		@@:

		stdcall dword[tl_node_poi_get_next_info], esi,tree2

		pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó

		jmp .beg_iterat

	.find_no:

	popad

	ret

endp

;áåðåì êîäû äëÿ ôóíêöèé íàæàòèé íà êíîïêè

align 4

proc get_code_a_but_fun

	pushad

	stdcall dword[tl_node_poi_get_info], 0,tree2

	pop esi

	.beg_iterat:

		cmp esi,0

		je .find_no

		stdcall dword[tl_node_poi_get_data], esi,tree2

		pop ebx ;ïîëó÷àåì äàííûå óçëà

		cmp ebx,0

		je .find_no

		cmp byte[ebx],C_BU

		jne @f

			stdcall get_obj_text_col,ebx,6

			stdcall str_len,edx

			cmp eax,1

			jl .c_fun

				insert_nl

				stdcall insert_text, txt_align_4

				stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor

				insert_d_poi

				insert_nl

				insert_tab

				insert_ret

			.c_fun:

		@@:

		stdcall dword[tl_node_poi_get_next_info], esi,tree2

		pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó

		jmp .beg_iterat

	.find_no:

	popad

	ret

endp

align 4

proc get_code_key, p_obj:dword

	pushad

		insert_nl

		mov ebx,dword[p_obj]

		insert_key_beg

		call get_code_funct_key ;êîäû âûçîâà êíîïîê

		insert_key_end

		insert_nl

	popad

	ret

endp

align 4

proc get_code_funct_key

	pushad

	stdcall dword[tl_node_poi_get_info], 0,tree2

	pop esi

	.beg_iterat:

		cmp esi,0

		je .find_no

		stdcall dword[tl_node_poi_get_data], esi,tree2

		pop ebx ;ïîëó÷àåì äàííûå óçëà

		cmp ebx,0

		je .find_no

		cmp byte[ebx],C_ED

		jne @f

			stdcall insert_text, txt_std_key_ed

			stdcall insert_text_prop,ebx,0

			insert_nl

		@@:

		stdcall dword[tl_node_poi_get_next_info], esi,tree2

		pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó

		jmp .beg_iterat

	.find_no:

	popad

	ret

endp

;îáúåêòû ïîäêëþ÷åíèÿ ôàéëîâ 'include ...'

align 4

proc get_code_incl, p_obj:dword

	pushad

		stdcall insert_text, txt_incl

		mov ebx,dword[p_obj]

		stdcall insert_text_prop,ebx,0

		stdcall get_obj_text_col,ebx,1

		stdcall str_len,edx

		cmp eax,1

		jl @f

			insert_sp

			insert_com

			stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor

		@@:

		insert_nl

	popad

	ret

endp

align 4

proc get_code_comment, p_obj:dword

	insert_com

	stdcall insert_text_prop, dword[p_obj],0

	insert_nl

	ret

endp

;ñîçäàåì êîä çàäàíèÿ îêíà

align 4

proc get_code_window, p_obj:dword

	pushad

		mov ebx,dword[p_obj]

		;2,3,4,5,6 - x,y,w,h,col_bkg

		stdcall insert_text, txt_draw_wb

		insert_tab

		insert_xor

		insert_reg txt_eax

		insert_coma

		insert_reg txt_eax

		insert_nl

		;mov ebx,...

		insert_tab

		stdcall insert_text, txt_mov

		insert_reg txt_ebx

		insert_coma

		stdcall insert_text_prop, ebx,2

		insert_i65p

		stdcall insert_text_prop, ebx,4

		insert_nl

		;mov ecx,...

		insert_tab

		stdcall insert_text, txt_mov

		insert_reg txt_ecx

		insert_coma

		stdcall insert_text_prop, ebx,3

		insert_i65p

		stdcall insert_text_prop, ebx,5

		insert_nl

		;mov edx,...

		insert_tab

		stdcall insert_text, txt_mov

		insert_reg txt_edx

		insert_coma

		stdcall insert_text_prop, ebx,6

		insert_nl

		;or edx,0x33000000

		stdcall insert_text, txt_or

		insert_reg txt_edx

		insert_coma

		stdcall insert_text, txt_0x33000000

		insert_nl

		;mov edi,...

		insert_tab

		stdcall insert_text, txt_mov

		insert_reg txt_edi

		insert_coma

		stdcall insert_text_prop, ebx,0

		insert_nl

		insert_tab

		stdcall insert_text, txt_i_40

		call get_code_draw_obj

		stdcall insert_text, txt_draw_we

	popad

	ret

endp

;ôîðìèðóåì âûçîâ ôóíêöèé äëÿ ðèñîâàíèÿ îáúåêòîâ

align 4

proc get_code_draw_obj

	pushad

	stdcall dword[tl_node_poi_get_info], 0,tree2

	pop esi

	.beg_iterat:

		cmp esi,0

		je .find_no

		stdcall dword[tl_node_poi_get_data], esi,tree2

		pop ebx ;ïîëó÷àåì äàííûå óçëà

		cmp ebx,0

		je .find_no

		cmp byte[ebx],C_ED

		jne @f

			stdcall insert_text, txt_editb_draw

			stdcall insert_text_prop, ebx,0

			insert_nl

		@@:

		cmp byte[ebx],C_CB

		jne @f

			stdcall insert_text, txt_cbox_draw

			stdcall insert_text_prop, ebx,0

			insert_nl

		@@:

		cmp byte[ebx],C_BU

		jne @f

			insert_tab

			stdcall insert_text, txt_mov

			insert_reg txt_eax

			insert_coma

			stdcall insert_text, txt_8

			insert_nl

			insert_tab

			stdcall insert_text, txt_mov

			insert_reg txt_ebx

			insert_coma

			stdcall insert_text_prop, ebx,1

			insert_i65p

			stdcall insert_text_prop, ebx,3

			insert_nl

			insert_tab

			stdcall insert_text, txt_mov

			insert_reg txt_ecx

			insert_coma

			stdcall insert_text_prop, ebx,2

			insert_i65p

			stdcall insert_text_prop, ebx,4

			insert_nl

			insert_tab

			stdcall insert_text, txt_mov

			insert_reg txt_edx

			insert_coma

			stdcall insert_text_prop, ebx,0

			insert_nl

			insert_tab

			stdcall insert_text, txt_or

			insert_reg txt_edx

			insert_coma

			stdcall insert_text, txt_but_create

			insert_nl

			insert_tab

			stdcall insert_text, txt_mov

			insert_reg txt_esi

			insert_coma

			stdcall insert_text_prop, ebx,5 ;button color

			insert_nl

			insert_tab

			stdcall insert_text, txt_i_40

			insert_nl

		@@:

		cmp byte[ebx],C_RE

		jne @f

			insert_tab

			stdcall insert_text, txt_mov

			insert_reg txt_eax

			insert_coma

			stdcall insert_text, txt_1

			stdcall insert_text, txt_3

			insert_nl

			insert_tab

			stdcall insert_text, txt_mov

			insert_reg txt_ebx

			insert_coma

			stdcall insert_text_prop, ebx,1

			insert_i65p

			stdcall insert_text_prop, ebx,3

			insert_nl

			insert_tab

			stdcall insert_text, txt_mov

			insert_reg txt_ecx

			insert_coma

			stdcall insert_text_prop, ebx,2

			insert_i65p

			stdcall insert_text_prop, ebx,4

			insert_nl

			insert_tab

			stdcall insert_text, txt_mov

			insert_reg txt_edx

			insert_coma

			stdcall insert_text_prop, ebx,0 ;rect color

			insert_nl

			insert_tab

			stdcall insert_text, txt_i_40

			insert_nl

		@@:

		stdcall dword[tl_node_poi_get_next_info], esi,tree2

		pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó

		jmp .beg_iterat

	.find_no:

	popad

	ret

endp

align 4

proc get_code_struct, p_obj:dword

	pushad

		mov ebx,dword[p_obj]

		;0 - name

		stdcall [ted_text_add], tedit0,txt_struct,7,ted_opt_ed_move_cursor

		stdcall get_obj_text_col,ebx,0

		stdcall str_len,edx

		stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor

		insert_nl

	popad

	ret

endp

;ñîçäàòü êîä îáúÿâëåíèÿ ïåðåìåííîé

align 4

proc get_code_variable, p_obj:dword,o_lev:dword

	pushad

		mov ebx,dword[p_obj]

		;0,1,2 - name,value,comment

		mov ecx,dword[o_lev]

		cmp cl,0

		je .no_tab ;èçáåãàåì çàöèêëèâàíèÿ (0-1 = 2^32-1)

		and cx,0xff

		cld

		@@:

			insert_tab ;ôîðìèðîâàíèå îòñòóïà ïåðåä ïåðåìåííîé

		loop @b

		.no_tab:

		stdcall get_obj_text_col,ebx,0

		stdcall str_len,edx

		stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor

		insert_sp

		mov ecx,dword[ebx+u_object.typid-u_object] ;ecx - îòíîñèòåëüíûé èíäåêñ ðîäèòåëüñêîãî îáúåêòà (â ïàìÿòè)

		xor eax,eax

		mov ax,[tree2.info_size]

		imul ecx,eax ;óìíîæàåì èíäåêñ íà ðàçìåð ñòðóêòóðû

		add ecx,[tree2.data_info] ;ecx - óêàçàòåëü äàííûå ðîäèòåëüñêîãî óçëà

		;ïðîâåðêó íà ïðàâèëüíîñòü ecx ???

		stdcall get_obj_text_col,ecx,0

		stdcall str_len,edx

		stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor

		insert_sp

		stdcall get_obj_text_col,ebx,1

		stdcall str_len,edx

		stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor

		stdcall get_obj_text_col,ebx,2

		stdcall str_len,edx

		cmp eax,1

		jl @f

			insert_sp

			insert_com

			stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor

		@@:

		insert_nl

	popad

	ret

endp

;--- òåêñòîâûå êîíñòàíòû ---

txt_coma db ',',0

txt_i_40 db 'int 0x40',13,0

txt_0 db '0',0

txt_1 db '1',0

txt_2 db '2',0

txt_3 db '3',0

txt_4 db '4',0

txt_8 db '8',0

txt_plus db '+',0

txt_nl db 13,0

txt_com db ';',0

txt_sp db ' ',0

txt_tab db 9,0

txt_br db '\',13,9,0

txt_txt:

	db 'txt_',0

txt_db:

	db ' db ',0

txt_mouse_dd:

	db ', mouse_dd, ',0

txt_times:

	db ':',13,9,'times ',0

txt_draw_wb:

	db 13,'align 4',13,'draw_window:',13,'pushad',13,9,'mcall 12,1',13,0

txt_draw_we:

	db 9,'mcall 12,2',13,'popad',13,9,'ret',13,0

txt_but_create db '0x40000000',0 ;tmp

txt_0x33000000 db '0x33000000',0 ;tmp

txt_struct db 'struct ',0

txt_ends db 'ends',13,13,0

txt_mov db 'mov ',0

txt_xor db 'xor ',0

txt_or db 'or  ',0

txt_cmp db 'cmp ',0

txt_call db 'call ',0

txt_jne_f db 'jne @f',0

txt_a_met db '@@:',0

txt_ah db 'ah',0

txt_eax db 'eax',0

txt_ebx db 'ebx',0

txt_ecx db 'ecx',0

txt_edx db 'edx',0

txt_edi db 'edi',0

txt_esi db 'esi',0

txt_align_4 db 'align 4',13,0

txt_d_poi db ':',0

txt_ret db 'ret',13,0

txt_i65p db '*65536+',0

txt_std_mouse_ed:

	db 9,'stdcall [edit_box_mouse], ',0

txt_std_mouse_cb:

	db 9,'stdcall [check_box_mouse], ',0

txt_std_key_ed:

	db 9,'stdcall [edit_box_key], ',0

txt_incl:

	db 'include ',0

txt_ebox:

	db ' edit_box'

	.end: db 0

txt_editb_draw:

	db 9,'stdcall [edit_box_draw], ',0

txt_cbox_draw:

	db 9,'stdcall [check_box_draw], ',0

txt_but_1:

db 'align 4',13,'button:',13,9,'mcall 17',13

txt_but_2:

db 9,'cmp ah,1',13,9,'jne still',13,'.exit:',13,9,'mcall -1',13

txt_but_3:

txt_key_1:

db 'align 4',13,'key:',13,9,'mcall 2',13

txt_key_2:

db 9,'jmp still',13

txt_key_3:

align 4

proc get_obj_id, p_obj:dword, txt_buf:dword

	push eax ecx edx

	mov eax,dword[p_obj]

	sub eax,[tree2.data_info]

	xor edx,edx

	xor ecx,ecx

	mov cx,word[tree2.info_size]

	div ecx

	mov edx,dword[txt_buf]

	mov byte[edx],0

	stdcall str_cat_value,edx,eax

	pop edx ecx eax

	ret

endp

;--- òåêñòîâûå ôóíêöèè ---

align 4

proc mem_clear, mem:dword, len:dword

	push eax ecx edi

	cld

	xor al,al

	mov edi, dword[mem]

	mov ecx, dword[len]

	repne stosb

	pop edi ecx eax

	ret

endp

align 4

proc str_cat, str1:dword, str2:dword

	push eax ecx edi esi

	mov esi,dword[str2]

	stdcall str_len,esi

	mov ecx,eax

	inc ecx

	mov edi,dword[str1]

	stdcall str_len,edi

	add edi,eax

	cld

	repne movsb

	pop esi edi ecx eax

	ret

endp

align 4

proc str_cat_value, str1:dword, value:dword

	pushad

	mov edi,[str1]

	stdcall str_len,edi

	add edi,eax

	mov eax,[value]

	call tl_convert_to_str

	popad

	ret

endp

;output:

; eax = strlen

align 4

proc str_len, str1:dword

	mov eax,[str1]

	@@:

		cmp byte[eax],0

		je @f

		inc eax

		jmp @b

	@@:

	sub eax,[str1]

	ret

endp

;input:

; eax = value

; edi = string buffer

align 4

tl_convert_to_str:

	pushad

	stdcall mem_clear,edi,12

	call .str

	popad

	ret

align 4

.str:

	mov ecx,0x0a ;çàäàåòñÿ ñèñòåìà ñ÷èñëåíèÿ èçìåíÿþòñÿ ðåãèñòðû ebx,eax,ecx,edx âõîäíûå ïàðàìåòðû eax - ÷èñëî

		;ïðåðåâîä ÷èñëà â ASCII ñòðîêó âõîäíûå äàííûå ecx=ñèñòåìà ñ÷èñëåíÿ edi àäðåñ êóäà çàïèñûâàòü, áóäåì ñòðîêó, ïðè÷åì êîíåö ïåðåìåííîé

	cmp eax,ecx  ;ñðàâíèòü åñëè â eax ìåíüøå ÷åì â ecx òî ïåðåéòè íà @@-1 ò.å. íà pop eax

	jb @f

		xor edx,edx ;î÷èñòèòü edx

		div ecx     ;ðàçäåëèòü - îñòàòîê â edx

		push edx    ;ïîëîæèòü â ñòåê

		;dec edi    ;ñìåùåíèå íåîáõîäèìîå äëÿ çàïèñè ñ êîíöà ñòðîêè

		call .str   ;ïåðåéòè íà ñàìó ñåáÿ ò.å. âûçâàòü ñàìó ñåáÿ è òàê äî òîãî ìîìåíòà ïîêà â eax íå ñòàíåò ìåíüøå ÷åì â ecx

		pop eax

	@@: ;cmp al,10 ;ïðîâåðèòü íå ìåíüøå ëè çíà÷åíèå â al ÷åì 10 (äëÿ ñèñòåìû ñ÷èñëåíÿ 10 äàííàÿ êîìàíäà - ëèøíàÿ))

	or al,0x30  ;äàííàÿ êîìàíäà êîðî÷å  ÷åì äâå âûøå

	stosb	    ;çàïèñàòü ýëåìåíò èç ðåãèñòðà al â ÿ÷åêó ïàìÿòè es:edi

	ret