WebSVN – Kolibri OS – Diff – /programs/develop/kol_f_edit/ced_code_g.inc

+;
-; â ýòîì ôàéëå ñîáðàíû ôóíêöèè ñîçäàþùèå ïðîãðàìíûé êîä
+; ¢ íâ®¬ ä ©«¥ á®¡à ë äãªæ¨¨ á®§¤ îé¨¥ ¯à®£à ¬ë© ª®¤
+;
-u_object object ;âðåìåííûé îáúåêò äëÿ çàäàíèÿ ñìåùåíèé
+u_object object ;¢à¥¬¥ë© ®¡ê¥ªâ ¤«ï § ¤ ¨ï á¬¥é¥¨©
 macro insert_coma
+{
 	stdcall [ted_text_add], tedit0,txt_coma,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]
 	@@:
 	pop eax
 	ret
 endp
-;âñòàâëÿåò óêàçàííîå ñâîéñòâî èç îáúåêòà â òåêñòîâûé ðåäàêòîð
+;¢áâ ¢«ï¥â ãª § ®¥ â¥ªáâ®¢®¥ á¢®©áâ¢® ¨§ ®¡ê¥ªâ  ¢ â¥ªáâ®¢ë© à¥¤ ªâ®à
 align 4
 proc insert_text_prop, p_obj:dword,index:dword
 	push eax edx
 		mov eax,[p_obj]
 		stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor
 	pop edx eax
 	ret
 endp
+;¢áâ ¢«ï¥â ãª § ®¥ ¡¨â®¢®¥ á¢®©áâ¢® ¨§ ®¡ê¥ªâ  ¢ â¥ªáâ®¢ë© à¥¤ ªâ®à
+align 4
+proc insert_bit_prop, p_obj:dword,index:dword
+	push ebx ecx edi
+		mov ebx,[p_obj]
+		mov ecx,[index]
+		test_bool_prop ebx,ecx
+		jnc @f ;¥á«¨ ¯®«ì§®¢ â¥«ì ¥ ¢ë¡à « ¢ ®¡ê¥ªâ¥ ¤ ®¥ á¢®©áâ¢®
+			mov ebx,dword[ebx]
+			call find_obj_in_opt
+			mov ecx,dword[edi+obj_opt.bit_val-obj_opt] ;ecx - á¬¥é¥¨¥ § ç¥¨© á¢®©áâ¢ (ª®áâ â)
+			cmp byte[ecx],0
+			je @f ;¥á«¨ ã ®¡ê¥ªâ  ¥â § ¤ ëå ¡¨â®¢ëå á¢®©áâ¢
+				add ecx,obj_opt ;¤®¡ ¢«ï¥¬  ç «® ä ©«  á ®¯æ¨ï¬¨
+				stdcall get_string_by_ind, ecx,[index]
+				cmp byte[edi],0
+				je @f ;¥á«¨ ã ®¡ê¥ªâ  ¡¨â®¢®¥ á¢®©áâ¢® ¯ãáâ®¥
+				stdcall insert_text, txt_plus
+				stdcall insert_text, edi
+		@@:
+	pop edi ecx ebx
+	ret
+endp
-;ôóíêöèÿ âñòàâëÿåò 2 ïàðàìåòðà ïî 16 áèò â âèäå:
+;äãªæ¨ï ¢áâ ¢«ï¥â 2 ¯ à ¬¥âà  ¯® 16 ¡¨â ¢ ¢¨¤¥:
 ; (_p1_ shl 16 + _p2_)
 align 4
 proc insert_2_prop_16_bit, obj:dword, p_hi:dword, p_lo:dword
 	stdcall insert_text, txt_skob_o
 	stdcall insert_text, txt_plus
 	stdcall insert_text_prop, [obj],[p_lo]
 	ret
 endp
-;âñòàâëÿåì ñòðîêó âèäà:
+;¢áâ ¢«ï¥¬ áâà®ªã ¢¨¤ :
 ; txt_(n) db (s)
 align 4
 proc insert_text_label_data, obj:dword, col:dword
 	push eax edx
 align 4
 but_update:
 	call draw_constructor
-	cmp byte[show_mode],0 ;óñëîâèå âèäèìîñòè îêíà êîíñòðóêòîðà
+	cmp byte[show_mode],0 ;ãá«®¢¨¥ ¢¨¤¨¬®áâ¨ ®ª  ª®áâàãªâ®à
 	jne @f
 		stdcall [buf2d_draw], buf_fon
 	@@:
 	call code_gen
-	cmp byte[show_mode],1 ;óñëîâèå âèäèìîñòè òåêñòîâîãî îêíà
+	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 äëÿ âîçìîæíîñòè ñîõðàíåíèÿ ôàéëà
+		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 ;ìåíÿåì ðàçìåðû ñêðîëëèíãîâ
+	stdcall [ted_init_scroll_bars], tedit0, 4 ;¬¥ï¥¬ à §¬¥àë áªà®««¨£®¢
 popad
 	ret
 ;input:
-; bl - óðîâåíü îáúåêòà
+; bl - ãà®¢¥ì ®¡ê¥ªâ
-; esi - óêàçàòåëü íà óçåë
+; esi - ãª § â¥«ì   ã§¥«
 align 4
 		cmp byte[esi+2],bl ;lev
 		jl .find_no
 		stdcall dword[tl_node_poi_get_data], esi,tree2
-		pop eax ;ïîëó÷àåì äàííûå óçëà
+		pop eax ;¯®«ãç ¥¬ ¤ ë¥ ã§«
 		cmp eax,0
 		je .find_no
 		cmp dword[eax],C_STR
 		jne .no_struct
-			stdcall get_obj_text_col, eax,1 ;edx - óêàçàòåëü íà 1-å ñâîéñòâî ñòðóêòóðû
+			stdcall get_obj_text_col, eax,1 ;edx - ãª § â¥«ì   1-¥ á¢®©áâ¢® áâàãªâãàë
 			stdcall insert_text,txt_struc
 			cmp byte[edx],0
 			jne @f
 				stdcall insert_text,txt_t
 			@@:
 			insert_sp
 			stdcall insert_text_prop, eax,0
 			cmp byte[edx],0
 			je @f
-				;åñëè ñòðóêòóðà çàäàíà ìàêðîñîì
+				;¥á«¨ áâàãªâãà  § ¤   ¬ ªà®á®¬
 				insert_sp
 				stdcall insert_text_prop, eax,1
 				insert_nl
 				stdcall insert_text, txt_skob_fo
 			@@:
 			insert_nl
 			stdcall dword[tl_node_poi_get_next_info], esi,tree2
-			pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó
+			pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ãé¥¬ã ã§«ã
 			cmp esi,0
 			je .end_st
 			cmp byte[esi+2],bl ;lev
 			jle .end_st
 				push bx
 					mov bl,byte[esi+2]
-					call code_gen_obj ;ðåêóðñèâíûé âûçîâ äî÷åðíèõ îáúåêòîâ
+					call code_gen_obj ;à¥ªãàá¨¢ë© ¢ë§®¢ ¤®ç¥à¨å ®¡ê¥ªâ®¢
 				pop bx
 			.end_st:
 			cmp byte[edx],0
 			je @f
-				;åñëè ñòðóêòóðà çàäàíà ìàêðîñîì
+				;¥á«¨ áâàãªâãà  § ¤   ¬ ªà®á®¬
 				stdcall insert_text, txt_skob_fc
 				insert_nl
 				jmp .beg_iterat
 			@@:
 			stdcall insert_text,txt_ends
 			jmp .beg_iterat
 		.no_struct:
 		cmp dword[eax],C_TXT
 		jne @f
-			stdcall get_code_text,eax ;îáðàáîòêà îáúåêòà
-		@@:
-		cmp dword[eax],C_INC
-		jne @f
-			stdcall get_code_incl,eax ;îáðàáîòêà îáúåêòà
+			stdcall get_code_text,eax ;®¡à ¡®âª  ®¡ê¥ªâ
 		@@:
-		cmp dword[eax],C_COM
+		cmp dword[eax],C_INC
 		jne @f
-			stdcall get_code_comment,eax ;îáðàáîòêà îáúåêòà
+			stdcall get_code_incl,eax ;®¡à ¡®âª  ®¡ê¥ªâ
 		@@:
 		cmp dword[eax],C_VAR
 		jne @f
-			stdcall get_code_variable,eax,ebx ;îáðàáîòêà îáúåêòà
+			stdcall get_code_variable,eax,ebx ;®¡à ¡®âª  ®¡ê¥ªâ
 		@@:
 		cmp dword[eax],C_WND
 		jne @f
-			stdcall get_code_window,eax ;îáðàáîòêà îáúåêòà
+			stdcall get_code_window,eax ;®¡à ¡®âª  ®¡ê¥ªâ
 		@@:
 		cmp dword[eax],C_ACO
 		jne @f
-			stdcall get_code_auto,eax ;îáðàáîòêà îáúåêòà
+			stdcall get_code_auto,eax ;®¡à ¡®âª  ®¡ê¥ªâ
 		@@:
-		cmp dword[eax],C_KEY ;êëàâèàòóðà
+		cmp dword[eax],C_KEY ;ª« ¢¨ âãà
 		jne @f
-			stdcall get_code_key,eax ;îáðàáîòêà îáúåêòà
+			stdcall get_code_key,eax ;®¡à ¡®âª  ®¡ê¥ªâ
 		@@:
 		stdcall dword[tl_node_poi_get_next_info], esi,tree2
-		pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó
+		pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ãé¥¬ã ã§«ã
 		jmp .beg_iterat
 	.find_no:
 pop edx ebx
 	ret
-;äîáàâëåíèå îáúåêòà ñ ïðîãðàìíûì êîäîì (òåêñòîì)
+;¤®¡ ¢«¥¨¥ ®¡ê¥ªâ  á ¯à®£à ¬ë¬ ª®¤®¬ (â¥ªáâ®¬)
 align 4
 proc get_code_text, p_obj:dword
 	;pushad
 		insert_nl
 		stdcall insert_text_prop, dword[p_obj],0
 		insert_nl
 	;popad
 			je @f
 				stdcall insert_text, txt_std_init_cb
 		@@:
 		test_bool_prop ebx,BIT_MOD_ACM
 		jae @f
-			;àâòîìàòè÷åñêèå ñîáûòèÿ îò ìûøè
+			; ¢â®¬ â¨ç¥áª¨¥ á®¡ëâ¨ï ®â ¬ëè¨
 			call get_code_auto_m
 		@@:
 		test_bool_prop ebx,BIT_MOD_ABU
 		jae @f
-			;ñîçäàíèå ôóíêöèè button
+			;á®§¤ ¨¥ äãªæ¨¨ button
 			insert_but_beg
-			call get_code_auto_but ;êîäû âûçîâà êíîïîê
+			call get_code_auto_but ;ª®¤ë ¢ë§®¢  ª®¯®ª
 			insert_but_end
-			call get_code_a_but_fun ;êîäû ôóíêöèé, âûçûâàåìûõ ïðè íàæàòèè êíîïîê
+			call get_code_a_but_fun ;ª®¤ë äãªæ¨©, ¢ë§ë¢ ¥¬ëå ¯à¨  ¦ â¨¨ ª®¯®ª
 		@@:
 		test_bool_prop ebx,BIT_MOD_ACD
 		jae @f
 			call get_code_auto_data_el
 			.no_check:
 			call get_code_auto_data_dop
 			mov edx,C_LIB
-			stdcall find_obj_in_file,edx ;eax - óêàçàòåëü íà ñòðóêòóðó áèáëèîòåêè
+			stdcall find_obj_in_file,edx ;eax - ãª § â¥«ì   áâàãªâãàã ¡¨¡«¨®â¥ª¨
 			cmp eax,0
 			je @f
 				insert_nl
 				call get_code_auto_data_libs_param
 				stdcall insert_text, txt_ll_start
 					call get_code_auto_data_libs_struc
 				stdcall insert_text, txt_ll_end
-				call get_code_auto_data_libs ;òàáëèöû èìïîðòà áèáëèîòåê
+				call get_code_auto_data_libs ;â ¡«¨æë ¨¬¯®àâ  ¡¨¡«¨®â¥ª
 		@@:
 		insert_nl
 	popad
 	ret
 	.beg_iterat:
 		cmp esi,0
 		je .find_no
 		stdcall dword[tl_node_poi_get_data], esi,tree2
-		pop ebx ;ïîëó÷àåì äàííûå óçëà
+		pop ebx ;¯®«ãç ¥¬ ¤ ë¥ ã§«
 		cmp ebx,0
 		je .find_no
 			stdcall insert_text_prop, ebx,0
 			insert_nl
 		@@:
 		stdcall dword[tl_node_poi_get_next_info], esi,tree2
-		pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó
+		pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ãé¥¬ã ã§«ã
 		jmp .beg_iterat
 	.find_no:
 	popad
 	ret
 endp
-;ñîçäàíèå äàííûõ (ñòðóêòóð îáúåêòîâ)
+;á®§¤ ¨¥ ¤ ëå (áâàãªâãà ®¡ê¥ªâ®¢)
 align 4
 proc get_code_auto_data_el
 	pushad
-	insert_nl ;îòñòóï äëÿ ôîðìàòèðîâàíèÿ
+	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
 			stdcall get_obj_id_str, ebx,edx
 			stdcall insert_text, edx
 			stdcall insert_text, txt_mouse_dd
+			stdcall insert_text, txt_0 ;á¢®©áâ¢  editbox
+			stdcall insert_bit_prop, ebx,BIT_MOD_EDIT_FOC
+			stdcall insert_bit_prop, ebx,BIT_MOD_EDIT_FIO
 			stdcall insert_text, txt_0 ;òóò áóäóò ñâîéñòâà editbox à ïîêà ïðîñòî ñòàâèì 0
-			xchg eax,edx ;ñîõðàíÿåì çíà÷åíèå edx
+			xchg eax,edx ;á®åà ï¥¬ § ç¥¨¥ edx
 			stdcall get_obj_text_col,ebx,10
-			cmp byte[edx],0 ;ïðîâåðÿåì ïóñòàÿ ëè ñòðîêà ïðè çàïóñêå editbox
+			cmp byte[edx],0 ;¯à®¢¥àï¥¬ ¯ãáâ ï «¨ áâà®ª  ¯à¨ § ¯ãáª¥ editbox
 			je .null_string
-				xchg eax,edx ;âîñòàíàâëèâàåì çíà÷åíèå edx
+				xchg eax,edx ;¢®áâ  ¢«¨¢ ¥¬ § ç¥¨¥ edx
 				stdcall insert_text, txt_coma
 		jne @f
 			stdcall insert_text_label_data, ebx,0
 		@@:
 		stdcall dword[tl_node_poi_get_next_info], esi,tree2
-		pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó
+		pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ãé¥¬ã ã§«ã
 		jmp .beg_iterat
 	.find_no:
 	popad
 	ret
 endp
 align 4
 proc get_code_auto_data_el_cbox
 	pushad
-	insert_nl ;îòñòóï äëÿ ôîðìàòèðîâàíèÿ
+	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
 			stdcall insert_text_prop, ebx,6
 			stdcall insert_text, txt_coma
 			stdcall insert_text_prop, ebx,7
-			stdcall insert_text, txt_coma
-			;stdcall insert_text, txt_bit_31
-			;stdcall insert_text, txt_plus
+			stdcall insert_text, txt_coma
 			stdcall insert_text_prop, ebx,8
 			stdcall insert_text, txt_coma
 			stdcall insert_text, txt_br
 			stdcall insert_text, txt_txt
 			mov edx,fp_icon
 			stdcall get_obj_id_str, ebx,edx
 			stdcall insert_text, edx
 			stdcall insert_text, txt_coma
-			;ôëàãè
-			stdcall insert_text,txt_0
-			test_bool_prop ebx,BIT_MOD_CHE
-			jnc @f
-				stdcall insert_text,txt_plus
+			;ä« £¨
-				stdcall insert_text,txt_bit_che
-			@@:
-			test_bool_prop ebx,BIT_MOD_CHE_T
-			jnc @f
-				stdcall insert_text,txt_plus
+			stdcall insert_text,txt_0
-				stdcall insert_text,txt_bit_che_t
-			@@:
-			test_bool_prop ebx,BIT_MOD_CHE_M
-			jnc @f
-				stdcall insert_text,txt_plus
+			stdcall insert_bit_prop, ebx,BIT_MOD_CHE
-				stdcall insert_text,txt_bit_che_m
-			@@:
-			test_bool_prop ebx,BIT_MOD_CHE_B
-			jnc @f
-				stdcall insert_text,txt_plus
+			stdcall insert_bit_prop, ebx,BIT_MOD_CHE_T
-				stdcall insert_text,txt_bit_che_b
+			stdcall insert_bit_prop, ebx,BIT_MOD_CHE_M
-			@@:
+			stdcall insert_bit_prop, ebx,BIT_MOD_CHE_B
 			insert_nl
 		.no_check:
 		cmp dword[ebx],C_DTT
 		jne @f
 			stdcall insert_text_label_data, ebx,0
 		@@:
 		stdcall dword[tl_node_poi_get_next_info], esi,tree2
-		pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó
+		pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ãé¥¬ã ã§«ã
 		jmp .beg_iterat
 	.find_no:
 	popad
 	ret
 endp
-;äàííûå äëÿ áèáëèîòåê
+;¤ ë¥ ¤«ï ¡¨¡«¨®â¥ª
 align 4
 proc get_code_auto_data_libs_param
 	pushad
-	insert_nl ;îòñòóï äëÿ ôîðìàòèðîâàíèÿ
+	insert_nl ;®âáâã¯ ¤«ï ä®à¬ â¨à®¢ ¨ï
 	stdcall dword[tl_node_poi_get_info], 0,tree2
 	pop esi
 	.beg_iterat:
 			insert_nl
 		@@:
 		stdcall dword[tl_node_poi_get_next_info], esi,tree2
-		pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó
+		pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ãé¥¬ã ã§«ã
 		jmp .beg_iterat
 	.find_no:
 	popad
 	ret
 endp
-;äàííûå äëÿ áèáëèîòåê
+;¤ ë¥ ¤«ï ¡¨¡«¨®â¥ª
 align 4
 proc get_code_auto_data_libs_struc
 	pushad
-	;insert_nl ;îòñòóï äëÿ ôîðìàòèðîâàíèÿ
+	;insert_nl ;®âáâã¯ ¤«ï ä®à¬ â¨à®¢ ¨ï
 	stdcall dword[tl_node_poi_get_info], 0,tree2
 	pop esi
 	.beg_iterat:
 		cmp esi,0
 		je .find_no
 			insert_nl
 		@@:
 		stdcall dword[tl_node_poi_get_next_info], esi,tree2
-		pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó
+		pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ãé¥¬ã ã§«ã
 		jmp .beg_iterat
 	.find_no:
 	popad
 	ret
 endp
-;äàííûå äëÿ áèáëèîòåê
+;¤ ë¥ ¤«ï ¡¨¡«¨®â¥ª
 align 4
 proc get_code_auto_data_libs
 	pushad
-	insert_nl ;îòñòóï äëÿ ôîðìàòèðîâàíèÿ
+	insert_nl ;®âáâã¯ ¤«ï ä®à¬ â¨à®¢ ¨ï
 	stdcall dword[tl_node_poi_get_info], 0,tree2
 	pop esi
 	.beg_iterat:
 		cmp esi,0
 		je .find_no
 			call get_code_lib_table
 		@@:
 		stdcall dword[tl_node_poi_get_next_info], esi,tree2
-		pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó
+		pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ãé¥¬ã ã§«ã
 		jmp .beg_iterat
 get_code_lib_table:
 pushad
 	mov bl,byte[esi+2]
 	mov edi,esi
 	stdcall dword[tl_node_poi_get_data], esi,tree2
-	pop edx ;ïîëó÷åíèå äàííûõ ðîäèòåëüñêîãî îáúåêòà
+	pop edx ;¯®«ãç¥¨¥ ¤ ëå à®¤¨â¥«ìáª®£® ®¡ê¥ªâ
 	cmp edx,0
 	je @f
 	@@:
 		stdcall dword[tl_node_poi_get_next_info], esi,tree2
-		pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó
+		pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ãé¥¬ã ã§«ã
 		cmp esi,0
 		je @f
 		cmp byte[esi+2],bl ;lev
 		jle @f
 			stdcall dword[tl_node_poi_get_data], esi,tree2
-			pop ecx ;ïîëó÷àåì äàííûå óçëà
+			pop ecx ;¯®«ãç ¥¬ ¤ ë¥ ã§«
 			cmp ecx,0
 			je @f
 			cmp dword[ecx],C_IFN
 			jne @b
-				;âñòàâêà óêàçàòåëÿ íà ôóíêöèþ
+				;¢áâ ¢ª  ãª § â¥«ï   äãªæ¨î
 				test_bool_prop ecx,BIT_MOD_IMPORT_FUNCT_COMMENT
 				jae .no_com_0
 					stdcall insert_text, txt_com
 				.no_com_0:
 				insert_tab
 				stdcall insert_text_prop, ecx,0
 				stdcall insert_text, txt_dd
-				stdcall insert_text_prop, edx,3 ;ïðèñòàâêà ê ôóíêöèè
+				stdcall insert_text_prop, edx,3 ;¯à¨áâ ¢ª  ª äãªæ¨¨
 				stdcall insert_text_prop, ecx,0
 				insert_nl
 			jmp @b
 	@@:
 	stdcall insert_text, txt_dd_0_0
 	mov esi,edi
 	@@:
 		stdcall dword[tl_node_poi_get_next_info], esi,tree2
-		pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó
+		pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ãé¥¬ã ã§«ã
 		cmp esi,0
 		je @f
 		cmp byte[esi+2],bl ;lev
 		jle @f
 			stdcall dword[tl_node_poi_get_data], esi,tree2
-			pop ecx ;ïîëó÷àåì äàííûå óçëà
+			pop ecx ;¯®«ãç ¥¬ ¤ ë¥ ã§«
 			cmp ecx,0
 			je @f
 			cmp dword[ecx],C_IFN
 			jne @b
-				;âñòàâêà èìåíè èìïîðòèðîâàííîé ôóíêöèè
+				;¢áâ ¢ª  ¨¬¥¨ ¨¬¯®àâ¨à®¢ ®© äãªæ¨¨
 				test_bool_prop ecx,BIT_MOD_IMPORT_FUNCT_COMMENT
 				jae .no_com_1
 					stdcall insert_text, txt_com
 				.no_com_1:
 				insert_tab
-				stdcall insert_text_prop, edx,3 ;ïðèñòàâêà ê ôóíêöèè
+				stdcall insert_text_prop, edx,3 ;¯à¨áâ ¢ª  ª äãªæ¨¨
 				stdcall insert_text_prop, ecx,0
 				stdcall insert_text, txt_db
 				stdcall insert_text, txt_str_beg
 				stdcall insert_text_prop, ecx,1
 				stdcall insert_text, txt_str_end
+;
 align 4
 proc get_code_auto_data_dop
 	pushad
-	insert_nl ;îòñòóï äëÿ ôîðìàòèðîâàíèÿ
+	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 ;ïîëó÷àåì äàííûå óçëà
+		pop ebx ;¯®«ãç ¥¬ ¤ ë¥ ã§«
 		cmp ebx,0
 		je .find_no
+		cmp dword[ebx],C_EDB
 		jne @f
-		cmp dword[ebx],C_EDB
+			;1,2,3,4,...,6,...8,...,10 - w,x,y,col_fon,...,col_frame,...,col_txt,...,txt
 		jne @f
-			;1,2,3,4,...,6,...8,...,10 - w,x,y,col_fon,...,col_frame,...,col_txt,...,txt
+			;ä®à¬¨àã¥¬ â¥ªáâ®¢ë¥ ¤ ë¥ ¤«ï editbox-®¢
 				insert_nl
 				jmp @f
-			.no_text: ;ïåðâîíà÷àëüíî òåêñò íå çàäàí
+			.no_text: ;¯¥à¢® ç «ì® â¥ªáâ ¥ § ¤
 				stdcall insert_text, txt_times
 		jne @f
 			stdcall insert_text_label_data, ebx,9
 		@@:
 		stdcall dword[tl_node_poi_get_next_info], esi,tree2
-		pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó
+		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 ;ïîëó÷àåì äàííûå óçëà
+		pop ebx ;¯®«ãç ¥¬ ¤ ë¥ ã§«
 			insert_a_met ;@@:
 			insert_nl
 		@@:
 		stdcall dword[tl_node_poi_get_next_info], esi,tree2
-		pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó
+		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 ;ïîëó÷àåì äàííûå óçëà
+		pop ebx ;¯®«ãç ¥¬ ¤ ë¥ ã§«
 				insert_ret
 			.c_fun:
 		@@:
 		stdcall dword[tl_node_poi_get_next_info], esi,tree2
-		pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó
+		pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ãé¥¬ã ã§«ã
 		jmp .beg_iterat
 	.find_no:
 	pushad
 		insert_nl
 		mov ebx,dword[p_obj]
 		insert_key_beg
-		call get_code_funct_key ;êîäû âûçîâà êíîïîê
+		call get_code_funct_key ;ª®¤ë ¢ë§®¢  ª®¯®ª
 		insert_key_end
 		insert_nl
 	.beg_iterat:
 		cmp esi,0
 		je .find_no
 		stdcall dword[tl_node_poi_get_data], esi,tree2
-		pop ebx ;ïîëó÷àåì äàííûå óçëà
+		pop ebx ;¯®«ãç ¥¬ ¤ ë¥ ã§«
 		cmp ebx,0
 		je .find_no
 			stdcall insert_text_prop,ebx,0
 			insert_nl
 		@@:
 		stdcall dword[tl_node_poi_get_next_info], esi,tree2
-		pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó
+		pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ãé¥¬ã ã§«ã
 		jmp .beg_iterat
 	.find_no:
 	popad
 	ret
 endp
-;îáúåêòû ïîäêëþ÷åíèÿ ôàéëîâ 'include ...'
+;®¡ê¥ªâë ¯®¤ª«îç¥¨ï ä ©«®¢ 'include ...'
 align 4
 proc get_code_incl, p_obj:dword
 		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]
 		stdcall insert_text, txt_i_40
 		insert_nl
 		call get_code_draw_obj
-		stdcall insert_text, txt_draw_we ;êîä çàâåðøàþùèé ôóíêöèþ ðèñîâàíèÿ
+		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
 			insert_tab
 			stdcall insert_text, txt_i_40
 			insert_nl
 		@@:
-		cmp dword[ebx],C_DTT ;ðèñîâàíèå òåêñòà ÷åðåç ñèñò. ô. 4
+		cmp dword[ebx],C_DTT ;à¨á®¢ ¨¥ â¥ªáâ  ç¥à¥§ á¨áâ. ä. 4
 		jne .ob_draw_text
 			insert_tab
 			stdcall insert_text, txt_mov
 			insert_reg txt_eax
 			insert_tab
 			stdcall insert_text, txt_mov
 			insert_reg txt_ecx
 			insert_coma
 			stdcall insert_text_prop, ebx,3
-			test_bool_prop ebx,BIT_MOD_TXT_ASCII_0
-			jnc @f
-				;or ecx,0x80000000 - áèò äëÿ ñòðîêè ASCIIZ
+			stdcall insert_bit_prop, ebx,BIT_MOD_TXT_ASCII_0 ;31 - ¡¨â ¤«ï áâà®ª¨ ASCIIZ
-				stdcall insert_text,txt_plus
-				stdcall insert_text,txt_bit_31
-			@@:
-			test_bool_prop ebx,BIT_MOD_TXT_NO_TRAN
-			jnc @f
-				;or ecx,0x40000000 - áèò äëÿ íå ïðîçðà÷íîãî òåêñòà
+			stdcall insert_bit_prop, ebx,BIT_MOD_TXT_NO_TRAN ;30 - ¡¨â ¤«ï ¥ ¯à®§à ç®£® â¥ªáâ
-				stdcall insert_text,txt_plus
-				stdcall insert_text,txt_bit_30
-			@@:
-			test_bool_prop ebx,BIT_MOD_TXT_CHAR2
-			jnc @f
-				;or ecx,0x40000000 - áèò äëÿ 2-ãî ñèñò. øðèôòà
+			stdcall insert_bit_prop, ebx,BIT_MOD_TXT_CHAR2 ;28 - ¡¨â ¤«ï 2-£® á¨áâ. èà¨äâ
-				stdcall insert_text,txt_plus
-				stdcall insert_text,txt_bit_28
-			@@:
 			insert_nl
 			insert_tab
 			stdcall insert_text, txt_mov
 			jnc @f
 				insert_tab
 				stdcall insert_text, txt_mov
 				insert_reg txt_edi
 				insert_coma
-				stdcall insert_text_prop, ebx,4 ;öâåò ôîíà
+				stdcall insert_text_prop, ebx,4 ;æ¢¥â ä®
 				insert_nl
 			@@:
 			insert_tab
 			stdcall insert_text, txt_i_40
 			insert_nl
 		.ob_draw_text:
 		stdcall dword[tl_node_poi_get_next_info], esi,tree2
-		pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó
+		pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ãé¥¬ã ã§«ã
 		jmp .beg_iterat
 	.find_no:
 	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)
+		je .no_tab ;¨§¡¥£ ¥¬ § æ¨ª«¨¢ ¨ï (0-1 = 2^32-1)
 		and ecx,0xff
 		cld
 		@@:
-			insert_tab ;ôîðìèðîâàíèå îòñòóïà ïåðåä ïåðåìåííîé
+			insert_tab ;ä®à¬¨à®¢ ¨¥ ®âáâã¯  ¯¥à¥¤ ¯¥à¥¬¥®©
 		loop @b
 		.no_tab:
-		stdcall insert_text_prop, ebx,0 ;èìÿ ïåðåìåííîé
+		stdcall insert_text_prop, ebx,0 ;¨¬ï ¯¥à¥¬¥®©
 		insert_sp
-		mov ecx,dword[ebx+u_object.typid-u_object] ;ecx - îòíîñèòåëüíûé èíäåêñ ðîäèòåëüñêîãî îáúåêòà (â ïàìÿòè)
+		mov ecx,dword[ebx+u_object.typid-u_object] ;ecx - ®â®á¨â¥«ìë© ¨¤¥ªá à®¤¨â¥«ìáª®£® ®¡ê¥ªâ  (¢ ¯ ¬ïâ¨)
 		xor eax,eax
 		mov ax,[tree2.info_size]
-		imul ecx,eax ;óìíîæàåì èíäåêñ íà ðàçìåð ñòðóêòóðû
+		imul ecx,eax ;ã¬®¦ ¥¬ ¨¤¥ªá   à §¬¥à áâàãªâãàë
-		add ecx,[tree2.data_info] ;ecx - óêàçàòåëü äàííûå ðîäèòåëüñêîãî óçëà
+		add ecx,[tree2.data_info] ;ecx - ãª § â¥«ì ¤ ë¥ à®¤¨â¥«ìáª®£® ã§«
-		;ïðîâåðêó íà ïðàâèëüíîñòü ecx ???
+		;¯à®¢¥àªã   ¯à ¢¨«ì®áâì ecx ???
 	ret
 endp
-;--- òåêñòîâûå êîíñòàíòû ---
+;--- â¥ªáâ®¢ë¥ ª®áâ âë ---
 txt_str_beg db 39,0
 txt_str_end db 39,',0',0
 txt_coma db ',',0
 txt_skob_o db '(',0
 txt_skob_c db ')',0
-txt_skob_fo db '{',0 ;ñêîáêà ôèãóðíàÿ îòêðûâàþùàÿ
+txt_skob_fo db '{',0 ;áª®¡ª  ä¨£ãà ï ®âªàë¢ îé ï
-txt_skob_fc db '}',0 ;ñêîáêà ôèãóðíàÿ çàêðûâàþùàÿ
+txt_skob_fc db '}',0 ;áª®¡ª  ä¨£ãà ï § ªàë¢ îé ï
 txt_i_40 db 'int 0x40',13,0
 txt_0 db '0',0
 txt_err_m_f_lib db 'err_msg_found_lib_',0
 txt_head_l db 'head_f_l',0
 txt_err_m_i_lib db 'err_msg_import_',0
 txt_head_i db 'head_f_i',0
 txt_ll_end db 'l_libs_end:',13,0
-txt_bit_28 db '0x10000000',0
+;txt_bit_28 db '0x10000000',0
 txt_bit_29 db '0x20000000',0
 txt_bit_30 db '0x40000000',0
-txt_bit_31 db '0x80000000',0
+;txt_bit_31 db '0x80000000',0
-txt_bit_che db 'ch_flag_en',0
-txt_bit_che_t db 'ch_flag_top',0
-txt_bit_che_m db 'ch_flag_middle',0
-txt_bit_che_b db 'ch_flag_bottom',0
 txt_0x33000000 db '0x33000000',0 ;tmp
 txt_struc db 'struc',0
 txt_t db 't',0
 txt_met_end db '.end',0
 txt_ends db 'ends',13,13,0
 db 'align 4',13,'key:',13,9,'mcall 2',13
 txt_key_2:
 db 9,'jmp still',13
 txt_key_3:
-;ïîëó÷àåì ïîðÿäêîâûé íîìåð îáúåêòà îòíîñèòåëüíî ïàìÿòè ýëåìåíòà tree2
+;¯®«ãç ¥¬ ¯®àï¤ª®¢ë© ®¬¥à ®¡ê¥ªâ  ®â®á¨â¥«ì® ¯ ¬ïâ¨ í«¥¬¥â  tree2
 ;output:
-; txt_buf - ñòðîêà ñ íîìåðîì îáúåêòà
+; txt_buf - áâà®ª  á ®¬¥à®¬ ®¡ê¥ªâ
 align 4
 proc get_obj_id_str, p_obj:dword, txt_buf:dword
 	push eax ecx edx
 	mov eax,dword[p_obj]
 	stdcall str_cat_value,edx,eax
 	pop edx ecx eax
 	ret
 endp
-;ïîëó÷àåì ïîðÿäêîâûé íîìåð îáúåêòà îòíîñèòåëüíî ïàìÿòè ýëåìåíòà tree2
+;¯®«ãç ¥¬ ¯®àï¤ª®¢ë© ®¬¥à ®¡ê¥ªâ  ®â®á¨â¥«ì® ¯ ¬ïâ¨ í«¥¬¥â  tree2
 ;output:
-; eax - íîìåð îáúåêòà
+; eax - ®¬¥à ®¡ê¥ªâ
 align 4
 proc get_obj_id, p_obj:dword
 	push ecx edx
 	mov eax,dword[p_obj]
 	div ecx
 	pop edx ecx
 	ret
 endp
+;--- â¥ªáâ®¢ë¥ äãªæ¨¨ ---
+;¢ë¡¨à ¥¬ áâà®ªã ¨§ ¬ á¨¢ , ¯® ãª § ®¬ã ¨¤¥ªáã
+;input:
+; str - ãª § â¥«ì   ¬ á¨¢ áâà®ª
+; ind - ¨¤¥ªá ¨áª®¬®© áâà®ª¨
+;output:
+; edi - ãª § â¥«ì    ©¤¥ãî áâà®ªã
+align 4
+proc get_string_by_ind, str:dword, ind:dword
+push eax ebx ecx
+	mov edi,[str]
+	mov ebx,[ind]
+	xor al,al ;0 - á¨¬¢®« ª®æ  áâà®ª¨
+	@@:
+		cmp ebx,0
+		jle @f ;¥á«¨  ©¤¥  áâà®ª  á ãª § ë¬ ¨¤¥ªá®¬
+		xor ecx,ecx
+		dec ecx ;ecx - ç¨á«® ¯à®á¬ âà¨¢ ¥¬ëå ¡ ©â
+		cld
+		repne scasb ;¨é¥¬ ª®¥æ áâà®ª¨ (al=0)
+		cmp byte[edi],0
+		je @f ;¥á«¨ á«¥¤ãîé¥© áâà®ª¨ ¥â ¢ëå®¤ ¨§ æ¨ª«
+		dec ebx
+		jmp @b
+	@@:
+pop ecx ebx eax
+	ret
-;--- òåêñòîâûå ôóíêöèè ---
+endp
 align 4
 proc mem_clear, mem:dword, len:dword
 	popad
 	ret
 align 4
 .str:
-	mov ecx,0x0a ;çàäàåòñÿ ñèñòåìà ñ÷èñëåíèÿ èçìåíÿþòñÿ ðåãèñòðû ebx,eax,ecx,edx âõîäíûå ïàðàìåòðû eax - ÷èñëî
+	mov ecx,0x0a ;§ ¤ ¥âáï á¨áâ¥¬  áç¨á«¥¨ï ¨§¬¥ïîâáï à¥£¨áâàë ebx,eax,ecx,edx ¢å®¤ë¥ ¯ à ¬¥âàë eax - ç¨á«®
-		;ïðåðåâîä ÷èñëà â ASCII ñòðîêó âõîäíûå äàííûå ecx=ñèñòåìà ñ÷èñëåíÿ edi àäðåñ êóäà çàïèñûâàòü, áóäåì ñòðîêó, ïðè÷åì êîíåö ïåðåìåííîé
+		;¯à¥à¥¢®¤ ç¨á«  ¢ ASCII áâà®ªã ¢å®¤ë¥ ¤ ë¥ ecx=á¨áâ¥¬  áç¨á«¥ï edi  ¤à¥á ªã¤  § ¯¨áë¢ âì, ¡ã¤¥¬ áâà®ªã, ¯à¨ç¥¬ ª®¥æ ¯¥à¥¬¥®©
-	cmp eax,ecx  ;ñðàâíèòü åñëè â eax ìåíüøå ÷åì â ecx òî ïåðåéòè íà @@-1 ò.å. íà pop eax
+	cmp eax,ecx  ;áà ¢¨âì ¥á«¨ ¢ eax ¬¥ìè¥ ç¥¬ ¢ ecx â® ¯¥à¥©â¨   @@-1 â.¥.   pop eax
 	jb @f
-		xor edx,edx ;î÷èñòèòü edx
+		xor edx,edx ;®ç¨áâ¨âì edx
-		div ecx     ;ðàçäåëèòü - îñòàòîê â edx
+		div ecx     ;à §¤¥«¨âì - ®áâ â®ª ¢ edx
-		push edx    ;ïîëîæèòü â ñòåê
+		push edx    ;¯®«®¦¨âì ¢ áâ¥ª
-		;dec edi    ;ñìåùåíèå íåîáõîäèìîå äëÿ çàïèñè ñ êîíöà ñòðîêè
+		;dec edi    ;á¬¥é¥¨¥ ¥®¡å®¤¨¬®¥ ¤«ï § ¯¨á¨ á ª®æ  áâà®ª¨
-		call .str   ;ïåðåéòè íà ñàìó ñåáÿ ò.å. âûçâàòü ñàìó ñåáÿ è òàê äî òîãî ìîìåíòà ïîêà â eax íå ñòàíåò ìåíüøå ÷åì â ecx
+		call .str   ;¯¥à¥©â¨   á ¬ã á¥¡ï â.¥. ¢ë§¢ âì á ¬ã á¥¡ï ¨ â ª ¤® â®£® ¬®¬¥â  ¯®ª  ¢ eax ¥ áâ ¥â ¬¥ìè¥ ç¥¬ ¢ ecx
 		pop eax
-	@@: ;cmp al,10 ;ïðîâåðèòü íå ìåíüøå ëè çíà÷åíèå â al ÷åì 10 (äëÿ ñèñòåìû ñ÷èñëåíÿ 10 äàííàÿ êîìàíäà - ëèøíàÿ))
+	@@: ;cmp al,10 ;¯à®¢¥à¨âì ¥ ¬¥ìè¥ «¨ § ç¥¨¥ ¢ al ç¥¬ 10 (¤«ï á¨áâ¥¬ë áç¨á«¥ï 10 ¤  ï ª®¬ ¤  - «¨è ï))
-	or al,0x30  ;äàííàÿ êîìàíäà êîðî÷å  ÷åì äâå âûøå
+	or al,0x30  ;¤  ï ª®¬ ¤  ª®à®ç¥  ç¥¬ ¤¢¥ ¢ëè¥
-	stosb	    ;çàïèñàòü ýëåìåíò èç ðåãèñòðà al â ÿ÷åêó ïàìÿòè es:edi
+	stosb	    ;§ ¯¨á âì í«¥¬¥â ¨§ à¥£¨áâà  al ¢ ïç¥ªã ¯ ¬ïâ¨ es:edi
 	ret

Subversion Repositories Kolibri OS

(root)/programs/develop/kol_f_edit/ced_code_g.inc – Rev 1720 → 1727