forked from KolibriOS/kolibrios
468 lines
9.7 KiB
PHP
468 lines
9.7 KiB
PHP
struct FileInfoBlock
|
||
Function dd ?
|
||
Position dd ?
|
||
Flags dd ?
|
||
Count dd ?
|
||
Buffer dd ?
|
||
db ?
|
||
FileName dd ?
|
||
ends
|
||
|
||
struct symbol
|
||
c db ? ; +0 ᨬ¢®«
|
||
col db ? ; +1 梥â
|
||
perv dd ? ; +2
|
||
next dd ? ; +6 㪠§ ⥫¨
|
||
tc dd ? ;+10 ¢à¥¬. ᮧ¤ ¨ï
|
||
td dd ? ;+14 ¢à¥¬. 㤠«¥¨ï
|
||
ends
|
||
|
||
sc system_colors
|
||
|
||
bmp_icon dd 0
|
||
run_file_70 FileInfoBlock
|
||
|
||
|
||
;input:
|
||
; al = ª®¤ ®è¨¡ª¨
|
||
align 4
|
||
ted_on_init_synt_err:
|
||
mov byte[msgbox_3.err],'0'
|
||
add byte[msgbox_3.err],al
|
||
stdcall [mb_create],msgbox_3,thread ;message: Can-t open color options file!
|
||
ret
|
||
|
||
|
||
align 4
|
||
ted_but_new_file:
|
||
push eax ebx
|
||
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_2N_funct
|
||
jmp .ret_f
|
||
@@:
|
||
call On_NewFile
|
||
.ret_f:
|
||
mov byte[openfile_path],0
|
||
mcall 71,1,hed
|
||
pop ebx eax
|
||
ret
|
||
|
||
align 4
|
||
On_NewFile:
|
||
stdcall [ted_clear], tedit0,1
|
||
call draw_but_toolbar
|
||
stdcall [ted_draw], tedit0
|
||
ret
|
||
|
||
align 4
|
||
On_SaveAndNewFile:
|
||
push edi
|
||
mov edi, tedit0
|
||
|
||
call ted_but_save_file
|
||
cmp ted_err_save,0
|
||
jne @f
|
||
call On_NewFile
|
||
@@:
|
||
pop edi
|
||
ret
|
||
|
||
align 4
|
||
On_SaveAndOpenFile:
|
||
push edi
|
||
mov edi, tedit0
|
||
|
||
call ted_but_save_file
|
||
cmp ted_err_save,0
|
||
jne @f
|
||
call ted_but_open_file.no_msg
|
||
@@:
|
||
pop edi
|
||
ret
|
||
|
||
align 4
|
||
On_SaveAndExit:
|
||
push edi
|
||
mov edi, tedit0
|
||
|
||
call ted_but_save_file
|
||
cmp ted_err_save,0
|
||
jne @f
|
||
mov dword[exit_code],1
|
||
@@:
|
||
pop edi
|
||
ret
|
||
|
||
align 4
|
||
On_Exit:
|
||
mov dword[exit_code],1
|
||
ret
|
||
|
||
;description:
|
||
; äãªæ¨ï ®âªàëâ¨ï ä ©« ¡¥§ ®ª á®®¡é¥¨ï
|
||
align 4
|
||
but_no_msg_OpenFile:
|
||
push eax ebx
|
||
stdcall [ted_open_file], tedit0,run_file_70,openfile_path
|
||
call ted_messages_after_open_file
|
||
pop ebx eax
|
||
ret
|
||
|
||
;description:
|
||
; äãªæ¨ï ®âªàëâ¨ï ä ©« á ¢®§¬®¦ë¬ ®ª®¬ á®®¡é¥¨ï (® ¢®§¬®¦®á⨠®â¬¥¨âì ®âªàë⨥)
|
||
align 4
|
||
ted_but_open_file:
|
||
pushad
|
||
|
||
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_2O_funct
|
||
jmp .ret_f
|
||
.no_msg: ;¬¥âª ¤«ï ¢ë§®¢ äãªæ¨¨ ç¥à¥§ ª®¯ªã ¢ á®®¡é¥¨¨ msgbox_5
|
||
pushad
|
||
@@:
|
||
|
||
copy_path open_dialog_name,communication_area_default_path,file_name,0
|
||
mov [OpenDialog_data.type],0
|
||
stdcall [OpenDialog_Start],OpenDialog_data
|
||
cmp [OpenDialog_data.status],2
|
||
jne @f
|
||
stdcall mem_spac, msgbox_9.fdp,100
|
||
mov esi,file_name
|
||
call strlen
|
||
cmp eax,100
|
||
jle .no_crop
|
||
mov eax,100
|
||
.no_crop:
|
||
stdcall mem_copy, esi,msgbox_9.fdp,eax
|
||
stdcall [mb_create],msgbox_9,thread ;message: error run 'open file dialog'
|
||
jmp .ret_f
|
||
@@:
|
||
cmp [OpenDialog_data.status],1
|
||
jne .ret_f
|
||
|
||
;¨é¥¬ ¥áâì «¨ ä ©« ¯®¤á¢¥âª¨ ¤«ï ®âªàë¢ ¥¬®£® ⥪á⮢®£® ä ©«
|
||
mov esi,[OpenDialog_data.openfile_path]
|
||
call strlen
|
||
mov edx,openfile_path
|
||
add edx,eax
|
||
.f_beg:
|
||
cmp byte[edx],'.'
|
||
je .found
|
||
dec edx
|
||
cmp edx,openfile_path
|
||
jg .f_beg
|
||
.found:
|
||
inc edx ;edx - 㪠§ ⥫ì à áè¨à¥¨¥ ®âªàë⮣® ä ©«
|
||
|
||
mov ebx,synt_auto_open
|
||
.cycle_0:
|
||
add ebx,32
|
||
stdcall strcmp,ebx,edx ;áà ¢¨¢ ¥¬ à áè¨à¥¨¥ ®âªàë⮣® ä ©« á® § 票ﬨ ®âªàëâ묨 á ini ä ©«
|
||
test eax,eax
|
||
jz .ok
|
||
add ebx,32
|
||
cmp byte[ebx],0
|
||
jne .cycle_0
|
||
jmp .end_0
|
||
.ok: ;®âªàë⨥ ä ©« ¯®¤á¢¥âª¨ ¢ § ¢¨á¨¬®á⨠®â ©¤¥®£® à áè¨à¥¨ï
|
||
sub ebx,32
|
||
;mov ecx,ebx
|
||
;mcall 71,1
|
||
call open_unpac_synt_file
|
||
.end_0:
|
||
|
||
stdcall [ted_open_file], tedit0,run_file_70,openfile_path
|
||
call ted_messages_after_open_file
|
||
|
||
.ret_f:
|
||
popad
|
||
ret
|
||
|
||
;description:
|
||
; äãªæ¨ï á®åà ¥¨ï ä ©« á ¢ë§®¢®¬ ®ª ¤¨ «®£
|
||
align 4
|
||
proc ted_but_save_file
|
||
;*** ¢ë§®¢ ¤¨ «®£®¢®£® ®ª ¤«ï á®åà ¥¨ï ä ©«
|
||
copy_path open_dialog_name,communication_area_default_path,file_name,0
|
||
mov [OpenDialog_data.type],1
|
||
stdcall [OpenDialog_Start],OpenDialog_data
|
||
cmp [OpenDialog_data.status],1 ;if status==1 then save
|
||
ret
|
||
endp
|
||
|
||
;description:
|
||
; ª®¯¨à®¢ ¨¥ ¯ ¬ïâ¨
|
||
align 4
|
||
proc mem_copy, source:dword, destination:dword, len:dword
|
||
push ecx esi edi
|
||
cld
|
||
mov esi, dword[source]
|
||
mov edi, dword[destination]
|
||
mov ecx, dword[len]
|
||
rep movsb
|
||
pop edi esi ecx
|
||
ret
|
||
endp
|
||
|
||
;description:
|
||
; § ¯®«¥¨¥ ¯ ¬ï⨠¯à®¡¥« ¬¨
|
||
align 4
|
||
proc mem_spac, mem:dword, len:dword
|
||
push eax ecx edi
|
||
cld
|
||
mov al,' '
|
||
mov edi, dword[mem]
|
||
mov ecx, dword[len]
|
||
repne stosb
|
||
pop edi ecx eax
|
||
ret
|
||
endp
|
||
|
||
;input:
|
||
; eax = ª®¤ ®è¨¡ª¨
|
||
; ebx = ª®««¨ç¥á⢮ ¯à®ç¨â ëå ¡ ©â
|
||
align 4
|
||
ted_messages_after_open_file:
|
||
push ecx edi
|
||
cmp eax,0
|
||
je @f
|
||
cmp eax,6
|
||
je @f
|
||
cmp ax,10
|
||
jl .zifra_0_9
|
||
mov al,'?'
|
||
sub ax,48
|
||
.zifra_0_9:
|
||
add ax,48
|
||
|
||
mov byte[msgbox_4.err],al
|
||
stdcall [mb_create],msgbox_4,thread ;message: Can-t open text file!
|
||
jmp .ret_f
|
||
@@:
|
||
cmp ebx,-1
|
||
je .ret_f
|
||
;if open file
|
||
mov edi,tedit0
|
||
mov ecx,ted_max_chars
|
||
sub ecx,2 ;ecx = ¬ ªá¨¬ «ì®¥ ç¨á«® ¡ ©â, ¤«ï ª®â®àëå ¡ë« ¢ë¤¥«¥ ¯ ¬ïâì
|
||
cmp ebx,ecx
|
||
jl .ret_f
|
||
stdcall [mb_create],msgbox_1,thread
|
||
.ret_f:
|
||
pop edi ecx
|
||
ret
|
||
|
||
align 4
|
||
ted_save_err_msg:
|
||
mov byte[msgbox_6.err],al
|
||
stdcall [mb_create],msgbox_6,thread ;message: Can-t save text file!
|
||
ret
|
||
|
||
;description:
|
||
; äãªæ¨ï ¦ â¨ï ª®¯ªã [<EFBFBD>ਬ¥¨âì] ¢ ¯ ¥«¨ á¨â ªá¨á
|
||
align 4
|
||
proc ted_but_open_syntax uses eax ebx ecx edi, edit:dword
|
||
mov edi,dword[edit]
|
||
cmp ted_panel_id,TED_PANEL_SYNTAX
|
||
jne @f
|
||
stdcall dword[tl_node_get_data], tree1
|
||
pop dword[fn_col_option]
|
||
mov ebx,dword[fn_col_option]
|
||
call open_unpac_synt_file
|
||
cmp ebx,-1
|
||
je @f
|
||
|
||
call [ted_text_colored]
|
||
stdcall [ted_draw],edi
|
||
@@:
|
||
ret
|
||
endp
|
||
|
||
;®âªàë⨥ ¨ à ᯠª®¢ª ä ©« ¯®¤á¢¥âª¨ á¨â ªá¨á
|
||
;input:
|
||
; ebx - 㪠§ â¥«ì ¨¬ï ®âªàë¢ ¥¬®£® ä ©« á¨â ªá¨á (¡¥§ ¯ã⨠¨ ¯ ¯ª¨ info)
|
||
;output:
|
||
; ebx - ç¨á«® ¯à®ç¨â ëå ¡ ©â ¨§ ä ©«
|
||
; ecx - à §àãè ¥âáï
|
||
align 4
|
||
open_unpac_synt_file:
|
||
push eax edi esi
|
||
mov edi,last_open_synt_file
|
||
stdcall strcmp,ebx,edi ;áà ¢¨¢ ¥¬ ¨¬ï ¯®¤ª«î祮£® ä ©« á ¯®¤ª«îç¥ë¬ à ¥¥ ä ©«®¬
|
||
test eax,eax
|
||
jz @f
|
||
|
||
;ª®¯¨à㥬 ¨¬ï ¯®¤ª«î祮£® ä ©« (¤«ï ¨§¡¥¦ ¨ï ¯®¢â®àëå ¯®¤ª«î票©)
|
||
mov esi,ebx
|
||
mov ecx,32
|
||
cld
|
||
rep movsb
|
||
|
||
copy_path ebx,fn_syntax_dir,syntax_path,0
|
||
copy_path syntax_path,sys_path,file_name,0
|
||
mov edi, tedit0
|
||
mov [run_file_70.Function], 0
|
||
mov [run_file_70.Position], 0
|
||
mov [run_file_70.Flags], 0
|
||
mov ecx, ted_syntax_file_size
|
||
mov dword[run_file_70.Count], ecx
|
||
m2m dword[run_file_70.Buffer], ted_syntax_file
|
||
mov byte[run_file_70+20], 0
|
||
mov [run_file_70.FileName], file_name
|
||
mcall 70, run_file_70
|
||
cmp ebx,-1
|
||
jne .end_0
|
||
call ted_on_init_synt_err
|
||
jmp @f
|
||
.end_0:
|
||
mov eax,ted_syntax_file
|
||
cmp dword[eax],'KPCK'
|
||
jne .end_unpack
|
||
cmp dword[eax+4],ecx
|
||
jg @f ;¥á«¨ ¤«ï à ᯠª®¢ ®£® ä ©« ¥ å¢ â ¥â ¢ë¤¥«¥®© ¯ ¬ïâ¨
|
||
cmp dword[unpac_mem],0
|
||
jne .end_1
|
||
;¢ë¤¥«¥¨¥ ¯ ¬ï⨠¤«ï à ᯠª®¢ª¨ ä ©«
|
||
stdcall mem.Alloc,ecx
|
||
mov [unpac_mem],eax
|
||
.end_1:
|
||
stdcall unpack,ted_syntax_file,[unpac_mem]
|
||
mov edi,ted_syntax_file
|
||
mov esi,[unpac_mem]
|
||
mov ecx,[edi+4]
|
||
cld
|
||
rep movsb
|
||
.end_unpack:
|
||
stdcall [ted_init_syntax_file], tedit0
|
||
@@:
|
||
pop esi edi eax
|
||
ret
|
||
|
||
;description:
|
||
; ¢ë§®¢/áªàë⨥ ¯ ¥«¨ ¯®¨áª
|
||
align 4
|
||
proc ted_but_find uses edi
|
||
mov edi,tedit0
|
||
|
||
cmp ted_panel_id,TED_PANEL_NULL
|
||
je @f
|
||
mov ted_panel_id,TED_PANEL_NULL
|
||
mov ted_wnd_l,0
|
||
jmp .e_if
|
||
@@:
|
||
mov ted_panel_id,TED_PANEL_FIND
|
||
mov ted_wnd_l,TED_PANEL_WIDTH
|
||
.e_if:
|
||
call EvSize
|
||
stdcall [ted_draw],edi
|
||
ret
|
||
endp
|
||
|
||
align 4
|
||
tbl_1251_866:
|
||
rb 128
|
||
db 0, 0, 0, 0, 0, 0, 0, 0, 0,0,0,0,0,0,0,0 ;128
|
||
db 0, 0, 0, 0, 0, 0, 0, 0, 0,0,0,0,0,0,0,0 ;144
|
||
db 0, 0, 0, 0, 0, 0, 0, 0,240,0,0,0,0,0,0,0 ;160
|
||
db 0, 0, 0, 0, 0, 0, 0, 0,241,0,0,0,0,0,0,0 ;176
|
||
db 128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143 ;192
|
||
db 144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159 ;208
|
||
db 160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175 ;224
|
||
db 224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239 ;240
|
||
|
||
align 4
|
||
tbl_866_1251:
|
||
rb 128
|
||
db 192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207 ;128
|
||
db 208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223 ;144
|
||
db 224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239 ;160
|
||
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ;176
|
||
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ;192
|
||
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ;208
|
||
db 240,241,242,243,244,245,246,247,248,249,250,251,252,253,254,255 ;224
|
||
db 168,184,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ;240
|
||
|
||
align 4
|
||
ted_on_find_err:
|
||
stdcall [mb_create],msgbox_7,thread ;message: Can not find text
|
||
ret
|
||
|
||
;description:
|
||
; ª®¯ª [‡ ¬¥¨âì] ¯ ¥«¨
|
||
align 4
|
||
but_replace:
|
||
; ¯®ª ¥ ᤥ« ®
|
||
ret
|
||
|
||
;description:
|
||
; äãªæ¨ï ¯®¨áª ¨ä®à¬ 樨 ¢ ᯨ᪥ ª«î祢ëå á«®¢
|
||
align 4
|
||
but_find_key_w:
|
||
cmp byte[wnd_k_words_run],0
|
||
jne @f
|
||
pushad
|
||
mcall 51,1,prop_start,thread_coords
|
||
popad
|
||
@@:
|
||
ret
|
||
|
||
;description:
|
||
; ¢ë¤¥«¥¨¥/áªàë⨥ ¥¯¥ç â ¥¬ëå ᨬ¢®«®¢
|
||
align 4
|
||
proc but_sumb_invis, edit:dword
|
||
push edi
|
||
mov edi,dword[edit]
|
||
|
||
xor ted_mode_invis,1
|
||
call draw_but_toolbar
|
||
stdcall [ted_draw],edi
|
||
pop edi
|
||
ret
|
||
endp
|
||
|
||
;description:
|
||
; ¢ë¤¥«¥¨¥/áªàë⨥ ª«î祢ëå á«®¢
|
||
align 4
|
||
proc but_k_words_show, edit:dword
|
||
push edi
|
||
mov edi,dword[edit]
|
||
|
||
xor ted_mode_color,1
|
||
cmp ted_mode_color,0
|
||
je @f
|
||
call [ted_text_colored]
|
||
@@:
|
||
call draw_but_toolbar
|
||
stdcall [ted_draw],edi
|
||
pop edi
|
||
ret
|
||
endp
|
||
|
||
;description:
|
||
; ¢ë§®¢/áªàë⨥ ¯ ¥«¨ á ä ©« ¬¨ á¨â ªá¨á
|
||
align 4
|
||
proc but_synt_show, edit:dword
|
||
push edi
|
||
mov edi,[edit]
|
||
|
||
cmp ted_panel_id,TED_PANEL_NULL
|
||
je @f
|
||
mov ted_panel_id,TED_PANEL_NULL
|
||
mov ted_wnd_l,0
|
||
jmp .e_if
|
||
@@:
|
||
mov ted_panel_id,TED_PANEL_SYNTAX
|
||
mov ted_wnd_l,TED_PANEL_WIDTH
|
||
.e_if:
|
||
call EvSize
|
||
stdcall [ted_draw],edi
|
||
pop edi
|
||
ret
|
||
endp
|