Subversion Repositories Kolibri OS

Rev

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

Rev 7441 Rev 7662
Line 6... Line 6...
6 
 
 6 
 
7 
format binary as ""
 7 
format binary as ""
8 
use32
 8 
use32
9 
        org 0
 9 
	org 0
10 
        db 'MENUET01'
 10 
	db 'MENUET01'
Line 11... Line 11...
11 
        dd 1,start,i_end,mem,stacktop,0,sys_path
 11 
	dd 1,start,i_end,mem,stacktop,file_name,sys_path
12 
 
 12 
 
13 
include '../../macros.inc'
 13 
include '../../macros.inc'
14 
include '../../proc32.inc'
 14 
include '../../proc32.inc'
Line 23... Line 23...
23 
KMENUITEM_NORMAL equ 0
 23 
KMENUITEM_NORMAL equ 0
24 
KMENUITEM_SUBMENU equ 1
 24 
KMENUITEM_SUBMENU equ 1
25 
KMENUITEM_SEPARATOR equ 2
 25 
KMENUITEM_SEPARATOR equ 2
Line 26... Line 26...
26 
 
 26 
 
27 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
 27 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
Line 28... Line 28...
28 
caption db 'CNC Control 08.10.18',0 ;¯®¤¯¨áì ®ª­ 
 28 
caption db 'CNC Control 22.05.19',0 ;¯®¤¯¨áì ®ª­ 
Line 29... Line 29...
29 
 
 29 
 
Line 36... Line 36...
36 
icon_tl_sys dd 0 ;㪠§ â¥«ì ­  ¯ ¬ïâì ¤«ï åà ­¥­¨ï á¨á⥬­ëå ¨ª®­®ª
 36 
icon_tl_sys dd 0 ;㪠§ â¥«ì ­  ¯ ¬ïâì ¤«ï åà ­¥­¨ï á¨á⥬­ëå ¨ª®­®ª
37 
icon_toolbar dd 0 ;㪠§ â¥«ì ­  ¯ ¬ïâì ¤«ï åà ­¥­¨ï ¨ª®­®ª ®¡ê¥ªâ®¢
 37 
icon_toolbar dd 0 ;㪠§ â¥«ì ­  ¯ ¬ïâì ¤«ï åà ­¥­¨ï ¨ª®­®ª ®¡ê¥ªâ®¢
Line 38... Line 38...
38 
 
 38 
 
39 
align 4
 39 
align 4
- 
 
 40 
start:
- 
 
 41 
	;--- copy cmd line ---
- 
 
 42 
	mov esi,file_name
- 
 
 43 
	mov edi,openfile_path
- 
 
 44 
@@:
- 
 
 45 
	lodsd
- 
 
 46 
	or eax,eax
- 
 
 47 
	jz @f ;¢ë室, ¥á«¨ 0
- 
 
 48 
	stosd
- 
 
 49 
	jmp @b
- 
 
 50 
@@:
- 
 
 51 
	stosd
40 
start:
 52 
 
41 
        load_libraries l_libs_start,l_libs_end
 53 
	load_libraries l_libs_start,l_libs_end
42 
        ;¯à®¢¥àª  ­  ᪮«ìª® 㤠筮 § £ã§¨« áì ¡¨¡«¨®â¥ª 
 54 
	;¯à®¢¥àª  ­  ᪮«ìª® 㤠筮 § £ã§¨« áì ¡¨¡«¨®â¥ª 
43 
        mov     ebp,lib_0
 55 
	mov	ebp,lib_0
44 
        cmp     dword [ebp+ll_struc_size-4],0
 56 
	cmp	dword [ebp+ll_struc_size-4],0
Line 98... Line 110...
98 
        ;stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_OTHERport, 112
 110 
        ;stdcall [kmenuitem_new], KMENUITEM_NORMAL, sz_OTHERport, 112
99 
        ;stdcall [ksubmenu_add], [port_menu], eax
 111 
        ;stdcall [ksubmenu_add], [port_menu], eax
100 
        stdcall [kmenuitem_new], KMENUITEM_SUBMENU, sz_PortMenu, [port_menu]
 112 
        stdcall [kmenuitem_new], KMENUITEM_SUBMENU, sz_PortMenu, [port_menu]
101 
        ;stdcall [ksubmenu_add], [main_menu], eax
 113 
        ;stdcall [ksubmenu_add], [main_menu], eax
Line -... Line 114...
- 
 
 114 
 
- 
 
 115 
	;open file from cmd line
- 
 
 116 
	cmp dword[openfile_path],0
- 
 
 117 
	je @f
- 
 
 118 
		call but_open_file.no_dlg
- 
 
 119 
	@@:
102 
 
 120 
 
103 
align 4
 121 
align 4
104 
red_win:
 122 
red_win:
Line 105... Line 123...
105 
        call draw_window
 123 
	call draw_window
Line 306... Line 324...
306 
        mov edx,[sc.work]
 324 
	mov edx,[sc.work]
307 
        or  edx,0x33000000
 325 
	or  edx,0x33000000
308 
        mov edi,caption
 326 
	mov edi,caption
309 
        mcall SF_CREATE_WINDOW,(20 shl 16)+WINDOW_WIDTH,(20 shl 16)+WINDOW_HEIGHT
 327 
        mcall SF_CREATE_WINDOW,(20 shl 16)+WINDOW_WIDTH,(20 shl 16)+WINDOW_HEIGHT
Line 310... Line -...
310 
 
 - 
 
311 
        ;;mcall SF_THREAD_INFO,procinfo,-1
 - 
 
312 
        ;;mov eax,dword[procinfo.box.height]
 - 
 
313 
        ;;cmp eax,120
 - 
 
314 
        ;;jge @f
 - 
 
315 
                ;;mov eax,120 ;min size
 - 
 
316 
        ;;@@:
 - 
 
317 
        ;;sub eax,65
 - 
 
318 
        ;;mov ebx,dword[procinfo.box.width]
 - 
 
319 
        ;;cmp ebx,270
 - 
 
320 
        ;;jge @f
 - 
 
321 
                ;;mov ebx,270
 - 
 
322 
        ;;@@:
 - 
 
323 
        ;;sub ebx,215
 - 
 
324 
        ;;cmp eax,dword[buf_0.h] ;ᬮâਬ à §¬¥à ¡ãä¥à 
 - 
 
325 
        ;;jne @f
 - 
 
326 
        ;;cmp ebx,dword[buf_0.w]
 - 
 
327 
        ;;jne @f
 - 
 
328 
                ;;jmp .end0
 - 
 
329 
        ;;@@:
 - 
 
330 
                ;;stdcall [buf2d_resize],buf_0,ebx,eax,1
 328 
 
331 
                mov ecx,[ObjData.FigCount]
 329 
	mov ecx,[ObjData.FigCount]
332 
                or ecx,ecx
 330 
	or ecx,ecx
333 
                jz .end0
 331 
	jz .end0
334 
                mov eax,[ObjData.FigData]
 332 
		mov eax,[ObjData.FigData]
Line 482... Line 480...
482 
open_file_data dd 0 ;㪠§ â¥«ì ­  ¯ ¬ïâì ¤«ï ®âªàëâ¨ï ä ©«®¢
 480 
open_file_data dd 0 ;㪠§ â¥«ì ­  ¯ ¬ïâì ¤«ï ®âªàëâ¨ï ä ©«®¢
483 
open_file_size dd 0 ;à §¬¥à ®âªàë⮣® ä ©« 
 481 
open_file_size dd 0 ;à §¬¥à ®âªàë⮣® ä ©« 
Line 484... Line 482...
484 
 
 482 
 
485 
align 4
 483 
align 4
486 
but_open_file:
 - 
 
487 
        pushad
 484 
but_open_file:
- 
 
 485 
	copy_path open_dialog_name,communication_area_default_path,file_name,0
488 
        copy_path open_dialog_name,communication_area_default_path,file_name,0
 486 
	pushad
489 
        mov [OpenDialog_data.type],0
 487 
	mov [OpenDialog_data.type],0
490 
        stdcall [OpenDialog_Start],OpenDialog_data
 488 
	stdcall [OpenDialog_Start],OpenDialog_data
491 
        cmp [OpenDialog_data.status],2
 489 
	cmp [OpenDialog_data.status],2
492 
        je .end_open_file
 490 
	je .end_open_file
- 
 
 491 
	;ª®¤ ¯à¨ 㤠筮¬ ®âªàë⨨ ¤¨ «®£ 
- 
 
 492 
	jmp .end0
- 
 
 493 
.no_dlg: ;¥á«¨ ¬¨­ã¥¬ ¤¨ «®£ ®âªàëâ¨ï ä ©« 
- 
 
 494 
		pushad
- 
 
 495 
		mov esi,openfile_path
- 
 
 496 
		stdcall str_len,esi
- 
 
 497 
		add esi,eax
- 
 
 498 
		@@: ;横« ¤«ï ¯®¨áª  ­ ç «  ¨¬¥­¨ ä ©« 
- 
 
 499 
			dec esi
- 
 
 500 
			cmp byte[esi],'/'
- 
 
 501 
			je @f
- 
 
 502 
			cmp byte[esi],0x5c ;'\'
- 
 
 503 
			je @f
- 
 
 504 
			cmp esi,openfile_path
493 
        ;ª®¤ ¯à¨ 㤠筮¬ ®âªàë⨨ ¤¨ «®£ 
 505 
			jg @b
- 
 
 506 
		@@:
- 
 
 507 
		inc esi
- 
 
 508 
		stdcall [OpenDialog_Set_file_name],OpenDialog_data,esi ;ª®¯¨à㥬 ¨¬ï ä ©«  ¢ ¤¨ «®£ á®åà ­¥­¨ï
494 
 
 509 
	.end0:
495 
        push eax ebx ecx edx    ;copy file name path from OpenDialog
 510 
        push eax ebx ecx edx    ;copy file name path from OpenDialog
496 
        mov eax, openfile_path
 511 
        mov eax, openfile_path
497 
        mov ebx, fileNameBuffer ;.data
 512 
        mov ebx, fileNameBuffer ;.data
498 
        mov ecx, 0
 513 
        mov ecx, 0
Line 723... Line 738...
723 
coord:
 738 
coord:
724 
  .x dw 100
 739 
  .x dw 100
725 
  .y dw 200
 740 
  .y dw 200
726 
;]
 741 
;]
Line 727... Line 742...
727 
 
 742 
 
728 
head_f_i:
 - 
 
729 
head_f_l db '‘¨á⥬­ ï ®è¨¡ª ',0
 - 
 
730 
 
 743 
align 4
731 
system_dir_0 db '/sys/lib/'
 744 
system_dir_0 db '/sys/lib/'
732 
lib_name_0 db 'proc_lib.obj',0
 - 
 
733 
err_message_found_lib_0 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'proc_lib.obj',39,0
 - 
 
734 
err_message_import_0 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'proc_lib.obj',39,0
 - 
 
735 
 
 745 
lib_name_0 db 'proc_lib.obj',0
736 
system_dir_1 db '/sys/lib/'
 746 
system_dir_1 db '/sys/lib/'
737 
lib_name_1 db 'libimg.obj',0
 - 
 
738 
err_message_found_lib_1 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'libimg.obj',39,0
 - 
 
739 
err_message_import_1 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'libimg.obj',39,0
 - 
 
740 
 
 747 
lib_name_1 db 'libimg.obj',0
741 
system_dir_2 db '/sys/lib/'
 748 
system_dir_2 db '/sys/lib/'
742 
lib_name_2 db 'buf2d.obj',0
 - 
 
743 
err_msg_found_lib_2 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'buf2d.obj',39,0
 - 
 
744 
err_msg_import_2 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'buf2d',39,0
 - 
 
745 
 
 749 
lib_name_2 db 'buf2d.obj',0
746 
system_dir_3 db '/sys/lib/'
 750 
system_dir_3 db '/sys/lib/'
747 
lib_name_3 db 'box_lib.obj',0
 - 
 
748 
err_msg_found_lib_3 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'box_lib.obj',39,0
 - 
 
749 
err_msg_import_3 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'box_lib',39,0
 - 
 
750 
 
 751 
lib_name_3 db 'box_lib.obj',0
751 
system_dir_4 db '/sys/lib/'
 752 
system_dir_4 db '/sys/lib/'
752 
lib_name_4 db 'kmenu.obj',0
 - 
 
753 
err_msg_found_lib_4 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'kmenu.obj',39,0
 - 
 
Line -... Line 753...
- 
 
 753 
lib_name_4 db 'kmenu.obj',0
- 
 
 754 
 
- 
 
 755 
head_f_i:
- 
 
 756 
if lang eq ru
- 
 
 757 
	head_f_l db '"‘¨á⥬­ ï ®è¨¡ª ',0
- 
 
 758 
	err_message_found_lib_0 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'proc_lib.obj',39,'" -tE',0
- 
 
 759 
	err_message_import_0 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'proc_lib.obj',39,'" -tW',0
- 
 
 760 
	err_message_found_lib_1 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'libimg.obj',39,'" -tE',0
- 
 
 761 
	err_message_import_1 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'libimg.obj',39,'" -tW',0
- 
 
 762 
	err_msg_found_lib_2 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'buf2d.obj',39,'" -tE',0
- 
 
 763 
	err_msg_import_2 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'buf2d',39,'" -tW',0
- 
 
 764 
	err_msg_found_lib_3 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'box_lib.obj',39,'" -tE',0
- 
 
 765 
	err_msg_import_3 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'box_lib',39,'" -tW',0
- 
 
 766 
	err_msg_found_lib_4 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'kmenu.obj',39,'" -tE',0
- 
 
 767 
	err_msg_import_4 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'kmenu',39,'" -tW',0
- 
 
 768 
else
- 
 
 769 
	head_f_l db '"System error',0
- 
 
 770 
	err_message_found_lib_0 db 'Sorry I cannot found library ',39,'proc_lib.obj',39,'" -tE',0
- 
 
 771 
	err_message_import_0 db 'Error on load import library ',39,'proc_lib.obj',39,'" -tW',0
- 
 
 772 
	err_message_found_lib_1 db 'Sorry I cannot found library ',39,'libimg.obj',39,'" -tE',0
- 
 
 773 
	err_message_import_1 db 'Error on load import library ',39,'libimg.obj',39,'" -tW',0
- 
 
 774 
	err_msg_found_lib_2 db 'Sorry I cannot found library ',39,'buf2d.obj',39,'" -tE',0
- 
 
 775 
	err_msg_import_2 db 'Error on load import library ',39,'buf2d',39,'" -tW',0
- 
 
 776 
	err_msg_found_lib_3 db 'Sorry I cannot found library ',39,'box_lib.obj',39,'" -tE',0
- 
 
 777 
	err_msg_import_3 db 'Error on load import library ',39,'box_lib',39,'" -tW',0
- 
 
 778 
	err_msg_found_lib_4 db 'Sorry I cannot found library ',39,'kmenu.obj',39,'" -tE',0
- 
 
 779 
	err_msg_import_4 db 'Error on load import library ',39,'kmenu',39,'" -tW',0
- 
 
 780 
end if
754 
err_msg_import_4 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'kmenu',39,0
 781 
 
755 
 
 782 
align 4
756 
l_libs_start:
 783 
l_libs_start:
757 
        lib_0 l_libs lib_name_0, sys_path, file_name, system_dir_0,\
 784 
	lib_0 l_libs lib_name_0, sys_path, file_name, system_dir_0,\
758 
                err_message_found_lib_0, head_f_l, proclib_import,err_message_import_0, head_f_i
 785 
		err_message_found_lib_0, head_f_l, proclib_import,err_message_import_0, head_f_i
Line 815... Line 842...
815 
 
 842 
 
816 
align 4
 843 
align 4
817 
proclib_import: ;®¯¨á ­¨¥ íªá¯®àâ¨à㥬ëå ä㭪権
 844 
proclib_import: ;®¯¨á ­¨¥ íªá¯®àâ¨à㥬ëå ä㭪権
818 
        OpenDialog_Init dd aOpenDialog_Init
 845 
	OpenDialog_Init dd aOpenDialog_Init
- 
 
 846 
	OpenDialog_Start dd aOpenDialog_Start
- 
 
 847 
	OpenDialog_Set_file_name dd aOpenDialog_Set_file_name
819 
        OpenDialog_Start dd aOpenDialog_Start
 848 
	;OpenDialog_Set_file_ext dd aOpenDialog_Set_file_ext
820 
dd 0,0
 849 
dd 0,0
821 
        aOpenDialog_Init db 'OpenDialog_init',0
 850 
	aOpenDialog_Init db 'OpenDialog_init',0
- 
 
 851 
	aOpenDialog_Start db 'OpenDialog_start',0
- 
 
 852 
	aOpenDialog_Set_file_name db 'OpenDialog_set_file_name',0
Line 822... Line 853...
822 
        aOpenDialog_Start db 'OpenDialog_start',0
 853 
	;aOpenDialog_Set_file_ext db 'OpenDialog_set_file_ext',0
823 
 
 854 
 
824 
align 4
 855 
align 4
825 
import_buf2d:
 856 
import_buf2d: