Subversion Repositories Kolibri OS

Rev

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

Rev 7508 Rev 7662
Line 1... Line 1...
1 
use32
 1 
use32
2 
	org 0
 2 
	org 0
3 
	db 'MENUET01'
 3 
	db 'MENUET01'
4 
	dd 1,start,i_end,mem,stacktop,0,sys_path
 4 
	dd 1,start,i_end,mem,stacktop,file_name,sys_path
Line 5... Line 5...
5 
 
 5 
 
6 
include '../../macros.inc'
 6 
include '../../macros.inc'
7 
include '../../proc32.inc'
 7 
include '../../proc32.inc'
8 
include '../../KOSfuncs.inc'
 8 
include '../../KOSfuncs.inc'
Line 12... Line 12...
12 
include 'lang.inc'
 12 
include 'lang.inc'
13 
include 'cnc_editor.inc'
 13 
include 'cnc_editor.inc'
14 
include '../../develop/info3ds/info_fun_float.inc'
 14 
include '../../develop/info3ds/info_fun_float.inc'
Line 15... Line 15...
15 
 
 15 
 
16 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
 16 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
Line 17... Line 17...
17 
caption db 'CNC editor 30.10.18',0 ;¯®¤¯¨áì ®ª­ 
 17 
caption db 'CNC editor 22.05.19',0 ;¯®¤¯¨áì ®ª­ 
Line 18... Line 18...
18 
 
 18 
 
Line 29... Line 29...
29 
include 'wnd_scale.inc'
 29 
include 'wnd_scale.inc'
30 
include 'wnd_new_file.inc'
 30 
include 'wnd_new_file.inc'
Line 31... Line 31...
31 
 
 31 
 
32 
align 4
 32 
align 4
- 
 
 33 
start:
- 
 
 34 
	;--- copy cmd line ---
- 
 
 35 
	mov esi,file_name
- 
 
 36 
	mov edi,openfile_path
- 
 
 37 
@@:
- 
 
 38 
	lodsd
- 
 
 39 
	or eax,eax
- 
 
 40 
	jz @f ;¢ë室, ¥á«¨ 0
- 
 
 41 
	stosd
- 
 
 42 
	jmp @b
- 
 
 43 
@@:
- 
 
 44 
	stosd
33 
start:
 45 
 
34 
	load_libraries l_libs_start,l_libs_end
 46 
	load_libraries l_libs_start,l_libs_end
35 
	;¯à®¢¥àª  ­  ᪮«ìª® 㤠筮 § £ã§¨« áì ¡¨¡«¨®â¥ª 
 47 
	;¯à®¢¥àª  ­  ᪮«ìª® 㤠筮 § £ã§¨« áì ¡¨¡«¨®â¥ª 
36 
	mov	ebp,lib_0
 48 
	mov	ebp,lib_0
37 
	cmp	dword [ebp+ll_struc_size-4],0
 49 
	cmp	dword [ebp+ll_struc_size-4],0
Line 69... Line 81...
69 
 
 81 
 
70 
	;*** ãáâ ­®¢ª  ¢à¥¬¥­¨ ¤«ï â ©¬¥à 
 82 
	;*** ãáâ ­®¢ª  ¢à¥¬¥­¨ ¤«ï â ©¬¥à 
71 
	mcall SF_SYSTEM_GET,SSF_TIME_COUNT
 83 
	mcall SF_SYSTEM_GET,SSF_TIME_COUNT
Line -... Line 84...
- 
 
 84 
	mov [last_time],eax
- 
 
 85 
 
- 
 
 86 
	;open file from cmd line
72 
	mov [last_time],eax
 87 
	cmp dword[openfile_path],0
- 
 
 88 
	je @f
Line 73... Line 89...
73 
 
 89 
		call but_open_file.no_dlg
74 
	;call but_new_file
 90 
	@@:
75 
 
 91 
 
Line 668... Line 684...
668 
open_file_data dd 0 ;㪠§ â¥«ì ­  ¯ ¬ïâì ¤«ï ®âªàëâ¨ï ä ©«®¢
 684 
open_file_data dd 0 ;㪠§ â¥«ì ­  ¯ ¬ïâì ¤«ï ®âªàëâ¨ï ä ©«®¢
669 
open_file_size dd 0 ;à §¬¥à ®âªàë⮣® ä ©« 
 685 
open_file_size dd 0 ;à §¬¥à ®âªàë⮣® ä ©« 
Line 670... Line 686...
670 
 
 686 
 
671 
align 4
 687 
align 4
672 
but_open_file:
 - 
 
673 
	pushad
 688 
but_open_file:
- 
 
 689 
	copy_path open_dialog_name,communication_area_default_path,file_name,0
674 
	copy_path open_dialog_name,communication_area_default_path,file_name,0
 690 
	pushad
675 
	mov [OpenDialog_data.type],0
 691 
	mov [OpenDialog_data.type],0
676 
	stdcall [OpenDialog_Start],OpenDialog_data
 692 
	stdcall [OpenDialog_Start],OpenDialog_data
677 
	cmp [OpenDialog_data.status],2
 693 
	cmp [OpenDialog_data.status],2
678 
	je .end_open_file
 694 
	je .end_open_file
- 
 
 695 
	;ª®¤ ¯à¨ 㤠筮¬ ®âªàë⨨ ¤¨ «®£ 
- 
 
 696 
	jmp .end0
- 
 
 697 
.no_dlg: ;¥á«¨ ¬¨­ã¥¬ ¤¨ «®£ ®âªàëâ¨ï ä ©« 
- 
 
 698 
		pushad
- 
 
 699 
		mov esi,openfile_path
- 
 
 700 
		stdcall str_len,esi
- 
 
 701 
		add esi,eax
- 
 
 702 
		@@: ;横« ¤«ï ¯®¨áª  ­ ç «  ¨¬¥­¨ ä ©« 
- 
 
 703 
			dec esi
- 
 
 704 
			cmp byte[esi],'/'
- 
 
 705 
			je @f
- 
 
 706 
			cmp byte[esi],0x5c ;'\'
- 
 
 707 
			je @f
- 
 
 708 
			cmp esi,openfile_path
- 
 
 709 
			jg @b
- 
 
 710 
		@@:
- 
 
 711 
		inc esi
- 
 
 712 
		stdcall [OpenDialog_Set_file_name],OpenDialog_data,esi ;ª®¯¨à㥬 ¨¬ï ä ©«  ¢ ¤¨ «®£ á®åà ­¥­¨ï
Line 679... Line 713...
679 
	;ª®¤ ¯à¨ 㤠筮¬ ®âªàë⨨ ¤¨ «®£ 
 713 
	.end0:
680 
 
 714 
 
681 
	mov [run_file_70.Function], SSF_GET_INFO
 715 
	mov [run_file_70.Function], SSF_GET_INFO
682 
	mov [run_file_70.Position], 0
 716 
	mov [run_file_70.Position], 0
Line 727... Line 761...
727 
	pData dd ?
 761 
	pData dd ?
728 
endl
 762 
endl
729 
	pushad
 763 
	pushad
730 
	copy_path open_dialog_name,communication_area_default_path,file_name,0
 764 
	copy_path open_dialog_name,communication_area_default_path,file_name,0
731 
	mov [OpenDialog_data.type],1
 765 
	mov [OpenDialog_data.type],1
- 
 
 766 
	stdcall [OpenDialog_Set_file_ext],OpenDialog_data,Filter.1 ;.nc
732 
	stdcall [OpenDialog_Start],OpenDialog_data
 767 
	stdcall [OpenDialog_Start],OpenDialog_data
733 
	cmp [OpenDialog_data.status],2
 768 
	cmp [OpenDialog_data.status],2
734 
	je .end_save_file
 769 
	je .end_save_file
735 
	;ª®¤ ¯à¨ 㤠筮¬ ®âªàë⨨ ¤¨ «®£ 
 770 
	;ª®¤ ¯à¨ 㤠筮¬ ®âªàë⨨ ¤¨ «®£ 
Line 931... Line 966...
931 
 
 966 
 
932 
	jmp .end_save_file
 967 
	jmp .end_save_file
933 
	.beg0:
 968 
	.beg0:
934 
	copy_path open_dialog_name,communication_area_default_path,file_name,0
 969 
	copy_path open_dialog_name,communication_area_default_path,file_name,0
- 
 
 970 
	mov [OpenDialog_data.type],1
935 
	mov [OpenDialog_data.type],1
 971 
	stdcall [OpenDialog_Set_file_ext],OpenDialog_data,Filter.2 ;.png
936 
	stdcall [OpenDialog_Start],OpenDialog_data
 972 
	stdcall [OpenDialog_Start],OpenDialog_data
937 
	cmp [OpenDialog_data.status],2
 973 
	cmp [OpenDialog_data.status],1
938 
	je .end_save_file
 974 
	jne .end_save_file
939 
		;ª®¤ ¯à¨ 㤠筮¬ ®âªàë⨨ ¤¨ «®£ 
 975 
		;ª®¤ ¯à¨ 㤠筮¬ ®âªàë⨨ ¤¨ «®£ 
Line 940... Line 976...
940 
		mov dword[png_data],0
 976 
		mov dword[png_data],0
941 
 
 977 
 
Line 2017... Line 2053...
2017 
communication_area_default_path:
 2053 
communication_area_default_path:
2018 
	db '/rd/1/File managers/',0
 2054 
	db '/rd/1/File managers/',0
Line 2019... Line 2055...
2019 
 
 2055 
 
2020 
Filter:
 2056 
Filter:
2021 
dd Filter.end - Filter ;.1
 - 
 
2022 
.1:
 2057 
dd Filter.end - Filter ;.1
2023 
db 'NC',0
 2058 
.1: db 'NC',0
2024 
db 'PNG',0
 2059 
.2: db 'PNG',0
2025 
.end:
 2060 
.end:
Line 2026... Line -...
2026 
db 0
 - 
 
2027 
 
 2061 
db 0
2028 
 
 - 
 
2029 
 
 - 
 
2030 
head_f_i:
 2062 
 
2031 
head_f_l db '‘¨á⥬­ ï ®è¨¡ª ',0
 2063 
 
2032 
 
 - 
 
2033 
system_dir_0 db '/sys/lib/'
 - 
 
2034 
lib_name_0 db 'proc_lib.obj',0
 - 
 
2035 
err_message_found_lib_0 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'proc_lib.obj',39,0
 2064 
align 4
2036 
err_message_import_0 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'proc_lib.obj',39,0
 2065 
system_dir_0 db '/sys/lib/'
2037 
 
 - 
 
2038 
system_dir_1 db '/sys/lib/'
 - 
 
2039 
lib_name_1 db 'libimg.obj',0
 - 
 
2040 
err_message_found_lib_1 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'libimg.obj',39,0
 2066 
lib_name_0 db 'proc_lib.obj',0
2041 
err_message_import_1 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'libimg.obj',39,0
 2067 
system_dir_1 db '/sys/lib/'
2042 
 
 - 
 
2043 
system_dir_2 db '/sys/lib/'
 - 
 
2044 
lib_name_2 db 'buf2d.obj',0
 - 
 
2045 
err_msg_found_lib_2 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'buf2d.obj',39,0
 2068 
lib_name_1 db 'libimg.obj',0
2046 
err_msg_import_2 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'buf2d',39,0
 2069 
system_dir_2 db '/sys/lib/'
2047 
 
 - 
 
2048 
system_dir_3 db '/sys/lib/'
 - 
 
Line -... Line 2070...
- 
 
 2070 
lib_name_2 db 'buf2d.obj',0
- 
 
 2071 
system_dir_3 db '/sys/lib/'
- 
 
 2072 
lib_name_3 db 'box_lib.obj',0
- 
 
 2073 
 
- 
 
 2074 
head_f_i:
- 
 
 2075 
if lang eq ru
- 
 
 2076 
	head_f_l db '"‘¨á⥬­ ï ®è¨¡ª ',0
- 
 
 2077 
	err_message_found_lib_0 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'proc_lib.obj',39,'" -tE',0
- 
 
 2078 
	err_message_import_0 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'proc_lib.obj',39,'" -tW',0
- 
 
 2079 
	err_message_found_lib_1 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'libimg.obj',39,'" -tE',0
- 
 
 2080 
	err_message_import_1 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'libimg.obj',39,'" -tW',0
- 
 
 2081 
	err_msg_found_lib_2 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'buf2d.obj',39,'" -tE',0
- 
 
 2082 
	err_msg_import_2 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'buf2d',39,'" -tW',0
- 
 
 2083 
	err_msg_found_lib_3 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'box_lib.obj',39,'" -tE',0
- 
 
 2084 
	err_msg_import_3 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'box_lib',39,'" -tW',0
- 
 
 2085 
else
- 
 
 2086 
	head_f_l db '"System error',0
- 
 
 2087 
	err_message_found_lib_0 db 'Sorry I cannot found library ',39,'proc_lib.obj',39,'" -tE',0
- 
 
 2088 
	err_message_import_0 db 'Error on load import library ',39,'proc_lib.obj',39,'" -tW',0
- 
 
 2089 
	err_message_found_lib_1 db 'Sorry I cannot found library ',39,'libimg.obj',39,'" -tE',0
- 
 
 2090 
	err_message_import_1 db 'Error on load import library ',39,'libimg.obj',39,'" -tW',0
- 
 
 2091 
	err_msg_found_lib_2 db 'Sorry I cannot found library ',39,'buf2d.obj',39,'" -tE',0
- 
 
 2092 
	err_msg_import_2 db 'Error on load import library ',39,'buf2d',39,'" -tW',0
- 
 
 2093 
	err_msg_found_lib_3 db 'Sorry I cannot found library ',39,'box_lib.obj',39,'" -tE',0
2049 
lib_name_3 db 'box_lib.obj',0
 2094 
	err_msg_import_3 db 'Error on load import library ',39,'box_lib',39,'" -tW',0
2050 
err_msg_found_lib_3 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'box_lib.obj',39,0
 2095 
end if
2051 
err_msg_import_3 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'box_lib',39,0
 2096 
 
2052 
 
 2097 
align 4
2053 
l_libs_start:
 2098 
l_libs_start:
Line 2110... Line 2155...
2110 
 
 2155 
 
2111 
align 4
 2156 
align 4
2112 
proclib_import: ;®¯¨á ­¨¥ íªá¯®àâ¨à㥬ëå ä㭪権
 2157 
proclib_import: ;®¯¨á ­¨¥ íªá¯®àâ¨à㥬ëå ä㭪権
2113 
	OpenDialog_Init dd aOpenDialog_Init
 2158 
	OpenDialog_Init dd aOpenDialog_Init
- 
 
 2159 
	OpenDialog_Start dd aOpenDialog_Start
- 
 
 2160 
	OpenDialog_Set_file_name dd aOpenDialog_Set_file_name
2114 
	OpenDialog_Start dd aOpenDialog_Start
 2161 
	OpenDialog_Set_file_ext dd aOpenDialog_Set_file_ext
2115 
dd 0,0
 2162 
dd 0,0
2116 
	aOpenDialog_Init db 'OpenDialog_init',0
 2163 
	aOpenDialog_Init db 'OpenDialog_init',0
- 
 
 2164 
	aOpenDialog_Start db 'OpenDialog_start',0
- 
 
 2165 
	aOpenDialog_Set_file_name db 'OpenDialog_set_file_name',0
Line 2117... Line 2166...
2117 
	aOpenDialog_Start db 'OpenDialog_start',0
 2166 
	aOpenDialog_Set_file_ext db 'OpenDialog_set_file_ext',0
2118 
 
 2167 
 
2119 
align 4
 2168 
align 4
2120 
import_buf2d:
 2169 
import_buf2d: