Subversion Repositories Kolibri OS

Rev

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