| /programs/other/t_edit/t_button.inc |
|---|
| 163,20 → 163,25 |
| @@: |
| cmp ah,1 |
| je .exit |
| jne @f |
| call ted_Exit |
| jmp still |
| @@: |
| cmp ah,199 |
| je .exit |
| jne still |
| call ted_Exit |
| jmp still |
| jmp still |
| .exit: |
| align 4 |
| ted_Exit: |
| cmp dword[wnd_k_words_run],0 |
| je @f |
| push ebx ecx |
| mcall SF_SYSTEM, SSF_TERMINATE_THREAD_ID,[wnd_k_words_run] |
| pop ecx ebx |
| test eax,eax |
| jnz still |
| mov dword[wnd_k_words_run],0 |
| ;test eax,eax |
| @@: |
| cmp dword[exit_code],1 |
| je @f |
| 185,7 → 190,7 |
| jne @f |
| stdcall [mb_create],msgbox_2,thread ;message: save buf in file? |
| stdcall [mb_setfunctions],msgbox_2E_funct |
| jmp still |
| ret |
| @@: |
| stdcall mem.Free,[bmp_icon] |
| cmp dword[unpac_mem],0 |
| 192,10 → 197,10 |
| je @f |
| stdcall mem.Free,[unpac_mem] |
| @@: |
| stdcall [ted_delete], tedit0 |
| stdcall [tl_data_clear], tree1 |
| mcall SF_TERMINATE_PROCESS ;¢ë室 ¨§ ¯à®£à ¬¬ë |
| ;ret |
| ;input: |
| ; al = ª®¤ ®è¨¡ª¨ |
| /programs/other/t_edit/t_edit.asm |
|---|
| 39,7 → 39,9 |
| mcall SF_SYS_MISC,SSF_HEAP_INIT |
| or eax,eax |
| jz button.exit |
| jnz @f |
| call ted_Exit |
| @@: |
| mcall SF_KEYBOARD,SSF_SET_INPUT_MODE,1 ;scan code |
| mcall SF_SET_EVENTS_MASK,0xC0000027 |
| 200,7 → 202,10 |
| still: |
| mcall SF_WAIT_EVENT |
| cmp dword[exit_code],1 |
| je button.exit |
| jne @f |
| call ted_Exit |
| jmp still |
| @@: |
| cmp al,1 ;¨§¬¥¨«®áì ¯®«®¦¥¨¥ ®ª |
| jz red_win |
| 210,7 → 215,7 |
| jz button |
| cmp al,6 ;¬ëèì |
| jne @f |
| jmp mouse |
| call mouse |
| @@: |
| jmp still |
| 228,7 → 233,7 |
| bt eax,24 ;¤¢®©®© 饫çñª «¥¢®© ª®¯ª®© |
| jnc @f |
| stdcall [ted_but_select_word], tedit0 |
| jmp still |
| ret |
| @@: |
| stdcall [ted_mouse], tedit0 |
| .no_edit: |
| 241,7 → 246,7 |
| jne @f |
| stdcall [tl_mouse], tree1 |
| @@: |
| jmp still |
| ret |
| ;--------------------------------------------------------------------- |
| ;output: |
| /programs/other/t_edit/wnd_k_words.inc |
|---|
| 27,7 → 27,7 |
| mov edi,tedit0 |
| mov edx,ted_key_words_count |
| add dword[tree3.info_max_count],edx ;áâ ¢¨¬ ç¨á«® 㧫®¢, à ¢®¥ ª®««¨ç¥áâ¢ã ª«î祢ëå á«®¢ ¢ ä ©«¥ ¯®¤á¢¥âª¨ (+2 ç «® ¨ ª®¥æ ᯨ᪠) |
| stdcall dword[tl_data_init], tree3 |
| stdcall [tl_data_init], tree3 |
| mov eax,dword[icon_tl_sys] |
| mov dword[tree3.data_img],eax |
| mov eax,dword[tree1.data_img_sys] |
| 56,7 → 56,7 |
| mcall ,,,4 |
| mov ebx,[bmp_icon] |
| add ebx,7*IMAGE_TOOLBAR_ICON_SIZE |
| add ebx,(ID_BUT_FIND-ID_BUT_0)*IMAGE_TOOLBAR_ICON_SIZE |
| mcall SF_PUT_IMAGE,,(20 shl 16)+20,(5 shl 16)+5 ; ©â¨ |
| sub ebx,2*IMAGE_TOOLBAR_ICON_SIZE |
| 63,6 → 63,20 |
| mov edx,(30 shl 16)+5 ;ª®¯¨à®¢ âì |
| int 0x40 |
| mcall SF_THREAD_INFO,procinfo,-1 |
| mov eax,[procinfo.box.height] |
| cmp eax,90 |
| jge @f |
| mov eax,90 ;min size |
| @@: |
| sub eax,58 |
| cmp [tree3.box_height],eax |
| je @f |
| mov [tree3.box_height],eax |
| mov word[w_scr_t3.y_size],ax |
| ;need call tb_scrol_resize |
| @@: |
| mov dword[w_scr_t3.all_redraw],1 |
| stdcall [scrollbar_ver_draw], w_scr_t3 |
| stdcall [tl_draw], tree3 |
| 93,7 → 107,7 |
| .exit: |
| mov dword[tree3.data_img],0 ;ç¨á⨬ 㪠§ ⥫¨ ¨ª®ª¨ çâ®-¡ë ¨å ¥ 㤠«¨« ¤¥áâàãªâ®à |
| mov dword[tree3.data_img_sys],0 ;â. ª. ®¨ ¥é¥ ¨á¯®«ì§ãîâìáï ¢ ¤à㣨å í«¥¬¥â å |
| stdcall dword[tl_data_clear], tree3 |
| stdcall [tl_data_clear], tree3 |
| mov dword[wnd_k_words_run],0 ;®¡ã«ï¥¬ ID ®ª |
| mcall SF_TERMINATE_PROCESS |
| 128,7 → 142,8 |
| mov edi,tedit0 |
| cmp ted_syntax_file,0 |
| je @f |
| stdcall dword[tl_info_clear], tree3 |
| stdcall [tl_info_clear], tree3 |
| and dword[tree3.style], not tl_cursor_pos_limited |
| mov ebx,ted_key_words_data |
| mov ecx,ted_key_words_count |
| 138,21 → 153,22 |
| test al,al |
| jnz .end_add |
| ;ª«î祢®¥ á«®¢® |
| stdcall dword[tl_node_add], tree3, (1 shl 16), ebx |
| stdcall dword[tl_cur_next], tree3 |
| stdcall [tl_node_add], tree3, (1 shl 16), ebx |
| stdcall [tl_cur_next], tree3 |
| mov edx,[ebx+MAX_COLOR_WORD_LEN] |
| or edx,edx |
| jz .end_add |
| ;á¯à ¢ª ¯® ª«î祢®¬ã á«®¢ã |
| add edx,ted_help_text_f1 |
| stdcall dword[tl_node_add], tree3, 1, edx |
| stdcall dword[tl_cur_next], tree3 |
| stdcall [tl_node_add], tree3, 1, edx |
| stdcall [tl_cur_next], tree3 |
| .end_add: |
| add ebx,MAX_COLOR_WORD_LEN+8 ;sizeof.TexColViv |
| loop .cycle_0 |
| stdcall dword[tl_cur_beg], tree3 |
| stdcall dword[tl_draw], tree3 |
| stdcall [tl_cur_beg], tree3 |
| or dword[tree3.style], tl_cursor_pos_limited ;®£à ¨ç¨¢ ¥¬ ¤¢¨¦¥¨¥ ªãàá®à ¢ ¯à¥¤¥« å ᯨ᪠|
| stdcall [tl_draw], tree3 |
| jmp .no_select_0 |
| @@: |
| cmp ah,4 |
| /programs/other/t_edit_synt/build.bat |
|---|
| 1,6 → 1,4 |
| if not exist bin mkdir bin |
| if not exist bin\tl_sys_16.png @copy ..\..\media\log_el\trunk\tl_sys_16.png bin\tl_sys_16.png |
| if not exist bin\tl_nod_16.png @copy ..\t_edit\tl_nod_16.png bin\tl_nod_16.png |
| @fasm.exe -m 16384 te_syntax.asm bin\te_syntax.kex |
| @kpack bin\te_syntax.kex |
| /programs/other/t_edit_synt/te_data.inc |
|---|
| 255,52 → 255,13 |
| .fun_save_err dd 0 ;+238 㪠§ ⥫ì äãªæ¨î ¢ë§ë¢ ¥¬ãî ¥á«¨ á®åà ¥¨¥ ä ©« § ª®ç¨«®áì ¥ã¤ ç® |
| .increase_size dd 1000 ;+242 ç¨á«® ᨬ¢®«®¢ ª®â®àë¥ ¡ã¤¥â 㢥稢 âìáï ¯ ¬ïâì ¯à¨ ¥å¢ ⪥ |
| .ptr_free_symb dd ? ;+246 㪠§ ⥫ì ᢮¡®¤ãî ¯ ¬ïâì, ¢ ª®â®àãî ¬®¦® ¤®¡ ¢«ïâì ᨬ¢®« (¨á¯®«ì§ã¥âáï ¢ãâà¨ í«¥¬¥â ¤«ï ãáª®à¥¨ï ¢áâ ¢ª¨ ⥪áâ ) |
| .font_size dd 0 ;+250 ¬®¦¨â¥«ì ¤«ï à §¬¥à èà¨äâ |
| ;------------------------------------------------------------------------------ |
| align 4 |
| scrol_w1: |
| .x: |
| .size_x dw 16 ;+0 |
| .start_x dw 85 ;+2 |
| .y: |
| .size_y dw 100 ; +4 |
| .start_y dw 15 ; +6 |
| .btn_high dd 15 ; +8 |
| .type dd 1 ;+12 |
| .max_area dd 100 ;+16 |
| rb 4+4 |
| .bckg_col dd 0xeeeeee ;+28 |
| .frnt_col dd 0xbbddff ;+32 |
| .line_col dd 0x808080 ;+36 |
| .redraw dd 0 ;+40 |
| .delta dw 0 ;+44 |
| .delta2 dw 0 ;+46 |
| .run_x: |
| rb 2*4+4*6 |
| .all_redraw dd 0 ;+80 |
| .ar_offset dd 1 ;+84 |
| ;--------------------------------------------------------------------- |
| scrol_w1 scrollbar 16,85, 100,15, 15, 100,0,0, 0xeeeeee,0xbbddff,0x808080, 1 |
| align 4 |
| scrol_h1: |
| .x: |
| .size_x dw 85 ;+0 |
| .start_x dw 30 ;+2 |
| .y: |
| .size_y dw 16 ;+4 |
| .start_y dw 100 ;+6 |
| .btn_high dd 15 ;+8 |
| .type dd 1 ;+12 |
| .max_area dd 100 ;+16 |
| rb 4+4 |
| .bckg_col dd 0xeeeeee ;+28 |
| .frnt_col dd 0xbbddff ;+32 |
| .line_col dd 0x808080 ;+36 |
| .redraw dd 0 ;+40 |
| .delta dw 0 ;+44 |
| .delta2 dw 0 ;+46 |
| .run_x: |
| rb 2*4+4*6 |
| .all_redraw dd 0 ;+80 |
| .ar_offset dd 1 ;+84 |
| scrol_h1 scrollbar 85,30, 16,100, 15, 100,0,0, 0xeeeeee,0xbbddff,0x808080, 1 |
| ;--------------------------------------------------------------------- |
| PathShow_data_1: |
| .type dd 0 ;+0 |
| /programs/other/t_edit_synt/te_syntax.asm |
|---|
| 1,93 → 1,37 |
| use32 |
| org 0x0 |
| org 0 |
| db 'MENUET01' ;¨¤¥â¨ä. ¨á¯®«ï¥¬®£® ä ©« ¢á¥£¤ 8 ¡ ©â |
| dd 0x01 |
| dd start |
| dd i_end ; à §¬¥à ¯à¨«®¦¥¨ï |
| dd mem |
| dd stacktop |
| dd file_name |
| dd sys_path |
| dd 1, start, i_end, mem, stacktop, file_name, sys_path |
| MAX_COLOR_WORD_LEN equ 40 |
| BUF_SIZE equ 4096 ;buffer for copy|paste |
| maxSyntaxFileSize equ 310000 |
| CAPT_PATH_WIDTH equ 50 ;è¨à¨ ¯®¤¯¨á¨ ¯¥à¥¤ ⥪áâ®¢ë¬ ¯®«¥¬ |
| include '../../macros.inc' |
| include '../../proc32.inc' |
| include '../../develop/libraries/box_lib/load_lib.mac' |
| include '../../KOSfuncs.inc' |
| include '../../load_img.inc' |
| include '../../develop/libraries/box_lib/trunk/box_lib.mac' |
| include '../../dll.inc' |
| include '../../system/skincfg/trunk/kglobals.inc' |
| include '../../system/skincfg/trunk/unpacker.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,0 |
| else |
| copy_path path,[32],file_name,0 ;ä®à¬¨à㥬 ¯®«ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ® ¢ ®¤®© ¯ ¯ª¥ á ¯à®£à ¬¬®© |
| end if |
| stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥¨ï |
| mov [buf],eax |
| 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 |
| mov [run_file_70.Buffer], eax |
| mov byte[run_file_70+20], 0 |
| mov [run_file_70.FileName], file_name |
| mcall 70,run_file_70 ;§ £à㦠¥¬ ä ©« ¨§®¡à ¦¥¨ï |
| 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 SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors |
| mcall 68,11 |
| mcall SF_SYS_MISC,SSF_HEAP_INIT |
| or eax,eax |
| jz button.exit |
| mcall 66,1,1 ;scan code |
| mcall 40,0x27 |
| mcall SF_KEYBOARD,SSF_SET_INPUT_MODE,1 ;scan code |
| mcall SF_SET_EVENTS_MASK,0xC0000027 |
| ;------------------------------------------------- |
| mov ecx,maxSyntaxFileSize |
| stdcall mem.Alloc,ecx |
| mov [options_file],eax |
| mov [options_file_end],eax |
| add [options_file_end],ecx |
| load_libraries l_libs_start,load_lib_end |
| ;¯à®¢¥àª ᪮«ìª® ã¤ ç® § £ã§¨« áì ¡¨¡«¨®â¥ª |
| 97,26 → 41,23 |
| @@: |
| ;--------------------------------------------------------------------- |
| stdcall dword[tl_data_init],dword tree1 |
| stdcall [tl_data_init], tree1 |
| ; ç¨â ¥¬ ä ©« á ªãàá®à ¬¨ ¨ «¨¨ï¬¨ |
| 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 |
| include_image_file '..\..\media\log_el\trunk\tl_sys_16.png', icon_tl_sys |
| mov eax,[icon_tl_sys] |
| mov [tree1.data_img_sys],eax |
| ;--------------------------------------------------------------------- |
| ; ç¨â ¥¬ bmp ä ©« á ¨ª®ª ¬¨ 㧫®¢ |
| 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 |
| include_image_file '..\t_edit\tl_nod_16.png', icon_tl_sys |
| mov eax,[icon_tl_sys] |
| mov [tree1.data_img],eax |
| ;------------------------------------------------------------------------------ |
| copy_path fn_syntax_dir,sys_path,file_name,0 ;¡¥à¥¬ ¯ãâì ª ¯ ¯ª¥ á ä ©« ¬¨ á¨â ªá¨á |
| mov eax,70 |
| mov ebx,tree_file_struct |
| int 0x40 |
| mcall SF_FILE,tree_file_struct |
| cmp ebx,-1 |
| je .end_dir_init |
| mov eax,dir_mem |
| add eax,32+4+1+3+4*6+8 |
| mov ecx,ebx |
| 123,12 → 64,13 |
| @@: |
| cmp byte[eax],'.' ;䨫ìâà㥬 ä ©«ë á ¨¬¥ ¬¨ '.' ¨ '..' |
| je .filter |
| stdcall dword[tl_node_add],tree1,0x10000,eax ;1*2^16 - £¤¥ 1 ®¬¥à ¨ª®ª¨ á ª¨£®© |
| stdcall dword[tl_cur_next],tree1 |
| stdcall [tl_node_add],tree1,0x10000,eax ;1*2^16 - £¤¥ 1 ®¬¥à ¨ª®ª¨ á ª¨£®© |
| stdcall [tl_cur_next],tree1 |
| .filter: |
| add eax,304 |
| loop @b |
| stdcall dword[tl_cur_beg],tree1 ;áâ ¢¨¬ ªãàá®à ç «® ᯨ᪠|
| stdcall [tl_cur_beg],tree1 ;áâ ¢¨¬ ªãàá®à ç «® ᯨ᪠|
| or dword[tree1.style], tl_cursor_pos_limited ;®£à ¨ç¨¢ ¥¬ ¤¢¨¦¥¨¥ ªãàá®à ¢ ¯à¥¤¥« å ᯨ᪠|
| .end_dir_init: |
| ;--- load color option file --- |
| 141,7 → 83,7 |
| align 4 |
| still: |
| mcall 10 |
| mcall SF_WAIT_EVENT |
| cmp al,1 ;¨§¬. ¯®«®¦¥¨¥ ®ª |
| jz red_win |
| 158,23 → 100,20 |
| align 4 |
| draw_window: |
| pushad |
| mcall 12,1 |
| mcall SF_REDRAW,SSF_BEGIN_DRAW |
| mov edx,[sc.work] |
| or edx,0x33000000 |
| mov edi,hed |
| mcall 0,<10,555>,<10,333> |
| mcall SF_CREATE_WINDOW,<10,555>,<10,333> |
| mcall 9,procinfo,-1 |
| mcall SF_THREAD_INFO,procinfo,-1 |
| mov edi,tedit0 ;§ 票¥ edi 㦮 ¤«ï EvSize ¨ ted_wnd_t |
| call EvSize |
| mov eax,8 ;ª®¯ª |
| mov ebx,5*65536+90 |
| mov ecx,195*65536+20 |
| mov edx,200 |
| mov esi,[sc.work_button];0xd0 |
| mcall |
| mcall SF_DEFINE_BUTTON,5*65536+90,195*65536+20,200 |
| ;mov eax,8 |
| mov ebx,100*65536+85 |
| mov ecx,195*65536+20 |
| mov edx,201 |
| 181,24 → 120,17 |
| mov esi,0xd00000 |
| mcall |
| mov eax,4 ;à¨á®¢ ¨¥ ⥪áâ |
| mov ebx,10*65536+200 |
| mov ecx,[sc.work_button_text] |
| or ecx,0x80000000 |
| mov edx,txt122 |
| mcall |
| mcall SF_DRAW_TEXT,10*65536+200,,txt_load_f |
| mov ebx,105*65536+200 |
| mov ecx,0xffff00 |
| or ecx,0x80000000 |
| mov edx,txt148 |
| mcall |
| mcall ,105*65536+200,,txt_save_f |
| mov ebx,195*65536+10 |
| mov ecx,[sc.work_text] |
| or ecx,0x80000000 |
| mov edx,txt_inp_file |
| int 0x40 |
| mcall ,195*65536+10,,txt_inp_file |
| add ebx,20 |
| mov edx,txt_out_file |
| 215,11 → 147,41 |
| stdcall [scrollbar_ver_draw],dword ws_dir_lbox |
| stdcall [ted_draw], tedit0 |
| mcall 12,2 |
| mcall SF_REDRAW,SSF_END_DRAW |
| popad |
| ret |
| MIN_M_WND_H equ 100 ;¬¨¨¬ «ì ï ¢ëá®â £« ¢®£® ®ª |
| ;input: |
| ; edi = pointer to tedit struct |
| align 4 |
| EvSize: |
| pushad |
| mov ebx,ted_scr_h |
| mov esi,ted_scr_w |
| m2m ted_wnd_w,[procinfo.client_box.width] ;áâ ¢¨¬ è¨à¨ã ®ª । ªâ®à à ¢®© è¨à¨¥ ¢á¥£® ®ª |
| mov eax,ted_wnd_l |
| sub ted_wnd_w,eax ;®â¨¬ ¥¬ ®âáâ㯠᫥¢ |
| movzx eax,word[esi+sb_offs_size_x] |
| sub ted_wnd_w,eax ;®â¨¬ ¥¬ è¨à¨ã ¢¥àâ. áªà®««¨£ |
| m2m ted_wnd_h,[procinfo.client_box.height] ;áâ ¢¨¬ ¢ëá®âã ®ª । ªâ®à à ¢®© ¢ëá®â¥ ¢á¥£® ®ª |
| cmp ted_wnd_h,MIN_M_WND_H |
| jg @f |
| mov ted_wnd_h,MIN_M_WND_H |
| @@: |
| movzx eax,word[ebx+sb_offs_size_y] |
| sub ted_wnd_h,eax ;®â¨¬ ¥¬ ¢ëá®âã £®à¨§. áªà®««¨£ |
| mov eax,ted_wnd_t |
| sub ted_wnd_h,eax ;®â¨¬ ¥¬ ®âáâ㯠ᢥàåã |
| stdcall [ted_init_scroll_bars], tedit0,2 |
| popad |
| ret |
| align 4 |
| mouse: |
| stdcall [tl_mouse],tree1 |
| stdcall [edit_box_mouse],edit1 |
| 242,10 → 204,10 |
| align 4 |
| key: |
| mcall 66,3 ;66.3 ¯®«ãç¨âì á®áâ®ï¨¥ ã¯à ¢«ïîé¨å ª« ¢¨è |
| mcall SF_KEYBOARD,SSF_GET_CONTROL_KEYS ;66.3 ¯®«ãç¨âì á®áâ®ï¨¥ ã¯à ¢«ïîé¨å ª« ¢¨è |
| xor esi,esi |
| mov ecx,1 |
| test al,0x03 ;[Shift] |
| test al,3 ;[Shift] |
| jz @f |
| mov cl,2 |
| or esi,KM_SHIFT |
| 264,8 → 226,8 |
| or esi,KM_NUMLOCK |
| @@: |
| mcall 26,2,,conv_tabl ;26.2 ¯®«ãç¨âì à ᪫ ¤ªã ª« ¢¨ âãàë |
| mcall 2 |
| mcall SF_SYSTEM_GET,SSF_KEYBOARD_LAYOUT,,conv_tabl ;26.2 ¯®«ãç¨âì à ᪫ ¤ªã ª« ¢¨ âãàë |
| mcall SF_GET_KEY |
| stdcall [tl_key],tree1 |
| test word [edit1.flags],10b;ed_focus ; ¥á«¨ ¥ ¢ 䮪ãá¥, ¢ë室¨¬ |
| 283,7 → 245,7 |
| cmp ah,69 ;[Pause Break] |
| je still |
| stdcall KeyConvertToASCII, dword conv_tabl |
| stdcall KeyConvertToASCII, conv_tabl |
| stdcall [edit_box_key],edit1 |
| jmp still |
| @@: |
| 293,14 → 255,8 |
| align 4 |
| button: |
| ; cmp [menu_active],1 ;¥á«¨ ¦ «¨ ¬¥î, â® á ç « ॠªæ¨ï ¬¥î |
| ; jne @f ;mouse.menu_bar_1 |
| ; mov [menu_active],0 |
| ; jmp still |
| ; @@: |
| mcall SF_GET_BUTTON |
| mcall 17 ;¯®«ãç¨âì ª®¤ ¦ ⮩ ª®¯ª¨ |
| cmp ah,200 |
| jne @f |
| call but_OpenSyntax |
| 313,13 → 269,12 |
| cmp ah,1 |
| jne still |
| .exit: |
| ;push eax |
| stdcall mem.Free,[options_file] |
| stdcall mem.Free,[unpac_mem] |
| stdcall [tl_data_clear], tree1 |
| stdcall [ted_delete], tedit0 |
| mcall -1 ;¢ë室 ¨§ ¯à®£à ¬¬ë |
| mcall SF_TERMINATE_PROCESS ;¢ë室 ¨§ ¯à®£à ¬¬ë |
| align 4 |
| but_OpenSyntax: |
| 373,16 → 328,14 |
| ;@@: |
| ret |
| hed db 'TextEditor syntax file converter 10.11.15',0 ;¯®¤¯¨áì ®ª |
| hed db 'TextEditor syntax file converter 15.01.19',0 ;¯®¤¯¨áì ®ª |
| conv_tabl rb 128 ; â ¡«¨æ ¤«ï ª®¢¥àâ¨à®¢ ¨ï scan-ª®¤ ¢ ascii-ª®¤ |
| txt122 db ' £à. ä ©«',0 |
| txt148 db '®åà. ä ©«',0 |
| txt_load_f db ' £à. ä ©«',0 |
| txt_save_f db '®åà. ä ©«',0 |
| txt_inp_file db 'áå. ä ©«:',0 |
| txt_out_file db 'ëå. ä ©«:',0 |
| txt_no_kpack db 'âªàë¢ ¥¬ë© ä ©« ᦠâ Kpack-®¬.',13,10,'«ï à ¡®âë á ä ©«®¬ à ᯠªã©â¥ ¥£® ¨á¯®«ì§ãï á¨á⥬ãî ¯à®£à ¬¬ã Kpack.',13,10,' ¡®â ᮠᦠâ묨 ä ©« ¬¨ ¯®ª ¥ ¯®¤¤¥à¦¨¢ ¥âáï.',0 |
| head_f_i: |
| head_f_l db 'System error',0 |
| err_message_found_lib_0 db 'Sorry I cannot found library ',39,'box_lib.obj',39,0 |
| 396,9 → 349,11 |
| lib1 l_libs lib_name_1, sys_path, file_name, system_dir_1, err_message_found_lib_1, head_f_l, import_libimg,err_message_import_1, head_f_i |
| load_lib_end: |
| IncludeIGlobals |
| align 16 |
| i_end: |
| IncludeUGlobals |
| procinfo process_information |
| rb 1024 |
| thread: |
| /programs/other/t_edit_synt/te_work.inc |
|---|
| 1,12 → 1,3 |
| struct FileInfoBlock |
| Function dd ? |
| Position dd ? |
| Flags dd ? |
| Count dd ? |
| Buffer dd ? |
| db ? |
| FileName dd ? |
| ends |
| struct TexColViv |
| Text rb MAX_COLOR_WORD_LEN ; ñëîâî äëÿ ïîäñâåòêè |
| 28,7 → 19,8 |
| color_wnd_text dd ? |
| options_file dd 0 |
| options_file_end dd 0 |
| open_file_size dd 0 |
| unpac_mem dd 0 |
| tex_colors dd 0 |
| tex_help_f1 dd 0 |
| 46,67 → 38,91 |
| InitColText: |
| pushad |
| mov ebx,dword[fn_col_option] |
| mov ebx,[fn_col_option] |
| copy_path ebx,fn_syntax_dir,file_name_rez,0 |
| copy_path file_name_rez,sys_path,file_name,0 |
| mov eax,70 |
| mov [run_file_70.Function], 0 |
| ;[fn_col_option] = '*.syn' |
| ;fn_syntax_dir = 'info/' |
| ;file_name_rez = 'info/*.syn' |
| mov [run_file_70.Function], SSF_GET_INFO |
| mov [run_file_70.Position], 0 |
| mov [run_file_70.Flags], 0 |
| mov ebx,[options_file_end] |
| sub ebx,[options_file] |
| mov [run_file_70.Count], ebx |
| m2m [run_file_70.Buffer], [options_file] |
| mov dword[run_file_70.Count], 0 |
| mov dword[run_file_70.Buffer], open_b |
| mov byte[run_file_70+20], 0 |
| mov [run_file_70.FileName], file_name |
| mov ebx,run_file_70 |
| int 0x40 |
| mov dword[run_file_70.FileName], file_name |
| mcall SF_FILE,run_file_70 |
| mov ecx,dword[open_b+32] ;+32 qword: ðàçìåð ôàéëà â áàéòàõ |
| stdcall mem.ReAlloc,[options_file],ecx |
| mov [options_file],eax |
| mov [open_file_size],ecx |
| mov [run_file_70.Function], SSF_READ_FILE |
| mov [run_file_70.Position], 0 |
| mov [run_file_70.Flags], 0 |
| mov [run_file_70.Count], ecx |
| m2m dword[run_file_70.Buffer], dword[options_file] |
| mov byte[run_file_70+20], 0 |
| mov dword[run_file_70.FileName], file_name |
| mcall SF_FILE,run_file_70 ;çàãðóæàåì ôàéë èçîáðàæåíèß |
| test eax,eax |
| jnz .no_colors |
| cmp ebx,0xffffffff |
| je .no_colors |
| mcall SF_SET_CAPTION,1,file_name |
| ;init: count_colors_text, ColWords, ... |
| mov dword[count_colors_text],1 |
| mov dword[ColWords],0 |
| mov dword[tex_help_f1],0 |
| cmp eax,6 |
| je @f |
| cmp eax,0 |
| je @f |
| cmp ax,10 |
| jl .zifra_0_9 |
| mov al,'?' |
| sub ax,48 |
| .zifra_0_9: |
| add ax,48 |
| jmp .no_colors |
| mov edi,[options_file] |
| cmp dword[edi],'KPCK' |
| jne .end_unpack |
| ;notify_window_run ... |
| mov ecx,[edi+4] |
| cmp [open_file_size],ecx |
| jge @f |
| ;åñëè äëß ðàñïàêîâàíîãî ôàéëà íå õâàòàåò âûäåëåííîé ïàìßòè |
| stdcall mem.ReAlloc,edi,ecx |
| mov [options_file],eax |
| mov [open_file_size],ecx |
| @@: |
| ;âûäåëåíèå ïàìßòè äëß ðàñïàêîâêè ôàéëà |
| stdcall mem.ReAlloc,[unpac_mem],ecx |
| mov [unpac_mem],eax |
| stdcall unpack,[options_file],eax |
| mov edi,[options_file] |
| mov esi,[unpac_mem] |
| mov ecx,[edi+4] |
| cld |
| rep movsb |
| .end_unpack: |
| mov esi,[options_file] |
| cmp dword[esi],'KPCK' |
| jne @f |
| notify_window_run txt_no_kpack ; ñîçäàåì îêíî @notify |
| jmp .no_colors |
| @@: |
| mov edi,count_colors_text |
| mov ecx,9*4 |
| rep movsb |
| mov ecx,9 |
| rep movsd |
| mov eax,[options_file] |
| add eax,32 |
| mov dword[tex_colors],eax |
| mov [tex_colors],eax |
| mov eax,dword[count_colors_text] ;init: Col (offset to key words) |
| mov eax,[count_colors_text] ;init: Col (offset to key words) |
| add eax,8 |
| shl eax,2 |
| add eax,[options_file] |
| mov dword[Col],eax |
| mov [Col],eax |
| ;init: tex_help_f1 |
| mov ecx,dword[ColWords] |
| mov ecx,[ColWords] |
| imul ecx,sizeof.TexColViv |
| add ecx,dword[Col] |
| mov dword[tex_help_f1],ecx |
| add ecx,[Col] |
| mov [tex_help_f1],ecx |
| ;ôîðìèðîâàíèå òåêñòà â îêíå òåêñòîâîãî ðåäàêòîðà |
| stdcall [ted_clear], tedit0,1 |
| 136,10 → 152,10 |
| loop @b |
| stdcall print_capt,capt_lbl_wo |
| mov ecx,dword[ColWords] |
| mov ecx,[ColWords] |
| mov eax,[Col] |
| xor ebx,ebx |
| @@: |
| @@: ;öèêë ïî ïîäñâå÷èâàåìûì ñëîâàì |
| inc ebx |
| stdcall print_word,eax,ebx |
| add eax,sizeof.TexColViv |
| 146,18 → 162,17 |
| loop @b |
| stdcall print_capt,capt_lbl_f1 |
| mov ecx,dword[ColWords] |
| mov ecx,[ColWords] |
| mov eax,[Col] |
| xor ebx,ebx |
| @@: |
| @@: ;öèêë ïî ñïðàâêàì ê ïîäñâ. ñëîâàì |
| inc ebx |
| stdcall print_word_f1,eax,ebx |
| add eax,sizeof.TexColViv |
| loop @b |
| ; ïîäãîòîâêà äëÿ PathShow |
| push dword PathShow_data_1 |
| call [PathShow_prepare] |
| ; ïîäãîòîâêà äëß PathShow |
| stdcall [PathShow_prepare], PathShow_data_1 |
| call draw_window |
| .no_colors: |
| 209,7 → 224,7 |
| align 4 |
| proc print_capt, capt:dword |
| pushad |
| mov esi,dword[capt] |
| mov esi,[capt] |
| stdcall str_len,esi |
| stdcall [ted_text_add], tedit0,esi,eax,ted_opt_ed_change_time+ted_opt_ed_move_cursor |
| popad |
| 219,63 → 234,53 |
| align 4 |
| proc print_word, text:dword, index:dword |
| pushad |
| mov esi,text_buffer |
| mov byte[esi],0 |
| stdcall str_cat,esi,capt_beg_word |
| stdcall str_len,esi |
| add esi,eax |
| mov edi,text_buffer |
| mov byte[edi],0 |
| stdcall str_cat,edi,capt_beg_word |
| stdcall str_len,edi |
| add edi,eax |
| mov edi,dword[text] |
| stdcall code_string,edi,esi ;êîäèðóåì ñòðîêó ñ êëþ÷åâûì ñëîâîì |
| stdcall str_cat,esi,capt_end_word |
| mov ecx,[text] |
| stdcall code_string,ecx,edi ;êîäèðóåì ñòðîêó ñ êëþ÷åâûì ñëîâîì |
| stdcall str_cat,edi,capt_end_word |
| cmp dword[edi+MAX_COLOR_WORD_LEN],0 ;f1 |
| cmp dword[ecx+TexColViv.f1],0 |
| je @f |
| stdcall str_cat,esi,capt_calc_f1 |
| stdcall str_cat_value,esi,[index] |
| stdcall str_cat,esi,capt_lbl_f1_use |
| stdcall str_cat,edi,capt_calc_f1 |
| stdcall str_cat_value,edi,[index] |
| stdcall str_cat,edi,capt_lbl_f1_use |
| @@: |
| mov esi,text_buffer |
| stdcall str_len,esi ;óçíàåì äëèííó âñåé ñòðîêè |
| stdcall [ted_text_add], tedit0,esi,eax,ted_opt_ed_change_time+ted_opt_ed_move_cursor |
| mov ecx,edi |
| mov edi,text_buffer |
| mov byte[edi],',' |
| stdcall str_len,edi |
| add edi,eax |
| mov word[edi],',' |
| inc edi |
| mov byte[edi],0 |
| xor eax,eax |
| mov al,byte[ecx+MAX_COLOR_WORD_LEN+4] ;wwo |
| movzx eax,byte[ecx+TexColViv.flags] |
| stdcall str_cat_value,edi,eax |
| stdcall str_len,edi |
| add edi,eax |
| mov byte[edi],',' |
| mov word[edi],',' |
| inc edi |
| xor eax,eax |
| mov ax,word[ecx+MAX_COLOR_WORD_LEN+4+1] ;(escc shl 8)+endc |
| cmp ax,0 ;ïðîâåðÿåì åñòü ëè çàâåðøàþùèé è ýêðàíèíóþùèé ñèìâîë |
| je @f |
| movzx eax,word[ecx+TexColViv.endc] ;(escc shl 8)+endc |
| or eax,eax ;ïðîâåðßåì åñòü ëè çàâåðøàþùèé è ýêðàíèíóþùèé ñèìâîë |
| jz @f |
| stdcall str_cat_value,edi,eax |
| stdcall str_len,edi |
| add edi,eax |
| @@: |
| mov byte[edi],',' |
| mov word[edi],',' |
| inc edi |
| xor eax,eax |
| mov al,byte[ecx+MAX_COLOR_WORD_LEN+4+3] ;color |
| movzx eax,byte[ecx+TexColViv.color] |
| stdcall str_cat_value,edi,eax |
| stdcall str_len,edi |
| add edi,eax |
| mov byte[edi],13 |
| inc edi |
| mov byte[edi],0 |
| mov word[edi],13 |
| mov esi,text_buffer |
| stdcall str_len,esi |
| stdcall [ted_text_add], tedit0,esi,eax,ted_opt_ed_move_cursor |
| stdcall [ted_text_add], tedit0,esi,eax,ted_opt_ed_change_time+ted_opt_ed_move_cursor |
| popad |
| ret |
| 284,8 → 289,8 |
| align 4 |
| proc print_word_f1, text:dword, index:dword |
| pushad |
| mov edi,dword[text] |
| mov esi,dword[edi+MAX_COLOR_WORD_LEN] ;f1 |
| mov edi,[text] |
| mov esi,[edi+TexColViv.f1] |
| cmp esi,0 |
| je @f |
| mov ebx,text_buffer |
| 296,7 → 301,7 |
| stdcall str_len,ebx |
| add ebx,eax |
| add esi,dword[tex_help_f1] |
| add esi,[tex_help_f1] |
| stdcall code_string,esi,ebx ;êîäèðóåì ñòðîêó |
| stdcall str_cat,ebx,capt_end_word_f1 |
| 308,13 → 313,15 |
| ret |
| endp |
| ;description: |
| ; êîäèðîâêà ñòðîêè, çàìåíà íåïå÷àòàåìûõ ñèìâîëîâ íà ÷èñëîâûå êîäû |
| align 4 |
| proc code_string, text:dword, out_text:dword |
| pushad |
| mov esi,dword[text] |
| mov esi,[text] |
| stdcall str_len,esi |
| mov ecx,eax |
| mov edi,dword[out_text] |
| mov edi,[out_text] |
| .copy: |
| mov al,byte[esi] |
| 335,7 → 342,7 |
| add edi,2 |
| and eax,0xff |
| mov dword[edi],0 |
| call tl_convert_to_str |
| stdcall convert_int_to_str,4 |
| stdcall str_len,edi |
| add edi,eax |
| mov byte[edi],',' |
| 383,7 → 390,7 |
| stdcall str_len,edi |
| add edi,eax |
| mov eax,[value] |
| call tl_convert_to_str |
| stdcall convert_int_to_str,12 |
| popad |
| ret |
| endp |
| 404,29 → 411,35 |
| endp |
| ;input: |
| ; eax = value |
| ; edi = string buffer |
| ; eax - ÷èñëî |
| ; edi - áóôåð äëß ñòðîêè |
| ; len - äëèííà áóôåðà |
| ;output: |
| align 4 |
| tl_convert_to_str: |
| pushad |
| stdcall mem_clear,edi,12 |
| proc convert_int_to_str uses eax ecx edx edi esi, len:dword |
| mov esi,[len] |
| add esi,edi |
| dec esi |
| call .str |
| popad |
| ret |
| endp |
| align 4 |
| .str: |
| mov ecx,0x0a ;çàäàåòñÿ ñèñòåìà ñ÷èñëåíèÿ èçìåíÿþòñÿ ðåãèñòðû ebx,eax,ecx,edx âõîäíûå ïàðàìåòðû eax - ÷èñëî |
| ;ïðåðåâîä ÷èñëà â ASCII ñòðîêó âõîäíûå äàííûå ecx=ñèñòåìà ñ÷èñëåíÿ edi àäðåñ êóäà çàïèñûâàòü, áóäåì ñòðîêó, ïðè÷åì êîíåö ïåðåìåííîé |
| cmp eax,ecx ;ñðàâíèòü åñëè â eax ìåíüøå ÷åì â ecx òî ïåðåéòè íà @@-1 ò.å. íà pop eax |
| mov ecx,10 |
| cmp eax,ecx |
| jb @f |
| xor edx,edx ;î÷èñòèòü edx |
| div ecx ;ðàçäåëèòü - îñòàòîê â edx |
| push edx ;ïîëîæèòü â ñòåê |
| ;dec edi ;ñìåùåíèå íåîáõîäèìîå äëÿ çàïèñè ñ êîíöà ñòðîêè |
| call .str ;ïåðåéòè íà ñàìó ñåáÿ ò.å. âûçâàòü ñàìó ñåáÿ è òàê äî òîãî ìîìåíòà ïîêà â eax íå ñòàíåò ìåíüøå ÷åì â ecx |
| xor edx,edx |
| div ecx |
| push edx |
| ;dec edi ;ñìåùåíèå íåîáõîäèìîå äëß çàïèñè ñ êîíöà ñòðîêè |
| call .str |
| pop eax |
| @@: ;cmp al,10 ;ïðîâåðèòü íå ìåíüøå ëè çíà÷åíèå â al ÷åì 10 (äëÿ ñèñòåìû ñ÷èñëåíÿ 10 äàííàÿ êîìàíäà - ëèøíàÿ)) |
| or al,0x30 ;äàííàÿ êîìàíäà êîðî÷å ÷åì äâå âûøå |
| stosb ;çàïèñàòü ýëåìåíò èç ðåãèñòðà al â ÿ÷åêó ïàìÿòè es:edi |
| @@: |
| cmp edi,esi |
| jge @f |
| or al,0x30 |
| stosb |
| mov byte[edi],0 ;â êîíåö ñòðîêè ñòàâèì 0, ÷òî-áû íå âûëàçèë ìóñîð |
| @@: |
| ret |