WebSVN – Kolibri OS – Diff – /programs/other/t_edit_synt/te_syntax.asm

 include '../../macros.inc'
 include '../../proc32.inc'
 include '../../develop/libraries/box_lib/load_lib.mac'
 include '../../develop/libraries/box_lib/trunk/box_lib.mac'
-include '../t_edit/mem.inc'
+include '../../dll.inc'
 include 'te_data.inc'
 include 'te_work.inc' ;text work functions
+@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
+; ªà®á ¤«ï § £àã§ª¨ ¨§®¡à ¦¥¨© á ¨á¯®«ì§®¢ ¨¥¬ ¡¨¡«¨®â¥ª¨ libimg.obj
+;¤«ï ¨á¯®«ì§®¢ ¨ï ¬ ªà®á  ã¦ë ¯¥à¥¬¥ë¥:
+; - run_file_70 FileInfoBlock
+; - image_data dd 0
+macro load_image_file path,buf,size
+{
+	;path - ¬®¦¥â ¡ëâì ¯¥à¥¬¥®© ¨«¨ áâà®ª®¢ë¬ ¯ à ¬¥âà®¬
+	if path eqtype '' ;¯à®¢¥àï¥¬ § ¤  «¨ áâà®ª®© ¯ à ¬¥âà path
+		jmp @f
+			local .path_str
+			.path_str db path ;ä®à¬¨àã¥¬ «®ª «ìãî ¯¥à¥¬¥ãî
+			db 0
+		@@:
+		;32 - áâ ¤ àâë©  ¤à¥á ¯® ª®â®à®¬ã ¤®«¦¥ ¡ëâì ¡ãä¥à á á¨áâ¥¬ë¬ ¯ãâ¥¬
+		copy_path .path_str,[32],file_name,0x0
+	else
+		copy_path path,[32],file_name,0x0 ;ä®à¬¨àã¥¬ ¯®«ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ® ¢ ®¤®© ¯ ¯ª¥ á ¯à®£à ¬¬®©
+	end if
+	stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥¨ï
+	mov [buf],eax
+	mov eax,70 ;70-ï äãªæ¨ï à ¡®â  á ä ©« ¬¨
+	mov [run_file_70.Function], 0
+	mov [run_file_70.Position], 0
+	mov [run_file_70.Flags], 0
+	mov [run_file_70.Count], dword size
+	m2m [run_file_70.Buffer], [buf]
+	mov byte[run_file_70+20], 0
+	mov [run_file_70.FileName], file_name
+	mov ebx,run_file_70
+	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥¨ï
+	cmp ebx,0xffffffff
+	je @f
+		;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥¨ï ¨ ¯¥à¥¢®¤¨¬ ¥£® ¢® ¢à¥¬¥ë© ¡ãä¥à image_data
+		stdcall dword[img_decode], dword[buf],ebx,0
+		mov dword[image_data],eax
+		;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥¨¥ ª ä®à¬ âã rgb
+		stdcall dword[img_to_rgb2], dword[image_data],dword[buf]
+		;ã¤ «ï¥¬ ¢à¥¬¥ë© ¡ãä¥à image_data
+		stdcall dword[img_destroy], dword[image_data]
+	@@:
+}
 image_data dd 0 ;ãª § â¥«ì   ¢à¥¬¥ãî ¯ ¬ïâì. ¤«ï ã¦¥ ¯à¥®¡à §®¢ ¨ï ¨§®¡à ¦¥¨ï
-@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,0
+icon_tl_sys dd 0 ;ãª § â¥«ì   ¯ ¬ïâì ¤«ï åà ¥¨ï á¨áâ¥¬ëå ¨ª®®ª
 	mcall	-1	;exit not correct
 @@:
 ;---------------------------------------------------------------------
-  stdcall dword[tl_data_init],dword tree1
+	stdcall dword[tl_data_init],dword tree1
-  copy_path fn_icon_tl_sys,sys_path,file_name,0
+; ç¨â ¥¬ ä ©« á ªãàá®à ¬¨ ¨ «¨¨ï¬¨
-  mov ecx,3*256*13
+	load_image_file 'tl_sys_16.png', icon_tl_sys,54+3*256*13
-  stdcall mem.Alloc,ecx
-  mov dword[tree1.data_img_sys],eax
-  mov [run_file_70.Function], 0
-  mov [run_file_70.Position], 54
-  mov [run_file_70.Flags], 0
-  mov [run_file_70.Count], ecx
-  mov [run_file_70.Buffer], eax
-  mov byte[run_file_70+20], 0
-  mov [run_file_70.FileName], file_name
-  mov eax,70 ;load icon file
-  mov ebx,run_file_70
-  int 0x40
-  cmp ebx,0
-  jg @f
-    mov dword[tree1.data_img_sys],0
+	mov eax,dword[icon_tl_sys]
-  @@:
+	mov dword[tree1.data_img_sys],eax
 ;---------------------------------------------------------------------
-; ç¨â ¥¬ bmp ä ©« á ¨ª®ª ¬¨ ã§«®¢
-  copy_path fn_icon_tl_nod,sys_path,file_name,0
+; ç¨â ¥¬ bmp ä ©« á ¨ª®ª ¬¨ ã§«®¢
-  mov ecx,3*256*2
+	load_image_file 'tl_nod_16.png', icon_tl_sys,54+3*256*2
-  stdcall mem.Alloc,ecx
-  mov dword[tree1.data_img],eax
-;  mov [run_file_70.Function], 0
-;  mov [run_file_70.Position], 54
-;  mov [run_file_70.Flags], 0
-  mov [run_file_70.Count], ecx
-  mov [run_file_70.Buffer], eax
-;  mov byte[run_file_70+20], 0
-;  mov [run_file_70.FileName], file_name
-  mov eax,70 ;load icon file
-  mov ebx,run_file_70
-  int 0x40
-  cmp ebx,0
-  jg @f
-    mov dword[tree1.data_img],0
+	mov eax,dword[icon_tl_sys]
-  @@:
+	mov dword[tree1.data_img],eax
 ;------------------------------------------------------------------------------
   copy_path fn_syntax_dir,sys_path,file_name,0 ;¡¥à¥¬ ¯ãâì ª ¯ ¯ª¥ á ä ©« ¬¨ á¨â ªá¨á
   mov eax,70
   call InitColText
   ret
 align 4
 but_SaveSyntax:
-	stdcall [ted_but_save_file], tedit0,run_file_70,[edit1.text]
+	stdcall [ted_save_file], tedit0,run_file_70,[edit1.text]
 	ret
 align 4
 	;jne @f
 	;       mov eax,tedit1
 	;@@:
 	ret
-hed db 'TextEditor syntax file converter 23.06.12',0 ;¯®¤¯¨áì ®ª
+hed db 'TextEditor syntax file converter 01.07.14',0 ;¯®¤¯¨áì ®ª
 conv_tabl rb 128 ; â ¡«¨æ  ¤«ï ª®¢¥àâ¨à®¢ ¨ï scan-ª®¤  ¢ ascii-ª®¤
 txt122 db ' £à. ä ©«',0
 txt148 db '®åà. ä ©«',0
 txt_inp_file db 'áå. ä ©«:',0
+txt_out_file db 'ëå. ä ©«:',0
-txt_out_file db 'ëå. ä ©«:',0
+txt_no_kpack db 'âªàë¢ ¥¬ë© ä ©« á¦ â Kpack-®¬.',13,10,'«ï à ¡®âë á ä ©«®¬ à á¯ ªã©â¥ ¥£® ¨á¯®«ì§ãï á¨áâ¥¬ãî ¯à®£à ¬¬ã Kpack.',13,10,' ¡®â  á® á¦ âë¬¨ ä ©« ¬¨ ¯®ª  ¥ ¯®¤¤¥à¦¨¢ ¥âáï.',0
-err_message_found_lib0	 db 'Sorry I cannot found library box_lib.obj',0
+head_f_i:
-head_f_i0:
+head_f_l db 'System error',0
+err_message_found_lib_0 db 'Sorry I cannot found library ',39,'box_lib.obj',39,0
-head_f_l0	  db 'System error',0
+err_message_import_0 db 'Error on load import library ',39,'box_lib.obj',39,0
-err_message_import0	 db 'Error on load import library box_lib.obj',0
+err_message_found_lib_1 db 'Sorry I cannot found library ',39,'libimg.obj',39,0
-err_message_found_lib1	db 'Sorry I cannot found library msgbox.obj',0
+err_message_import_1 db 'Error on load import library ',39,'libimg.obj',39,0
 ;library structures
-;library structures
+l_libs_start:
-l_libs_start:
+	lib0 l_libs lib_name_0, sys_path, file_name, system_dir_0, err_message_found_lib_0, head_f_l, import_box_lib,err_message_import_0, head_f_i

Subversion Repositories Kolibri OS

(root)/programs/other/t_edit_synt/te_syntax.asm – Rev 2819 → 4990