307 lines
7.2 KiB
PHP
307 lines
7.2 KiB
PHP
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; ;;
|
|
;; Copyright (C) KolibriOS team 2004-2013. All rights reserved. ;;
|
|
;; Distributed under terms of the GNU General Public License ;;
|
|
;; ;;
|
|
;; ;;
|
|
;; GNU GENERAL PUBLIC LICENSE ;;
|
|
;; Version 2, June 1991 ;;
|
|
;; ;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
|
window_create:
|
|
|
|
; allocate the window data block
|
|
mcall 68, 12, sizeof.window_data
|
|
test eax, eax
|
|
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
|
|
|
|
.fail:
|
|
ret
|
|
|
|
|
|
window_set_name: ; esi = ptr to name, ebx = window ptr
|
|
|
|
pusha
|
|
|
|
; Skip heading spaces
|
|
.spaceloop:
|
|
cmp byte[esi], ' '
|
|
jne .done
|
|
inc esi
|
|
jmp .spaceloop
|
|
.done:
|
|
|
|
; Now copy it
|
|
lea edi, [ebx + window.name]
|
|
mov ecx, MAX_WINDOWNAME_LEN
|
|
.loop:
|
|
lodsb
|
|
cmp al, 0x21
|
|
jbe .addzero
|
|
stosb
|
|
dec ecx
|
|
jnz .loop
|
|
.addzero:
|
|
xor al, al
|
|
stosb
|
|
|
|
call draw_windowtabs ; redraw it
|
|
|
|
popa
|
|
|
|
ret
|
|
|
|
|
|
|
|
window_refresh:
|
|
|
|
; set the correct buffer pointers ; FIXME: what is it good for?
|
|
mov eax, [textbox_width] ;
|
|
imul eax, 11 ;
|
|
mov [pos], eax ;
|
|
|
|
mov eax, [window_print]
|
|
mov eax, [eax + window.data_ptr]
|
|
add eax, window_data.text
|
|
mov [text_start], eax
|
|
|
|
ret
|
|
|
|
|
|
|
|
window_is_updated:
|
|
|
|
mov edi, [window_print]
|
|
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
|
|
|
|
|
|
|
|
window_close:
|
|
|
|
; If current window is a channel, send part command to server
|
|
mov esi, [window_active]
|
|
cmp [esi + window.type], WINDOWTYPE_CHANNEL
|
|
jne .not_channel
|
|
|
|
lea esi, [esi + window.name]
|
|
call cmd_usr_part_channel
|
|
.not_channel:
|
|
|
|
; Remove the window (overwrite current structure with trailing ones)
|
|
mov edi, [window_active]
|
|
push [edi + window.data_ptr] ; remember data ptr so we can free it later
|
|
lea esi, [edi + sizeof.window]
|
|
mov ecx, windows + MAX_WINDOWS*sizeof.window
|
|
sub ecx, esi
|
|
rep movsb
|
|
|
|
; Completely zero the trailing window block (there will always be one!)
|
|
mov ecx, sizeof.window
|
|
xor al, al
|
|
rep stosb
|
|
|
|
; free the window data block
|
|
pop ecx
|
|
mcall 68, 13
|
|
|
|
; We closed this window so we need to show another
|
|
mov edi, [window_active]
|
|
cmp [edi + window.data_ptr], 0
|
|
jne @f
|
|
sub edi, sizeof.window
|
|
mov [window_active], edi
|
|
mov [window_print], edi
|
|
@@:
|
|
|
|
; At last, redraw everything
|
|
call draw_window
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
; open a window with a given name, if it does not exist, create it
|
|
; This procedure only affects window_print ptr, not window_active!
|
|
;
|
|
; esi = ptr to ASCIIZ windowname
|
|
window_open:
|
|
|
|
push esi
|
|
|
|
mov edi, esi
|
|
call compare_to_nick
|
|
jne .nochat
|
|
|
|
mov esi, servercommand+1
|
|
.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
|
|
cmp byte[edi-1], 0
|
|
je .got_it
|
|
add ebx, sizeof.window
|
|
; TODO: check buffer limits ?
|
|
jmp .scanloop
|
|
|
|
; create channel window - search for empty slot
|
|
.create_it:
|
|
mov ebx, windows
|
|
mov ecx, MAX_WINDOWS
|
|
.scanloop2:
|
|
cmp [ebx + window.data_ptr], 0
|
|
je .free_found
|
|
add ebx, sizeof.window
|
|
dec ecx
|
|
jnz .scanloop2
|
|
; Error: no more available windows!
|
|
jmp .just_skip
|
|
|
|
.free_found:
|
|
push ebx
|
|
call window_create
|
|
pop ebx
|
|
test eax, eax
|
|
jz .just_skip
|
|
mov [ebx + window.data_ptr], eax
|
|
mov [ebx + window.type], WINDOWTYPE_CHAT
|
|
mov [ebx + window.flags], 0
|
|
|
|
call window_set_name
|
|
mov [window_print], ebx
|
|
call window_refresh
|
|
|
|
call draw_windowtabs
|
|
jmp .just_skip
|
|
|
|
; found it!
|
|
.got_it:
|
|
mov [window_print], ebx
|
|
call window_refresh
|
|
|
|
.just_skip:
|
|
pop esi
|
|
.skip1:
|
|
; skip text
|
|
lodsb
|
|
test al, al
|
|
jz .quit
|
|
cmp al, ' '
|
|
jne .skip1
|
|
dec esi
|
|
; now skip trailing spaces and semicolons
|
|
.skip2:
|
|
lodsb
|
|
test al, al
|
|
jz .quit
|
|
cmp al, ' '
|
|
je .skip2
|
|
cmp al, ':'
|
|
je .skip2
|
|
dec esi
|
|
|
|
.quit:
|
|
ret
|
|
|
|
|
|
print_text: ; eax = start ptr
|
|
; dl = end char
|
|
pusha
|
|
ptr2:
|
|
mov bl, [eax]
|
|
|
|
cmp bl, dl
|
|
je ptr_ret
|
|
cmp bl, 0
|
|
je ptr_ret
|
|
call print_character
|
|
|
|
inc eax
|
|
jmp ptr2
|
|
|
|
ptr_ret:
|
|
popa
|
|
ret
|
|
|
|
|
|
print_text2: ; esi = ptr to ASCIIZ string
|
|
|
|
pusha
|
|
.loop:
|
|
lodsb
|
|
test al, al
|
|
jz .done
|
|
mov bl, al
|
|
call print_character
|
|
jmp .loop
|
|
|
|
.done:
|
|
popa
|
|
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 |