Rev 1705 | Rev 1711 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 1705 | Rev 1706 | ||
---|---|---|---|
Line 226... | Line 226... | ||
226 | insert_nl |
226 | insert_nl |
227 | popad |
227 | popad |
228 | ret |
228 | ret |
229 | endp |
229 | endp |
Line -... | Line 230... | ||
- | 230 | ||
230 | 231 | ;îáðàáîòêà îáúåêòà ñîçäàþùåãî àâòîìàòè÷åêñèå êîäû |
|
231 | align 4 |
232 | align 4 |
232 | proc get_code_auto, p_obj:dword |
233 | proc get_code_auto, p_obj:dword |
233 | pushad |
234 | pushad |
234 | insert_nl |
235 | insert_nl |
Line 249... | Line 250... | ||
249 | @@: |
250 | @@: |
250 | bt ecx,BIT_MOD_ACD |
251 | bt ecx,BIT_MOD_ACD |
251 | jae @f |
252 | jae @f |
252 | call get_code_auto_data_el |
253 | call get_code_auto_data_el |
253 | call get_code_auto_data_dop |
254 | call get_code_auto_data_dop |
- | 255 | ||
- | 256 | xor edx,edx |
|
- | 257 | mov dl,C_LIB |
|
- | 258 | stdcall find_obj_in_file,edx ;eax - óêàçàòåëü íà ñòðóêòóðó áèáëèîòåêè |
|
- | 259 | cmp eax,0 |
|
- | 260 | je @f |
|
- | 261 | stdcall insert_text, txt_head_i |
|
- | 262 | stdcall insert_text, txt_d_poi |
|
- | 263 | insert_nl |
|
- | 264 | stdcall insert_text, txt_head_l |
|
- | 265 | stdcall insert_text, txt_db |
|
- | 266 | stdcall insert_text, txt_str_beg |
|
- | 267 | stdcall insert_text, txt_sys_err |
|
- | 268 | stdcall insert_text, txt_str_end |
|
- | 269 | insert_nl |
|
- | 270 | ||
254 | call get_code_auto_data_libs |
271 | call get_code_auto_data_libs_param |
- | 272 | stdcall insert_text, txt_ll_start |
|
- | 273 | call get_code_auto_data_libs_struc |
|
- | 274 | stdcall insert_text, txt_ll_end |
|
- | 275 | call get_code_auto_data_libs ;òàáëèöû èìïîðòà áèáëèîòåê |
|
255 | @@: |
276 | @@: |
256 | insert_nl |
277 | insert_nl |
257 | popad |
278 | popad |
258 | ret |
279 | ret |
259 | endp |
280 | endp |
Line 332... | Line 353... | ||
332 | inc ecx |
353 | inc ecx |
333 | cmp ecx,10 |
354 | cmp ecx,10 |
334 | jl .prop |
355 | jl .prop |
Line 335... | Line 356... | ||
335 | 356 | ||
336 | insert_br |
- | |
337 | ;insert_tab |
357 | insert_br |
Line 338... | Line 358... | ||
338 | stdcall insert_text, txt_txt |
358 | stdcall insert_text, txt_txt |
339 | 359 | ||
340 | mov edx,fp_icon |
360 | mov edx,fp_icon |
341 | stdcall get_obj_id, ebx,edx |
- | |
Line 342... | Line -... | ||
342 | stdcall str_len,edx ;eax = len(fp_icon) |
- | |
343 | stdcall [ted_text_add], tedit0,edx,eax,ted_opt_ed_move_cursor |
- | |
344 | 361 | stdcall get_obj_id, ebx,edx |
|
345 | ;insert_coma |
362 | stdcall insert_text,edx |
346 | ;insert_sp |
363 | |
347 | stdcall insert_text, txt_mouse_dd |
364 | stdcall insert_text, txt_mouse_dd |
348 | insert_nl |
365 | insert_nl |
Line 360... | Line 377... | ||
360 | ret |
377 | ret |
361 | endp |
378 | endp |
Line 362... | Line 379... | ||
362 | 379 | ||
363 | ;äàííûå äëÿ áèáëèîòåê |
380 | ;äàííûå äëÿ áèáëèîòåê |
- | 381 | align 4 |
|
- | 382 | proc get_code_auto_data_libs_param |
|
- | 383 | pushad |
|
- | 384 | insert_nl ;îòñòóï äëÿ ôîðìàòèðîâàíèÿ |
|
- | 385 | ||
- | 386 | stdcall dword[tl_node_poi_get_info], 0,tree2 |
|
- | 387 | pop esi |
|
- | 388 | .beg_iterat: |
|
- | 389 | cmp esi,0 |
|
- | 390 | je .find_no |
|
- | 391 | ||
- | 392 | stdcall dword[tl_node_poi_get_data], esi,tree2 |
|
- | 393 | pop ebx ;ïîëó÷àåì äàííûå óçëà |
|
- | 394 | cmp ebx,0 |
|
- | 395 | je .find_no |
|
- | 396 | ||
- | 397 | cmp byte[ebx],C_LIB |
|
- | 398 | jne @f |
|
- | 399 | ;0,1,2,3,4,5 - l_nam,s_dir,i_met,... |
|
- | 400 | ||
- | 401 | stdcall insert_text, txt_sys_dir |
|
- | 402 | ;object code |
|
- | 403 | mov edx,fp_icon |
|
- | 404 | stdcall get_obj_id, ebx,edx |
|
- | 405 | stdcall insert_text,edx |
|
- | 406 | stdcall insert_text,txt_db |
|
- | 407 | ;stdcall insert_text, txt_str_beg |
|
- | 408 | stdcall insert_text_prop, ebx,1 |
|
- | 409 | ;stdcall insert_text, txt_str_end |
|
- | 410 | insert_nl |
|
- | 411 | ||
- | 412 | stdcall insert_text, txt_lib_name |
|
- | 413 | stdcall insert_text,edx |
|
- | 414 | stdcall insert_text,txt_db |
|
- | 415 | stdcall insert_text, txt_str_beg |
|
- | 416 | stdcall insert_text_prop, ebx,0 |
|
- | 417 | stdcall insert_text, txt_str_end |
|
- | 418 | insert_nl |
|
- | 419 | ||
- | 420 | stdcall insert_text,txt_err_m_f_lib |
|
- | 421 | stdcall insert_text,edx |
|
- | 422 | stdcall insert_text,txt_db |
|
- | 423 | stdcall insert_text, txt_str_beg |
|
- | 424 | stdcall insert_text_prop, ebx,4 |
|
- | 425 | stdcall insert_text, txt_str_end |
|
- | 426 | insert_nl |
|
- | 427 | ||
- | 428 | stdcall insert_text,txt_err_m_i_lib |
|
- | 429 | stdcall insert_text,edx |
|
- | 430 | stdcall insert_text,txt_db |
|
- | 431 | stdcall insert_text, txt_str_beg |
|
- | 432 | stdcall insert_text_prop, ebx,5 |
|
- | 433 | stdcall insert_text, txt_str_end |
|
- | 434 | insert_nl |
|
- | 435 | ||
- | 436 | insert_nl |
|
- | 437 | @@: |
|
- | 438 | ||
- | 439 | stdcall dword[tl_node_poi_get_next_info], esi,tree2 |
|
- | 440 | pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó |
|
- | 441 | ||
- | 442 | jmp .beg_iterat |
|
- | 443 | .find_no: |
|
- | 444 | popad |
|
- | 445 | ret |
|
- | 446 | endp |
|
- | 447 | ||
- | 448 | ;äàííûå äëÿ áèáëèîòåê |
|
- | 449 | align 4 |
|
- | 450 | proc get_code_auto_data_libs_struc |
|
- | 451 | pushad |
|
- | 452 | ;insert_nl ;îòñòóï äëÿ ôîðìàòèðîâàíèÿ |
|
- | 453 | ||
- | 454 | stdcall dword[tl_node_poi_get_info], 0,tree2 |
|
- | 455 | pop esi |
|
- | 456 | .beg_iterat: |
|
- | 457 | cmp esi,0 |
|
- | 458 | je .find_no |
|
- | 459 | ||
- | 460 | stdcall dword[tl_node_poi_get_data], esi,tree2 |
|
- | 461 | pop ebx ;ïîëó÷àåì äàííûå óçëà |
|
- | 462 | cmp ebx,0 |
|
- | 463 | je .find_no |
|
- | 464 | ||
- | 465 | cmp byte[ebx],C_LIB |
|
- | 466 | jne @f |
|
- | 467 | ;0,1,2,3,4,5 - l_nam,s_dir,i_met,... |
|
- | 468 | ||
- | 469 | stdcall insert_text, txt_lib |
|
- | 470 | ;object code |
|
- | 471 | mov edx,fp_icon |
|
- | 472 | stdcall get_obj_id, ebx,edx |
|
- | 473 | stdcall insert_text,edx |
|
- | 474 | insert_sp |
|
- | 475 | stdcall insert_text, txt_ll |
|
- | 476 | stdcall insert_text, txt_lib_name |
|
- | 477 | stdcall insert_text,edx |
|
- | 478 | stdcall insert_text,txt_coma |
|
- | 479 | ||
- | 480 | stdcall insert_text, txt_lib_path |
|
- | 481 | ||
- | 482 | stdcall insert_text, txt_sys_dir |
|
- | 483 | stdcall insert_text,edx |
|
- | 484 | stdcall insert_text,txt_coma |
|
- | 485 | stdcall insert_text,txt_br |
|
- | 486 | stdcall insert_text,txt_tab |
|
- | 487 | ||
- | 488 | stdcall insert_text,txt_err_m_f_lib |
|
- | 489 | stdcall insert_text,edx |
|
- | 490 | stdcall insert_text,txt_coma |
|
- | 491 | stdcall insert_text,txt_head_l |
|
- | 492 | stdcall insert_text,txt_coma |
|
- | 493 | ||
- | 494 | stdcall insert_text_prop, ebx,2 |
|
- | 495 | stdcall insert_text,txt_coma |
|
- | 496 | ||
- | 497 | stdcall insert_text,txt_err_m_i_lib |
|
- | 498 | stdcall insert_text,edx |
|
- | 499 | stdcall insert_text,txt_coma |
|
- | 500 | stdcall insert_text,txt_head_i |
|
- | 501 | ||
- | 502 | insert_nl |
|
- | 503 | @@: |
|
- | 504 | ||
- | 505 | stdcall dword[tl_node_poi_get_next_info], esi,tree2 |
|
- | 506 | pop esi ;ïåðåõîäèì ê ñëåäóùåìó óçëó |
|
- | 507 | ||
- | 508 | jmp .beg_iterat |
|
- | 509 | .find_no: |
|
- | 510 | popad |
|
- | 511 | ret |
|
- | 512 | endp |
|
- | 513 | ||
- | 514 | ;äàííûå äëÿ áèáëèîòåê |
|
364 | align 4 |
515 | align 4 |
365 | proc get_code_auto_data_libs |
516 | proc get_code_auto_data_libs |
366 | pushad |
517 | pushad |
Line 367... | Line 518... | ||
367 | insert_nl ;îòñòóï äëÿ ôîðìàòèðîâàíèÿ |
518 | insert_nl ;îòñòóï äëÿ ôîðìàòèðîâàíèÿ |
Line 966... | Line 1117... | ||
966 | txt_times db ':',13,9,'times ',0 |
1117 | txt_times db ':',13,9,'times ',0 |
967 | txt_draw_wb: |
1118 | txt_draw_wb: |
968 | db 13,'align 4',13,'draw_window:',13,'pushad',13,9,'mcall 12,1',13,0 |
1119 | db 13,'align 4',13,'draw_window:',13,'pushad',13,9,'mcall 12,1',13,0 |
969 | txt_draw_we: |
1120 | txt_draw_we: |
970 | db 9,'mcall 12,2',13,'popad',13,9,'ret',13,0 |
1121 | db 9,'mcall 12,2',13,'popad',13,9,'ret',13,0 |
- | 1122 | txt_sys_dir db 'system_dir_',0 |
|
- | 1123 | txt_lib_name db 'lib_name_',0 |
|
- | 1124 | txt_lib_path db ' sys_path, library_path, ',0 |
|
- | 1125 | txt_sys_err db '¨á⥬ ï ®è¨¡ª ',0 |
|
- | 1126 | txt_ll_start db 'l_libs_start:',13,0 |
|
- | 1127 | txt_lib db 9,'lib_',0 |
|
- | 1128 | txt_ll db 'l_libs ',0 |
|
- | 1129 | txt_err_m_f_lib db 'err_msg_found_lib_',0 |
|
- | 1130 | txt_head_l db 'head_f_l',0 |
|
- | 1131 | txt_err_m_i_lib db 'err_msg_import_',0 |
|
- | 1132 | txt_head_i db 'head_f_i',0 |
|
- | 1133 | txt_ll_end db 'l_libs_end:',13,0 |
|
971 | txt_but_create db '0x40000000',0 ;tmp |
1134 | txt_but_create db '0x40000000',0 ;tmp |
972 | txt_0x33000000 db '0x33000000',0 ;tmp |
1135 | txt_0x33000000 db '0x33000000',0 ;tmp |
973 | txt_struct db 'struct ',0 |
1136 | txt_struct db 'struct ',0 |
974 | txt_ends db 'ends',13,13,0 |
1137 | txt_ends db 'ends',13,13,0 |
975 | txt_mov db 'mov ',0 |
1138 | txt_mov db 'mov ',0 |
Line 996... | Line 1159... | ||
996 | db 9,'stdcall [check_box_mouse], ',0 |
1159 | db 9,'stdcall [check_box_mouse], ',0 |
997 | txt_std_key_ed: |
1160 | txt_std_key_ed: |
998 | db 9,'stdcall [edit_box_key], ',0 |
1161 | db 9,'stdcall [edit_box_key], ',0 |
999 | txt_incl: |
1162 | txt_incl: |
1000 | db 'include ',0 |
1163 | db 'include ',0 |
1001 | txt_ebox: |
- | |
1002 | db ' edit_box',0 |
1164 | txt_ebox db ' edit_box',0 |
1003 | txt_editb_draw: |
1165 | txt_editb_draw: |
1004 | db 9,'stdcall [edit_box_draw], ',0 |
1166 | db 9,'stdcall [edit_box_draw], ',0 |
1005 | txt_cbox_draw: |
1167 | txt_cbox_draw: |
1006 | db 9,'stdcall [check_box_draw], ',0 |
1168 | db 9,'stdcall [check_box_draw], ',0 |