;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;; Copyright (C) KolibriOS team 2004-2021. All rights reserved. ;; ;; Distributed under terms of the GNU General Public License ;; ;; ;; ;; Written by hidnplayr@kolibrios.org ;; ;; ;; ;; GNU GENERAL PUBLIC LICENSE ;; ;; Version 2, June 1991 ;; ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; text_insert_newlines: ; esi = ASCIIZ string xor edx, edx ; number of lines of text cmp byte[esi], 0 je .done .next_line: xor ebx, ebx mov ecx, [textbox_width] inc ecx .more: dec ecx jz .end_of_line .next_byte: lodsb ; get one character of the string test al, al ; end of string? jz .almost_done cmp al, ' ' ; it's a space! remember its position je .space cmp al, 13 ; we already inserted a newline once, make it a space again je .soft_nl cmp al, 10 ; it's a newline, continue onto the next line je .newline and al, 0xc0 ; Is it a multi byte UTF8 char? cmp al, 0x80 je .next_byte jmp .more .newline: inc edx jmp .next_line .soft_nl: mov byte[esi-1], ' ' .space: mov ebx, esi ; last detected space jmp .more .end_of_line: inc edx test ebx, ebx ; did we detect any spaces on this line? jz .next_line ; no: just continue onto the next line mov byte[ebx-1], 13 ; yes: replace last space on line with a soft newline mov esi, ebx ; and continue parsing just after last space jmp .next_line ; .almost_done: dec esi .done: ret ;---------------------------------- ; scan untill next line is reached ; ; When you set the direction flag before calling, you can also scan for previous line! ; IN: esi ; OUT: esi ;---------------------------------- text_nextline: mov ecx, [textbox_width] .loop: lodsb test al, al jz .done cmp al, 10 je .done cmp al, 13 je .done and al, 0xc0 cmp al, 0x80 je .loop ; This byte is the second, third or fourth byte of a multi-byte UTF8 char dec ecx jnz .loop .done: ret ;---------------------------------- ; print string ; ; IN: esi = ptr to string ; bl = char which marks end of string ; OUT: esi = ptr to end of str ;---------------------------------- print_string: push eax .loop: lodsb cmp al, bl je .done cmp al, 13 je .loop test al, al jz .done call print_char jmp .loop .done: pop eax ret ;---------------------------------- ; print ASCIIZ string ; ; IN: esi = ptr to ASCIIZ string ; OUT: esi = ptr to end of str ;---------------------------------- print_asciiz: push eax .loop: lodsb test al, al jz .done call print_char jmp .loop .done: pop eax ret ;---------------------------------- ; print character ; ; IN: al = char to print ; OUT: / ;---------------------------------- print_char: push esi edi mov esi, [window_print] mov edi, [esi + window.text_write] stosb cmp edi, [esi + window.text_end] jae .uh_ow mov [esi + window.text_write], edi .continue: or [esi + window.flags], FLAG_UPDATED pop edi esi ret .uh_ow: pusha mov edi, [esi + window.text_start] mov [esi + window.text_print], edi lea esi, [edi + TEXT_BUFFERSIZE/2] call text_nextline mov ecx, TEXT_BUFFERSIZE/8 rep movsd mov esi, edi call text_insert_newlines mov ebx, [window_print] mov [ebx + window.text_lines], edx mov [ebx + window.text_scanned], esi mov [ebx + window.text_write], esi mov [ebx + window.text_line_print], 0 popa jmp .continue ;----------------------------------------------- ; Draw text of the current window to the screen ; ; IN: / ; OUT: / ;----------------------------------------------- draw_channel_text: mov edi, [window_active] and [edi + window.flags], not FLAG_UPDATED ; clear the 'window is updated' flag ; Scan new text for newlines mov esi, [edi + window.text_scanned] call text_insert_newlines add [edi + window.text_lines], edx mov [edi + window.text_scanned], esi ; Is scrollbar at lowest position? test [edi + window.flags], FLAG_SCROLL_LOW jnz .yesscroll ; Yes cmp [scroll2.all_redraw], 1 ; No jnz .noscroll mov edx, [textbox_height] add edx, [edi + window.text_line_print] cmp edx, [edi + window.text_lines] jl .noscroll .yesscroll: ; Scrollbar was at lowest position, scroll down automatically when new text arrived. mov edx, [edi + window.text_lines] sub edx, [textbox_height] jg @f mov [edi + window.text_line_print], 0 jmp .noscroll ; There are less lines of text than fit into the window, dont scroll.. @@: sub edx, [edi + window.text_line_print] je .noscroll ; We are already at the bottom pos, dont scroll.. .scroll_to_pos: ; edx = number of lines to go up/down (flags must indicate direction) pushf add [edi + window.text_line_print], edx mov esi, [edi + window.text_print] popf jg .loop_forward std ; set direction flag so we can scan backwards dec esi dec esi ; move our cursor just in front of newline, for scanning backwards .loop_backward: call text_nextline inc edx jnz .loop_backward inc esi inc esi ; move the cursor just after last newline cld jmp .ok .loop_forward: call text_nextline dec edx jnz .loop_forward .ok: mov [edi + window.text_print], esi .noscroll: ; Update and draw scrollbar when nescessary mov edx, [edi + window.text_lines] cmp edx, [textbox_height] jbe .scroll_done mov [scroll2.max_area], edx mov eax, [edi + window.text_line_print] mov [scroll2.position], eax push dword scroll2 ; redraw scrollbar call [scrollbar_draw] mov [scroll2.all_redraw], 0 ; next time, dont redraw it completely .scroll_done: ; Calculate start offset coordinates (align text to bottom) mov ebx, [textbox_height] sub ebx, [edi + window.text_lines] jb .no_offset imul ebx, FONT_HEIGHT push [edi + window.text_start] pop [edi + window.text_print] jmp .draw_text .no_offset: xor ebx, ebx .draw_text: ; Prepare to actually draw some text add ebx, TEXT_X shl 16 + TEXT_Y ; text coordinates mov ecx, [colors.work_text] ; default text color or ecx, 0x30000000 mov edx, [edi + window.text_print] ; start of text to print ; Scan backwards on line for color escape codes mov esi, edx push edx std @@: lodsb cmp al, 0 ; end of text je @f cmp al, 10 ; hard newline je @f cmp al, 3 ; mIRC escape code jne @b cld lea edx, [esi+2] call dec_to_esi jz @f mov ecx, [irc_colors + 4*esi] or ecx, 0x30000000 ; UTF-8 text cmp byte[edx], ',' ; background color? jne @f inc edx call dec_to_esi jz @f mov edi, [irc_colors + 4*esi] or ecx, 0x40000000 ; enable background color @@: cld pop edx mov eax, [textbox_height] ; max number of lines to draw .drawloop: cmp byte[edx], 0 je .end_of_text ; Clear one row of characters pusha mov cx, bx shl ecx, 16 mov cx, FONT_HEIGHT mov ebx, TEXT_X shl 16 mov bx, word[textbox_width] imul bx, FONT_WIDTH mov edx, [colors.work] mcall 13 ; draw rectangle popa push eax .line: cmp byte[edx], 0 je .end_of_text cmp byte[edx], 13 je .newline_soft cmp byte[edx], 10 je .newline_hard cmp byte[edx], 3 ; escape code for mIRC colors jne .no_colors inc edx call dec_to_esi jz .no_colors mov ecx, [irc_colors + 4*esi] or ecx, 0x30000000 cmp byte[edx], ',' ; background color? jne .no_colors inc edx call dec_to_esi jz .no_colors mov edi, [irc_colors + 4*esi] or ecx, 0x40000000 .no_colors: ;------------------------------------------- ; Count characters until 0, 10, 13 or 3 byte push edx xor esi, esi dec esi .next_char: inc esi cmp esi, [textbox_width] je .cnt_done mov al, byte[edx] cmp al, 13 jbe .cnt_done inc edx test al, 10000000b jz .next_char ; 1 byte wide add edx, 3 and al, 11111000b cmp al, 11110000b je .next_char ; 4 bytes wide dec edx and al, 11110000b cmp al, 11100000b je .next_char ; 3 bytes wide dec edx ; 2 bytes wide jmp .next_char .cnt_done: mov eax, edx pop edx push eax mcall 4 ; draw text pop edx ; next start ptr cmp esi, [textbox_width] je .line_full imul esi, FONT_WIDTH shl 16 add ebx, esi jmp .line .newline_hard: mov ecx, [colors.work_text] or ecx, 0x30000000 .newline_soft: inc edx .line_full: and ebx, 0x0000ffff add ebx, TEXT_X shl 16 + FONT_HEIGHT pop eax dec eax jnz .drawloop .end_of_text: ret dec_to_esi: xor esi, esi .loop: movzx eax, byte[edx] sub al, '0' jb .done cmp al, 9 ja .done inc edx lea esi, [esi*4 + esi] ; esi * 5 lea esi, [esi*2 + eax] ; esi * 2 + eax jmp .loop .done: cmp esi, 16 jae .fail ret .fail: xor esi, esi ret if TIMESTAMP print_timestamp: pusha mcall 3 ; get system time mov ebx, eax mov al, '[' call print_char mov ecx, TIMESTAMP .loop: mov al, bl shr al, 4 add al, '0' call print_char mov al, bl and al, 0x0f add al, '0' call print_char dec ecx jz .done mov al, ':' call print_char shr ebx, 8 jmp .loop .done: mov al, ']' call print_char mov al, ' ' call print_char popa ret end if