WebSVN – Kolibri OS – Diff – /programs/other/t_edit/t_edit.asm


;£à®¬­ ï ¡« £®¤ à­®áâì ¢á¥¬, ªâ® ¯®¬®£ «: ª®¤®¬/á®¢¥â®¬/¤¨§ ©­®¬ ...
 
use32
  org 0x0
  db 'MENUET01' ;¨¤¥­â¨ä. ¨á¯®«­ï¥¬®£® ä ©«  ¢á¥£¤  8 ¡ ©â
  dd 0x01
  dd start
  dd i_end ; à §¬¥à ¯à¨«®¦¥­¨ï
  dd mem
  dd stacktop
  dd file_name ; command line
  dd sys_path
 
MAX_COLOR_WORD_LEN equ 40
maxChars equ 100002 ;(...+2)
BUF_SIZE equ 4096 ;buffer for copy|paste
maxSyntaxFileSize equ 410000
TOOLBAR_ICONS_SIZE equ 1200*20
 
include '../../proc32.inc'
;include '../../config.inc'
include '../../macros.inc'
include '../../dll.inc'
include '../../develop/libraries/box_lib/load_lib.mac'
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
include '../../system/desktop/trunk/kglobals.inc'
include '../../system/desktop/trunk/unpacker.inc'
include 'lang.inc'
 
include 't_data.inc'
include 'strlen.inc'
include 't_draw.inc' ;draw main window functions
include 't_button.inc' ;text work functions
include 'wnd_k_words.inc'
 
@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 ;ãª § â¥«ì ­  ¢à¥¬¥­­ãî ¯ ¬ïâì. ¤«ï ­ã¦¥­ ¯à¥®¡à §®¢ ­¨ï ¨§®¡à ¦¥­¨ï
icon_tl_sys dd 0 ;ãª § â¥«ì ­  ¯ ¬ïâì ¤«ï åà ­¥­¨ï á¨áâ¥¬­ëå ¨ª®­®ª
 
align 4
start:
	mcall 48,3,sc,sizeof.system_colors
 
	mcall 68,11
	or eax,eax
	jz button.exit
 
	mcall 66,1,1 ;scan code
	mcall 40,0xC0000027
 
	mov esi,file_name
	call strlen
	mov ecx,eax
	mov edi,openfile_path
	cld
	rep movsb ;ª®¯¨àã¥¬ ¨¬ï ä ©«  ¢ ¡ãä¥à openfile_path
 
load_libraries l_libs_start,load_lib_end
 
;¯à®¢¥àª  ­  áª®«ìª® ã¤ ç­® § £ã§¨«¨áì ¡¨¡«¨®â¥ª¨
mov	ebp,lib0
.test_lib_open:
	cmp	dword [ebp+ll_struc_size-4],0
	jz	@f
	mcall -1 ;exit not correct
@@:
	add ebp,ll_struc_size
	cmp ebp,load_lib_end
	jl .test_lib_open
 
;---------------------------------------------------------------------
	stdcall [ted_init], tedit0
	stdcall dword[tl_data_init], tree1
 
; OpenDialog initialisation
	stdcall [OpenDialog_Init],OpenDialog_data
	mov eax,[sc.work_button_text]
	mov [PathShow_data_1.font_color],eax
	mov eax,[sc.work_button]
	mov [PathShow_data_1.background_color],eax
 
; init toolbar file
	load_image_file 'te_icon.png', bmp_icon,TOOLBAR_ICONS_SIZE*2 ;ã¬­®¦¥­¨¥ ­  2 ¤«ï á¥àëå ª­®¯®ª
	mov eax,[bmp_icon]
	add eax,TOOLBAR_ICONS_SIZE
	stdcall img_to_gray, [bmp_icon],eax,(TOOLBAR_ICONS_SIZE)/3
;---------------------------------------------------------------------
; ç¨â ¥¬ ä ©« á ªãàá®à ¬¨ ¨ «¨­¨ï¬¨
	load_image_file 'tl_sys_16.png', icon_tl_sys,54+3*256*13
	mov eax,dword[icon_tl_sys]
	mov dword[tree1.data_img_sys],eax
;---------------------------------------------------------------------
; ç¨â ¥¬ ä ©« á ¨ª®­ª ¬¨ ã§«®¢
	load_image_file 'tl_nod_16.png', icon_tl_sys,54+3*256*2
	mov eax,dword[icon_tl_sys]
	mov dword[tree1.data_img],eax
;------------------------------------------------------------------------------
  copy_path fn_syntax_dir,sys_path,file_name,0x0 ;¡¥à¥¬ ¯ãâì ª ¯ ¯ª¥ á ä ©« ¬¨ á¨­â ªá¨á 
  mov eax,70
  mov ebx,tree_file_struct
  int 0x40
 
cmp ebx,-1
je .end_dir_init
 
  mov eax,dir_mem
  add eax,32+4+1+3+4*6+8
mov ecx,ebx
@@:
  cmp byte[eax],'.' ;ä¨«ìâàã¥¬ ä ©«ë á ¨¬¥­ ¬¨ '.' ¨ '..'
  je .filter
    ;0x10000 ;1*2^16 - £¤¥ 1 ­®¬¥à ¨ª®­ª¨ á ª­¨£®©
    stdcall dword[tl_node_add], eax,0x10000, tree1
 
    stdcall dword[tl_cur_next], tree1
  .filter:
  add eax,304
  loop @b
  stdcall dword[tl_cur_beg],tree1 ;áâ ¢¨¬ ªãàá®à ­  ­ ç «® á¯¨áª 
.end_dir_init:
 
;--- load ini file ---
	copy_path ini_name,sys_path,file_name,0
	;window startup pozition
	stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_l,ini_def_window_l
	mov word[wnd_s_pos+2],ax
	stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_w,ini_def_window_w
	mov word[wnd_s_pos],ax
	stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_t,ini_def_window_t
	mov word[wnd_s_pos+6],ax
	stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_h,ini_def_window_h
	mov word[wnd_s_pos+4],ax
	;scrool type
	stdcall dword[ini_get_int],file_name,ini_sec_window,key_scroll_type,ini_def_scroll_type
	mov [wScr.type],eax
	mov [hScr.type],eax
	mov [ws_dir_lbox.type],eax
    mov [w_scr_t3.type],eax
	;symbol size
	stdcall dword[ini_get_int],file_name,ini_sec_window,key_symbol_w,ini_def_symbol_w
	mov dword[tedit0.rec.width],eax
	stdcall dword[ini_get_int],file_name,ini_sec_window,key_symbol_h,ini_def_symbol_h
	mov dword[tedit0.rec.height],eax
	lea eax,[eax+eax*2]
	mov dword[tedit0.rec.top],eax
	;ä ©«®¢ë¥ à áè¨à¥­¨ï
	xor edx,edx
	mov ebx,synt_auto_open
	@@:
		;¡¥à¥¬ ¨¬ï ä ©« 
		stdcall dword[ini_get_str],file_name,ini_sec_options,key_synt_file,ebx,32,ini_def_synt_f
		cmp byte[ebx],0
		je @f
		inc byte[key_synt_file.numb]
		add ebx,32
		;¡¥à¥¬ à áè¨à¥­¨ï
		stdcall dword[ini_get_str],file_name,ini_sec_options,key_synt_ext,ebx,32,ini_def_synt_f
		inc byte[key_synt_ext.numb]
		add ebx,32
		inc edx
		cmp edx,max_synt_auto_open
		jl @b
	@@:
 
;--- load color option file ---
	mov ebx,dword[fn_col_option]
	call open_unpac_synt_file
 
;--- get cmd line ---
	cmp byte[openfile_path+3],0 ;openfile_path
	je @f ;if file names exist
		mov esi,openfile_path
		call strlen ;eax=strlen
		call but_no_msg_OpenFile
	@@:
 
 
 
align 4
red_win:
  call draw_window
 
align 4
still:
	mcall 10
	cmp dword[exit_code],1
	je button.exit
 
	cmp al,1 ;¨§¬¥­¨«®áì ¯®«®¦¥­¨¥ ®ª­ 
	jz red_win
	cmp al,2
	jz key
	cmp al,3
	jz button
	cmp al,6 ;¬ëèì
	jne @f
		jmp mouse
	@@:
	jmp still
 
align 4
draw_window:
	mcall 12,1
 
	mov edx,[sc.work]
	or  edx,0x73000000
	mov edi,hed
	mcall 0,dword[wnd_s_pos],dword[wnd_s_pos+4]
 
	mcall 9,procinfo,-1
	mov edi,tedit0 ;§­ ç¥­¨¥ edi ­ã¦­® ¤«ï EvSize ¨ ted_wnd_t
	call EvSize
 
	mov eax,13 ;¢¥àå­¨© ¯àï¬®ã£®«ì­¨ª, ¤«ï ®ç¨áâª¨ ¢¥àå­¥© ¯ ­¥«¨
	xor ebx,ebx
	mov ecx,ted_wnd_t
	mov bx,word[procinfo.client_box.width]
	inc bx
	int 0x40
 
	mov eax,4
	mov ebx,185*65536+9
	mov ecx,[sc.work_text]
	or  ecx,0x80000000
	mov edx,txtFile
	int 0x40
 
	stdcall [PathShow_draw], dword PathShow_data_1
	stdcall [menu_bar_draw], dword menu_data_1
 
	call draw_but_toolbar
 
	stdcall [ted_draw], tedit0
 
	mcall 12,2
	ret
 
align 4
mouse:
	stdcall [ted_mouse], tedit0
 
	cmp byte[tedit0.panel_id],TED_PANEL_FIND ;if not panel
	jne @f
		stdcall [edit_box_mouse], dword edit2
	@@:
	cmp byte[tedit0.panel_id],TED_PANEL_SYNTAX ;if not panel
	jne .menu_bar_1 ;@f
	stdcall [tl_mouse], tree1
;-----------------------------------------------
.menu_bar_1:
	mov [menu_data_1.get_mouse_flag],1
; mouse event for Menu 1
	stdcall [menu_bar_mouse],dword menu_data_1
	cmp dword[menu_data_1.click],1
	jne .mnu_1
	cmp dword[menu_data_1.cursor_out],4
	je button.exit	
	cmp dword[menu_data_1.cursor_out],3
	jne @f
		call ted_but_save_file
	@@:
	cmp dword[menu_data_1.cursor_out],2
	jne @f
		call ted_but_open_file
	@@:
	cmp dword[menu_data_1.cursor_out],1
	jne @f
		call ted_but_new_file
	@@:
.mnu_1:
	jmp still
;---------------------------------------------------------------------
 
;output:
; ah = symbol
align 4
proc KeyConvertToASCII, table:dword
  push ebx
  mov ebx,dword[table] ;convert scan to ascii
  ror ax,8
  xor ah,ah
  add bx,ax
  mov ah,byte[ebx]
  pop ebx
  ret
endp
 
align 4
key:
  mcall 66,3 ;66.3 ¯®«ãç¨âì á®áâ®ï­¨¥ ã¯à ¢«ïîé¨å ª« ¢¨è
  xor esi,esi
  mov ecx,1
  test al,0x03 ;[Shift]
  jz @f
    mov cl,2
    or esi,KM_SHIFT
  @@:
  test al,0x0c ;[Ctrl]
  jz @f
    or esi,KM_CTRL
  @@:
  test al,0x30 ;[Alt]
  jz @f
    mov cl,3
    or esi,KM_ALT
  @@:
  test al,0x80 ;[NumLock]
  jz @f
    or esi,KM_NUMLOCK
  @@:
 
  mcall 26,2,,conv_tabl ;26.2 ¯®«ãç¨âì à áª« ¤ªã ª« ¢¨ âãàë
  mcall 2 ;¯®«ãç ¥¬ ª®¤ ­ ¦ â®© ª« ¢¨è¨
  stdcall [tl_key], tree1
 
  test word [edit2.flags],10b;ed_focus ; ¥á«¨ ­¥ ¢ ä®ªãá¥, ¢ëå®¤¨¬
  je @f
    cmp ah,0x80 ;if key up
    ja still
    cmp ah,42 ;[Shift] (left)
    je still
    cmp ah,54 ;[Shift] (right)
    je still
    cmp ah,56 ;[Alt]
    je still
    cmp ah,29 ;[Ctrl]
    je still
    cmp ah,69 ;[Pause Break]
    je still
 
    stdcall KeyConvertToASCII, dword conv_tabl
    stdcall [edit_box_key], dword edit2
    jmp still
  @@:
 
  stdcall [ted_key], tedit0, conv_tabl,esi
  jmp still
 
align 4
button:
;  cmp [menu_active],1 ;¥á«¨ ­ ¦ «¨ ¬¥­î, â® á­ ç «  à¥ ªæ¨ï ­  ¬¥­î
;  jne @f ;mouse.menu_bar_1
;    mov [menu_active],0
;    jmp still
;  @@:
 
  mcall 17 ;¯®«ãç¨âì ª®¤ ­ ¦ â®© ª­®¯ª¨
  cmp ah,3
  jne @f
    call ted_but_new_file
  @@:
  cmp ah,4
  jne @f
    call ted_but_open_file
  @@:
  cmp ah,5
  jne @f
    call ted_but_save_file
  @@:
  cmp ah,6
  jne @f
    stdcall [ted_but_select_word], tedit0
  @@:
  cmp ah,7
  jne @f
    stdcall [ted_but_cut], tedit0
  @@:
  cmp ah,8
  jne @f
    stdcall [ted_but_copy], tedit0
  @@:
  cmp ah,9
  jne @f
    stdcall [ted_but_paste], tedit0
  @@:
  cmp ah,10
  jne @f
    call ted_but_find
  @@:
  cmp ah,11
  jne @f
    call but_replace
  @@:
  cmp ah,12
  jne @f
    call but_find_key_w
  @@:
  cmp ah,13
  jne @f
    stdcall [ted_but_sumb_upper], tedit0
  @@:
  cmp ah,14
  jne @f
    stdcall [ted_but_sumb_lover], tedit0
  @@:
  cmp ah,15
  jne @f
    stdcall [ted_but_reverse], tedit0
  @@:
  cmp ah,16
  jne @f
    stdcall [ted_but_undo], tedit0
  @@:
  cmp ah,17
  jne @f
    stdcall [ted_but_redo], tedit0
  @@:
  cmp ah,18
  jne @f
    stdcall but_sumb_invis, tedit0
  @@:
  cmp ah,19
  jne @f
    stdcall but_k_words_show, tedit0
  @@:
  cmp ah,20
  jne @f
    stdcall but_synt_show, tedit0
  @@:
  cmp ah,21
  jne @f
    stdcall [ted_but_convert_by_table],tedit0,tbl_1251_866
  @@:
  cmp ah,22
  jne @f
    stdcall [ted_but_convert_by_table],tedit0,tbl_866_1251
  @@:
 
  cmp ah,200
  jne @f
    stdcall ted_but_open_syntax, tedit0
  @@:
  cmp ah,201
  jne @f
    stdcall [ted_but_find_next], tedit0
  @@:
 
  cmp ah,1
  jne still
.exit:
	cmp dword[exit_code],1
	je @f
	stdcall [ted_can_save], tedit0
	cmp al,1
	jne @f
		stdcall [mb_create],msgbox_2,thread ;message: save changes in file?
		stdcall [mb_setfunctions],msgbox_2E_funct
		jmp still
	@@:
	stdcall mem.Free,[bmp_icon]
	cmp dword[unpac_mem],0
	je @f
		stdcall mem.Free,[unpac_mem]
	@@:
 
	stdcall [ted_delete], tedit0
	stdcall dword[tl_data_clear], tree1
	mcall -1 ;¢ëå®¤ ¨§ ¯à®£à ¬¬ë
 
PathShow_data_1:
.type			dd 0	;+0
.start_y		dw 9	;+4
.start_x		dw 222	;+6
.font_size_x		dw 6	;+8     ; 6 - for font 0, 8 - for font 1
.area_size_x		dw 200	;+10
.font_number		dd 0	;+12    ; 0 - monospace, 1 - variable
.background_flag	dd 1	;+16
.font_color		dd 0x0	;+20
.background_color	dd 0xffffff	;+24
.text_pointer		dd openfile_path	;+28
.work_area_pointer	dd text_work_area	;+32
.temp_text_length	dd 0	;+36
 
edit2 edit_box TED_PANEL_WIDTH-1, 0, 20, 0xffffff, 0xff80, 0xff0000, 0xff, 0x4080, 300, buf_find, mouse_dd, 0
 
unpac_mem dd 0
 
if lang eq ru
  head_f_i:
  head_f_l db '¨áâ¥¬­ ï ®è¨¡ª ',0
  err_message_found_lib0 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'box_lib.obj',39,0
  err_message_import0 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'box_lib.obj',39,0
  err_message_found_lib1 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'msgbox.obj',39,0
  err_message_import1 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'msgbox.obj',39,0
  err_message_found_lib2 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'proc_lib.obj',39,0
  err_message_import2 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'proc_lib.obj',39,0
  err_message_found_lib_3 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'libimg.obj',39,0
  err_message_import_3 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'libimg.obj',39,0
  err_message_found_lib_4 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'libini.obj',39,0
  err_message_import_4 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'libini.obj',39,0
else
  head_f_i:
  head_f_l db 'System error',0
  err_message_found_lib0 db 'Sorry I cannot found library ',39,'box_lib.obj',39,0
  err_message_import0 db 'Error on load import library ',39,'box_lib.obj',39,0
  err_message_found_lib1 db 'Sorry I cannot found library ',39,'msgbox.obj',39,0
  err_message_import1 db 'Error on load import library ',39,'msgbox.obj',39,0
  err_message_found_lib2 db 'Sorry I cannot found library ',39,'proc_lib.obj',39,0
  err_message_import2 db 'Error on load import library ',39,'proc_lib.obj',39,0
  err_message_found_lib_3 db 'Sorry I cannot found library ',39,'libimg.obj',39,0
  err_message_import_3 db 'Error on load import library ',39,'libimg.obj',39,0
  err_message_found_lib_4 db 'Sorry I cannot found library ',39,'libini.obj',39,0
  err_message_import_4 db 'Error on load import library ',39,'libini.obj',39,0
end if
 
;library structures
l_libs_start:
	lib0 l_libs lib_name_0, sys_path, file_name, system_dir_0,\
		err_message_found_lib0, head_f_l, import_box_lib,err_message_import0, head_f_i
	lib1 l_libs lib_name_1, sys_path, file_name, system_dir_1,\
		err_message_found_lib1, head_f_l, import_msgbox_lib, err_message_import1, head_f_i
	lib2 l_libs lib_name_2, sys_path, file_name, system_dir_2,\
		err_message_found_lib2, head_f_l, import_proclib, err_message_import2, head_f_i
	lib3 l_libs lib_name_3, sys_path, file_name, system_dir_3,\
		err_message_found_lib_3, head_f_l, import_libimg, err_message_import_3, head_f_i
	lib4 l_libs lib_name_4, sys_path, file_name, system_dir_4,\
		err_message_found_lib_4, head_f_l, import_libini, err_message_import_4, head_f_i
load_lib_end:
 
IncludeIGlobals
i_end:
	dir_mem rb 32+304*count_of_dir_list_files
	wnd_s_pos: ;¬¥áâ® ¤«ï ­ áâà®¥ª áâ àâ®¢®© ¯®§¨æ¨¨ ®ª­ 
		rq 1
	last_open_synt_file rb 32 ;¨¬ï ¯®á«¥¤­¥£® ¯®¤ª«îç¥­­®£® ä ©«  á¨­â ªá¨á 
	buf rb BUF_SIZE ;¡ãä¥à ¤«ï ª®¯¨à®¢ ­¨ï ¨ ¢áâ ¢ª¨
	buf_find rb 302 ;¡ãä¥à ¤«ï ¯®¨áª  â¥ªáâ 
IncludeUGlobals
	align 16
	procinfo process_information
		rb 1024
	thread:
	rb 1024
    thread_coords:
	rb 1024
stacktop:
	sys_path: ;¯ãâì ®âªã¤  § ¯ãáâ¨«áï ¨á¯®«­ï¥¬ë© ä ©«
		rb 4096
	file_name: ;¯ à ¬¥âàë § ¯ãáª 
		rb 4096
	syntax_path: ;¨¬ï ¯®¤ª«îç ¥¬®£® ä ©«  á¨­â ªá¨á 
		rb 4096
	plugin_path:
		rb 4096
	openfile_path: ;¯®«­ë© ¯ãâì ª ä ©«ã á ª®â®àë¬ ¨¤¥â à ¡®â 
		rb 4096
	text_work_area: ;¯ãâì ª ä ©«ã, ª®â®àë© ¯®ª §ë¢ ¥âáï ¢ ®ª­¥
		rb 4096
	filename_area: ;¨¬ï ä ©«  ¤«ï ¤¨ «®£  ®âªàëâ¨ï/§ ªàëâ¨ï
		rb 256
	file_info:
		rb 40
mem:

Rev 4308	Rev 4991
1	;£à®¬ ï ¡« £®¤ à®áâì ¢á¥¬, ªâ® ¯®¬®£ «: ª®¤®¬/á®¢¥â®¬/¤¨§ ©®¬ ...	1	;£à®¬ ï ¡« £®¤ à®áâì ¢á¥¬, ªâ® ¯®¬®£ «: ª®¤®¬/á®¢¥â®¬/¤¨§ ©®¬ ...
2		2
3	use32	3	use32
4	org 0x0	4	org 0x0
5	db 'MENUET01' ;¨¤¥â¨ä. ¨á¯®«ï¥¬®£® ä ©« ¢á¥£¤ 8 ¡ ©â	5	db 'MENUET01' ;¨¤¥â¨ä. ¨á¯®«ï¥¬®£® ä ©« ¢á¥£¤ 8 ¡ ©â
6	dd 0x01	6	dd 0x01
7	dd start	7	dd start
8	dd i_end ; à §¬¥à ¯à¨«®¦¥¨ï	8	dd i_end ; à §¬¥à ¯à¨«®¦¥¨ï
9	dd mem	9	dd mem
10	dd stacktop	10	dd stacktop
11	dd file_name ; command line	11	dd file_name ; command line
12	dd sys_path	12	dd sys_path
13		13
14	MAX_COLOR_WORD_LEN equ 40	14	MAX_COLOR_WORD_LEN equ 40
15	maxChars equ 100002 ;(...+2)	15	maxChars equ 100002 ;(...+2)
16	BUF_SIZE equ 4096 ;buffer for copy\|paste	16	BUF_SIZE equ 4096 ;buffer for copy\|paste
17	maxSyntaxFileSize equ 410000	17	maxSyntaxFileSize equ 410000
18	TOOLBAR_ICONS_SIZE equ 1200*20	18	TOOLBAR_ICONS_SIZE equ 1200*20
19		19
20	include '../../proc32.inc'	20	include '../../proc32.inc'
21	;include '../../config.inc'	21	;include '../../config.inc'
22	include '../../macros.inc'	22	include '../../macros.inc'
23	include '../../dll.inc'	23	include '../../dll.inc'
24	include '../../develop/libraries/box_lib/load_lib.mac'	24	include '../../develop/libraries/box_lib/load_lib.mac'
25	include '../../develop/libraries/box_lib/trunk/box_lib.mac'	25	include '../../develop/libraries/box_lib/trunk/box_lib.mac'
26	include '../../system/desktop/trunk/kglobals.inc'	26	include '../../system/desktop/trunk/kglobals.inc'
27	include '../../system/desktop/trunk/unpacker.inc'	27	include '../../system/desktop/trunk/unpacker.inc'
28	include 'lang.inc'	28	include 'lang.inc'
29		29
30	include 't_data.inc'	30	include 't_data.inc'
31	include 'strlen.inc'	31	include 'strlen.inc'
32	include 't_draw.inc' ;draw main window functions	32	include 't_draw.inc' ;draw main window functions
33	include 't_button.inc' ;text work functions	33	include 't_button.inc' ;text work functions
34	include 'wnd_k_words.inc'	34	include 'wnd_k_words.inc'
35		35
36	@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load	36	@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
37		37
38		38
39	; ªà®á ¤«ï § £àã§ª¨ ¨§®¡à ¦¥¨© á ¨á¯®«ì§®¢ ¨¥¬ ¡¨¡«¨®â¥ª¨ libimg.obj	39	; ªà®á ¤«ï § £àã§ª¨ ¨§®¡à ¦¥¨© á ¨á¯®«ì§®¢ ¨¥¬ ¡¨¡«¨®â¥ª¨ libimg.obj
40	;¤«ï ¨á¯®«ì§®¢ ¨ï ¬ ªà®á ã¦ë ¯¥à¥¬¥ë¥:	40	;¤«ï ¨á¯®«ì§®¢ ¨ï ¬ ªà®á ã¦ë ¯¥à¥¬¥ë¥:
41	; - run_file_70 FileInfoBlock	41	; - run_file_70 FileInfoBlock
42	; - image_data dd 0	42	; - image_data dd 0
43	macro load_image_file path,buf,size	43	macro load_image_file path,buf,size
44	{	44	{
45	;path - ¬®¦¥â ¡ëâì ¯¥à¥¬¥®© ¨«¨ áâà®ª®¢ë¬ ¯ à ¬¥âà®¬	45	;path - ¬®¦¥â ¡ëâì ¯¥à¥¬¥®© ¨«¨ áâà®ª®¢ë¬ ¯ à ¬¥âà®¬
46	if path eqtype '' ;¯à®¢¥àï¥¬ § ¤ «¨ áâà®ª®© ¯ à ¬¥âà path	46	if path eqtype '' ;¯à®¢¥àï¥¬ § ¤ «¨ áâà®ª®© ¯ à ¬¥âà path
47	jmp @f	47	jmp @f
48	local .path_str	48	local .path_str
49	.path_str db path ;ä®à¬¨àã¥¬ «®ª «ìãî ¯¥à¥¬¥ãî	49	.path_str db path ;ä®à¬¨àã¥¬ «®ª «ìãî ¯¥à¥¬¥ãî
50	db 0	50	db 0
51	@@:	51	@@:
52	;32 - áâ ¤ àâë© ¤à¥á ¯® ª®â®à®¬ã ¤®«¦¥ ¡ëâì ¡ãä¥à á á¨áâ¥¬ë¬ ¯ãâ¥¬	52	;32 - áâ ¤ àâë© ¤à¥á ¯® ª®â®à®¬ã ¤®«¦¥ ¡ëâì ¡ãä¥à á á¨áâ¥¬ë¬ ¯ãâ¥¬
53	copy_path .path_str,[32],file_name,0x0	53	copy_path .path_str,[32],file_name,0x0
54	else	54	else
55	copy_path path,[32],file_name,0x0 ;ä®à¬¨àã¥¬ ¯®«ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ® ¢ ®¤®© ¯ ¯ª¥ á ¯à®£à ¬¬®©	55	copy_path path,[32],file_name,0x0 ;ä®à¬¨àã¥¬ ¯®«ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ® ¢ ®¤®© ¯ ¯ª¥ á ¯à®£à ¬¬®©
56	end if	56	end if
57		57
58	stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥¨ï	58	stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥¨ï
59	mov [buf],eax	59	mov [buf],eax
60		60
61	mov eax,70 ;70-ï äãªæ¨ï à ¡®â á ä ©« ¬¨	61	mov eax,70 ;70-ï äãªæ¨ï à ¡®â á ä ©« ¬¨
62	mov [run_file_70.Function], 0	62	mov [run_file_70.Function], 0
63	mov [run_file_70.Position], 0	63	mov [run_file_70.Position], 0
64	mov [run_file_70.Flags], 0	64	mov [run_file_70.Flags], 0
65	mov [run_file_70.Count], dword size	65	mov [run_file_70.Count], dword size
66	m2m [run_file_70.Buffer], [buf]	66	m2m [run_file_70.Buffer], [buf]
67	mov byte[run_file_70+20], 0	67	mov byte[run_file_70+20], 0
68	mov [run_file_70.FileName], file_name	68	mov [run_file_70.FileName], file_name
69	mov ebx,run_file_70	69	mov ebx,run_file_70
70	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥¨ï	70	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥¨ï
71	cmp ebx,0xffffffff	71	cmp ebx,0xffffffff
72	je @f	72	je @f
73	;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥¨ï ¨ ¯¥à¥¢®¤¨¬ ¥£® ¢® ¢à¥¬¥ë© ¡ãä¥à image_data	73	;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥¨ï ¨ ¯¥à¥¢®¤¨¬ ¥£® ¢® ¢à¥¬¥ë© ¡ãä¥à image_data
74	stdcall dword[img_decode], dword[buf],ebx,0	74	stdcall dword[img_decode], dword[buf],ebx,0
75	mov dword[image_data],eax	75	mov dword[image_data],eax
76	;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥¨¥ ª ä®à¬ âã rgb	76	;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥¨¥ ª ä®à¬ âã rgb
77	stdcall dword[img_to_rgb2], dword[image_data],dword[buf]	77	stdcall dword[img_to_rgb2], dword[image_data],dword[buf]
78	;ã¤ «ï¥¬ ¢à¥¬¥ë© ¡ãä¥à image_data	78	;ã¤ «ï¥¬ ¢à¥¬¥ë© ¡ãä¥à image_data
79	stdcall dword[img_destroy], dword[image_data]	79	stdcall dword[img_destroy], dword[image_data]
80	@@:	80	@@:
81	}	81	}
82		82
83	image_data dd 0 ;ãª § â¥«ì ¢à¥¬¥ãî ¯ ¬ïâì. ¤«ï ã¦¥ ¯à¥®¡à §®¢ ¨ï ¨§®¡à ¦¥¨ï	83	image_data dd 0 ;ãª § â¥«ì ¢à¥¬¥ãî ¯ ¬ïâì. ¤«ï ã¦¥ ¯à¥®¡à §®¢ ¨ï ¨§®¡à ¦¥¨ï
84	icon_tl_sys dd 0 ;ãª § â¥«ì ¯ ¬ïâì ¤«ï åà ¥¨ï á¨áâ¥¬ëå ¨ª®®ª	84	icon_tl_sys dd 0 ;ãª § â¥«ì ¯ ¬ïâì ¤«ï åà ¥¨ï á¨áâ¥¬ëå ¨ª®®ª
85		85
86	align 4	86	align 4
87	start:	87	start:
88	mcall 48,3,sc,sizeof.system_colors	88	mcall 48,3,sc,sizeof.system_colors
89		89
90	mcall 68,11	90	mcall 68,11
91	or eax,eax	91	or eax,eax
92	jz button.exit	92	jz button.exit
93		93
94	mcall 66,1,1 ;scan code	94	mcall 66,1,1 ;scan code
95	mcall 40,0xC0000027	95	mcall 40,0xC0000027
96		96
97	mov esi,file_name	97	mov esi,file_name
98	call strlen	98	call strlen
99	mov ecx,eax	99	mov ecx,eax
100	mov edi,openfile_path	100	mov edi,openfile_path
101	cld	101	cld
102	rep movsb ;ª®¯¨àã¥¬ ¨¬ï ä ©« ¢ ¡ãä¥à openfile_path	102	rep movsb ;ª®¯¨àã¥¬ ¨¬ï ä ©« ¢ ¡ãä¥à openfile_path
103		103
104	load_libraries l_libs_start,load_lib_end	104	load_libraries l_libs_start,load_lib_end
105		105
106	;¯à®¢¥àª áª®«ìª® ã¤ ç® § £ã§¨«¨áì ¡¨¡«¨®â¥ª¨	106	;¯à®¢¥àª áª®«ìª® ã¤ ç® § £ã§¨«¨áì ¡¨¡«¨®â¥ª¨
107	mov ebp,lib0	107	mov ebp,lib0
108	.test_lib_open:	108	.test_lib_open:
109	cmp dword [ebp+ll_struc_size-4],0	109	cmp dword [ebp+ll_struc_size-4],0
110	jz @f	110	jz @f
111	mcall -1 ;exit not correct	111	mcall -1 ;exit not correct
112	@@:	112	@@:
113	add ebp,ll_struc_size	113	add ebp,ll_struc_size
114	cmp ebp,load_lib_end	114	cmp ebp,load_lib_end
115	jl .test_lib_open	115	jl .test_lib_open
116		116
117	;---------------------------------------------------------------------	117	;---------------------------------------------------------------------
118	stdcall [ted_init], tedit0	118	stdcall [ted_init], tedit0
119	stdcall dword[tl_data_init], tree1	119	stdcall dword[tl_data_init], tree1
120		120
121	; OpenDialog initialisation	121	; OpenDialog initialisation
122	stdcall [OpenDialog_Init],OpenDialog_data	122	stdcall [OpenDialog_Init],OpenDialog_data
123	mov eax,[sc.work_button_text]	123	mov eax,[sc.work_button_text]
124	mov [PathShow_data_1.font_color],eax	124	mov [PathShow_data_1.font_color],eax
125	mov eax,[sc.work_button]	125	mov eax,[sc.work_button]
126	mov [PathShow_data_1.background_color],eax	126	mov [PathShow_data_1.background_color],eax
127		127
128	; init toolbar file	128	; init toolbar file
129	load_image_file 'te_icon.png', bmp_icon,TOOLBAR_ICONS_SIZE*2 ;ã¬®¦¥¨¥ 2 ¤«ï á¥àëå ª®¯®ª	129	load_image_file 'te_icon.png', bmp_icon,TOOLBAR_ICONS_SIZE*2 ;ã¬®¦¥¨¥ 2 ¤«ï á¥àëå ª®¯®ª
130	mov eax,[bmp_icon]	130	mov eax,[bmp_icon]
131	add eax,TOOLBAR_ICONS_SIZE	131	add eax,TOOLBAR_ICONS_SIZE
132	stdcall img_to_gray, [bmp_icon],eax,(TOOLBAR_ICONS_SIZE)/3	132	stdcall img_to_gray, [bmp_icon],eax,(TOOLBAR_ICONS_SIZE)/3
133	;---------------------------------------------------------------------	133	;---------------------------------------------------------------------
134	; ç¨â ¥¬ ä ©« á ªãàá®à ¬¨ ¨ «¨¨ï¬¨	134	; ç¨â ¥¬ ä ©« á ªãàá®à ¬¨ ¨ «¨¨ï¬¨
135	load_image_file 'tl_sys_16.png', icon_tl_sys,54+325613	135	load_image_file 'tl_sys_16.png', icon_tl_sys,54+325613
136	mov eax,dword[icon_tl_sys]	136	mov eax,dword[icon_tl_sys]
137	mov dword[tree1.data_img_sys],eax	137	mov dword[tree1.data_img_sys],eax
138	;---------------------------------------------------------------------	138	;---------------------------------------------------------------------
139	; ç¨â ¥¬ ä ©« á ¨ª®ª ¬¨ ã§«®¢	139	; ç¨â ¥¬ ä ©« á ¨ª®ª ¬¨ ã§«®¢
140	load_image_file 'tl_nod_16.png', icon_tl_sys,54+32562	140	load_image_file 'tl_nod_16.png', icon_tl_sys,54+32562
141	mov eax,dword[icon_tl_sys]	141	mov eax,dword[icon_tl_sys]
142	mov dword[tree1.data_img],eax	142	mov dword[tree1.data_img],eax
143	;------------------------------------------------------------------------------	143	;------------------------------------------------------------------------------
144	copy_path fn_syntax_dir,sys_path,file_name,0x0 ;¡¥à¥¬ ¯ãâì ª ¯ ¯ª¥ á ä ©« ¬¨ á¨â ªá¨á	144	copy_path fn_syntax_dir,sys_path,file_name,0x0 ;¡¥à¥¬ ¯ãâì ª ¯ ¯ª¥ á ä ©« ¬¨ á¨â ªá¨á
145	mov eax,70	145	mov eax,70
146	mov ebx,tree_file_struct	146	mov ebx,tree_file_struct
147	int 0x40	147	int 0x40
148		148
149	cmp ebx,-1	149	cmp ebx,-1
150	je .end_dir_init	150	je .end_dir_init
151		151
152	mov eax,dir_mem	152	mov eax,dir_mem
153	add eax,32+4+1+3+4*6+8	153	add eax,32+4+1+3+4*6+8
154	mov ecx,ebx	154	mov ecx,ebx
155	@@:	155	@@:
156	cmp byte[eax],'.' ;ä¨«ìâàã¥¬ ä ©«ë á ¨¬¥ ¬¨ '.' ¨ '..'	156	cmp byte[eax],'.' ;ä¨«ìâàã¥¬ ä ©«ë á ¨¬¥ ¬¨ '.' ¨ '..'
157	je .filter	157	je .filter
158	;0x10000 ;1*2^16 - £¤¥ 1 ®¬¥à ¨ª®ª¨ á ª¨£®©	158	;0x10000 ;1*2^16 - £¤¥ 1 ®¬¥à ¨ª®ª¨ á ª¨£®©
159	stdcall dword[tl_node_add], eax,0x10000, tree1	159	stdcall dword[tl_node_add], eax,0x10000, tree1
160		160
161	stdcall dword[tl_cur_next], tree1	161	stdcall dword[tl_cur_next], tree1
162	.filter:	162	.filter:
163	add eax,304	163	add eax,304
164	loop @b	164	loop @b
165	stdcall dword[tl_cur_beg],tree1 ;áâ ¢¨¬ ªãàá®à ç «® á¯¨áª	165	stdcall dword[tl_cur_beg],tree1 ;áâ ¢¨¬ ªãàá®à ç «® á¯¨áª
166	.end_dir_init:	166	.end_dir_init:
167		167
168	;--- load ini file ---	168	;--- load ini file ---
169	copy_path ini_name,sys_path,file_name,0	169	copy_path ini_name,sys_path,file_name,0
170	;window startup pozition	170	;window startup pozition
171	stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_l,ini_def_window_l	171	stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_l,ini_def_window_l
172	mov word[wnd_s_pos+2],ax	172	mov word[wnd_s_pos+2],ax
173	stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_w,ini_def_window_w	173	stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_w,ini_def_window_w
174	mov word[wnd_s_pos],ax	174	mov word[wnd_s_pos],ax
175	stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_t,ini_def_window_t	175	stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_t,ini_def_window_t
176	mov word[wnd_s_pos+6],ax	176	mov word[wnd_s_pos+6],ax
177	stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_h,ini_def_window_h	177	stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_h,ini_def_window_h
178	mov word[wnd_s_pos+4],ax	178	mov word[wnd_s_pos+4],ax
179	;scrool type	179	;scrool type
180	stdcall dword[ini_get_int],file_name,ini_sec_window,key_scroll_type,ini_def_scroll_type	180	stdcall dword[ini_get_int],file_name,ini_sec_window,key_scroll_type,ini_def_scroll_type
181	mov [wScr.type],eax	181	mov [wScr.type],eax
182	mov [hScr.type],eax	182	mov [hScr.type],eax
183	mov [ws_dir_lbox.type],eax	183	mov [ws_dir_lbox.type],eax
184	mov [w_scr_t3.type],eax	184	mov [w_scr_t3.type],eax
185	;symbol size	185	;symbol size
186	stdcall dword[ini_get_int],file_name,ini_sec_window,key_symbol_w,ini_def_symbol_w	186	stdcall dword[ini_get_int],file_name,ini_sec_window,key_symbol_w,ini_def_symbol_w
187	mov dword[tedit0.rec.width],eax	187	mov dword[tedit0.rec.width],eax
188	stdcall dword[ini_get_int],file_name,ini_sec_window,key_symbol_h,ini_def_symbol_h	188	stdcall dword[ini_get_int],file_name,ini_sec_window,key_symbol_h,ini_def_symbol_h
189	mov dword[tedit0.rec.height],eax	189	mov dword[tedit0.rec.height],eax
190	lea eax,[eax+eax*2]	190	lea eax,[eax+eax*2]
191	mov dword[tedit0.rec.top],eax	191	mov dword[tedit0.rec.top],eax
192	;ä ©«®¢ë¥ à áè¨à¥¨ï	192	;ä ©«®¢ë¥ à áè¨à¥¨ï
193	xor edx,edx	193	xor edx,edx
194	mov ebx,synt_auto_open	194	mov ebx,synt_auto_open
195	@@:	195	@@:
196	;¡¥à¥¬ ¨¬ï ä ©«	196	;¡¥à¥¬ ¨¬ï ä ©«
197	stdcall dword[ini_get_str],file_name,ini_sec_options,key_synt_file,ebx,32,ini_def_synt_f	197	stdcall dword[ini_get_str],file_name,ini_sec_options,key_synt_file,ebx,32,ini_def_synt_f
198	cmp byte[ebx],0	198	cmp byte[ebx],0
199	je @f	199	je @f
200	inc byte[key_synt_file.numb]	200	inc byte[key_synt_file.numb]
201	add ebx,32	201	add ebx,32
202	;¡¥à¥¬ à áè¨à¥¨ï	202	;¡¥à¥¬ à áè¨à¥¨ï
203	stdcall dword[ini_get_str],file_name,ini_sec_options,key_synt_ext,ebx,32,ini_def_synt_f	203	stdcall dword[ini_get_str],file_name,ini_sec_options,key_synt_ext,ebx,32,ini_def_synt_f
204	inc byte[key_synt_ext.numb]	204	inc byte[key_synt_ext.numb]
205	add ebx,32	205	add ebx,32
206	inc edx	206	inc edx
207	cmp edx,max_synt_auto_open	207	cmp edx,max_synt_auto_open
208	jl @b	208	jl @b
209	@@:	209	@@:
210		210
211	;--- load color option file ---	211	;--- load color option file ---
212	mov ebx,dword[fn_col_option]	212	mov ebx,dword[fn_col_option]
213	call open_unpac_synt_file	213	call open_unpac_synt_file
214		214
215	;--- get cmd line ---	215	;--- get cmd line ---
216	cmp byte[openfile_path+3],0 ;openfile_path	216	cmp byte[openfile_path+3],0 ;openfile_path
217	je @f ;if file names exist	217	je @f ;if file names exist
218	mov esi,openfile_path	218	mov esi,openfile_path
219	call strlen ;eax=strlen	219	call strlen ;eax=strlen
220	call but_no_msg_OpenFile	220	call but_no_msg_OpenFile
221	@@:	221	@@:
222		222
223		223
224		224
225	align 4	225	align 4
226	red_win:	226	red_win:
227	call draw_window	227	call draw_window
228		228
229	align 4	229	align 4
230	still:	230	still:
231	mcall 10	231	mcall 10
-		232	cmp dword[exit_code],1
-		233	je button.exit
232		234
233	cmp al,1 ;¨§¬¥¨«®áì ¯®«®¦¥¨¥ ®ª	235	cmp al,1 ;¨§¬¥¨«®áì ¯®«®¦¥¨¥ ®ª
234	jz red_win	236	jz red_win
235	cmp al,2	237	cmp al,2
236	jz key	238	jz key
237	cmp al,3	239	cmp al,3
238	jz button	240	jz button
239	cmp al,6 ;¬ëèì	241	cmp al,6 ;¬ëèì
240	jne @f	242	jne @f
241	jmp mouse	243	jmp mouse
242	@@:	244	@@:
243	jmp still	245	jmp still
244		246
245	align 4	247	align 4
246	draw_window:	248	draw_window:
247	mcall 12,1	249	mcall 12,1
248		250
249	mov edx,[sc.work]	251	mov edx,[sc.work]
250	or edx,0x73000000	252	or edx,0x73000000
251	mov edi,hed	253	mov edi,hed
252	mcall 0,dword[wnd_s_pos],dword[wnd_s_pos+4]	254	mcall 0,dword[wnd_s_pos],dword[wnd_s_pos+4]
253		255
254	mcall 9,procinfo,-1	256	mcall 9,procinfo,-1
255	mov edi,tedit0 ;§ ç¥¨¥ edi ã¦® ¤«ï EvSize ¨ ted_wnd_t	257	mov edi,tedit0 ;§ ç¥¨¥ edi ã¦® ¤«ï EvSize ¨ ted_wnd_t
256	call EvSize	258	call EvSize
257		259
258	mov eax,13 ;¢¥àå¨© ¯àï¬®ã£®«ì¨ª, ¤«ï ®ç¨áâª¨ ¢¥àå¥© ¯ ¥«¨	260	mov eax,13 ;¢¥àå¨© ¯àï¬®ã£®«ì¨ª, ¤«ï ®ç¨áâª¨ ¢¥àå¥© ¯ ¥«¨
259	xor ebx,ebx	261	xor ebx,ebx
260	mov ecx,ted_wnd_t	262	mov ecx,ted_wnd_t
261	mov bx,word[procinfo.client_box.width]	263	mov bx,word[procinfo.client_box.width]
262	inc bx	264	inc bx
263	int 0x40	265	int 0x40
264		266
265	mov eax,4	267	mov eax,4
266	mov ebx,185*65536+9	268	mov ebx,185*65536+9
267	mov ecx,[sc.work_text]	269	mov ecx,[sc.work_text]
268	or ecx,0x80000000	270	or ecx,0x80000000
269	mov edx,txtFile	271	mov edx,txtFile
270	int 0x40	272	int 0x40
271		273
272	stdcall [PathShow_draw], dword PathShow_data_1	274	stdcall [PathShow_draw], dword PathShow_data_1
273	stdcall [menu_bar_draw], dword menu_data_1	275	stdcall [menu_bar_draw], dword menu_data_1
274		276
275	call draw_but_toolbar	277	call draw_but_toolbar
276		278
277	stdcall [ted_draw], tedit0	279	stdcall [ted_draw], tedit0
278		280
279	mcall 12,2	281	mcall 12,2
280	ret	282	ret
281		283
282	align 4	284	align 4
283	mouse:	285	mouse:
284	stdcall [ted_mouse], tedit0	286	stdcall [ted_mouse], tedit0
285		287
286	cmp byte[tedit0.panel_id],TED_PANEL_FIND ;if not panel	288	cmp byte[tedit0.panel_id],TED_PANEL_FIND ;if not panel
287	jne @f	289	jne @f
288	stdcall [edit_box_mouse], dword edit2	290	stdcall [edit_box_mouse], dword edit2
289	@@:	291	@@:
290	cmp byte[tedit0.panel_id],TED_PANEL_SYNTAX ;if not panel	292	cmp byte[tedit0.panel_id],TED_PANEL_SYNTAX ;if not panel
291	jne .menu_bar_1 ;@f	293	jne .menu_bar_1 ;@f
292	stdcall [tl_mouse], tree1	294	stdcall [tl_mouse], tree1
293	;-----------------------------------------------	295	;-----------------------------------------------
294	.menu_bar_1:	296	.menu_bar_1:
295	mov [menu_data_1.get_mouse_flag],1	297	mov [menu_data_1.get_mouse_flag],1
296	; mouse event for Menu 1	298	; mouse event for Menu 1
297	stdcall [menu_bar_mouse],dword menu_data_1	299	stdcall [menu_bar_mouse],dword menu_data_1
298	cmp dword[menu_data_1.click],1	300	cmp dword[menu_data_1.click],1
299	jne .mnu_1	301	jne .mnu_1
300	cmp dword[menu_data_1.cursor_out],4	302	cmp dword[menu_data_1.cursor_out],4
301	je button.exit	303	je button.exit
302	cmp dword[menu_data_1.cursor_out],3	304	cmp dword[menu_data_1.cursor_out],3
303	jne @f	305	jne @f
304	call ted_but_save_file	306	call ted_but_save_file
305	@@:	307	@@:
306	cmp dword[menu_data_1.cursor_out],2	308	cmp dword[menu_data_1.cursor_out],2
307	jne @f	309	jne @f
308	call ted_but_open_file	310	call ted_but_open_file
309	@@:	311	@@:
310	cmp dword[menu_data_1.cursor_out],1	312	cmp dword[menu_data_1.cursor_out],1
311	jne @f	313	jne @f
312	call ted_but_new_file	314	call ted_but_new_file
313	@@:	315	@@:
314	.mnu_1:	316	.mnu_1:
315	jmp still	317	jmp still
316	;---------------------------------------------------------------------	318	;---------------------------------------------------------------------
317		319
318	;output:	320	;output:
319	; ah = symbol	321	; ah = symbol
320	align 4	322	align 4
321	proc KeyConvertToASCII, table:dword	323	proc KeyConvertToASCII, table:dword
322	push ebx	324	push ebx
323	mov ebx,dword[table] ;convert scan to ascii	325	mov ebx,dword[table] ;convert scan to ascii
324	ror ax,8	326	ror ax,8
325	xor ah,ah	327	xor ah,ah
326	add bx,ax	328	add bx,ax
327	mov ah,byte[ebx]	329	mov ah,byte[ebx]
328	pop ebx	330	pop ebx
329	ret	331	ret
330	endp	332	endp
331		333
332	align 4	334	align 4
333	key:	335	key:
334	mcall 66,3 ;66.3 ¯®«ãç¨âì á®áâ®ï¨¥ ã¯à ¢«ïîé¨å ª« ¢¨è	336	mcall 66,3 ;66.3 ¯®«ãç¨âì á®áâ®ï¨¥ ã¯à ¢«ïîé¨å ª« ¢¨è
335	xor esi,esi	337	xor esi,esi
336	mov ecx,1	338	mov ecx,1
337	test al,0x03 ;[Shift]	339	test al,0x03 ;[Shift]
338	jz @f	340	jz @f
339	mov cl,2	341	mov cl,2
340	or esi,KM_SHIFT	342	or esi,KM_SHIFT
341	@@:	343	@@:
342	test al,0x0c ;[Ctrl]	344	test al,0x0c ;[Ctrl]
343	jz @f	345	jz @f
344	or esi,KM_CTRL	346	or esi,KM_CTRL
345	@@:	347	@@:
346	test al,0x30 ;[Alt]	348	test al,0x30 ;[Alt]
347	jz @f	349	jz @f
348	mov cl,3	350	mov cl,3
349	or esi,KM_ALT	351	or esi,KM_ALT
350	@@:	352	@@:
351	test al,0x80 ;[NumLock]	353	test al,0x80 ;[NumLock]
352	jz @f	354	jz @f
353	or esi,KM_NUMLOCK	355	or esi,KM_NUMLOCK
354	@@:	356	@@:
355		357
356	mcall 26,2,,conv_tabl ;26.2 ¯®«ãç¨âì à áª« ¤ªã ª« ¢¨ âãàë	358	mcall 26,2,,conv_tabl ;26.2 ¯®«ãç¨âì à áª« ¤ªã ª« ¢¨ âãàë
357	mcall 2 ;¯®«ãç ¥¬ ª®¤ ¦ â®© ª« ¢¨è¨	359	mcall 2 ;¯®«ãç ¥¬ ª®¤ ¦ â®© ª« ¢¨è¨
358	stdcall [tl_key], tree1	360	stdcall [tl_key], tree1
359		361
360	test word [edit2.flags],10b;ed_focus ; ¥á«¨ ¥ ¢ ä®ªãá¥, ¢ëå®¤¨¬	362	test word [edit2.flags],10b;ed_focus ; ¥á«¨ ¥ ¢ ä®ªãá¥, ¢ëå®¤¨¬
361	je @f	363	je @f
362	cmp ah,0x80 ;if key up	364	cmp ah,0x80 ;if key up
363	ja still	365	ja still
364	cmp ah,42 ;[Shift] (left)	366	cmp ah,42 ;[Shift] (left)
365	je still	367	je still
366	cmp ah,54 ;[Shift] (right)	368	cmp ah,54 ;[Shift] (right)
367	je still	369	je still
368	cmp ah,56 ;[Alt]	370	cmp ah,56 ;[Alt]
369	je still	371	je still
370	cmp ah,29 ;[Ctrl]	372	cmp ah,29 ;[Ctrl]
371	je still	373	je still
372	cmp ah,69 ;[Pause Break]	374	cmp ah,69 ;[Pause Break]
373	je still	375	je still
374		376
375	stdcall KeyConvertToASCII, dword conv_tabl	377	stdcall KeyConvertToASCII, dword conv_tabl
376	stdcall [edit_box_key], dword edit2	378	stdcall [edit_box_key], dword edit2
377	jmp still	379	jmp still
378	@@:	380	@@:
379		381
380	stdcall [ted_key], tedit0, conv_tabl,esi	382	stdcall [ted_key], tedit0, conv_tabl,esi
381	jmp still	383	jmp still
382		384
383	align 4	385	align 4
384	button:	386	button:
385	; cmp [menu_active],1 ;¥á«¨ ¦ «¨ ¬¥î, â® á ç « à¥ ªæ¨ï ¬¥î	387	; cmp [menu_active],1 ;¥á«¨ ¦ «¨ ¬¥î, â® á ç « à¥ ªæ¨ï ¬¥î
386	; jne @f ;mouse.menu_bar_1	388	; jne @f ;mouse.menu_bar_1
387	; mov [menu_active],0	389	; mov [menu_active],0
388	; jmp still	390	; jmp still
389	; @@:	391	; @@:
390		392
391	mcall 17 ;¯®«ãç¨âì ª®¤ ¦ â®© ª®¯ª¨	393	mcall 17 ;¯®«ãç¨âì ª®¤ ¦ â®© ª®¯ª¨
392	cmp ah,3	394	cmp ah,3
393	jne @f	395	jne @f
394	call ted_but_new_file	396	call ted_but_new_file
395	@@:	397	@@:
396	cmp ah,4	398	cmp ah,4
397	jne @f	399	jne @f
398	call ted_but_open_file	400	call ted_but_open_file
399	@@:	401	@@:
400	cmp ah,5	402	cmp ah,5
401	jne @f	403	jne @f
402	call ted_but_save_file	404	call ted_but_save_file
403	@@:	405	@@:
404	cmp ah,6	406	cmp ah,6
405	jne @f	407	jne @f
406	stdcall [ted_but_select_word], tedit0	408	stdcall [ted_but_select_word], tedit0
407	@@:	409	@@:
408	cmp ah,7	410	cmp ah,7
409	jne @f	411	jne @f
410	stdcall [ted_but_cut], tedit0	412	stdcall [ted_but_cut], tedit0
411	@@:	413	@@:
412	cmp ah,8	414	cmp ah,8
413	jne @f	415	jne @f
414	stdcall [ted_but_copy], tedit0	416	stdcall [ted_but_copy], tedit0
415	@@:	417	@@:
416	cmp ah,9	418	cmp ah,9
417	jne @f	419	jne @f
418	stdcall [ted_but_paste], tedit0	420	stdcall [ted_but_paste], tedit0
419	@@:	421	@@:
420	cmp ah,10	422	cmp ah,10
421	jne @f	423	jne @f
422	call ted_but_find	424	call ted_but_find
423	@@:	425	@@:
424	cmp ah,11	426	cmp ah,11
425	jne @f	427	jne @f
426	call but_replace	428	call but_replace
427	@@:	429	@@:
428	cmp ah,12	430	cmp ah,12
429	jne @f	431	jne @f
430	call but_find_key_w	432	call but_find_key_w
431	@@:	433	@@:
432	cmp ah,13	434	cmp ah,13
433	jne @f	435	jne @f
434	stdcall [ted_but_sumb_upper], tedit0	436	stdcall [ted_but_sumb_upper], tedit0
435	@@:	437	@@:
436	cmp ah,14	438	cmp ah,14
437	jne @f	439	jne @f
438	stdcall [ted_but_sumb_lover], tedit0	440	stdcall [ted_but_sumb_lover], tedit0
439	@@:	441	@@:
440	cmp ah,15	442	cmp ah,15
441	jne @f	443	jne @f
442	stdcall [ted_but_reverse], tedit0	444	stdcall [ted_but_reverse], tedit0
443	@@:	445	@@:
444	cmp ah,16	446	cmp ah,16
445	jne @f	447	jne @f
446	stdcall [ted_but_undo], tedit0	448	stdcall [ted_but_undo], tedit0
447	@@:	449	@@:
448	cmp ah,17	450	cmp ah,17
449	jne @f	451	jne @f
450	stdcall [ted_but_redo], tedit0	452	stdcall [ted_but_redo], tedit0
451	@@:	453	@@:
452	cmp ah,18	454	cmp ah,18
453	jne @f	455	jne @f
454	stdcall but_sumb_invis, tedit0	456	stdcall but_sumb_invis, tedit0
455	@@:	457	@@:
456	cmp ah,19	458	cmp ah,19
457	jne @f	459	jne @f
458	stdcall but_k_words_show, tedit0	460	stdcall but_k_words_show, tedit0
459	@@:	461	@@:
460	cmp ah,20	462	cmp ah,20
461	jne @f	463	jne @f
462	stdcall but_synt_show, tedit0	464	stdcall but_synt_show, tedit0
463	@@:	465	@@:
464	cmp ah,21	466	cmp ah,21
465	jne @f	467	jne @f
466	stdcall [ted_but_convert_by_table],tedit0,tbl_1251_866	468	stdcall [ted_but_convert_by_table],tedit0,tbl_1251_866
467	@@:	469	@@:
468	cmp ah,22	470	cmp ah,22
469	jne @f	471	jne @f
470	stdcall [ted_but_convert_by_table],tedit0,tbl_866_1251	472	stdcall [ted_but_convert_by_table],tedit0,tbl_866_1251
471	@@:	473	@@:
472		474
473	cmp ah,200	475	cmp ah,200
474	jne @f	476	jne @f
475	stdcall ted_but_open_syntax, tedit0	477	stdcall ted_but_open_syntax, tedit0
476	@@:	478	@@:
477	cmp ah,201	479	cmp ah,201
478	jne @f	480	jne @f
479	stdcall [ted_but_find_next], tedit0	481	stdcall [ted_but_find_next], tedit0
480	@@:	482	@@:
481		483
482	cmp ah,1	484	cmp ah,1
483	jne still	485	jne still
484	.exit:	486	.exit:
-		487	cmp dword[exit_code],1
-		488	je @f
485	stdcall [ted_can_save], tedit0	489	stdcall [ted_can_save], tedit0
486	cmp al,1	490	cmp al,1
487	jne @f	491	jne @f
488	stdcall [mb_create],msgbox_8,thread ;message: save changes in file?	492	stdcall [mb_create],msgbox_2,thread ;message: save changes in file?
-		493	stdcall [mb_setfunctions],msgbox_2E_funct
489	jmp still	494	jmp still
490	@@:	495	@@:
491	stdcall mem.Free,[bmp_icon]	496	stdcall mem.Free,[bmp_icon]
492	cmp dword[unpac_mem],0	497	cmp dword[unpac_mem],0
493	je @f	498	je @f
494	stdcall mem.Free,[unpac_mem]	499	stdcall mem.Free,[unpac_mem]
495	@@:	500	@@:

Subversion Repositories Kolibri OS

(root)/programs/other/t_edit/t_edit.asm – Rev 4308 → 4991