Subversion Repositories Kolibri OS

Rev

Rev 8852 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. ; макрос для системной библиотеки box_lib.obj
  2. ; элемент TextEditor для Kolibri OS
  3. ; файл последний раз изменялся 12.01.2021 IgorA
  4. ; на код применена GPL2 лицензия
  5.  
  6. ;input:
  7. ; edi = pointer to tedit struct
  8. ; reg = index
  9. ;output:
  10. ; reg = pointer to 'tex' struct
  11. macro ConvertIndexToPointer reg {
  12.         imul reg,sizeof.symbol
  13.         add reg,ted_tex
  14. }
  15.  
  16. ;--- out_reg = ted_key_words_data[ind_reg].Text[0] ---
  17. macro ColToIndexOffset ind_reg,out_reg {
  18.         mov out_reg,ind_reg
  19.         imul out_reg,sizeof.TexColViv
  20.         add out_reg,ted_key_words_data
  21. }
  22.  
  23. TED_LINES_IN_NEW_FILE equ 30 ;число строк в новом файле
  24. MAX_COLOR_WORD_LEN equ 40
  25. ;------------------------------------------------------------------------------
  26. struct TexSelect
  27.         x0 dd ?
  28.         y0 dd ?
  29.         x1 dd ?
  30.         y1 dd ?
  31. ends
  32.  
  33. struct TexColViv
  34.         Text  rb MAX_COLOR_WORD_LEN ; слово для подсветки
  35.         f1    dd 0 ; справка по слову
  36.         flags db ? ; f1+4 флаги используемые при выделении
  37.         endc  db ? ; f1+5 символ конца выделения (используется при flags&4)
  38.         escc  db ? ; f1+6 экранирующий символ (используется при flags&4)
  39.         color db ? ; f1+7 номер цвета
  40. ends
  41.  
  42. struct symbol
  43.         c db ?    ;  +0 символ
  44.         col db ?  ;  +1 цвет
  45.         perv dd ? ;  +2
  46.         next dd ? ;  +6 указатели
  47.         tc dd ?   ; +10 врем. создания
  48.         td dd ?   ; +14 врем. удаления
  49. ends
  50. ;------------------------------------------------------------------------------
  51.  
  52. ted_symbol_space db 32 ;ascii код пробела, иногда бывает нужен в коде
  53. ted_symbol_tab db 26 ;ascii код стрелки вправо, используется для рисования табуляции в режиме показа невидимых символов
  54.  
  55. if lang eq ru
  56.  
  57. txtRow db 'Строка',0
  58. txtCol db 'Знак',0
  59. txtOtm db 'Отмены',0
  60. txtBuf db 'Буфер:',0
  61.  
  62. else
  63.  
  64. txtRow db 'Rows',0
  65. txtCol db 'Cols',0
  66. txtOtm db 'Undo',0
  67. txtBuf db 'Buffer:',0
  68.  
  69. end if
  70.  
  71. ;EvChar - таблица для фильтрования добавляемых символов, что-бы не попали лишние знаки
  72. align 16
  73. EvChar db 0,0,0,0,0,0,0,0,0,1,0,0,0,1,0,0
  74.     db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  75.     db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  76.     db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  77.     db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  78.     db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  79.     db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  80.     db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0
  81.     db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  82.     db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  83.     db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  84.     db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  85.     db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  86.     db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  87.     db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  88.     db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  89.  
  90. KM_SHIFT equ 0x00010000
  91. KM_CTRL equ 0x00020000
  92. KM_ALT equ 0x00040000
  93. KM_NUMLOCK equ 0x00080000
  94.  
  95. ; KEY CODES
  96. KEY_F1 equ 0x0000003B
  97. KEY_F2 equ 0x0000003C
  98. KEY_F3 equ 0x0000003D
  99.  
  100.  
  101.  
  102. align 16
  103. proc ted_init uses eax ecx edi, edit:dword
  104.         mov edi,[edit]
  105.  
  106.         mov ecx,sizeof.symbol
  107.         imul ecx,ted_max_chars
  108.         invoke mem.alloc,ecx ;выделяем память
  109.         mov ted_tex,eax
  110.         mov ted_tex_1,eax
  111.         add ted_tex_1,sizeof.symbol
  112.         add eax,ecx
  113.         mov ted_tex_end,eax
  114.  
  115.         stdcall ted_clear, edi,1
  116.  
  117. ;-------------------------------------------------
  118.         mov ecx,1024 ;1024 - для массива ted_arr_key_pos
  119.         add ecx,ted_syntax_file_size
  120.         invoke mem.alloc,ecx
  121.         mov ted_arr_key_pos,eax
  122.         add eax,1024
  123.         mov ted_syntax_file,eax
  124.  
  125.         stdcall ted_init_scroll_bars,edi,3
  126.         ret
  127. endp
  128.  
  129. MIN_W_SCRL_ARE equ 3 ;минимальная отображаемая область для верт. скроллинга
  130. MIN_H_SCRL_ARE equ 3 ;минимальная отображаемая область для гориз. скроллинга
  131. ;input:
  132. ; opt = 1 - менять цвет скроллингов, 2 - изменились размеры окна,
  133. ;  4 - изменились размеры документа
  134. align 16
  135. proc ted_init_scroll_bars, edit:dword, opt:dword
  136.         pushad
  137.         mov edi,[edit]
  138.         mov esi,ted_scr_w
  139.         mov ebx,ted_scr_h
  140.         bt dword[opt],0
  141.         jae @f
  142.                 mov ecx,ted_color_wnd_work
  143.                 mov dword[esi+sb_offs_bckg_col],ecx
  144.                 mov dword[ebx+sb_offs_bckg_col],ecx
  145.                 mov ecx,ted_color_wnd_capt
  146.                 mov dword[esi+sb_offs_frnt_col],ecx
  147.                 mov dword[ebx+sb_offs_frnt_col],ecx
  148.                 mov ecx,ted_color_wnd_bord
  149.                 mov dword[esi+sb_offs_line_col],ecx
  150.                 mov dword[ebx+sb_offs_line_col],ecx
  151.         @@:
  152.         bt dword[opt],2 ; изменились размеры документа ?
  153.         jae .doc_resize
  154.                 call ted_get_num_lines
  155.                 cmp eax,TED_LINES_IN_NEW_FILE
  156.                 jge @f
  157.                         mov eax,TED_LINES_IN_NEW_FILE
  158.                 @@:
  159.                 mov dword[esi+sb_offs_max_area],eax
  160.         .doc_resize:
  161.         bt dword[opt],1 ; изменились размеры окна ?
  162.         jae .no_size
  163.                         mov edx,ted_wnd_l
  164.                         add edx,ted_rec_l
  165.                         mov word[ebx+sb_offs_start_x],dx ;выставляем левый отступ гориз. скроллинга
  166.                         mov eax,ted_wnd_h ;calculate lines in page
  167.                         mov edx,ted_wnd_t
  168.                         add edx,eax
  169.                         mov word[ebx+sb_offs_start_y],dx ;выставляем верхний отступ гориз. скроллинга
  170.                 sub eax,ted_rec_t
  171.                 xor edx,edx
  172.                 mov ecx,ted_rec_h
  173.                 div ecx
  174.                 cmp eax,MIN_W_SCRL_ARE
  175.                 jg @f
  176.                         mov eax,MIN_W_SCRL_ARE
  177.                 @@:
  178.                 mov dword[esi+sb_offs_cur_area],eax
  179.  
  180.                 mov eax,ted_wnd_w ;calculate cols in page
  181.                         mov edx,ted_wnd_l ;левый отступ окна
  182.                         add edx,eax ;добавляем ширину окна
  183.                         mov word[esi+sb_offs_start_x],dx ;выставляем левый отступ верт. скроллинга
  184.                         mov edx,ted_wnd_t
  185.                         mov word[esi+sb_offs_start_y],dx ;выставляем верхний отступ верт. скроллинга
  186.                         mov edx,ted_wnd_h
  187.                         mov word[esi+sb_offs_size_y],dx ;выставляем высоту верт. скроллинга
  188.                 sub eax,ted_rec_l
  189.                         mov word[ebx+sb_offs_size_x],ax ;выставляем ширину гориз. скроллинга
  190.                 xor edx,edx
  191.                 mov ecx,ted_rec_w
  192.                 div ecx
  193.                 cmp eax,MIN_H_SCRL_ARE
  194.                 jg @f
  195.                         mov eax,MIN_H_SCRL_ARE
  196.                 @@:
  197.                 dec eax
  198.                 mov dword[ebx+sb_offs_cur_area],eax ;устанавливаем число символов, которые влазят в экран для гориз. скроллинга
  199.         .no_size:
  200.         popad
  201.         ret
  202. endp
  203.  
  204. align 16
  205. proc ted_delete uses edi, edit:dword
  206.         mov edi,[edit]
  207.         invoke mem.free,ted_tex
  208.         invoke mem.free,ted_arr_key_pos ;ted_syntax_file
  209.         ret
  210. endp
  211.  
  212.  
  213. ;input:
  214. ; eax = key kodes
  215. align 16
  216. proc ted_key, edit:dword, table:dword, control:dword
  217.         pushad
  218.         mov edi,[edit]
  219.         mov esi,ted_el_focus
  220.         cmp dword[esi],edi
  221.         jne .end_key_fun ;элемент не в фокусе выходим из функции
  222.         mov esi,dword[control]
  223.  
  224.         cmp ah,KEY_F1 ;[F1]
  225.         jne @f
  226.                 stdcall ted_show_help_f1,edi
  227.                 jmp .end_key_fun
  228.         @@:
  229.         cmp ah,KEY_F3 ;[F3]
  230.         jne @f
  231.                 stdcall ted_but_find,edi,0
  232.                 jmp .end_key_fun
  233.         @@:
  234.  
  235.         test esi,KM_CTRL ;Ctrl+...
  236.         jz .key_Ctrl
  237.                 ; *** вызов внешних функций которые требуют окна открытия/сохранения/поиска/...
  238.                 cmp ted_fun_on_key_ctrl_all,0
  239.                 je .end0
  240.                 xor al,al
  241.                 cmp ah,24 ;Ctrl+O
  242.                 jne @f
  243.                         mov al,'O'
  244.                 @@:
  245.                 cmp ah,31 ;Ctrl+S
  246.                 jne @f
  247.                         mov al,'S'
  248.                 @@:
  249.                 cmp ah,33 ;Ctrl+F
  250.                 jne @f
  251.                         mov al,'F'
  252.                 @@:
  253.                 cmp ah,34 ;Ctrl+G
  254.                 jne @f
  255.                         mov al,'G'
  256.                 @@:
  257.                 cmp ah,35 ;Ctrl+H
  258.                 jne @f
  259.                         mov al,'H'
  260.                 @@:
  261.                 cmp ah,49 ;Ctrl+N
  262.                 jne @f
  263.                         mov al,'N'
  264.                 @@:
  265.                 or al,al
  266.                 jz .end0
  267.                         and eax,0xff
  268.                         test esi,KM_SHIFT
  269.                         jz @f
  270.                                 or eax,0x100
  271.                         @@:
  272.                         stdcall ted_fun_on_key_ctrl_all, eax
  273.                         jmp .end_key_fun
  274.                 .end0:
  275.  
  276.                 ; *** вызов внутренних функций
  277.                 cmp ah,30 ;Ctrl+A
  278.                 jne @f
  279.                         call ted_sel_all
  280.                 @@:
  281.                 cmp ah,44 ;Ctrl+Z
  282.                 jne @f
  283.                         stdcall ted_but_undo,edi
  284.                 @@:
  285.                 cmp ah,45 ;Ctrl+X
  286.                 jne @f
  287.                         stdcall ted_but_cut,edi
  288.                 @@:
  289.                 cmp ah,46 ;Ctrl+C
  290.                 jne @f
  291.                         stdcall ted_but_copy,edi
  292.                 @@:
  293.                 cmp ah,47 ;Ctrl+V
  294.                 jne @f
  295.                         stdcall ted_but_paste,edi
  296.                 @@:
  297.                 cmp ah,199 ;Ctrl+Home
  298.                 jne @f
  299.                         call ted_key_ctrl_home
  300.                 @@:
  301.                 cmp ah,207 ;Ctrl+End
  302.                 jne @f
  303.                         call ted_key_ctrl_end
  304.                 @@:
  305.                 jmp .end_key_fun
  306.         .key_Ctrl:
  307.  
  308.         test esi,KM_SHIFT ;Shift+...
  309.         jz .key_Shift
  310.                 cmp ah,72 ;Shift+Up
  311.                 jne @f
  312.                         call ted_sel_key_up
  313.                 @@:
  314.                 cmp ah,75 ;Shift+Left
  315.                 jne @f
  316.                         call ted_sel_key_left
  317.                 @@:
  318.                 cmp ah,77 ;Shift+Right
  319.                 jne @f
  320.                         call ted_sel_key_right
  321.                 @@:
  322.                 cmp ah,80 ;Shift+Down
  323.                 jne @f
  324.                         call ted_sel_key_down
  325.                 @@:
  326.                 ;mov ted_drag_k,1 ;начинаем выделение от клавиатуры
  327.                 jmp .key_MoveCur
  328.         .key_Shift:
  329. ;-------------------------------------------------
  330.         cmp ah,72 ;178 ;Up
  331.         jne @f
  332.                 call ted_draw_cursor_sumb
  333.                 call ted_cur_move_up
  334.                 cmp dl,8
  335.                 jne .no_red_0
  336.                         call ted_scroll_set_redraw
  337.                         stdcall ted_draw,edi
  338.                         jmp @f
  339.                 .no_red_0:
  340.                 call ted_sel_end
  341.         @@:
  342.         cmp ah,80 ;177 ;Down
  343.         jne @f
  344.                 call ted_draw_cursor_sumb
  345.                 call ted_cur_move_down
  346.                 cmp dl,8
  347.                 jne .no_red_1
  348.                         call ted_scroll_set_redraw
  349.                         stdcall ted_draw,edi
  350.                         jmp @f
  351.                 .no_red_1:
  352.                 call ted_sel_end
  353.         @@:
  354.         cmp ah,75 ;176 ;Left
  355.         jne @f
  356.                 call ted_draw_cursor_sumb
  357.                 call ted_cur_move_left
  358.                 cmp dl,8
  359.                 jne .no_red_2
  360.                         call ted_scroll_set_redraw
  361.                         stdcall ted_draw,edi
  362.                         jmp @f
  363.                 .no_red_2:
  364.                 call ted_sel_end
  365.         @@:
  366.         cmp ah,77 ;179 ;Right
  367.         jne @f
  368.                 call ted_draw_cursor_sumb
  369.                 call ted_cur_move_right
  370.                 cmp dl,8
  371.                 jne .no_red_3
  372.                         call ted_scroll_set_redraw
  373.                         stdcall ted_draw,edi
  374.                         jmp @f
  375.                 .no_red_3:
  376.                 call ted_sel_end
  377.         @@:
  378.         cmp ah,71 ;180 ;Home
  379.         jne @f
  380.                 call ted_draw_cursor_sumb
  381.                 call ted_cur_move_x_first_char
  382.                 cmp dl,8
  383.                 jne .no_red_4
  384.                         call ted_scroll_set_redraw
  385.                         stdcall ted_draw,edi
  386.                         jmp @f
  387.                 .no_red_4:
  388.                 call ted_sel_end
  389.         @@:
  390.         cmp ah,79 ;181 ;End
  391.         jne @f
  392.                 call ted_draw_cursor_sumb
  393.                 call ted_cur_move_x_last_char
  394.                 cmp dl,8
  395.                 jne .no_red_5
  396.                         call ted_scroll_set_redraw
  397.                         stdcall ted_draw,edi
  398.                         jmp @f
  399.                 .no_red_5:
  400.                 call ted_sel_end
  401.         @@:
  402.         cmp ah,73 ;184 ;PageUp
  403.         jne @f
  404.                 call ted_cur_move_page_up
  405.                 cmp dl,0
  406.                 je @f
  407.                 call ted_scroll_set_redraw
  408.                 stdcall ted_draw,edi
  409.                 mov ted_drag_k,0 ;заканчиваем выделение от клавиатуры
  410.         @@:
  411.         cmp ah,81 ;183 ;PageDown
  412.         jne @f
  413.                 call ted_cur_move_page_down
  414.                 cmp dl,0
  415.                 je @f
  416.                 call ted_scroll_set_redraw
  417.                 stdcall ted_draw,edi
  418.                 mov ted_drag_k,0 ;заканчиваем выделение от клавиатуры
  419.         @@:
  420. ;-------------------------------------------------
  421.         .key_MoveCur:
  422.  
  423.         ;ниже пропускаются служебные клавиши, которые могут давать мусорные символы в окно
  424.         cmp ah,42 ;[L Shift] когда нажат без других кнопок
  425.         je .end_key_fun
  426.         cmp ah,54 ;[R Shift] когда нажат без других кнопок
  427.         je .end_key_fun
  428.         cmp ah,58 ;[Caps Lock]
  429.         je .end_key_fun
  430.         cmp ah,69 ;[Pause Break]
  431.         je .end_key_fun
  432.         cmp ah,120 ;[Fn]
  433.         je .end_key_fun
  434.         cmp ah,0x80 ;if key up
  435.         ja .end_key_fun
  436.  
  437.         cmp dword[table],0
  438.         je @f
  439.                 stdcall KeyConvertToASCII, [table]
  440.         @@:
  441.  
  442.         ;mov ted_drag_k,0 ;заканчиваем выделение от клавиатуры
  443.  
  444.         lea edx,[EvChar] ;берем адрес таблицы с допустимыми символами
  445.         add dl,ah
  446.         jae @f
  447.                 add edx,0x100 ;если было переполнение при добавлении кода символа
  448.         @@:
  449.         cmp byte[edx],1
  450.         jne @f
  451.                 mov ted_key_new,ah
  452.                 call ted_set_undo
  453.                 mov edx,ted_opt_ed_change_time+ted_opt_ed_move_cursor
  454.                 stdcall ted_sel_text_del,edx
  455.                 cmp al,1
  456.                 jne .del
  457.                         mov edx,ted_opt_ed_move_cursor
  458.                 .del:
  459.                 cmp ted_cur_ins,1
  460.                 je .no_ins_mod
  461.                         stdcall ted_text_del,edi,ted_opt_ed_change_time
  462.                         mov edx,ted_opt_ed_move_cursor
  463.                 .no_ins_mod:
  464.                 mov ecx,edi
  465.                 add ecx,ted_offs_key_new
  466.                 stdcall ted_text_add,edi,ecx,1,edx ;добавляем символ введенный с клавиатуры
  467.                 cmp ted_key_new,13
  468.                 jne .dr_m_win
  469.                         ;если вставили символ новой строки
  470.                         mov ecx,ted_scr_w
  471.                         inc dword[ecx+sb_offs_max_area] ;увеличиваем размер вертикального скроллинга
  472.                         mov edx,ted_cur_y
  473.                         cmp edx,[ecx+sb_offs_cur_area]
  474.                         jl .no_change
  475.                                 dec ted_cur_y ;курсор оставляем на месте
  476.                                 inc dword[ecx+sb_offs_position] ;сдвигаем ползунок
  477.                         .no_change:
  478.                         stdcall ted_draw,edi
  479.                         jmp .dr_cur_l
  480.                 .dr_m_win:
  481.                         stdcall ted_draw_cur_line,edi
  482.                 .dr_cur_l:
  483.                 cmp ted_fun_draw_panel_buttons,0
  484.                 je @f
  485.                         call ted_fun_draw_panel_buttons
  486.         @@:
  487.  
  488.         cmp ah,8 ;[<-]
  489.         jne @f
  490.                 call ted_set_undo
  491.                 stdcall ted_sel_text_del,ted_opt_ed_change_time
  492.                 cmp al,1
  493.                 je .del_one_b
  494.                         stdcall ted_text_del,edi,ted_opt_ed_change_time+ted_opt_ed_move_cursor
  495.                 .del_one_b:
  496.                 stdcall ted_draw,edi
  497.                 cmp ted_fun_draw_panel_buttons,0
  498.                 je .end_key_fun
  499.                         call ted_fun_draw_panel_buttons
  500.                 jmp .end_key_fun
  501. align 4
  502.         @@:
  503.  
  504.         cmp ah,182 ;Delete
  505.         jne @f
  506.                 call ted_set_undo
  507.                 stdcall ted_sel_text_del,ted_opt_ed_change_time
  508.                 cmp al,1
  509.                 je .del_one_d
  510.                         stdcall ted_text_del,edi,ted_opt_ed_change_time
  511.                 .del_one_d:
  512.                 stdcall ted_draw,edi
  513.                 cmp ted_fun_draw_panel_buttons,0
  514.                 je .end_key_fun
  515.                         call ted_fun_draw_panel_buttons
  516.                 jmp .end_key_fun
  517.         @@:
  518.  
  519.         cmp ah,185 ;Ins
  520.         jne @f
  521.                 call ted_draw_cursor_sumb
  522.                 xor ted_cur_ins,1
  523.                 call ted_draw_main_cursor
  524.         @@:
  525.  
  526.         .end_key_fun:
  527.         popad
  528.         ret
  529. endp
  530.  
  531. ;output:
  532. ; al = 1 - can save
  533. align 16
  534. proc ted_can_save uses ecx edi, edit:dword
  535.         mov edi,[edit]
  536.  
  537.         mov ecx,ted_tim_ch
  538.         sub ecx,ted_tim_undo
  539.         mov al,1
  540.         cmp ted_tim_ls,ecx
  541.         jne @f
  542.                 dec al
  543.         @@:
  544.         ret
  545. endp
  546.  
  547. ;input:
  548. ; edi = pointer to tedit struct
  549. ;output:
  550. ; al = 1 - selected
  551. align 16
  552. proc ted_is_select uses ebx
  553.         xor al,al
  554.         cmp ted_drag_m,1
  555.         je @f
  556.                 inc al
  557.                 mov ebx,ted_sel_x0
  558.                 cmp ebx,ted_sel_x1
  559.                 jne @f
  560.                 mov ebx,ted_sel_y0
  561.                 cmp ebx,ted_sel_y1
  562.                 jne @f
  563.                 xor al,al
  564.         @@:
  565.         ret
  566. endp
  567.  
  568. ;input:
  569. ; edi = pointer to tedit struct
  570. align 16
  571. proc ted_sel_normalize uses ecx esi
  572.         push edi
  573.                 mov esi,edi
  574.                 add esi,ted_offs_sel
  575.                 add edi,ted_offs_seln
  576.                 mov ecx,sizeof.TexSelect/4
  577.                 rep movsd
  578.         pop edi
  579.  
  580.         jmp @f
  581.                 .swp_f:
  582.                 mov ecx,ted_seln_x0
  583.                 m2m ted_seln_x0,ted_seln_x1
  584.                 mov ted_seln_x1,ecx
  585.  
  586.                 mov ecx,ted_seln_y0
  587.                 cmp ecx,ted_seln_y1 ;(sel_y0>sel_y1)
  588.                 jle .end_f
  589.                 m2m ted_seln_y0,ted_seln_y1
  590.                 mov ted_seln_y1,ecx
  591.  
  592.                 jmp .end_f
  593. align 4
  594.         @@:
  595.  
  596.         mov ecx,ted_seln_y0
  597.         cmp ecx,ted_seln_y1 ;(sel_y0>sel_y1)
  598.         jg .swp_f
  599.  
  600.         cmp ecx,ted_seln_y1 ;(sel_y0==sel_y1)
  601.         jne .end_f
  602.                 mov ecx,ted_seln_x0
  603.                 cmp ecx,ted_seln_x1 ;(sel_x0>sel_x1)
  604.                 jg .swp_f
  605.  
  606.         .end_f:
  607.         ret
  608. endp
  609.  
  610. ;input:
  611. ; edi = pointer to tedit struct
  612. ;description:
  613. ; Функция вызываемая при начале выделения
  614. align 16
  615. proc ted_sel_start uses eax ecx
  616.         mov eax,ted_scr_h
  617.         mov ecx,ted_cur_x
  618.         add ecx,[eax+sb_offs_position]
  619.         mov ted_sel_x0,ecx
  620.         mov ted_sel_x1,ecx
  621.  
  622.         mov eax,ted_scr_w
  623.         mov ecx,ted_cur_y
  624.         add ecx,[eax+sb_offs_position]
  625.         mov ted_sel_y0,ecx
  626.         mov ted_sel_y1,ecx
  627.         ret
  628. endp
  629.  
  630. ;input:
  631. ; edi = pointer to tedit struct
  632. ;description:
  633. ; Функция вызываемая при снятии выделения
  634. align 16
  635. proc ted_sel_end uses eax
  636.         mov ted_drag_k,0 ;заканчиваем выделение от клавиатуры
  637.         call ted_is_select
  638.         or al,al
  639.         jz @f
  640.                 xor eax,eax
  641.                 mov ted_sel_x0,eax
  642.                 mov ted_sel_x1,eax
  643.                 mov ted_sel_y0,eax
  644.                 mov ted_sel_y1,eax
  645.                 stdcall ted_draw,edi
  646.                 jmp .end_f
  647.         @@:
  648.         call ted_draw_main_cursor
  649.         .end_f:
  650.         ret
  651. endp
  652.  
  653. ;input:
  654. ; edi = pointer to tedit struct
  655. ;description:
  656. ; Функция вызываемая при перемещении выделения
  657. align 16
  658. proc ted_sel_move
  659.         push eax ecx
  660.                 mov ecx,ted_cur_x
  661.                 mov eax,ted_scr_h
  662.                 add ecx,[eax+sb_offs_position]
  663.                 mov ted_sel_x1,ecx
  664.  
  665.                 mov eax,ted_scr_w
  666.                 mov ecx,ted_cur_y
  667.                 add ecx,[eax+sb_offs_position]
  668.                 mov ted_sel_y1,ecx
  669.         pop ecx eax
  670.         cmp ted_fun_draw_panel_buttons,0 ;redraw toolbar (need to button Copy)
  671.         je @f
  672.                 call ted_fun_draw_panel_buttons
  673.         @@:
  674.         ret
  675. endp
  676.  
  677. ;input:
  678. ; edi = pointer to tedit struct
  679. ;description:
  680. ; Функция вызываемая при выделении всего документа
  681. align 16
  682. proc ted_sel_all
  683.         push eax
  684.                 xor eax,eax
  685.                 mov ted_sel_x0,eax
  686.                 mov ted_sel_y0,eax
  687.  
  688.                 mov ted_sel_x1,eax ;???
  689.                 call ted_get_num_lines
  690.                 mov ted_sel_y1,eax
  691.         pop eax
  692.         stdcall ted_draw,edi
  693.         cmp ted_fun_draw_panel_buttons,0 ;redraw toolbar (need to button Copy)
  694.         je @f
  695.                 call ted_fun_draw_panel_buttons
  696.         @@:
  697.         ret
  698. endp
  699.  
  700. ;input:
  701. ; cl_al_mem = 1 - clear all memory
  702. align 16
  703. proc ted_clear uses ecx edi, edit:dword, cl_al_mem:dword
  704.         mov edi,[edit]
  705.  
  706.         mov ted_cur_x,0
  707.         mov ted_cur_y,0
  708.         mov ted_tim_ch,0
  709.         mov ted_tim_ls,0
  710.         mov ted_tim_co,0
  711.         mov ted_tim_undo,0
  712.         mov ted_help_id,-1
  713.         mov ecx,sizeof.symbol
  714.         shl ecx,1
  715.         add ecx,ted_tex
  716.         mov ted_ptr_free_symb,ecx
  717.  
  718.         mov ecx,ted_scr_w
  719.         mov dword[ecx+sb_offs_position],0
  720.         mov dword[ecx+sb_offs_max_area],100 ;число строк видимых в новом документе
  721.         mov dword[ecx+sb_offs_redraw],1
  722.         mov ecx,ted_scr_h
  723.         mov dword[ecx+sb_offs_position],0
  724.         mov dword[ecx+sb_offs_max_area],100 ;число символов видимых в новом документе
  725.  
  726.         mov ted_sel_x0,0
  727.         mov ted_sel_y0,0
  728.         mov ted_sel_x1,0
  729.         mov ted_sel_y1,0
  730.  
  731.         cmp dword[cl_al_mem],0
  732.         je .exit
  733.  
  734.         push edx
  735.         mov ecx,sizeof.symbol
  736.         imul ecx,ted_max_chars
  737.         mov edx,ted_tex
  738.         @@:
  739.                 mov byte [edx],0
  740.                 inc edx
  741.         loop @b
  742.         mov edx,ted_tex
  743.         mov dword [edx+symbol.next],1
  744.         pop edx
  745.  
  746.         .exit:
  747.         ret
  748. endp
  749.  
  750.  
  751. align 16
  752. proc ted_init_syntax_file, edit:dword
  753.         pushad
  754.         mov edi,[edit]
  755.  
  756.         mov ecx,0x100
  757.         mov edx,ted_arr_key_pos
  758.         @@:
  759.                 mov dword[edx],-1
  760.                 add edx,4
  761.         loop @b
  762.  
  763.         ;init: ted_colors_text_count, ted_key_words_count, ...
  764.         mov ted_colors_text_count,1
  765.         mov ted_help_text_f1,0
  766.         mov ted_help_id,-1 ;идентификатор слова для справки
  767.  
  768.         mov eax,edi ;сохраняем значение edi
  769.         mov esi,ted_syntax_file
  770.         add edi,ted_offs_count_colors ;edi = &ted_key_words_count
  771.         mov ecx,9
  772.         rep movsd
  773.         mov edi,eax ;востанавливаем значение edi
  774.  
  775.         mov eax,ted_syntax_file
  776.         add eax,32
  777.         mov ted_text_colors,eax
  778.  
  779.         mov eax,ted_colors_text_count ;init: count_colors_text (offset to key words)
  780.         lea eax,[4*eax+32]
  781.         add eax,ted_syntax_file
  782.         mov ted_key_words_data,eax
  783.  
  784.         mov ecx,ted_key_words_count ;init: ted_arr_key_pos (first key positions)
  785.         or ecx,ecx
  786.         jz .no_words
  787.         xor eax,eax
  788.         @@:
  789.                 ColToIndexOffset eax,edx
  790.                 movzx ebx,byte[edx]
  791.                 mov esi,ted_arr_key_pos
  792.                 lea esi,[esi+4*ebx]
  793.                 cmp dword[esi],-1
  794.                 jne .no_ch_key
  795.                         mov [esi],eax
  796.                 .no_ch_key:
  797.                 inc eax
  798.         loop @b
  799.         .no_words:
  800.  
  801.         ;init: ted_help_text_f1
  802.         mov ecx,ted_key_words_count ;количество ключевых слов
  803.         imul ecx,sizeof.TexColViv   ;размер структуры с 1-м кл. сл.
  804.         add ecx,ted_key_words_data  ;начало файла с кл. сл.
  805.         mov ted_help_text_f1,ecx    ;метка в памяти, где начинется текст со справкой
  806.  
  807.         stdcall ted_init_scroll_bars,edi,1 ;меняем цвета скроллингов
  808.         .no_colors:
  809.         popad
  810.         ret
  811. endp
  812.  
  813. ;input:
  814. ; ebx = file size
  815. ; edi = pointer to tedit struct
  816. ;description:
  817. ; Функция вызывается при открытии файла
  818. align 16
  819. proc ted_on_open_file
  820.         push eax ;destination
  821.         push ecx ;for cycle
  822.         push edx ;source
  823.         push esi
  824.  
  825.         or ebx,ebx
  826.         jnz @f
  827.                 ;если файл пустой
  828.                 stdcall ted_clear,edi,1 ;чистим всю память
  829.                 jmp .end_opn
  830. align 4
  831.         @@:
  832.         stdcall ted_clear,edi,0 ;чистим не всю память, потому что ниже будем ее заполнять новыми даными
  833.  
  834.         mov edx,ted_tex
  835.         mov ecx,ebx
  836.         .s_10:
  837.                 cmp word[edx],0xa0d ;пропускаем 10-й символ если перед ним стоит 13-й
  838.                 jne @f
  839.                         dec ecx
  840.                         jz .no_10
  841.                         dec ecx
  842.                         jz .no_10
  843.                         add edx,2
  844.                 @@:
  845.                 cmp byte[edx],10
  846.                 jne @f
  847.                         mov byte[edx],13 ;меняем 10-й символ конца строки
  848.                 @@:
  849.                 inc edx
  850.                 loop .s_10
  851.         .no_10:
  852.  
  853.         ;переводим открытый файл внутрь элемента t_edit
  854.         mov ecx,ebx
  855.         lea eax,[ebx+2]
  856.         ConvertIndexToPointer eax
  857.         mov edx,ted_tex
  858.         add edx,ebx
  859.         push ebx
  860.         @@:
  861.                 mov ebx,[edx]
  862.                 mov byte[eax],bl
  863.                 mov dword[eax+symbol.perv],ecx
  864.                 inc dword[eax+symbol.perv]
  865.                 mov dword[eax+symbol.next],ecx
  866.                 add dword[eax+symbol.next],3
  867.                 ;mov byte[eax+1],0 ;col=0
  868.                 mov dword[eax+symbol.tc],-1
  869.                 mov dword[eax+symbol.td],0
  870.  
  871.                 or ecx,ecx
  872.                 jz @f
  873.                 dec ecx
  874.                 dec edx
  875.                 sub eax,sizeof.symbol
  876.                 jmp @b
  877. align 4
  878.         @@:
  879.         pop ebx
  880.         mov dword[eax+symbol.perv],0 ; first sumbol 'perv=0'
  881.  
  882.         mov edx,ted_tex ; настройки начального служебного символа
  883.         ; begining sumbol 'perv=0' 'next=2'
  884.         mov dword[edx+symbol.perv],0
  885.         mov dword[edx+symbol.next],2
  886.  
  887.         add edx,sizeof.symbol ; настройки конечного служебного символа
  888.         mov dword[edx+symbol.next],0 ; last sumbol 'next=0'
  889.         mov dword[edx+symbol.perv],ebx ; last sumbol 'perv=last'
  890.         inc dword[edx+symbol.perv]
  891.         mov dword[edx+symbol.tc],0 ; ставим время создания равное 0, что бы символ правильно обрабатывался при открытии файлов больших 28 байт
  892.  
  893.         mov edx,ebx
  894.         inc edx ;2 = rezerv sumbols
  895.         imul edx,sizeof.symbol
  896.         add edx,ted_tex
  897.         mov dword[edx+symbol.next],1 ; last sumbol 'next=1'
  898.  
  899.         @@: ;clear memory, need if before was open big file
  900.                 add edx,sizeof.symbol
  901.                 cmp edx,ted_tex_end
  902.                 jge .end_opn
  903.                         mov dword[edx+symbol.tc],0
  904.                         mov dword[edx+symbol.td],0
  905.                 jmp @b
  906. align 4
  907.         .end_opn:
  908.  
  909.         call ted_get_num_lines
  910.         cmp eax,TED_LINES_IN_NEW_FILE
  911.         jge @f
  912.                 mov eax,TED_LINES_IN_NEW_FILE
  913.         @@:
  914.         mov esi,ted_scr_w
  915.         mov dword[esi+sb_offs_max_area],eax
  916.         pop esi edx ecx eax
  917.  
  918.         call ted_text_colored
  919.         stdcall ted_draw,edi
  920.         cmp ted_fun_draw_panel_buttons,0
  921.         je @f
  922.                 call ted_fun_draw_panel_buttons
  923.         @@:
  924.         ret
  925. endp
  926.  
  927. ;input:
  928. ; edx = pointer to symbol struct
  929. ; edi = pointer to tedit struct
  930. ;output:
  931. ; edx = pointer to 'perv' visible symbol struct
  932. align 16
  933. ted_iterat_perv:
  934.         cmp ted_tim_undo,0
  935.         je .else
  936.         push ebx
  937.         @@:
  938.                 mov edx,[edx+symbol.perv]
  939.                 or edx,edx
  940.                 jz @f
  941.                 imul edx,sizeof.symbol
  942.                 add edx,ted_tex
  943.                 call ted_symbol_not_vis
  944.                 cmp bl,1
  945.                 je @b
  946.                 cmp byte[edx],10 ;пропуск символа с кодом 10
  947.                 je @b
  948.         pop ebx
  949.         ret
  950.         @@:
  951.         mov edx,ted_tex ;начало файла
  952.         pop ebx
  953.         ret
  954.         .else:
  955.                 mov edx,[edx+symbol.perv]
  956.                 or edx,edx
  957.                 jz @f
  958.                 imul edx,sizeof.symbol
  959.                 add edx,ted_tex
  960.                 cmp dword[edx+symbol.td],0
  961.                 jne .else
  962.                 cmp byte[edx],10 ;пропуск символа с кодом 10
  963.                 je .else
  964.         ret
  965.         @@:
  966.         mov edx,ted_tex ;начало файла
  967.         ret
  968.  
  969.  
  970. ;input:
  971. ; edx = pointer to symbol struct
  972. ; edi = pointer to tedit struct
  973. ;output:
  974. ; edx = pointer to 'next' visible symbol struct
  975. align 16
  976. ted_iterat_next:
  977.         cmp ted_tim_undo,0
  978.         je .else
  979.         push ebx
  980.         @@:
  981.                 mov edx,[edx+symbol.next]
  982.                 cmp edx,1
  983.                 jle @f
  984.                 imul edx,sizeof.symbol
  985.                 add edx,ted_tex
  986.  
  987.                 call ted_symbol_not_vis
  988.                 cmp bl,1
  989.                 je @b
  990.                 cmp byte[edx],10 ;пропуск символа с кодом 10
  991.                 je @b
  992.         pop ebx
  993.         ret
  994.         @@:
  995.         mov edx,ted_tex_1 ;конец файла
  996.         pop ebx
  997.         ret
  998.         .else:
  999.                 mov edx,[edx+symbol.next]
  1000.                 cmp edx,1
  1001.                 jle @f
  1002.                 imul edx,sizeof.symbol
  1003.                 add edx,ted_tex
  1004.  
  1005.                 cmp dword[edx+symbol.td],0
  1006.                 jne .else
  1007.                 cmp byte[edx],10 ;пропуск символа с кодом 10
  1008.                 je .else
  1009.         ret
  1010.         @@:
  1011.         mov edx,ted_tex_1 ;конец файла
  1012.         ret
  1013.  
  1014. ;input:
  1015. ; bl = symbol end of select
  1016. ; bh = экранирующий символ (= 0 если нет проверки на них)
  1017. ; edx = pointer to symbol struct
  1018. ; edi = pointer to tedit struct
  1019. ;description:
  1020. ; найти следующую позицию указанного символа
  1021. align 16
  1022. ted_iterat_next_pos_char:
  1023.         push ax
  1024.         mov al,1 ;предыдущий символ, служит для сравнения с символом bh
  1025.         @@:
  1026.                 cmp bl,byte[edx]
  1027.                 je .found
  1028.                 .no_found:
  1029.                 cmp edx,ted_tex_1
  1030.                 jle @f
  1031.                         mov al,byte[edx]
  1032.                         call ted_iterat_next
  1033.                         jmp @b
  1034.         .found:
  1035.                 cmp bh,al
  1036.                 je .no_found
  1037.         @@:
  1038.         call ted_iterat_next
  1039.         pop ax
  1040.         ret
  1041.  
  1042. ;input:
  1043. ; edx = pointer to symbol struct
  1044. ; edi = pointer to tedit struct
  1045. align 16
  1046. ted_iterat_perv_color_tag:
  1047.         @@:
  1048.                 cmp byte[edx+1],0
  1049.                 jne @f
  1050.                 call ted_iterat_perv
  1051.                 cmp edx,ted_tex_1
  1052.                 jle @f
  1053.                 jmp @b
  1054. align 4
  1055.         @@:
  1056.         ret
  1057.  
  1058. ;input:
  1059. ; edx = pointer to symbol struct
  1060. ; edi = pointer to tedit struct
  1061. align 16
  1062. ted_iterat_next_color_tag:
  1063.         @@:
  1064.                 call ted_iterat_next
  1065.                 cmp byte[edx+1],0
  1066.                 jne @f
  1067.                 cmp edx,ted_tex_1
  1068.                 jle @f
  1069.                 jmp @b
  1070. align 4
  1071.         @@:
  1072.         ret
  1073.  
  1074. ;input:
  1075. ; edx = pointer to symbol struct
  1076. ; edi = pointer to tedit struct
  1077. ;output:
  1078. ; bl = 1 if sumbol not visible
  1079. ; (tex[i].td+ted_tim_undo<=ted_tim_ch && tex[i].td) || (tex[i].tc>ted_tim_ch-ted_tim_undo)
  1080. align 16
  1081. ted_symbol_not_vis:
  1082.         push eax
  1083.  
  1084.         xor bl,bl
  1085.         cmp dword[edx+symbol.td],0
  1086.         je @f
  1087.         mov eax,[edx+symbol.td] ;eax=tex[i].td
  1088.         add eax,ted_tim_undo
  1089.         cmp eax,ted_tim_ch
  1090.         jg @f
  1091.                 mov bl,1
  1092.                 pop eax
  1093.                 ret
  1094.         @@:
  1095.  
  1096.         mov eax,ted_tim_ch
  1097.         sub eax,ted_tim_undo
  1098.         cmp [edx+symbol.tc],eax
  1099.         jle @f
  1100.                 or bl,1
  1101.         @@:
  1102.  
  1103.         pop eax
  1104.         ret
  1105.  
  1106. ;input:
  1107. ; text - pointer to text string
  1108. ; add_opt - options
  1109. align 16
  1110. proc ted_text_add, edit:dword, text:dword, t_len:dword, add_opt:dword
  1111.         locals
  1112.                 new_spc dd ? ;count new spaces
  1113.                 new_lin dd ? ;count new lines
  1114.         endl
  1115. ;использование регистров внутри функции:
  1116. ;eax - позиция для вставки текста
  1117. ;ebx - для временных нужд, длинна вставляемого текста
  1118. ;ecx - для временных нужд
  1119. ;edx - указатель на структуру символа
  1120.         pushad
  1121.         cmp dword[t_len],1 ;проверяем длинну добвляемого текста
  1122.         jl .no_add ;когда длинна <1 прыгаем на конец функции, во избежание глюков
  1123.  
  1124.         mov edi,[edit]
  1125.         mov esi,[text]
  1126.  
  1127.         call ted_get_pos_by_cursor
  1128.         call ted_get_text_perv_pos
  1129.         call ted_get_text_arr_index ;eax=po_t
  1130.  
  1131.         mov dword[new_spc],0
  1132.         cmp ted_gp_opt,2
  1133.         je @f
  1134.                 push eax ;c_sp=cur[cn].x+Scroller->XPos-StrLen(cur[cn].y+Scroller->YPos);
  1135.                         mov eax,ted_scr_h
  1136.                         mov eax,[eax+sb_offs_position]
  1137.                         add eax,ted_cur_x ;eax - номер символа
  1138.                         mov [new_spc],eax
  1139.  
  1140.                         mov eax,ted_scr_w
  1141.                         mov eax,[eax+sb_offs_position]
  1142.                         add eax,ted_cur_y ;eax - номер строки
  1143.                         call ted_strlen ;ebx = line len
  1144.                         sub [new_spc],ebx ;от позиции курсора отнимаем длинну строки, узнаем колличество добавляемых пробелов
  1145.                 pop eax
  1146.         @@:
  1147.  
  1148.         mov ebx,[t_len]
  1149.  
  1150.         mov dword[new_lin],0
  1151.         cmp ted_gp_opt,0
  1152.         jne @f
  1153.                 push eax
  1154.                         mov eax,ted_scr_w
  1155.                         mov eax,[eax+sb_offs_position]
  1156.                         add eax,ted_cur_y
  1157.                         inc eax
  1158.                         mov [new_lin],eax
  1159.  
  1160.                         call ted_get_num_lines
  1161.                         sub [new_lin],eax
  1162.                         ;увеличиваем линии в скроллинге на число добавленных дополнительных строк
  1163.                         mov ecx,ted_scr_w
  1164.                         add [ecx+sb_offs_max_area],eax ;увеличиваем размер вертикального скроллинга
  1165.                 pop eax
  1166.         @@:
  1167.  
  1168.         mov edx,ted_ptr_free_symb
  1169.         .beg_cycle: ;for(i=...;i<ted_max_chars;i++)
  1170.                 cmp dword[edx+symbol.tc],0 ;if(!tex[i].tc && !tex[i].td)
  1171.                 jne .u1f
  1172.                 cmp dword[edx+symbol.td],0
  1173.                 jne .u1f
  1174.                         test dword[add_opt],ted_opt_ed_change_time ;if(n_tim) ted_tim_ch++;
  1175.                         jz .no_tim
  1176.                                 inc ted_tim_ch
  1177.                         .no_tim:
  1178.                         test dword[add_opt],ted_opt_ed_move_cursor
  1179.                         jz .no_cur_mov
  1180.                         cmp dword[new_lin],0 ;если есть добавочные строки, то курсор еще не двигаем
  1181.                         jg .no_cur_mov
  1182.                         cmp dword[new_spc],0 ;если нет добавочных пробелов, то курсор тоже не двигаем
  1183.                         jg .no_cur_mov
  1184.                                 inc ted_cur_x ;move cursor
  1185.                                 ;call ted_go_to_pos
  1186.                                 cmp byte[esi],13
  1187.                                 jne .no_cur_mov
  1188.                                         mov ted_cur_x,0
  1189.                                         inc ted_cur_y
  1190.                                         ;увеличиваем линии в скроллинге на число добавленных в тексте строк
  1191.                                         mov ecx,ted_scr_w
  1192.                                         inc dword[ecx+sb_offs_max_area] ;увеличиваем размер вертикального скроллинга
  1193.                         .no_cur_mov:
  1194.  
  1195.                         ; *** вставка текущего символа из строки ***
  1196.                         mov ecx,ted_opt_ed_change_time
  1197.                         not ecx
  1198.                         and [add_opt],ecx ;n_tim=false;
  1199.  
  1200.                         mov cl,byte[esi] ;tex[i].c=ta[ns];
  1201.                         mov byte[edx],cl
  1202.                         m2m dword[edx+symbol.tc],ted_tim_ch ;tex[i].tc=ted_tim_ch;
  1203.                         mov [edx+symbol.perv],eax ;tex[i].perv=po_t;
  1204.  
  1205.                         mov ecx,eax
  1206.                         imul ecx,sizeof.symbol
  1207.                         add ecx,ted_tex ; *** ecx = tex[po_t] ***
  1208.                         add ecx,symbol.next ; *** ecx = tex[po_t].next ***
  1209.                         m2m dword[edx+symbol.next],dword[ecx] ;tex[i].next=tex[po_t].next;
  1210.  
  1211.                         call ted_get_text_arr_index ;*** eax = i ***
  1212.                         mov [ecx],eax ;tex[po_t].next=i; // ссылки перенаправляем
  1213.                         mov ecx,[edx+symbol.next] ; *** ecx = tex[i].next ***
  1214.                         imul ecx,sizeof.symbol
  1215.                         add ecx,ted_tex ; *** ecx = tex[tex[i].next] ***
  1216.                         mov [ecx+symbol.perv],eax ;tex[tex[i].next].perv=i;
  1217.  
  1218.                         ; *** вставка дополнительных строк и пробелов
  1219.                         ; если курсор во время вставки находился за текстом ***
  1220.                         cmp dword[new_lin],0 ;add lines or text
  1221.                         jle .spc_add
  1222.                                 dec dword[new_lin]
  1223.                                 mov byte [edx],13
  1224.                                 jmp .u1f
  1225.                         .spc_add:
  1226.                         cmp dword[new_spc],0 ;add spaces or text
  1227.                         jle .tex_add
  1228.                                 dec dword[new_spc]
  1229.                                 mov byte [edx],' '
  1230.                                 jmp .u1f
  1231.                         .tex_add:
  1232.                         inc esi ; переход к следующему вставляемому символу
  1233.                         dec ebx
  1234.                 .u1f:
  1235.                 add edx,sizeof.symbol
  1236.                 cmp edx,ted_tex_end
  1237.                 jge @f ;out of memory
  1238.                 or ebx,ebx
  1239.                 jnz .beg_cycle
  1240.                 mov ted_ptr_free_symb,edx ;меняем указатель на свободный символ, для более быстрого поиска памяти
  1241.                 jmp .add_all
  1242.         @@:
  1243.         cmp ted_increase_size,0
  1244.         je .add_all
  1245.                 call ted_memory_increase
  1246.                 or ebx,ebx
  1247.                 jnz .beg_cycle
  1248.         .add_all: ;все символы добавлены
  1249.  
  1250.         call ted_text_colored
  1251.         .no_add:
  1252.         popad
  1253.         ret
  1254. endp
  1255.  
  1256. ;input:
  1257. ;  edx = pointer to sumbol, when insert
  1258. ;  edi = pointer to tedit struct
  1259. ;output:
  1260. ;  edx = new pointer to sumbol, when insert
  1261. align 16
  1262. proc ted_memory_increase
  1263.         cmp ted_increase_size,0
  1264.         je @f
  1265.                 push eax ebx ecx
  1266.                 mov ecx,ted_increase_size
  1267.                 add ecx,ted_max_chars
  1268.                 mov ted_max_chars,ecx
  1269.                 imul ecx,sizeof.symbol
  1270.                 invoke mem.realloc, ted_tex,ecx
  1271.                 mov ebx,ted_tex
  1272.                 mov ted_tex,eax
  1273.                 mov ted_tex_1,eax
  1274.                 add ted_tex_1,sizeof.symbol
  1275.                         sub edx,ebx
  1276.                         add edx,eax
  1277.                         mov ted_ptr_free_symb,edx
  1278.                 add eax,ecx
  1279.                 mov ted_tex_end,eax
  1280.                 pop ecx ebx eax
  1281.         @@:
  1282.         ret
  1283. endp
  1284.  
  1285. ;input:
  1286. ;  ecx = position to free insert cell
  1287. ;  edx = pointer to sumbol, when insert
  1288. ;  esi = added symbol
  1289. ;  edi = pointer to tedit struct
  1290. ;output:
  1291. ;  ecx = position to inserted cell
  1292. align 16
  1293. ted_char_add:
  1294.         .loop_b:
  1295.                 cmp ecx,ted_tex_end
  1296.                 jge .end_f
  1297.                 cmp dword[ecx+symbol.tc],0
  1298.                 jne @f
  1299.                         cmp dword[ecx+symbol.td],0
  1300.                         je .loop_e
  1301.                 @@:
  1302.                 add ecx,sizeof.symbol
  1303.                 jmp .loop_b
  1304. align 4
  1305.         .loop_e:
  1306.  
  1307.         push eax ebx
  1308.         mov eax,ted_tim_ch
  1309.         mov [ecx+symbol.tc],eax
  1310.         mov ax,si
  1311.         mov byte[ecx],al
  1312.  
  1313.         call ted_get_text_arr_index ; *** eax=pos ***
  1314.         mov [ecx+symbol.perv],eax ;tex[i].perv=pos;
  1315.         m2m dword[ecx+symbol.next],dword[edx+symbol.next] ;tex[i].next=tex[pos].next;
  1316.  
  1317.         push edx
  1318.                 mov edx,ecx
  1319.                 call ted_get_text_arr_index ; *** eax=i ***
  1320.         pop edx
  1321.  
  1322.         mov [edx+symbol.next],eax ;tex[pos].next=i; // ссылки перенаправляем
  1323.         mov ebx,[ecx+symbol.next]
  1324.         ConvertIndexToPointer ebx
  1325.         mov [ebx+symbol.perv],eax ;tex[tex[i].next].perv=i; // ...
  1326.         pop ebx eax
  1327.  
  1328.         .end_f:
  1329.         call ted_text_colored
  1330.         ret
  1331.  
  1332. ;description:
  1333. ; функция для смены кодировок
  1334. ;input:
  1335. ; table - таблица для перекодировки
  1336. align 16
  1337. proc ted_but_convert_by_table uses eax edx edi esi, edit:dword, table:dword
  1338.         mov edi,[edit]
  1339.         mov esi,[table]
  1340.         mov edx,ted_tex
  1341.         .cycle:
  1342.                 ;переходим на следующий символ
  1343.                 mov edx,[edx+symbol.next]
  1344.                 cmp edx,1
  1345.                 jle .end_text
  1346.                 imul edx,sizeof.symbol
  1347.                 add edx,ted_tex
  1348.  
  1349.                 movzx eax,byte[edx]
  1350.                 add eax,esi
  1351.                 mov al,byte[eax]
  1352.                 cmp al,0
  1353.                 je @f
  1354.                         mov byte[edx],al ;меняем кодировку символа
  1355.                 @@:
  1356.                 jmp .cycle
  1357.         .end_text:
  1358.         ;cmp esi,0
  1359.         ;je @f
  1360.                 stdcall ted_draw,edi ;обновляем окно
  1361.         ;@@:
  1362.         ret
  1363. endp
  1364.  
  1365. ;input:
  1366. ; edi = pointer to tedit struct
  1367. ;output:
  1368. ; esi = count converted symbols
  1369. ;description:
  1370. ; Функция используется для смены регистра выбранных символов
  1371. align 16
  1372. proc ted_convert_sel_text, conv_fun:dword
  1373.         locals
  1374.                 conv_cou dd ?
  1375.         endl
  1376.         mov dword[conv_cou],0
  1377.         pushad
  1378.  
  1379.         call ted_is_select
  1380.         or al,al
  1381.         jz .end_f
  1382.                 call ted_set_undo
  1383.                 call ted_sel_normalize
  1384.  
  1385.                 mov esi,ted_seln_x0
  1386.                 mov ecx,ted_seln_y0
  1387.                 call ted_get_pos_by_coords
  1388.                 mov eax,edx
  1389.                 mov esi,ted_seln_x1
  1390.                 mov ecx,ted_seln_y1
  1391.                 call ted_get_pos_by_coords
  1392.                 ;call ted_get_text_perv_pos
  1393.                 mov ebx,edx
  1394.  
  1395.                 cmp eax,ebx
  1396.                 je .end_f
  1397.  
  1398.                 inc ted_tim_ch
  1399.                 mov edx,eax ;i=p0;
  1400.                 mov ecx,ted_ptr_free_symb
  1401.                 @@:
  1402.                 push eax
  1403.                 mov al,byte[edx]
  1404.                 call dword[conv_fun] ;преобразование символа
  1405.                 mov esi,eax
  1406.                 cmp byte[edx],al
  1407.                 pop eax
  1408.                 je .no_change
  1409.                         m2m dword[edx+symbol.td],ted_tim_ch
  1410.                         call ted_char_add ;b_pos=ted_char_add(tex[i].c^32,i,false,b_pos);
  1411.                         call ted_get_text_next_pos ;go to added symbol
  1412.                         inc dword[conv_cou]
  1413.                 .no_change:
  1414.  
  1415.                 call ted_iterat_next
  1416.                 cmp edx,ted_tex
  1417.                 je @f
  1418.                 cmp edx,ebx
  1419.                 jne @b
  1420.                 @@:
  1421.                 cmp dword[conv_cou],0
  1422.                 jne @f
  1423.                         dec ted_tim_ch
  1424.                 @@:
  1425.         .end_f:
  1426.         popad
  1427.         mov esi,[conv_cou]
  1428.         ret
  1429. endp
  1430.  
  1431. ;output:
  1432. ; bl = 0 - no delete
  1433. ; bl = 1 - delete
  1434. align 16
  1435. proc ted_text_del uses ecx edx edi, edit:dword, del_opt:dword
  1436.         mov edi,[edit]
  1437.         mov ebx,[del_opt]
  1438.  
  1439.         xor cl,cl
  1440.         test ebx,ted_opt_ed_move_cursor
  1441.         jz @f
  1442.                 call ted_cur_move_left
  1443.                 cmp dl,0
  1444.                 je .no_del
  1445.         @@:
  1446.         call ted_get_pos_by_cursor
  1447.         cmp ted_gp_opt,1
  1448.         je .no_del
  1449.                 test ebx,ted_opt_ed_change_time
  1450.                 jz @f
  1451.                         inc ted_tim_ch
  1452.                 @@:
  1453.                 m2m dword[edx+symbol.td], ted_tim_ch
  1454.                 mov cl,1
  1455.         .no_del:
  1456.         mov bl,cl
  1457.         ret
  1458. endp
  1459.  
  1460. ;input:
  1461. ; edi = pointer to tedit struct
  1462. ;output:
  1463. ; al = 1 if delete
  1464. ;description:
  1465. ; Функция удаляет выделенный текст
  1466. align 16
  1467. proc ted_sel_text_del uses ebx ecx edx esi, del_opt:dword
  1468.         call ted_is_select
  1469.         or al,al
  1470.         jz .end_f
  1471.                 call ted_sel_normalize
  1472.  
  1473.                 mov esi,ted_seln_x1
  1474.                 mov ecx,ted_seln_y1
  1475.                 call ted_get_pos_by_coords
  1476.                 mov ebx,edx
  1477.  
  1478.                 mov esi,ted_seln_x0
  1479.                 mov ecx,ted_seln_y0
  1480.                 call ted_get_pos_by_coords
  1481.  
  1482.                 test dword[del_opt],ted_opt_ed_change_time
  1483.                 jz @f
  1484.                         inc ted_tim_ch
  1485.                 @@:
  1486.                 cmp edx,ted_tex
  1487.                 je @f
  1488.                 cmp edx,ebx ;if(i==te)break;
  1489.                 je @f
  1490.                         m2m dword[edx+symbol.td],ted_tim_ch
  1491.                         mov esi,ted_opt_ed_change_time
  1492.                         not esi
  1493.                         and dword[del_opt],esi ;n_tim=false;
  1494.                         call ted_iterat_next
  1495.                         jmp @b
  1496. align 4
  1497.                 @@:
  1498.                 test dword[del_opt],ted_opt_ed_change_time
  1499.                 jz @f
  1500.                         dec ted_tim_ch
  1501.                         xor al,al
  1502.                 @@:
  1503.                 test dword[del_opt],ted_opt_ed_change_time
  1504.                 jnz @f
  1505.                         mov ecx,ted_seln_x0
  1506.                         mov edx,ted_seln_y0
  1507.                         call ted_go_to_pos
  1508.                         mov ted_sel_x0,0
  1509.                         mov ted_sel_y0,0
  1510.                         mov ted_sel_x1,0
  1511.                         mov ted_sel_y1,0
  1512.                 @@:
  1513.         .end_f:
  1514.         ret
  1515. endp
  1516.  
  1517.  
  1518. ;input:
  1519. ; eax = pointer to begin select
  1520. ; ebx = pointer to end select
  1521. ; edi = pointer to tedit struct
  1522. align 16
  1523. ted_revers:
  1524.         cmp eax,ebx
  1525.         jne @f
  1526.                 ret
  1527.         @@:
  1528.  
  1529.         push ecx edx
  1530.  
  1531.         mov edx,ted_tex_1
  1532.         cmp edx,ebx ;if(p1==1)p1=tex[1].perv;
  1533.         jne @f
  1534.                 call ted_get_text_perv_pos
  1535.                 mov ebx,edx
  1536.         @@:
  1537.  
  1538.         push esi
  1539.                 mov edx,[eax+symbol.perv] ; *** edx = tex[p0].perv ***
  1540.                 ConvertIndexToPointer edx
  1541.                 add edx,symbol.next
  1542.                 mov ecx,[edx] ;ecx = tex[tex[p0].perv].next
  1543.  
  1544.                 mov esi,[ebx+symbol.next] ; *** esi = tex[p1].next ***
  1545.                 ConvertIndexToPointer esi
  1546.                 add esi,symbol.perv
  1547.                 m2m dword[edx],dword[esi] ;tex[tex[p0].perv].next = tex[tex[p1].next].perv
  1548.  
  1549.                 mov [esi],ecx ;tex[tex[p1].next].perv = ecx
  1550.         pop esi
  1551.  
  1552.         mov ecx,[eax+symbol.perv] ;ecx = tex[p0].perv
  1553.         m2m dword[eax+symbol.perv],dword[ebx+symbol.next] ;tex[p0].perv = tex[p1].next
  1554.         mov [ebx+symbol.next],ecx ;tex[p1].next = ecx
  1555.  
  1556.         mov edx,eax ;i=p0;
  1557.         @@:
  1558.                 mov ecx,[edx+symbol.next] ;ecx = tex[i].next
  1559.                 m2m dword[edx+symbol.next],dword[edx+symbol.perv] ;tex[i].next = tex[i].perv
  1560.                 mov [edx+symbol.perv],ecx ;tex[i].perv = ecx
  1561.                 cmp edx,ebx ;if(i==p1)break;
  1562.                 je @f
  1563. ; ---
  1564. ;cmp edx,ted_tex
  1565. ;je @f
  1566. ; ---
  1567.                 mov edx,ecx ;i = ecx
  1568.                 ConvertIndexToPointer edx
  1569.                 jmp @b
  1570.         @@:
  1571.         pop edx ecx
  1572.         call ted_text_colored
  1573.         ret
  1574.  
  1575.  
  1576. ;input:
  1577. ; edi = pointer to tedit struct
  1578. ;output:
  1579. ; dl = 0 not move
  1580. ; dl = 2 if move up
  1581. ; dl = 8 if scroll move up
  1582. align 16
  1583. ted_cur_move_up:
  1584.   cmp ted_cur_y,0
  1585.   je @f
  1586.     dec ted_cur_y
  1587.     mov dl,2
  1588.     ret
  1589.   @@:
  1590.   push eax
  1591.   mov eax,ted_scr_w
  1592.   cmp dword[eax+sb_offs_position],0
  1593.   je @f
  1594.     dec dword[eax+sb_offs_position]
  1595.     mov dl,8
  1596.     jmp .ret_f
  1597.   @@:
  1598.   mov dl,0
  1599.   .ret_f:
  1600.   pop eax
  1601.   ret
  1602.  
  1603. ;input:
  1604. ; edi = pointer to tedit struct
  1605. ;output:
  1606. ; dl = 0 not move
  1607. ; dl = 2 if move down
  1608. ; dl = 8 if scroll move down
  1609. align 16
  1610. ted_cur_move_down:
  1611.   push eax ebx
  1612.   mov ebx,ted_scr_w
  1613.   xor dl,dl
  1614.   mov eax,[ebx+sb_offs_cur_area]
  1615.   dec eax
  1616.   cmp ted_cur_y,eax
  1617.   jge @f
  1618.     inc ted_cur_y
  1619.     mov dl,2
  1620.     jmp .ret_f
  1621.   @@:
  1622.   mov eax,ted_cur_y
  1623.   add eax,[ebx+sb_offs_position]
  1624.   inc eax
  1625.   cmp [ebx+sb_offs_max_area],eax
  1626.   jle @f
  1627.     inc dword[ebx+sb_offs_position]
  1628.     mov dl,8
  1629.   @@:
  1630.   .ret_f:
  1631.   pop ebx eax
  1632.   ret
  1633.  
  1634.  
  1635. ;input:
  1636. ; edi = pointer to tedit struct
  1637. ;output:
  1638. ; dl = 0 not move
  1639. ; dl = 1 if move up
  1640. align 16
  1641. ted_cur_move_page_up:
  1642.         push eax ebx
  1643.         mov ebx,ted_scr_w
  1644.         mov eax,[ebx+sb_offs_cur_area]
  1645.         xor dl,dl
  1646.         cmp eax,[ebx+sb_offs_position]
  1647.         jg @f
  1648.                 sub [ebx+sb_offs_position],eax
  1649.                 mov dl,1
  1650.         @@:
  1651.         cmp dword[ebx+sb_offs_position],0
  1652.         je @f
  1653.         cmp dl,1
  1654.         je @f
  1655.                 mov dword[ebx+sb_offs_position],0
  1656.                 mov dl,1
  1657.         @@:
  1658.         pop ebx eax
  1659.         ret
  1660.  
  1661. ;input:
  1662. ; edi = pointer to tedit struct
  1663. align 16
  1664. ted_cur_move_page_down:
  1665.         push eax ebx ecx
  1666.         mov ecx,ted_scr_w
  1667.  
  1668.         xor dl,dl
  1669.         mov eax,[ecx+sb_offs_max_area]
  1670.         sub eax,[ecx+sb_offs_cur_area]
  1671.         cmp [ecx+sb_offs_position],eax
  1672.         jge @f
  1673.                 mov ebx,[ecx+sb_offs_cur_area]
  1674.                 add [ecx+sb_offs_position],ebx
  1675.                 mov dl,1
  1676.                 mov dword[ecx+sb_offs_redraw],1
  1677.                 cmp [ecx+sb_offs_position],eax
  1678.                 jle @f
  1679.                         mov [ecx+sb_offs_position],eax
  1680.         @@:
  1681.         pop ecx ebx eax
  1682.         ret
  1683.  
  1684. ;input:
  1685. ; edi = pointer to tedit struct
  1686. ;output:
  1687. ; dl = 0 not move
  1688. ; dl = 1 if move left
  1689. ; dl = 3 if move left and up
  1690. ; dl = 8 if scroll move up
  1691. align 16
  1692. ted_cur_move_left:
  1693.         cmp ted_cur_x,0
  1694.         je @f
  1695.                 dec ted_cur_x
  1696.                 mov dl,1
  1697.                 ret
  1698.         @@:
  1699.         push eax
  1700.         mov eax,ted_scr_h
  1701.         cmp dword[eax+sb_offs_position],0
  1702.         je @f
  1703.                 dec dword[eax+sb_offs_position]
  1704.                 mov dl,8
  1705.                 jmp .ret_f
  1706.         @@:
  1707.         cmp ted_cur_y,0
  1708.         jne @f
  1709.                 mov eax,ted_scr_w
  1710.                 mov dl,0
  1711.                 cmp dword[eax+sb_offs_position],0
  1712.                 je .ret_f
  1713.                         dec dword[eax+sb_offs_position]
  1714.                         call ted_scroll_set_redraw
  1715.                         call ted_cur_move_x_last_char
  1716.                         mov dl,8
  1717.                         jmp .ret_f
  1718.         @@:
  1719.         cmp ted_cur_y,0
  1720.         je @f
  1721.                 dec ted_cur_y
  1722.                 call ted_cur_move_x_last_char
  1723.                 cmp dl,8
  1724.                 je .ret_f
  1725.                 mov dl,3
  1726.                 jmp .ret_f
  1727.         @@:
  1728.         mov dl,0
  1729.         .ret_f:
  1730.         pop eax
  1731.         ret
  1732.  
  1733. ;input:
  1734. ; edi = pointer to tedit struct
  1735. align 16
  1736. ted_cur_move_right:
  1737.         push eax ebx
  1738.         mov eax,ted_scr_h
  1739.         xor dl,dl
  1740.         mov ebx,[eax+sb_offs_cur_area]
  1741.         cmp ted_cur_x,ebx
  1742.         jge @f
  1743.                 inc ted_cur_x
  1744.                 mov dl,1
  1745.                 jmp .ret_f
  1746.         @@:
  1747.                 inc dword[eax+sb_offs_position]
  1748.                 mov dl,8
  1749.         .ret_f:
  1750.         pop ebx eax
  1751.         ret
  1752.  
  1753. ;input:
  1754. ; edi = pointer to tedit struct
  1755. align 16
  1756. ted_cur_move_x_last_char:
  1757. ;[hScr.position]
  1758. ;[hScr.cur_area]
  1759. ;dl-???
  1760.   push eax ebx ecx
  1761.   mov eax,ted_cur_y
  1762.   mov ecx,ted_scr_w
  1763.   add eax,[ecx+sb_offs_position]
  1764.   call ted_strlen
  1765.   xor dl,dl
  1766.  
  1767.   mov ecx,ted_scr_h
  1768.   cmp ebx,[ecx+sb_offs_position]
  1769.   jge @f
  1770.     mov dl,8
  1771.     mov [ecx+sb_offs_position],ebx
  1772.   @@:
  1773.   sub ebx,[ecx+sb_offs_position]
  1774.  
  1775.   cmp ebx,[ecx+sb_offs_cur_area]
  1776.   jle @f ; b---[---]---e
  1777.     add [ecx+sb_offs_position],ebx
  1778.     mov ebx,[ecx+sb_offs_cur_area]
  1779.     sub [ecx+sb_offs_position],ebx
  1780.     mov dl,8
  1781.   @@:
  1782.   mov ted_cur_x,ebx
  1783.   pop ecx ebx eax
  1784.   ret
  1785.  
  1786. ;input:
  1787. ; edi = pointer to tedit struct
  1788. ;output:
  1789. ; dl = 0 not move
  1790. ; dl = 1 move cursor
  1791. ; dl = 8 move cursor and scroll
  1792. align 16
  1793. ted_cur_move_x_first_char:
  1794.         xor dl,dl
  1795.         cmp ted_cur_x,0
  1796.         je @f
  1797.                 mov ted_cur_x,0
  1798.                 mov dl,1
  1799.         @@:
  1800.         push eax
  1801.         mov eax,ted_scr_h
  1802.         cmp dword[eax+sb_offs_position],0
  1803.         je @f
  1804.                 mov dword[eax+sb_offs_position],0
  1805.                 mov dl,8
  1806.         @@:
  1807.         pop eax
  1808.         ret
  1809.  
  1810. ;input:
  1811. ; edx = pointer to symbol struct
  1812. ; edi = pointer to tedit struct
  1813. ;output:
  1814. ; eax = array index
  1815. align 16
  1816. ted_get_text_arr_index:
  1817.         push ecx edx
  1818.                 mov eax,edx
  1819.                 sub eax,ted_tex
  1820.                 xor edx,edx
  1821.                 mov ecx,sizeof.symbol
  1822.                 div ecx
  1823.         pop edx ecx
  1824.         ret
  1825.  
  1826. ;input:
  1827. ; edx = pointer to symbol struct
  1828. ; edi = pointer to tedit struct
  1829. ;output:
  1830. ; edx = pointer to 'perv' struct
  1831. align 16
  1832. ted_get_text_perv_pos:
  1833.         mov edx,[edx+symbol.perv]
  1834.         imul edx,sizeof.symbol
  1835.         add edx,ted_tex
  1836.         ret
  1837.  
  1838. ;input:
  1839. ; edx = pointer to symbol struct
  1840. ;output:
  1841. ; edx = pointer to 'next' symbol struct
  1842. align 16
  1843. ted_get_text_next_pos:
  1844.         mov edx,[edx+symbol.next]
  1845.         imul edx,sizeof.symbol
  1846.         add edx,ted_tex
  1847.         ret
  1848.  
  1849. ;input:
  1850. ; edi = pointer to tedit struct
  1851. ;output:
  1852. ; edx = symbol under cursor
  1853. ; ted_gp_opt = 1,2
  1854. ; edx = tex[1].perv if error
  1855. ; ted_gp_opt = 0
  1856. align 16
  1857. ted_get_pos_by_cursor:
  1858.         push eax ecx esi
  1859.                 mov esi,ted_cur_x
  1860.                 mov eax,ted_scr_h
  1861.                 add esi,[eax+sb_offs_position]
  1862.                 mov ecx,ted_cur_y
  1863.                 mov eax,ted_scr_w
  1864.                 add ecx,[eax+sb_offs_position]
  1865.                 call ted_get_pos_by_coords
  1866.         pop esi ecx eax
  1867.         ret
  1868.  
  1869. ;input:
  1870. ; esi = XPos
  1871. ; ecx = YPos
  1872. ; edi = pointer to tedit struct
  1873. ;output:
  1874. ; edx = symbol under cursor
  1875. ; ted_gp_opt = 1 if found text line
  1876. ; ted_gp_opt = 2 if found text line and column
  1877. ; edx = tex[1] if error
  1878. ; ted_gp_opt = 0 if text no found
  1879. align 16
  1880. proc ted_get_pos_by_coords uses eax ebx
  1881.         xor eax,eax ;Row
  1882.         xor ebx,ebx ;Col
  1883.   mov ted_gp_opt,0
  1884.   mov edx,ted_tex
  1885.   @@:
  1886.     call ted_iterat_next
  1887.     cmp edx,ted_tex_1
  1888.     jle @f
  1889.     cmp ebx,esi
  1890.     jne .u1_0 ;Col <> ted_cur_x
  1891.       mov ted_gp_opt,1
  1892.       cmp eax,ecx
  1893.       jge @f ; Row >= ted_cur_y
  1894.     .u1_0:
  1895.     mov ted_gp_opt,0
  1896.     inc ebx
  1897.     cmp byte [edx],13
  1898.     jne @b
  1899.     cmp eax,ecx
  1900.     jge @f ; Row >= ted_cur_y
  1901.     inc eax
  1902.     xor ebx,ebx
  1903.     jmp @b
  1904.   @@:
  1905.   cmp eax,ecx
  1906.   jne @f ; Row = ted_cur_y
  1907.     inc ted_gp_opt
  1908.   @@:
  1909.   cmp ted_gp_opt,0
  1910.   jne @f
  1911.     mov edx,ted_tex_1
  1912.     ;call ted_get_text_perv_pos
  1913.   @@:
  1914.   ret
  1915. endp
  1916.  
  1917. ;input:
  1918. ; eax = Row
  1919. ; edi = pointer to tedit struct
  1920. ;output:
  1921. ; ebx = str len
  1922. align 16
  1923. ted_strlen:
  1924.   push edx ecx
  1925.   ;ecx = Row, from cycle
  1926.  
  1927.   xor ebx,ebx
  1928.   xor ecx,ecx
  1929.   mov edx,ted_tex
  1930.   @@:
  1931.     call ted_iterat_next
  1932.     cmp edx,ted_tex_1
  1933.     jle @f
  1934.     inc ebx
  1935.     cmp byte [edx],13
  1936.     jne @b
  1937.     dec ebx ;lenght minus 1 sumbol to paragraph
  1938.     cmp eax,ecx
  1939.     je @f
  1940.     xor ebx,ebx
  1941.     inc ecx
  1942.     jmp @b
  1943.   @@:
  1944.  
  1945.   cmp eax,ecx
  1946.   je @f
  1947.     xor ebx,ebx
  1948.   @@:
  1949.  
  1950.   pop ecx edx
  1951.   ret
  1952.  
  1953.  
  1954. ;input:
  1955. ; edx = symbol position
  1956. ; edi = pointer to tedit struct
  1957. ;output:
  1958. ; eax = number of line
  1959. ; ebx = symbol position in line
  1960. align 16
  1961. ted_get_text_coords:
  1962.         push edx
  1963.         xor eax,eax
  1964.         xor ebx,ebx
  1965.         @@:
  1966.                 call ted_iterat_perv
  1967.  
  1968.                 or eax,eax
  1969.                 jnz .no_col_mov
  1970.                         inc ebx
  1971.                 .no_col_mov:
  1972.  
  1973.                 cmp edx,ted_tex_1
  1974.                 jle @f
  1975.                 cmp byte [edx],13
  1976.                 jne @b
  1977.                 inc eax
  1978.                 jmp @b
  1979.         @@:
  1980.         dec ebx
  1981.         pop edx
  1982.         ret
  1983.  
  1984. ;input:
  1985. ; edi = pointer to tedit struct
  1986. ;output:
  1987. ; eax = num lines
  1988. align 16
  1989. ted_get_num_lines:
  1990.         push edx
  1991.         mov eax,1
  1992.         mov edx,ted_tex
  1993.         @@:
  1994.                 call ted_iterat_next
  1995.                 cmp edx,ted_tex_1
  1996.                 jle @f
  1997.                 cmp byte[edx],13
  1998.                 jne @b
  1999.                 inc eax
  2000.                 jmp @b
  2001.         @@:
  2002. ;...
  2003. ;dec eax
  2004.         pop edx
  2005.         ret
  2006.  
  2007.  
  2008. ;input:
  2009. ; edi = pointer to tedit struct
  2010. ;description:
  2011. ; отменяет отмененные действия, перед изменением документа
  2012. align 16
  2013. proc ted_set_undo
  2014.         mov ted_drag_k,0 ;заканчиваем выделение от клавиатуры
  2015.         cmp ted_tim_undo,1
  2016.         jl .no_work
  2017.  
  2018.         push eax ebx edx
  2019.         mov edx,ted_tex
  2020.         call ted_get_text_next_pos ;long i=tex[0].next;
  2021.         mov eax,ted_tim_undo
  2022.         sub ted_tim_ch,eax ;ted_tim_ch-=ted_tim_undo;
  2023.         mov eax,ted_tim_ch
  2024.         cmp ted_tim_ls,eax ;if(ted_tim_ls>ted_tim_ch)
  2025.         jle @f
  2026.                 mov ted_tim_ls,0
  2027.         @@:
  2028.                 cmp edx,ted_tex_1
  2029.                 jle @f
  2030.  
  2031.                 ;if(tex[i].tc>ted_tim_ch){ // если создание символа было отменено
  2032.                 cmp [edx+symbol.tc],eax
  2033.                 jle .no_u1
  2034.                         mov dword[edx+symbol.tc],0
  2035.                         mov dword[edx+symbol.td],0
  2036.  
  2037.                         mov ebx,[edx+symbol.perv]
  2038.                         imul ebx,sizeof.symbol
  2039.                         add ebx,ted_tex ;ebx=tex[i].perv
  2040.                         m2m dword [ebx+symbol.next],dword [edx+symbol.next] ;tex[tex[i].perv].next=tex[i].next;
  2041.  
  2042.                         mov ebx,[edx+symbol.next]
  2043.                         imul ebx,sizeof.symbol
  2044.                         add ebx,ted_tex ;ebx=tex[i].next
  2045.                         m2m dword [ebx+symbol.perv],dword [edx+symbol.perv] ;tex[tex[i].next].perv=tex[i].perv;
  2046.  
  2047.                         cmp ted_ptr_free_symb,edx
  2048.                         jle .no_cor_free
  2049.                                 mov ted_ptr_free_symb,edx ;меняем указатель на свободный символ, для более быстрого поиска памяти
  2050.                         .no_cor_free:
  2051.                         mov edx,ebx ;оптимизируем по скорости (edx после вызова ted_get_text_next_pos будет равен ebx)
  2052.                         jmp @b
  2053.                 .no_u1:
  2054.  
  2055.                 ;else if(tex[i].td>ted_tim_ch) tex[i].td=0; // если удаление символа было отменено
  2056.                 cmp [edx+symbol.td],eax
  2057.                 jle .no_u2
  2058.                         mov dword[edx+symbol.td],0
  2059.                 .no_u2:
  2060.  
  2061.                 call ted_get_text_next_pos
  2062.                 jmp @b
  2063.         @@:
  2064.         mov ted_tim_undo,0
  2065.         mov eax,ted_tim_co
  2066.         cmp ted_tim_ch,eax
  2067.         jge @f
  2068.                 mov ted_tim_co,0
  2069.         @@:
  2070.         pop edx ebx eax
  2071.         .no_work:
  2072.         ret
  2073. endp
  2074.  
  2075. ;description:
  2076. ; переход на указанную позицию
  2077. ;input:
  2078. ; row = номер строки
  2079. ; col = символ
  2080. align 16
  2081. proc ted_go_to_position uses ecx edx edi, edit:dword, row:dword, col:dword
  2082.         mov edi,[edit]
  2083.         ; подготовка строки
  2084.         mov edx,[row]
  2085.         call ted_get_num_lines
  2086.         cmp edx,eax
  2087.         jle @f
  2088.                 mov edx,eax ;ограничение по строке max
  2089.         @@:
  2090.         dec edx
  2091.         cmp edx,0
  2092.         jge @f
  2093.                 xor edx,edx ;ограничение по строке min
  2094.         @@:
  2095.         ; подготовка символа
  2096.         mov ecx,[col]
  2097.         dec ecx
  2098.         cmp ecx,0
  2099.         jge @f
  2100.                 xor ecx,ecx
  2101.         @@:
  2102.         call ted_go_to_pos
  2103.         stdcall ted_draw,edi
  2104.         ret
  2105. endp
  2106.  
  2107. ;input:
  2108. ; ecx = Col
  2109. ; edx = Row
  2110. ; edi = pointer to tedit struct
  2111. ;output:
  2112. ; ecx = cursor x
  2113. ; edx = cursor y
  2114. align 16
  2115. ted_go_to_pos:
  2116.         push eax ebx
  2117.         mov eax,ted_scr_h
  2118.         sub ecx,[eax+sb_offs_position]
  2119.         cmp ecx,0 ;ted_cur_x < 0
  2120.         jge @f
  2121.                 add [eax+sb_offs_position],ecx ;прокрутка скроллинга влево
  2122.                 xor ecx,ecx
  2123.         @@:
  2124.         mov ebx,5 ;5 - желаемый отступ слева
  2125.         cmp ecx,ebx
  2126.         jge .end0
  2127.                 sub ebx,ecx ;ebx - на сколько символов нужно сдвинуть курсор
  2128.                 cmp [eax+sb_offs_position],ebx
  2129.                 jge @f
  2130.                         add ecx,[eax+sb_offs_position]
  2131.                         mov dword[eax+sb_offs_position],0
  2132.                         jmp .end0
  2133.                 @@:
  2134.                         sub [eax+sb_offs_position],ebx
  2135.                         add ecx,ebx
  2136.         .end0:
  2137.         cmp ecx,[eax+sb_offs_cur_area] ;ted_cur_x > [.cur_area]
  2138.         jl .end1
  2139.                 mov ebx,ecx
  2140.                 sub ebx,[eax+sb_offs_cur_area]
  2141.                 inc ebx
  2142.                 add [eax+sb_offs_position],ebx ;прокрутка скроллинга вправо
  2143.                 sub ecx,ebx
  2144.         .end1:
  2145.         mov ted_cur_x,ecx
  2146.  
  2147.         mov eax,ted_scr_w
  2148.         sub edx,[eax+sb_offs_position]
  2149.         cmp edx,0 ;ted_cur_y < 0
  2150.         jge @f
  2151.                 add [eax+sb_offs_position],edx ;прокрутка скроллинга вверх
  2152.                 xor edx,edx
  2153.                 jmp .end2
  2154.         @@:
  2155.         cmp edx,[eax+sb_offs_cur_area] ;ted_cur_y > [.cur_area]
  2156.         jl .end2
  2157.                 mov ebx,edx
  2158.                 sub ebx,[eax+sb_offs_cur_area]
  2159.                 inc ebx
  2160.                 add [eax+sb_offs_position],ebx ;прокрутка скроллинга вниз
  2161.                 sub edx,ebx
  2162.         .end2:
  2163.         mov ted_cur_y,edx
  2164.         pop ebx eax
  2165.         ret
  2166.  
  2167. ;input:
  2168. ; edi = pointer to tedit struct
  2169. align 16
  2170. ted_text_colored:
  2171.         push eax edx
  2172.         mov eax,ted_tim_ch
  2173.         sub eax,ted_tim_undo
  2174.         mov ted_tim_co,eax
  2175.         mov edx,ted_tex
  2176.         @@:
  2177.                 call ted_iterat_next
  2178.                 cmp edx,ted_tex_1
  2179.                 jle @f
  2180.                 mov byte[edx+1],0
  2181.                 jmp @b
  2182.         @@:
  2183.  
  2184.         cmp ted_key_words_count,1
  2185.         jl .no_colors
  2186.         mov edx,ted_tex
  2187.         @@:
  2188.                 call ted_text_find_sel_color
  2189.                 cmp edx,ted_tex_1
  2190.                 jle .no_colors
  2191.                 jmp @b
  2192.         .no_colors:
  2193.         pop edx eax
  2194.         ret
  2195.  
  2196.  
  2197. ;input:
  2198. ; edx = pointer to start symbol
  2199. ; edi = pointer to tedit struct
  2200. ;output:
  2201. ; edx = pointer to next symbol
  2202. ;description:
  2203. ; Функция для поиска и выделения подсвеченых слов
  2204. align 16
  2205. proc ted_text_find_sel_color uses eax ebx ecx esi
  2206. locals
  2207.         begPos dd ? ;начальная позиция
  2208.         endPos dd ? ;конечная позиция
  2209.         find db ? ;0 - не найдено, 1 - найдено, 2 - найдено в конце файла
  2210.         f_color db ? ;индекс цвета найденого слова
  2211. endl
  2212. ;eax = word_n текущий номер (позиция) проверяемого слова в списке
  2213. ;ebx = для разных целей
  2214. ;ecx = l_pos последний номер (позиция) подходящего слова в списке
  2215. ;esi = для разных целей, номер проверяемого символа в слове
  2216.         mov dword[begPos],1
  2217.         mov dword[endPos],1
  2218.         mov byte[find],0
  2219.         mov byte[f_color],1
  2220.         .cycle0:
  2221.                 call ted_iterat_next
  2222.                 cmp edx,ted_tex_1
  2223.                 jle .cycle0end
  2224.  
  2225.                 movzx eax,byte[edx]
  2226.                 shl eax,2 ;eax*=4
  2227.                 add eax,ted_arr_key_pos
  2228.                 mov eax,[eax]
  2229.                 cmp eax,0
  2230.                 jl .cycle0 ;if( (word_n=ted_arr_key_pos[(unsigned char)tex[i].c])>-1 ){
  2231.  
  2232.                 mov ecx,eax
  2233.                 ;while(l_pos<ted_key_words_count && Col[l_pos].Text[0]==Col[word_n].Text[0])
  2234.                 .wh_1b:
  2235.                         cmp ecx,ted_key_words_count
  2236.                         jge .wh_1e
  2237.                         ColToIndexOffset ecx,esi
  2238.                         mov bl,byte[esi]
  2239.                         ColToIndexOffset eax,esi
  2240.                         cmp bl,byte[esi]
  2241.                         jne .wh_1e
  2242.                                 inc ecx
  2243.                         jmp .wh_1b
  2244.                 .wh_1e:
  2245.  
  2246.                 mov [begPos],edx ;bP=i;
  2247.                 mov esi,1
  2248. align 4
  2249.                 .wh_2b: ;while(1){
  2250.                 call ted_iterat_next
  2251.  
  2252.                 ;while(l_pos>word_n && Col[l_pos-1].Text[pos]!=tex[i].c)
  2253.                 @@:
  2254.                         cmp ecx,eax
  2255.                         jle @f
  2256.                         dec ecx
  2257.                         ColToIndexOffset ecx,ebx
  2258.                         inc ecx
  2259.                         ;cmp byte[ebx+esi],byte[edx]
  2260.                         mov bl,byte[ebx+esi]
  2261.                         cmp bl,byte[edx]
  2262.                         je @f
  2263.                                 dec ecx
  2264.                         jmp @b
  2265.                 @@:
  2266.  
  2267.                 ColToIndexOffset eax,ebx
  2268.                 cmp byte[ebx+esi],0
  2269.                 jne .if_0 ;if(Col[word_n].Text[pos]==0){
  2270.                 mov [endPos],edx ;eP=i;
  2271.                 ColToIndexOffset eax,ebx
  2272.                 mov bl,[ebx+MAX_COLOR_WORD_LEN+7]
  2273.                 mov [f_color],bl ;f_color=Col[word_n].color;
  2274.  
  2275.                 mov byte[find],1
  2276.                 ColToIndexOffset eax,ebx ;... ebx = Col[word_n]
  2277.                 mov bl,[ebx+MAX_COLOR_WORD_LEN+4]
  2278.                 cmp bl,0 ;if(Col[word_n].wwo)
  2279.                 je .if_2n
  2280.                         push edx
  2281.                         mov edx,[begPos]
  2282.                         call ted_iterat_perv
  2283.  
  2284.                         btr bx,0 ;1-1
  2285.                         jae @f ;if(Col[word_n].wwo&1)
  2286.                                 ;u1= !(isalnum(cont_s)||cont_s=='_')
  2287.                                 call isalnum
  2288.                                 jae @f
  2289.                                         mov byte[find],0
  2290.                                         jmp .if_4e
  2291.                         @@:
  2292.  
  2293.                         btr bx,3 ;4-1
  2294.                         jae .if_4e ;if(Col[word_n].wwo&8)
  2295.                                 ;u1= !isalpha(cont_s);
  2296.                                 call isalpha
  2297.                                 jae .if_4e
  2298.                                         mov byte[find],0
  2299.                         .if_4e:
  2300.  
  2301.                         mov edx,[endPos]
  2302.                         ;call ted_iterat_next
  2303.  
  2304.                         btr bx,1 ;2-1
  2305.                         jae @f ;if(Col[word_n].wwo&2)
  2306.                                 ;u1= !(isalnum(cont_s)||cont_s=='_')
  2307.                                 call isalnum
  2308.                                 jae @f
  2309.                                         mov byte[find],0
  2310.                                         jmp .if_6e
  2311.                         @@:
  2312.  
  2313.                         btr bx,4 ;5-1
  2314.                         jae .if_6e ;if(Col[word_n].wwo&16)
  2315.                                 ;u1= !isalpha(cont_s);
  2316.                                 call isalpha
  2317.                                 jae .if_6e
  2318.                                         mov byte[find],0
  2319.                         .if_6e:
  2320.  
  2321.                         btr bx,2 ;3-1
  2322.                         jae .if_7e ;if(Col[word_n].wwo&4)
  2323.                                 ColToIndexOffset eax,ebx
  2324.                                 mov bx,word[ebx+MAX_COLOR_WORD_LEN+5]
  2325.                                 call ted_iterat_next_pos_char
  2326.                                 cmp edx,ted_tex_1
  2327.                                 jg @f
  2328.                                         ;если дошли до конца файла и не нашли символ конца разметки
  2329.                                         call ted_iterat_perv
  2330.                                         mov byte[find],2
  2331.                                 @@:
  2332.                                         mov dword[endPos],edx
  2333.                         .if_7e:
  2334.  
  2335.                         pop edx
  2336.                 .if_2n:
  2337. ;if(i!=1){ // не конец документа
  2338. ;  cont_s=tex[eP].c;
  2339. ;  if(Col[word_n].wwo&2) u2= !(isalnum(cont_s)||cont_s=='_');  // не букв.-числ. символ
  2340. ;  if(u2 && Col[word_n].wwo&16) u2= !isalpha(cont_s); // не числ. символ
  2341. ;  if(Col[word_n].wwo&4) eP=ted_iterat_next_pos_char(eP,Col[word_n].endc);
  2342.  
  2343.                         cmp eax,ecx
  2344.                         je .wh_2e ;if(word_n==l_pos) break; // do double - если слово точно последнее
  2345.                 .if_0:
  2346.  
  2347.                 cmp edx,ted_tex_1
  2348.                 jle .wh_2e ;if(i==1) break;
  2349.  
  2350.                 ;while(l_pos>word_n && Col[word_n].Text[pos]!=tex[i].c)
  2351.                 .wh_4b:
  2352.                 cmp ecx,eax
  2353.                 jle .wh_4e
  2354.                         ColToIndexOffset eax,ebx
  2355.                         ;cmp byte[ebx+esi],byte[edx]
  2356.                         mov bl,byte[ebx+esi]
  2357.                         cmp bl,byte[edx]
  2358.                         je .wh_4e
  2359.                                 inc eax
  2360.                         jmp .wh_4b
  2361.                 .wh_4e:
  2362.  
  2363.                 cmp eax,ecx
  2364.                 je .wh_2e;if(word_n==l_pos) break;
  2365.                         inc esi ;pos++;
  2366.                         jmp .wh_2b
  2367.                 .wh_2e:
  2368.  
  2369.                 cmp byte[find],0 ;if(fnd)break;
  2370.                 jne .cycle0end
  2371.                         mov edx,[begPos];i=bP;
  2372.                 jmp .cycle0
  2373.         .cycle0end:
  2374.  
  2375.         cmp byte[find],0
  2376.         je .if_1e ;if(fnd){ // выделение найденого текста
  2377.                 ;if(!mode_sf1 || (mode_sf1 && strlen(Col[word_n].f1->c_str())>0)){
  2378.                 mov eax,[begPos]
  2379.                 mov bl,[f_color]
  2380.                 mov [eax+1],bl ;tex[bP].col=f_color;
  2381.                 mov eax,[endPos]
  2382.                 mov byte[eax+1],0xff ;tex[eP].col=255;
  2383.                 cmp byte[find],2
  2384.                 je .if_1e
  2385.                 ;return ItPoPerv(eP); // возвращаем позицию конца вхождения            
  2386.                 mov edx,[endPos]
  2387.                 call ted_get_text_perv_pos
  2388.                 jmp @f
  2389.         .if_1e:
  2390.                 mov edx,ted_tex
  2391.         @@:
  2392.  
  2393.         ret
  2394. endp
  2395.  
  2396. ;input:
  2397. ; edx = pointer to char (byte)
  2398. ;output:
  2399. ; cf=1 if symbol is...
  2400. align 16
  2401. tab_all_num db 0,0,0,0,0,0,0xff,11b,11111110b,0xff,0xff,10000111b,11111110b,0xff,0xff,111b,0,0,0,0,0,0,0,0;,0,0,0,0,0,0,0,0 - tab_alpha_0,0,0,0,0,0,0,0
  2402. tab_alpha db 0,0,0,0,0,0,0,0,11111110b,0xff,0xff,10000111b,11111110b,0xff,0xff,111b,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2403.  
  2404. ;output:
  2405. ; cf=1 если в [edx] буква, цифра или '_'
  2406. align 16
  2407. isalnum:
  2408.         push eax ebx
  2409.         movzx eax,byte[edx] ;al=offset
  2410.         shr eax,3
  2411.         lea ebx,[tab_all_num]
  2412.         add ebx,eax
  2413.         movzx ax,byte[edx] ;al=bit
  2414.         and ax,111b
  2415.         bt word[ebx],ax
  2416.         pop ebx eax
  2417.         ret
  2418.  
  2419. ;output:
  2420. ; cf=1 если в [edx] буква или '_'
  2421. align 16
  2422. isalpha:
  2423.         push eax ebx
  2424.         movzx eax,byte[edx] ;al=offset
  2425.         shr eax,3
  2426.         lea ebx,[tab_alpha]
  2427.         add ebx,eax
  2428.         movzx ax,byte[edx] ;al=bit
  2429.         and ax,111b
  2430.         bt word[ebx],ax
  2431.         pop ebx eax
  2432.         ret
  2433.  
  2434. align 16
  2435. proc ted_show_help_f1 uses eax edx edi, edit:dword
  2436.         mov edi,[edit]
  2437.  
  2438.         call ted_get_pos_by_cursor
  2439.         push edx
  2440.                 call ted_iterat_next_color_tag
  2441.                 mov eax,edx
  2442.         pop edx
  2443.         call ted_iterat_perv_color_tag
  2444.  
  2445.         cmp eax,ted_tex
  2446.         jle @f
  2447.         cmp edx,ted_tex_1
  2448.         jle @f
  2449.                 stdcall ted_find_help_id,eax
  2450.         @@:
  2451.         ;call ted_draw_main_cursor
  2452.         call ted_draw_help_f1
  2453.         ret
  2454. endp
  2455.  
  2456. ;input:
  2457. ; edx = position begin 'symbol' struct
  2458. ; edi = pointer to tedit struct
  2459. ; end_pos = position end 'symbol' struct
  2460. align 16
  2461. proc ted_find_help_id uses ebx ecx, end_pos:dword
  2462. ; ecx = word_n
  2463. ; ebx = l_pos
  2464.   mov ted_help_id,-1
  2465.  
  2466.     movzx ebx,byte[edx]
  2467.     shl ebx,2 ;ebx*=4
  2468.     add ebx,ted_arr_key_pos
  2469.     mov ecx,[ebx]
  2470.     cmp ecx,0
  2471.     jl .if_0e ;if( (word_n=ted_arr_key_pos[(unsigned char)tf[0]])>-1 ){
  2472.       push esi eax
  2473.       mov ebx,ecx ;l_pos=word_n;
  2474.       ColToIndexOffset ecx,esi
  2475.       push cx
  2476.       mov cl,[esi]
  2477.       @@:
  2478.         cmp ebx,ted_key_words_count ;while(l_pos<ted_key_words_count)
  2479.         jge @f
  2480.         ;ColToIndexOffset ecx,esi
  2481.         ColToIndexOffset ebx,eax
  2482.         cmp cl,[eax] ;&& Col[l_pos].Text[0]==Col[word_n].Text[0])
  2483.         jne @f
  2484.           inc ebx ;l_pos++;
  2485.           jmp @b
  2486.       @@:
  2487.       pop cx
  2488.       call ted_iterat_next ;pos=1;
  2489.       mov esi,1
  2490.       @@:
  2491.         push dx
  2492.         push word[edx]
  2493.         pop dx
  2494.           .wh_0b:
  2495.             cmp ebx,ecx ;while(l_pos>word_n
  2496.             jle .wh_0e
  2497.             dec ebx
  2498.             ColToIndexOffset ebx,eax
  2499.             inc ebx
  2500.             cmp byte[eax+esi],dl ;&& Col[l_pos-1].Text[pos]!=tf[i])
  2501.             je .wh_0e
  2502.               dec ebx ;l_pos--;
  2503.             jmp .wh_0b
  2504.           .wh_0e:
  2505.  
  2506.           .wh_1b:
  2507.             cmp ebx,ecx ;while(l_pos>word_n
  2508.             jle .wh_1e
  2509.             ColToIndexOffset ecx,eax
  2510.             cmp byte[eax+esi],dl
  2511.             je .wh_1e
  2512.               inc ecx ;word_n++;
  2513.             jmp .wh_1b
  2514.           .wh_1e:
  2515.         pop dx
  2516.  
  2517.         cmp ecx,ebx ;if(word_n==l_pos) break;
  2518.         je @f
  2519.         call ted_iterat_next ;pos++;
  2520.         cmp edx,[end_pos] ;for(...;i<strlen;...)
  2521.         je @f ;jge
  2522.         inc esi
  2523.         jmp @b
  2524.       @@:
  2525.       pop eax esi
  2526.  
  2527.       mov ted_help_id,ecx
  2528.       ;return word_n;
  2529.  
  2530.     .if_0e:
  2531.   ret
  2532. endp
  2533.  
  2534. ;output:
  2535. ; eax = код ошибки
  2536. ; ebx = колличество прочитанных байт
  2537. align 16
  2538. proc ted_open_file uses ecx edx edi, edit:dword, file:dword, f_name:dword ;функция открытия файла
  2539.         mov edi,[edit]
  2540.  
  2541.         ; *** проверяем размер памяти и если не хватает то увеличиваем ***
  2542.         ;пробуем получить информацию о файле
  2543.         mov ebx,[file]
  2544.         mov dword[ebx], SSF_GET_INFO
  2545.         mov dword[ebx+4], 0
  2546.         mov dword[ebx+8], 0
  2547.         mov dword[ebx+12], 0
  2548.         m2m dword[ebx+16], ted_tex
  2549.         mov  byte[ebx+20], 0
  2550.         push dword[f_name]
  2551.         pop dword[ebx+21]
  2552.         mcall SF_FILE
  2553.         or eax,eax
  2554.         jz .end_0
  2555.                 mov edx,ted_max_chars
  2556.                 cmp eax,2 ;функция не поддерживается для данной файловой системы
  2557.                 je @f
  2558.                 jmp .ret_f
  2559. align 4
  2560.         .end_0:
  2561.         ;проверяем хватит ли памяти для загрузки файла
  2562.         mov ecx,ted_max_chars
  2563.         sub ecx,2 ;ecx = максимальное число байт, для которых была выделена память
  2564.         mov edx,ted_tex
  2565.         mov edx,[edx+32] ;+32 = +0x20: qword: размер файла в байтах
  2566.         cmp edx,ecx
  2567.         jl @f
  2568.                 ;увеличиваем память если не хватило
  2569.                 mov ecx,edx ;память необходимая для открытия файла
  2570.                 add ecx,2  ;память для служебных начального и конечного символов
  2571.                 add ecx,ted_increase_size ;память для редактирования файла
  2572.                 mov ted_max_chars,ecx
  2573.                 imul ecx,sizeof.symbol
  2574.                 invoke mem.realloc, ted_tex,ecx
  2575.                 mov ted_tex,eax
  2576.                 mov ted_tex_1,eax
  2577.                 add ted_tex_1,sizeof.symbol
  2578.                 add eax,ecx
  2579.                 mov ted_tex_end,eax
  2580.                 mov ecx,ted_tex_1
  2581.                 add ecx,sizeof.symbol
  2582.                 mov ted_ptr_free_symb,ecx
  2583.         @@:
  2584.  
  2585.         ; *** пробуем открыть файл ***
  2586.         mov ebx,[file]
  2587.         mov dword[ebx], SSF_READ_FILE
  2588.         mov dword[ebx+4], 0
  2589.         mov dword[ebx+8], 0
  2590.         m2m dword[ebx+12], edx ;число байт, которые могут быть считаны с файла (не больше чем ted_max_chars)
  2591.         m2m dword[ebx+16], ted_tex
  2592.         mov  byte[ebx+20], 0
  2593.         push dword[f_name]
  2594.         pop dword[ebx+21]
  2595.         mcall SF_FILE
  2596.  
  2597.         or eax,eax
  2598.         jz @f
  2599.         cmp eax,6
  2600.         jne .ret_f
  2601.         @@:
  2602.         cmp ebx,-1
  2603.         je .ret_f
  2604.                 ;if open file
  2605.                 call ted_on_open_file
  2606.         .ret_f:
  2607.         ret
  2608. endp
  2609.  
  2610. align 16
  2611. proc ted_but_select_word, edit:dword
  2612.         pushad
  2613.         mov edi,[edit]
  2614.  
  2615.         call ted_get_pos_by_cursor
  2616.         push edx
  2617.                 call ted_iterat_perv_color_tag
  2618.                 cmp edx,ted_tex_1
  2619.                 jle @f
  2620.                         call ted_get_text_coords
  2621.                         mov ted_sel_x0,ebx
  2622.                         mov ted_sel_y0,eax
  2623.                 @@:
  2624.         pop edx
  2625.         call ted_iterat_next_color_tag
  2626.         cmp edx,ted_tex_1
  2627.         jle @f
  2628.                 call ted_get_text_coords
  2629.                 mov ted_sel_x1,ebx
  2630.                 mov ted_sel_y1,eax
  2631.         @@:
  2632.  
  2633.         cmp ted_fun_draw_panel_buttons,0
  2634.         je @f
  2635.                 call ted_fun_draw_panel_buttons
  2636.         @@:
  2637.         stdcall ted_draw,edi
  2638.         popad
  2639.         ret
  2640. endp
  2641.  
  2642. ;output:
  2643. ; al = 1 if delete
  2644. align 16
  2645. proc ted_but_cut uses edi, edit:dword
  2646.         mov edi,[edit]
  2647.  
  2648.         stdcall ted_but_copy,edi
  2649.         call ted_set_undo
  2650.         stdcall ted_sel_text_del,ted_opt_ed_change_time
  2651.  
  2652.         cmp al,1
  2653.         jne @f
  2654.                 stdcall ted_draw,edi
  2655.                 cmp ted_fun_draw_panel_buttons,0
  2656.                 je @f
  2657.                         call ted_fun_draw_panel_buttons
  2658.         @@:
  2659.         ret
  2660. endp
  2661.  
  2662. align 16
  2663. proc ted_but_copy, edit:dword
  2664.         pushad
  2665.         mov edi,[edit]
  2666.  
  2667.         call ted_is_select
  2668.         or al,al
  2669.         jz .end_f ;if not selected text
  2670.         call ted_sel_normalize
  2671.  
  2672.         mov esi,ted_seln_x1
  2673.         mov ecx,ted_seln_y1
  2674.         call ted_get_pos_by_coords
  2675.         mov ebx,edx
  2676.         mov esi,ted_seln_x0
  2677.         mov ecx,ted_seln_y0
  2678.         call ted_get_pos_by_coords
  2679.         mov esi,ebx
  2680.  
  2681.         mov ecx,12 ;system buffer header size
  2682.         mov ebx,ted_buffer
  2683.         mov dword[ebx+4],0 ;text data
  2684.         mov dword[ebx+8],1 ;code 866
  2685.         add ebx,ecx
  2686.         @@:
  2687.                 cmp edx,ted_tex_1 ;end of file
  2688.                 jle @f
  2689.                 cmp edx,esi ;end of select
  2690.                 je @f
  2691.                 inc ecx
  2692.                 cmp ecx,ted_buffer_size ;owerflow bufer
  2693.                 je @f
  2694.  
  2695.                 mov al,byte[edx]
  2696.                 mov byte[ebx],al
  2697.                 inc ebx
  2698.                 cmp al,13
  2699.                 jne .no_13
  2700.                         mov byte[ebx],10 ;делаем конец строки в буфере 13,10 для совместимости с другими программами
  2701.                         inc ebx
  2702.                         inc ecx
  2703.                 .no_13:
  2704.                
  2705.                 call ted_iterat_next
  2706.                 jmp @b
  2707.         @@:
  2708.         mov byte[ebx],0
  2709.  
  2710.         cmp ecx,12
  2711.         je .end_f
  2712.                 mov ebx,ted_buffer
  2713.                 mov [ebx],ecx
  2714.                 mcall SF_CLIPBOARD,SSF_WRITE_CB,ecx,ted_buffer
  2715.                 call ted_draw_buffer
  2716.                 cmp ted_fun_draw_panel_buttons,0
  2717.                 je .end_f
  2718.                         call ted_fun_draw_panel_buttons
  2719.         .end_f:
  2720.         popad
  2721.         ret
  2722. endp
  2723.  
  2724.  
  2725. align 16
  2726. proc ted_but_paste, edit:dword
  2727.         pushad
  2728.         mov edi,[edit]
  2729.  
  2730.         mcall SF_CLIPBOARD,SSF_GET_SLOT_COUNT
  2731.         cmp eax,1
  2732.         jl .no_buf_r
  2733.  
  2734.         mov esi,eax
  2735.         .cycle: ;обратный цикл по слотам
  2736.         dec esi ;номер текущего, проверяемого слота
  2737.         mcall SF_CLIPBOARD,SSF_READ_CB,esi
  2738.         cmp eax,1
  2739.         je .no_buf_r
  2740.         cmp eax,-1
  2741.         je .no_buf_r
  2742.                 mov ecx,[eax]
  2743.                 cmp ecx,1 ;size