Subversion Repositories Kolibri OS

Rev

Rev 1698 | Rev 1706 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1698 Rev 1705
Line 249... Line 249...
249 
		@@:
 249 
		@@:
250 
		bt ecx,BIT_MOD_ACD
 250 
		bt ecx,BIT_MOD_ACD
251 
		jae @f
 251 
		jae @f
252 
			call get_code_auto_data_el
 252 
			call get_code_auto_data_el
253 
			call get_code_auto_data_dop
 253 
			call get_code_auto_data_dop
- 
 
 254 
			call get_code_auto_data_libs
254 
		@@:
 255 
		@@:
255 
		insert_nl
 256 
		insert_nl
256 
	popad
 257 
	popad
257 
	ret
 258 
	ret
258 
endp
 259 
endp
Line 318... Line 319...
318 
		je .find_no
 319 
		je .find_no
Line 319... Line 320...
319 
 
 320 
 
320 
		cmp byte[ebx],C_ED
 321 
		cmp byte[ebx],C_ED
321 
		jne @f
 322 
		jne @f
322 
			;1,2,3,4,...,6,...8,...,10 - w,x,y,col_fon,...,col_frame,...,col_txt,...,txt
 323 
			;1,2,3,4,...,6,...8,...,10 - w,x,y,col_fon,...,col_frame,...,col_txt,...,txt
323 
			stdcall get_obj_text_col,ebx,0
 - 
 
324 
			stdcall str_len,edx
 - 
 
325 
			stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor
 324 
			stdcall insert_text_prop, ebx,0
Line 326... Line 325...
326 
			stdcall insert_text, txt_ebox
 325 
			stdcall insert_text, txt_ebox
327 
 
 326 
 
328 
			mov ecx,1
 327 
			mov ecx,1
329 
			.prop:
 328 
			.prop:
330 
				insert_sp
 - 
 
331 
				stdcall get_obj_text_col,ebx,ecx
 - 
 
332 
				stdcall str_len,edx
 329 
				insert_sp
333 
				stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor
 330 
				stdcall insert_text_prop, ebx,ecx
334 
				insert_coma
 331 
				insert_coma
335 
				inc ecx
 332 
				inc ecx
Line 361... Line 358...
361 
	.find_no:
 358 
	.find_no:
362 
	popad
 359 
	popad
363 
	ret
 360 
	ret
364 
endp
 361 
endp
Line -... Line 362...
- 
 
 362 
 
- 
 
 363 
;äàííûå äëÿ áèáëèîòåê
- 
 
 364 
align 4
- 
 
 365 
proc get_code_auto_data_libs
- 
 
 366 
	pushad
- 
 
 367 
	insert_nl ;îòñòóï äëÿ ôîðìàòèðîâàíèÿ
- 
 
 368 
 
- 
 
 369 
	stdcall dword[tl_node_poi_get_info], 0,tree2
- 
 
 370 
	pop esi
- 
 
 371 
	.beg_iterat:
- 
 
 372 
		cmp esi,0
- 
 
 373 
		je .find_no
- 
 
 374 
 
- 
 
 375 
		stdcall dword[tl_node_poi_get_data], esi,tree2
- 
 
 376 
		pop ebx ;ïîëó÷àåì äàííûå óçëà
- 
 
 377 
		cmp ebx,0
- 
 
 378 
		je .find_no
- 
 
 379 
 
- 
 
 380 
		cmp byte[ebx],C_LIB
- 
 
 381 
		jne @f
- 
 
 382 
			;0,1,2,3,4,5 - l_nam,s_dir,i_met,...
- 
 
 383 
			stdcall insert_text, txt_align_4
- 
 
 384 
			stdcall insert_text_prop, ebx,2
- 
 
 385 
			stdcall insert_text, txt_d_poi
- 
 
 386 
			insert_nl
- 
 
 387 
 
- 
 
 388 
			call get_code_lib_table
- 
 
 389 
		@@:
- 
 
 390 
 
- 
 
 391 
		stdcall dword[tl_node_poi_get_next_info], esi,tree2
- 
 
 392 
		pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó
- 
 
 393 
 
- 
 
 394 
		jmp .beg_iterat
- 
 
 395 
	.find_no:
- 
 
 396 
	popad
- 
 
 397 
	ret
- 
 
 398 
endp
- 
 
 399 
 
- 
 
 400 
;input:
- 
 
 401 
; esi
- 
 
 402 
align 4
- 
 
 403 
get_code_lib_table:
- 
 
 404 
pushad
- 
 
 405 
	mov bl,byte[esi+2]
- 
 
 406 
	mov edi,esi
- 
 
 407 
	stdcall dword[tl_node_poi_get_data], esi,tree2
- 
 
 408 
	pop edx ;ïîëó÷åíèå äàííûõ ðîäèòåëüñêîãî îáúåêòà
- 
 
 409 
	cmp edx,0
- 
 
 410 
	je @f
- 
 
 411 
	@@:
- 
 
 412 
		stdcall dword[tl_node_poi_get_next_info], esi,tree2
- 
 
 413 
		pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó
- 
 
 414 
		cmp esi,0
- 
 
 415 
		je @f
- 
 
 416 
		cmp byte[esi+2],bl ;lev
- 
 
 417 
		jle @f
- 
 
 418 
			stdcall dword[tl_node_poi_get_data], esi,tree2
- 
 
 419 
			pop ecx ;ïîëó÷àåì äàííûå óçëà
- 
 
 420 
			cmp ecx,0
- 
 
 421 
			je @f
- 
 
 422 
			cmp byte[ecx],C_IFN
- 
 
 423 
			jne @b
- 
 
 424 
				;âñòàâêà óêàçàòåëÿ íà ôóíêöèþ
- 
 
 425 
				insert_tab
- 
 
 426 
				stdcall insert_text_prop, ecx,0
- 
 
 427 
				stdcall insert_text, txt_dd
- 
 
 428 
				stdcall insert_text_prop, edx,3 ;ïðèñòàâêà ê ôóíêöèè
- 
 
 429 
				stdcall insert_text_prop, ecx,0
- 
 
 430 
				insert_nl
- 
 
 431 
			jmp @b
- 
 
 432 
	@@:
- 
 
 433 
	stdcall insert_text, txt_dd_0_0
- 
 
 434 
	mov esi,edi
- 
 
 435 
	@@:
- 
 
 436 
		stdcall dword[tl_node_poi_get_next_info], esi,tree2
- 
 
 437 
		pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó
- 
 
 438 
		cmp esi,0
- 
 
 439 
		je @f
- 
 
 440 
		cmp byte[esi+2],bl ;lev
- 
 
 441 
		jle @f
- 
 
 442 
			stdcall dword[tl_node_poi_get_data], esi,tree2
- 
 
 443 
			pop ecx ;ïîëó÷àåì äàííûå óçëà
- 
 
 444 
			cmp ecx,0
- 
 
 445 
			je @f
- 
 
 446 
			cmp byte[ecx],C_IFN
- 
 
 447 
			jne @b
- 
 
 448 
				;âñòàâêà èìåíè èìïîðòèðîâàííîé ôóíêöèè
- 
 
 449 
				insert_tab
- 
 
 450 
				stdcall insert_text_prop, edx,3 ;ïðèñòàâêà ê ôóíêöèè
- 
 
 451 
				stdcall insert_text_prop, ecx,0
- 
 
 452 
				stdcall insert_text, txt_db
- 
 
 453 
				stdcall insert_text, txt_str_beg
- 
 
 454 
				stdcall insert_text_prop, ecx,1
- 
 
 455 
				stdcall insert_text, txt_str_end
- 
 
 456 
				insert_nl
- 
 
 457 
			jmp @b
- 
 
 458 
	@@:
- 
 
 459 
popad
- 
 
 460 
	ret
365 
 
 461 
 
366 
;
 462 
;
367 
align 4
 463 
align 4
368 
proc get_code_auto_data_dop
 464 
proc get_code_auto_data_dop
369 
	pushad
 465 
	pushad
Line 624... Line 720...
624 
		insert_coma
 720 
		insert_coma
625 
		stdcall insert_text_prop, ebx,6
 721 
		stdcall insert_text_prop, ebx,6
626 
		insert_nl
 722 
		insert_nl
Line 627... Line 723...
627 
 
 723 
 
- 
 
 724 
		;or edx,0x33000000
628 
		;or edx,0x33000000
 725 
		insert_tab
629 
		stdcall insert_text, txt_or
 726 
		stdcall insert_text, txt_or
630 
		insert_reg txt_edx
 727 
		insert_reg txt_edx
631 
		insert_coma
 728 
		insert_coma
632 
		stdcall insert_text, txt_0x33000000
 729 
		stdcall insert_text, txt_0x33000000
Line 640... Line 737...
640 
		stdcall insert_text_prop, ebx,0
 737 
		stdcall insert_text_prop, ebx,0
641 
		insert_nl
 738 
		insert_nl
Line 642... Line 739...
642 
 
 739 
 
643 
		insert_tab
 740 
		insert_tab
- 
 
 741 
		stdcall insert_text, txt_i_40
Line 644... Line 742...
644 
		stdcall insert_text, txt_i_40
 742 
		insert_nl
Line 645... Line 743...
645 
 
 743 
 
646 
		call get_code_draw_obj
 744 
		call get_code_draw_obj
647 
 
 745 
 
648 
		stdcall insert_text, txt_draw_we
 746 
		stdcall insert_text, txt_draw_we ;êîä çàâåðøàþùèé ôóíêöèþ ðèñîâàíèÿ
Line 786... Line 884...
786 
	pushad
 884 
	pushad
787 
		mov ebx,dword[p_obj]
 885 
		mov ebx,dword[p_obj]
788 
		;0 - name
 886 
		;0 - name
Line 789... Line 887...
789 
 
 887 
 
790 
		stdcall [ted_text_add], tedit0,txt_struct,7,ted_opt_ed_move_cursor
 888 
		stdcall [ted_text_add], tedit0,txt_struct,7,ted_opt_ed_move_cursor
791 
		stdcall get_obj_text_col,ebx,0
 - 
 
792 
		stdcall str_len,edx
 - 
 
793 
		stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor
 889 
		stdcall insert_text_prop, ebx,0
Line 794... Line 890...
794 
		insert_nl
 890 
		insert_nl
795 
 
 891 
 
796 
	popad
 892 
	popad
Line 812... Line 908...
812 
		@@:
 908 
		@@:
813 
			insert_tab ;ôîðìèðîâàíèå îòñòóïà ïåðåä ïåðåìåííîé
 909 
			insert_tab ;ôîðìèðîâàíèå îòñòóïà ïåðåä ïåðåìåííîé
814 
		loop @b
 910 
		loop @b
815 
		.no_tab:
 911 
		.no_tab:
Line 816... Line -...
816 
 
 - 
 
817 
		stdcall get_obj_text_col,ebx,0
 - 
 
818 
		stdcall str_len,edx
 912 
 
819 
		stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor
 913 
		stdcall insert_text_prop, ebx,0 ;èìÿ ïåðåìåííîé
Line 820... Line 914...
820 
		insert_sp
 914 
		insert_sp
821 
 
 915 
 
822 
		mov ecx,dword[ebx+u_object.typid-u_object] ;ecx - îòíîñèòåëüíûé èíäåêñ ðîäèòåëüñêîãî îáúåêòà (â ïàìÿòè)
 916 
		mov ecx,dword[ebx+u_object.typid-u_object] ;ecx - îòíîñèòåëüíûé èíäåêñ ðîäèòåëüñêîãî îáúåêòà (â ïàìÿòè)
823 
		xor eax,eax
 917 
		xor eax,eax
824 
		mov ax,[tree2.info_size]
 918 
		mov ax,[tree2.info_size]
Line 825... Line 919...
825 
		imul ecx,eax ;óìíîæàåì èíäåêñ íà ðàçìåð ñòðóêòóðû
 919 
		imul ecx,eax ;óìíîæàåì èíäåêñ íà ðàçìåð ñòðóêòóðû
Line 826... Line -...
826 
		add ecx,[tree2.data_info] ;ecx - óêàçàòåëü äàííûå ðîäèòåëüñêîãî óçëà
 - 
 
827 
 
 - 
 
828 
		;ïðîâåðêó íà ïðàâèëüíîñòü ecx ???
 920 
		add ecx,[tree2.data_info] ;ecx - óêàçàòåëü äàííûå ðîäèòåëüñêîãî óçëà
829 
 
 921 
 
- 
 
 922 
		;ïðîâåðêó íà ïðàâèëüíîñòü ecx ???
Line 830... Line -...
830 
		stdcall get_obj_text_col,ecx,0
 - 
 
831 
		stdcall str_len,edx
 - 
 
832 
		stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor
 - 
 
833 
		insert_sp
 - 
 
834 
 
 923 
 
835 
		stdcall get_obj_text_col,ebx,1
 924 
		stdcall insert_text_prop, ecx,0 ;òèï ïåðåìåííîé
836 
		stdcall str_len,edx
 925 
		insert_sp
837 
		stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor
 926 
		stdcall insert_text_prop, ebx,1 ;çíà÷åíèå
838 
 
 927 
 
839 
		stdcall get_obj_text_col,ebx,2
 928 
		stdcall get_obj_text_col,ebx,2 ;êîììåíòàðèé
Line 851... Line 940...
851 
endp
 940 
endp
Line 852... Line 941...
852 
 
 941 
 
- 
 
 942 
 
- 
 
 943 
 
853 
 
 944 
;--- òåêñòîâûå êîíñòàíòû ---
854 
 
 945 
txt_str_beg db 39,0
855 
;--- òåêñòîâûå êîíñòàíòû ---
 946 
txt_str_end db 39,',0',0
856 
txt_coma db ',',0
 947 
txt_coma db ',',0
857 
txt_i_40 db 'int 0x40',13,0
 948 
txt_i_40 db 'int 0x40',13,0
Line 865... Line 956...
865 
txt_nl db 13,0
 956 
txt_nl db 13,0
866 
txt_com db ';',0
 957 
txt_com db ';',0
867 
txt_sp db ' ',0
 958 
txt_sp db ' ',0
868 
txt_tab db 9,0
 959 
txt_tab db 9,0
869 
txt_br db '\',13,9,0
 960 
txt_br db '\',13,9,0
870 
txt_txt:
 - 
 
871 
	db 'txt_',0
 961 
txt_txt db 'txt_',0
872 
txt_db:
 962 
txt_db db ' db ',0
873 
	db ' db ',0
 963 
txt_dd db ' dd ',0
874 
txt_mouse_dd:
 964 
txt_dd_0_0 db 9,'dd 0,0',13,0
875 
	db ', mouse_dd, ',0
 965 
txt_mouse_dd db ', mouse_dd, ',0
876 
txt_times:
 - 
 
877 
	db ':',13,9,'times ',0
 966 
txt_times db ':',13,9,'times ',0
878 
txt_draw_wb:
 967 
txt_draw_wb:
879 
	db 13,'align 4',13,'draw_window:',13,'pushad',13,9,'mcall 12,1',13,0
 968 
	db 13,'align 4',13,'draw_window:',13,'pushad',13,9,'mcall 12,1',13,0
880 
txt_draw_we:
 969 
txt_draw_we:
881 
	db 9,'mcall 12,2',13,'popad',13,9,'ret',13,0
 970 
	db 9,'mcall 12,2',13,'popad',13,9,'ret',13,0
882 
txt_but_create db '0x40000000',0 ;tmp
 971 
txt_but_create db '0x40000000',0 ;tmp
Line 908... Line 997...
908 
txt_std_key_ed:
 997 
txt_std_key_ed:
909 
	db 9,'stdcall [edit_box_key], ',0
 998 
	db 9,'stdcall [edit_box_key], ',0
910 
txt_incl:
 999 
txt_incl:
911 
	db 'include ',0
 1000 
	db 'include ',0
912 
txt_ebox:
 1001 
txt_ebox:
913 
	db ' edit_box'
 1002 
	db ' edit_box',0
914 
	.end: db 0
 - 
 
915 
txt_editb_draw:
 1003 
txt_editb_draw:
916 
	db 9,'stdcall [edit_box_draw], ',0
 1004 
	db 9,'stdcall [edit_box_draw], ',0
917 
txt_cbox_draw:
 1005 
txt_cbox_draw:
918 
	db 9,'stdcall [check_box_draw], ',0
 1006 
	db 9,'stdcall [check_box_draw], ',0