WebSVN – Kolibri OS – Diff – /programs/network/ircc/window.inc

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                                                                 ;;
 ;; Copyright (C) KolibriOS team 2004-2013. 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                                   ;;
 ;;                                                                 ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; in:  window ptr in ebx
+; out: eax = 0 on error
 window_create:
 window_create:
         push    ebx
+; allocate the window data block
-; allocate the window data block
+        mcall   68, 12, sizeof.window_data
-        mcall   68, 12, sizeof.window_data
+        test    eax, eax
-        test    eax, eax
+        pop     ebx
         jz      .fail
 ; fill it with all zeros
         push    eax
         mov     edi, eax
+        mov     ecx, (sizeof.window_data+3)/4
+        xor     eax, eax
+        rep     stosd
+        pop     eax
+        mov     [ebx + window.data_ptr], eax
+        mov     [ebx + window.flags], 0
+        add     eax, window_data.text+1         ; let text begin at offset 1, this way the text will be prepended with a 0
+        mov     [ebx + window.text_start], eax
+        mov     [ebx + window.text_print], eax
+        mov     [ebx + window.text_write], eax
+        mov     [ebx + window.text_scanned], eax
-        mov     ecx, (sizeof.window_data+3)/4
+        mov     [ebx + window.text_lines], 0
-        xor     eax, eax
+        mov     [ebx + window.text_line_print], 0
-        rep     stosd
+        add     eax, TEXT_BUFFERSIZE-1
-        ret
-window_refresh:
-; set text write cursor to beginning of last line
-        mov     eax, [textbox_width]
-        imul    eax, TEXTBOX_LINES - 1
-        mov     [text_pos], eax
-; set the textbuffer pointer
-        mov     eax, [window_print]
-        mov     eax, [eax + window.data_ptr]
-        add     eax, window_data.text
-        mov     [text_start], eax
         ret
 window_is_updated:
-window_is_updated:
         mov     edi, [window_print]
-        mov     edi, [window_print]
+        cmp     edi, [window_active]
-        test    [edi + window.flags], FLAG_UPDATED
+        je      .skip
-        jnz     .skip
+        test    [edi + window.flags], FLAG_UPDATED
         jnz     .skip
-        or      [edi + window.flags], FLAG_UPDATED
-; now play a sound :)
-        call    draw_windowtabs         ; highlight updated tabs
-  .skip:
-        ret
+        or      [edi + window.flags], FLAG_UPDATED
-window_close:
+; TODO: make some noise
-; If current window is a channel, send part command to server
+        call    draw_windowtabs         ; highlight updated tabs
-        mov     esi, [window_active]
+  .skip:
         cmp     [esi + window.type], WINDOWTYPE_CHANNEL
-        jne     .not_channel
+        ret
         mov     edi, [window_active]
         cmp     [edi + window.data_ptr], 0
         jne     @f
         sub     edi, sizeof.window
         mov     [window_active], edi
-        mov     [window_print], edi
+        mov     [window_print], edi  ;;;;;;;;
   @@:
 ; At last, redraw everything
         call    draw_window
+        ret
+window_find:    ; esi = window name
+; search for window in list
+        mov     ebx, windows
+        mov     [window_print], ebx     ; set first window (server window) as default output window
+        mov     eax, MAX_WINDOWS
+  .scanloop:
+        push    esi
+        cmp     [ebx + window.type], WINDOWTYPE_NONE
+        je      .try_next
+        lea     edi, [ebx + window.name]
+        mov     ecx, MAX_WINDOWNAME_LEN
+        repe    cmpsb
+        cmp     byte[edi-1], 0
+        jne     .try_next
+        cmp     byte[esi-1], 0
+        je      .got_it
+        cmp     byte[esi-1], 10
+        je      .got_it
+        cmp     byte[esi-1], 13
+        je      .got_it
+        cmp     byte[esi-1], ' '
+        je      .got_it
+  .try_next:
+        pop     esi
+        add     ebx, sizeof.window
+        dec     eax
+        jnz     .scanloop
+        xor     ebx, ebx
+        ret
+  .got_it:
+        pop     esi                 ;;; TODO: dont reset ESI  ?
+        mov     [window_print], ebx
+        ret
         ret
         jne     .nochat
         mov     esi, servercommand+1
-  .nochat:
+  .nochat:
-; now search for window in list
-        mov     ebx, windows
-        mov     [window_print], ebx     ; set first window (server window) as default output window
-  .scanloop:
-        cmp     [ebx + window.data_ptr], 0
-        je      .create_it
-        push    esi
-        lea     edi, [ebx + window.name]
-        mov     ecx, MAX_WINDOWNAME_LEN
-        repe    cmpsb
-        pop     esi
+        call    window_find
-        cmp     byte[edi-1], 0
-        je      .got_it
-        add     ebx, sizeof.window
-        ; TODO: check buffer limits ?
+        test    ebx, ebx
-        jmp     .scanloop
+        jne     .got_it
 ; create channel window - search for empty slot
         je      .free_found
         add     ebx, sizeof.window
         dec     ecx
         jnz     .scanloop2
 ; Error: no more available windows!
-        jmp     .just_skip
+        jmp     .got_it ; TODO: return error
-  .free_found:
-        push    ebx
+  .free_found:
-        call    window_create
-        pop     ebx
+        call    window_create
-        test    eax, eax
-        jz      .just_skip
+        test    eax, eax
-        mov     [ebx + window.data_ptr], eax
+        jz      .got_it ; TODO: return error
-        mov     [ebx + window.type], WINDOWTYPE_CHAT
-        mov     [ebx + window.flags], 0
+        mov     [ebx + window.type], WINDOWTYPE_CHAT    ; FIXME: let caller handle this ?
-        call    window_set_name
-        mov     [window_print], ebx
+        call    window_set_name
-        call    window_refresh
-        call    draw_windowtabs
+        mov     [window_print], ebx
-        jmp     .just_skip
-; found it!
-  .got_it:
         mov     [window_print], ebx
-        call    window_refresh
+        call    draw_windowtabs
-  .just_skip:
+  .got_it:
         pop     esi
         je      .skip2
         dec     esi
   .quit:
-        ret
-if TIMESTAMP
-print_timestamp:
-        pusha
-        mcall   3                       ; get system time
-        mov     bl, '['
-        call    print_character
-        mov     ecx, TIMESTAMP
-  .loop:
-        mov     bl, al
-        shr     bl, 4
-        add     bl, '0'
-        call    print_character
-        mov     bl, al
-        and     bl, 0x0f
-        add     bl, '0'
-        call    print_character
-        dec     ecx
-        jz      .done
-        mov     bl, ':'
-        call    print_character
-        shr     eax, 8
-        jmp     .loop
-  .done:
-        mov     bl, ']'
-        call    print_character
-        mov     bl, ' '
-        call    print_character
-        popa
-        ret
-end if
+        ret

Subversion Repositories Kolibri OS

(root)/programs/network/ircc/window.inc – Rev 4060 → 4143