Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 5916 → Rev 5917

/programs/develop/kol_f_edit/ced_code_g.inc
176,8 → 176,8
code_gen:
stdcall [ted_clear], tedit0,1
pushad
stdcall dword[tl_node_poi_get_info], 0,tree2
pop esi
stdcall dword[tl_node_poi_get_info], tree2,0
mov esi,eax
xor bl,bl
call code_gen_obj
stdcall [ted_text_add], tedit0,\
199,8 → 199,7
cmp byte[esi+2],bl ;lev
jl .find_no
 
stdcall dword[tl_node_poi_get_data], esi,tree2
pop eax ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
stdcall dword[tl_node_poi_get_data], tree2,esi
cmp eax,0
je .find_no
 
263,8 → 262,8
stdcall get_code_key,eax ;®¡à ¡®âª  ®¡ê¥ªâ 
@@:
 
stdcall dword[tl_node_poi_get_next_info], esi,tree2
pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
stdcall dword[tl_node_poi_get_next_info], tree2,esi
mov esi,eax ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
 
jmp .beg_iterat
.find_no:
273,21 → 272,19
 
;¢§ïâì ª®¤ë ¤®ç¥à­¨å ®¡ê¥ªâ®¢
align 4
proc get_code_children_objects, p_node:dword
push ebx esi
proc get_code_children_objects uses eax ebx esi, p_node:dword
mov esi,[p_node]
mov bl,byte[esi+2] ;á®å࠭塞 ã஢¥­ì ⥪ã饣® ®¡ê¥ªâ 
 
stdcall dword[tl_node_poi_get_next_info], esi,tree2
pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
cmp esi,0 ;¥á«¨ ¤®á⨣«¨ ª®­æ  ᯨ᪠ ®¡ê¥ªâ®¢
stdcall dword[tl_node_poi_get_next_info], tree2,esi
cmp eax,0 ;¥á«¨ ¤®á⨣«¨ ª®­æ  ᯨ᪠ ®¡ê¥ªâ®¢
je @f
cmp byte[esi+2],bl ;¥á«¨ ã஢¥­ì á«¥¤ãî饣® ®¡ê¥ªâ  ¡®«ìè¥ ¨«¨ à ¢¥­ ⥪ã饬ã
cmp byte[eax+2],bl ;¥á«¨ ã஢¥­ì á«¥¤ãî饣® ®¡ê¥ªâ  ¡®«ìè¥ ¨«¨ à ¢¥­ ⥪ã饬ã
jle @f ;â® ¤®ç¥à­¨å 㧫®¢ ­¥â
mov esi,eax
mov bl,byte[esi+2]
call code_gen_obj ;४ãàᨢ­ë© ¢ë§®¢ ¤®ç¥à­¨å ®¡ê¥ªâ®¢
@@:
pop esi ebx
ret
endp
 
301,8 → 298,7
push eax ebx
mov bl,byte[esi+2] ;á®å࠭塞 ã஢¥­ì ⥪ã饣® ®¡ê¥ªâ 
@@:
stdcall dword[tl_node_poi_get_next_info], esi,tree2
pop eax ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
stdcall dword[tl_node_poi_get_next_info], tree2,esi
cmp eax,0 ;¥á«¨ ¤®á⨣«¨ ª®­æ  ᯨ᪠ ®¡ê¥ªâ®¢
je @f
cmp byte[eax+2],bl ;¥á«¨ ã஢¥­ì á«¥¤ãî饣® ®¡ê¥ªâ  ¡®«ìè¥ ¨«¨ à ¢¥­ ⥪ã饬ã
330,8 → 326,8
pushad
insert_nl
mov esi,dword[p_node]
stdcall dword[tl_node_poi_get_data], esi,tree2
pop ebx ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
stdcall dword[tl_node_poi_get_data], tree2,esi
mov ebx,eax ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
 
test_bool_prop ebx,BIT_MOD_ACI
jae @f
402,16 → 398,16
align 4
proc get_code_auto_m
pushad
stdcall dword[tl_node_poi_get_info], 0,tree2
pop esi
stdcall dword[tl_node_poi_get_info], tree2,0
mov esi,eax
.beg_iterat:
cmp esi,0
je .find_no
 
stdcall dword[tl_node_poi_get_data], esi,tree2
pop ebx ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
cmp ebx,0
stdcall dword[tl_node_poi_get_data], tree2,esi
cmp eax,0
je .find_no
mov ebx,eax ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
 
cmp dword[ebx],C_EDB
jne @f
426,8 → 422,8
insert_nl
@@:
 
stdcall dword[tl_node_poi_get_next_info], esi,tree2
pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
stdcall dword[tl_node_poi_get_next_info], tree2,esi
mov esi,eax ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
 
jmp .beg_iterat
.find_no:
441,16 → 437,16
pushad
insert_nl ;®âáâ㯠¤«ï ä®à¬ â¨à®¢ ­¨ï
 
stdcall dword[tl_node_poi_get_info], 0,tree2
pop esi
stdcall dword[tl_node_poi_get_info], tree2,0
mov esi,eax
.beg_iterat:
cmp esi,0
je .find_no
 
stdcall dword[tl_node_poi_get_data], esi,tree2
pop ebx ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
cmp ebx,0
stdcall dword[tl_node_poi_get_data], tree2,esi
cmp eax,0
je .find_no
mov ebx,eax ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
 
cmp dword[ebx],C_EDB
jne @f
513,8 → 509,8
stdcall insert_text_label_data, ebx,0
@@:
 
stdcall dword[tl_node_poi_get_next_info], esi,tree2
pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
stdcall dword[tl_node_poi_get_next_info], tree2,esi
mov esi,eax ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
 
jmp .beg_iterat
.find_no:
527,16 → 523,16
pushad
insert_nl ;®âáâ㯠¤«ï ä®à¬ â¨à®¢ ­¨ï
 
stdcall dword[tl_node_poi_get_info], 0,tree2
pop esi
stdcall dword[tl_node_poi_get_info], tree2,0
mov esi,eax
.beg_iterat:
cmp esi,0
je .find_no
 
stdcall dword[tl_node_poi_get_data], esi,tree2
pop ebx ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
cmp ebx,0
stdcall dword[tl_node_poi_get_data], tree2,esi
cmp eax,0
je .find_no
mov ebx,eax ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
 
cmp dword[ebx],C_CHB
jne .no_check
583,8 → 579,8
stdcall insert_text_label_data, ebx,0
@@:
 
stdcall dword[tl_node_poi_get_next_info], esi,tree2
pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
stdcall dword[tl_node_poi_get_next_info], tree2,esi
mov esi,eax ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
 
jmp .beg_iterat
.find_no:
598,16 → 594,16
pushad
insert_nl ;®âáâ㯠¤«ï ä®à¬ â¨à®¢ ­¨ï
 
stdcall dword[tl_node_poi_get_info], 0,tree2
pop esi
stdcall dword[tl_node_poi_get_info], tree2,0
mov esi,eax
.beg_iterat:
cmp esi,0
je .find_no
 
stdcall dword[tl_node_poi_get_data], esi,tree2
pop ebx ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
cmp ebx,0
stdcall dword[tl_node_poi_get_data], tree2,esi
cmp eax,0
je .find_no
mov ebx,eax ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
 
cmp dword[ebx],C_LIB
jne @f
651,9 → 647,8
insert_nl
@@:
 
stdcall dword[tl_node_poi_get_next_info], esi,tree2
pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
 
stdcall dword[tl_node_poi_get_next_info], tree2,esi
mov esi,eax ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
jmp .beg_iterat
.find_no:
popad
666,17 → 661,16
pushad
;insert_nl ;®âáâ㯠¤«ï ä®à¬ â¨à®¢ ­¨ï
 
stdcall dword[tl_node_poi_get_info], 0,tree2
pop esi
stdcall dword[tl_node_poi_get_info], tree2,0
mov esi,eax
.beg_iterat:
cmp esi,0
je .find_no
 
stdcall dword[tl_node_poi_get_data], esi,tree2
pop ebx ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
cmp ebx,0
stdcall dword[tl_node_poi_get_data], tree2,esi
cmp eax,0
je .find_no
 
mov ebx,eax ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
cmp dword[ebx],C_LIB
jne @f
;0,1,2,3,4,5 - l_nam,s_dir,i_met,...
717,8 → 711,8
insert_nl
@@:
 
stdcall dword[tl_node_poi_get_next_info], esi,tree2
pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
stdcall dword[tl_node_poi_get_next_info], tree2,esi
mov esi,eax ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
 
jmp .beg_iterat
.find_no:
732,17 → 726,16
pushad
insert_nl ;®âáâ㯠¤«ï ä®à¬ â¨à®¢ ­¨ï
 
stdcall dword[tl_node_poi_get_info], 0,tree2
pop esi
stdcall dword[tl_node_poi_get_info], tree2,0
mov esi,eax
.beg_iterat:
cmp esi,0
je .find_no
 
stdcall dword[tl_node_poi_get_data], esi,tree2
pop ebx ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
cmp ebx,0
stdcall dword[tl_node_poi_get_data], tree2,esi
cmp eax,0
je .find_no
 
mov ebx,eax ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
cmp dword[ebx],C_LIB
jne @f
;0,1,2,3,4,5 - l_nam,s_dir,i_met,...
754,8 → 747,8
call get_code_lib_table
@@:
 
stdcall dword[tl_node_poi_get_next_info], esi,tree2
pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
stdcall dword[tl_node_poi_get_next_info], tree2,esi
mov esi,eax ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
 
jmp .beg_iterat
.find_no:
770,23 → 763,23
pushad
mov bl,byte[esi+2]
mov edi,esi
stdcall dword[tl_node_poi_get_data], esi,tree2
pop edx ;¯®«ã祭¨¥ ¤ ­­ëå த¨â¥«ì᪮£® ®¡ê¥ªâ 
cmp edx,0
stdcall dword[tl_node_poi_get_data], tree2,esi
mov edx,eax ;¯®«ã祭¨¥ ¤ ­­ëå த¨â¥«ì᪮£® ®¡ê¥ªâ 
cmp eax,0
je @f
@@:
stdcall dword[tl_node_poi_get_next_info], esi,tree2
pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
stdcall dword[tl_node_poi_get_next_info], tree2,esi
mov esi,eax ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
cmp esi,0
je @f
cmp byte[esi+2],bl ;lev
jle @f
stdcall dword[tl_node_poi_get_data], esi,tree2
pop ecx ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
cmp ecx,0
stdcall dword[tl_node_poi_get_data], tree2,esi
cmp eax,0
je @f
cmp dword[ecx],C_IFN
cmp dword[eax],C_IFN
jne @b
mov ecx,eax ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
;¢áâ ¢ª  㪠§ â¥«ï ­  äã­ªæ¨î
test_bool_prop ecx,BIT_MOD_IMPORT_FUNCT_COMMENT
jae .no_com_0
803,18 → 796,18
stdcall insert_text, txt_dd_0_0
mov esi,edi
@@:
stdcall dword[tl_node_poi_get_next_info], esi,tree2
pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
stdcall dword[tl_node_poi_get_next_info], tree2,esi
mov esi,eax ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
cmp esi,0
je @f
cmp byte[esi+2],bl ;lev
jle @f
stdcall dword[tl_node_poi_get_data], esi,tree2
pop ecx ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
cmp ecx,0
stdcall dword[tl_node_poi_get_data], tree2,esi
cmp eax,0
je @f
cmp dword[ecx],C_IFN
cmp dword[eax],C_IFN
jne @b
mov ecx,eax ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
;¢áâ ¢ª  ¨¬¥­¨ ¨¬¯®àâ¨à®¢ ­­®© ä㭪樨
test_bool_prop ecx,BIT_MOD_IMPORT_FUNCT_COMMENT
jae .no_com_1
839,16 → 832,16
pushad
insert_nl ;®âáâ㯠¤«ï ä®à¬ â¨à®¢ ­¨ï
 
stdcall dword[tl_node_poi_get_info], 0,tree2
pop esi
stdcall dword[tl_node_poi_get_info], tree2,0
mov esi,eax
.beg_iterat:
cmp esi,0
je .find_no
 
stdcall dword[tl_node_poi_get_data], esi,tree2
pop ebx ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
cmp ebx,0
stdcall dword[tl_node_poi_get_data], tree2,esi
cmp eax,0
je .find_no
mov ebx,eax ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
 
cmp dword[ebx],C_EDB
jne @f
907,10 → 900,9
jne @f
stdcall insert_text_label_data, ebx,9
@@:
stdcall dword[tl_node_poi_get_next_info], tree2,esi
mov esi,eax ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
 
stdcall dword[tl_node_poi_get_next_info], esi,tree2
pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
 
jmp .beg_iterat
.find_no:
popad
921,16 → 913,16
align 4
proc get_code_auto_but
pushad
stdcall dword[tl_node_poi_get_info], 0,tree2
pop esi
stdcall dword[tl_node_poi_get_info], tree2,0
mov esi,eax
.beg_iterat:
cmp esi,0
je .find_no
 
stdcall dword[tl_node_poi_get_data], esi,tree2
pop ebx ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
cmp ebx,0
stdcall dword[tl_node_poi_get_data], tree2,esi
cmp eax,0
je .find_no
mov ebx,eax ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
 
cmp dword[ebx],C_BUT
jne @f
960,8 → 952,8
insert_nl
@@:
 
stdcall dword[tl_node_poi_get_next_info], esi,tree2
pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
stdcall dword[tl_node_poi_get_next_info], tree2,esi
mov esi,eax ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
 
jmp .beg_iterat
.find_no:
973,16 → 965,16
align 4
proc get_code_a_but_fun
pushad
stdcall dword[tl_node_poi_get_info], 0,tree2
pop esi
stdcall dword[tl_node_poi_get_info], tree2,0
mov esi,eax
.beg_iterat:
cmp esi,0
je .find_no
 
stdcall dword[tl_node_poi_get_data], esi,tree2
pop ebx ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
cmp ebx,0
stdcall dword[tl_node_poi_get_data], tree2,esi
cmp eax,0
je .find_no
mov ebx,eax ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
 
cmp dword[ebx],C_BUT
jne @f
1000,8 → 992,8
.c_fun:
@@:
 
stdcall dword[tl_node_poi_get_next_info], esi,tree2
pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
stdcall dword[tl_node_poi_get_next_info], tree2,esi
mov esi,eax ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
 
jmp .beg_iterat
.find_no:
1027,17 → 1019,17
align 4
proc get_code_funct_key
pushad
stdcall dword[tl_node_poi_get_info], 0,tree2
pop esi
stdcall dword[tl_node_poi_get_info], tree2,0
mov esi,eax
.beg_iterat:
cmp esi,0
je .find_no
 
stdcall dword[tl_node_poi_get_data], esi,tree2
pop ebx ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
cmp ebx,0
stdcall dword[tl_node_poi_get_data], tree2,esi
cmp eax,0
je .find_no
 
mov ebx,eax ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
cmp dword[ebx],C_EDB
jne @f
stdcall insert_text, txt_std_key_ed
1045,8 → 1037,8
insert_nl
@@:
 
stdcall dword[tl_node_poi_get_next_info], esi,tree2
pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
stdcall dword[tl_node_poi_get_next_info], tree2,esi
mov esi,eax ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
 
jmp .beg_iterat
.find_no:
1153,16 → 1145,16
align 4
proc get_code_draw_obj
pushad
stdcall dword[tl_node_poi_get_info], 0,tree2
pop esi
stdcall dword[tl_node_poi_get_info], tree2,0
mov esi,eax
.beg_iterat:
cmp esi,0
je .find_no
 
stdcall dword[tl_node_poi_get_data], esi,tree2
pop ebx ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
cmp ebx,0
stdcall dword[tl_node_poi_get_data], tree2,esi
cmp eax,0
je .find_no
mov ebx,eax ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
 
cmp dword[ebx],C_EDB
jne @f
1314,8 → 1306,8
insert_nl
.ob_draw_text:
 
stdcall dword[tl_node_poi_get_next_info], esi,tree2
pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
stdcall dword[tl_node_poi_get_next_info], tree2,esi
mov esi,eax ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã
 
jmp .beg_iterat
.find_no: