forked from KolibriOS/kolibrios
196 lines
4.9 KiB
PHP
196 lines
4.9 KiB
PHP
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; ;;
|
|
;; Copyright (C) KolibriOS team 2004-2016. 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 ;;
|
|
;; ;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
; TODO: work correctly with user prefixes.
|
|
; use first byte of nick for prefix ONLY (use a space for those that do not have special powers..)
|
|
|
|
user_prefixes db '~&@%+ ', 0 ; in descending order
|
|
|
|
; TODO: update selected user if needed
|
|
; esi is ptr to nick
|
|
; ebx is ptr to window
|
|
align 4
|
|
user_add:
|
|
|
|
cmp [ebx + window.users], MAX_USERS
|
|
jae .fail
|
|
|
|
mov edi, [ebx + window.data_ptr]
|
|
add edi, window_data.names
|
|
mov ebp, [ebx + window.users]
|
|
inc ebp ; CHECKME
|
|
|
|
push esi edi
|
|
.restart:
|
|
mov ecx, MAX_NICK_LEN
|
|
.loop1:
|
|
lodsb
|
|
cmp al, '@'
|
|
jne @f
|
|
mov al, ' ' ; give @ highest priority
|
|
@@:
|
|
cmp al, 'A'
|
|
jb @f
|
|
cmp al, 'Z'
|
|
ja @f
|
|
add al, 'a' - 'A' ; convert to lowercase
|
|
@@:
|
|
dec ecx
|
|
jz .got_it
|
|
|
|
.loop2:
|
|
mov dl, [edi]
|
|
cmp dl, 0
|
|
je .got_it
|
|
cmp dl, '@'
|
|
jne @f
|
|
mov dl, ' ' ; give @ highest priority
|
|
@@:
|
|
cmp dl, 'A'
|
|
jb @f
|
|
cmp dl, 'Z'
|
|
ja @f
|
|
add dl, 'a' - 'A' ; convert to lowercase
|
|
@@:
|
|
cmp al, dl
|
|
jb .got_it
|
|
je .check_next
|
|
|
|
pop edi esi
|
|
add edi, MAX_NICK_LEN
|
|
push esi edi
|
|
|
|
dec ebp
|
|
jnz .restart
|
|
|
|
.check_next:
|
|
inc edi
|
|
jmp .loop1
|
|
|
|
.got_it:
|
|
pop edi esi
|
|
|
|
; OK, insert it here..
|
|
|
|
; mov all trailing usernames by MAX_NICK_LEN bytes
|
|
push esi edi
|
|
mov esi, [ebx + window.data_ptr]
|
|
add esi, window_data.names + MAX_NICK_LEN * (MAX_USERS - 1) - 4 ; -4 because we're copying backward, dword wise
|
|
mov ecx, esi
|
|
sub ecx, edi
|
|
add ecx, MAX_NICK_LEN
|
|
shr ecx, 2
|
|
lea edi, [esi + MAX_NICK_LEN]
|
|
std
|
|
rep movsd
|
|
cld
|
|
pop edi esi
|
|
|
|
; Now insert our new username
|
|
mov ecx, MAX_NICK_LEN-1
|
|
.fill:
|
|
lodsb
|
|
cmp al, ' '
|
|
je .done
|
|
cmp al, '!'
|
|
je .done
|
|
cmp al, 13
|
|
je .done
|
|
cmp al, 10
|
|
je .done
|
|
stosb
|
|
loop .fill
|
|
.done:
|
|
xor al, al
|
|
stosb
|
|
|
|
inc [ebx + window.users]
|
|
or [ebx + window.flags], FLAG_UPDATED
|
|
.fail:
|
|
ret
|
|
|
|
|
|
|
|
|
|
; TODO: update selected user if needed
|
|
; esi is ptr to nick
|
|
; ebx is ptr to window
|
|
align 4
|
|
user_remove:
|
|
|
|
call user_find
|
|
jz .fail
|
|
|
|
lea esi, [edi + MAX_NICK_LEN]
|
|
mov ecx, [ebx + window.data_ptr]
|
|
add ecx, window_data.names + MAX_NICK_LEN * MAX_USERS
|
|
sub ecx, esi
|
|
shr ecx, 2
|
|
rep movsd
|
|
|
|
dec [ebx + window.users]
|
|
or [ebx + window.flags], FLAG_UPDATED
|
|
.fail:
|
|
ret
|
|
|
|
|
|
|
|
; IN:
|
|
; esi is ptr to nick
|
|
; ebx is ptr to window
|
|
; OUT:
|
|
; edi is ptr to nick in userlist
|
|
align 4
|
|
user_find:
|
|
|
|
mov eax, [ebx + window.users]
|
|
test eax, eax
|
|
jz .fail
|
|
mov edi, [ebx + window.data_ptr]
|
|
add edi, window_data.names
|
|
|
|
.loop:
|
|
push esi edi
|
|
mov ecx, MAX_NICK_LEN
|
|
repe cmpsb
|
|
cmp byte[edi-1], 0
|
|
je .got_it
|
|
; TODO: check byte[esi] too!
|
|
pop edi esi
|
|
add edi, MAX_NICK_LEN
|
|
dec eax
|
|
jnz .loop
|
|
jmp .fail
|
|
|
|
.got_it:
|
|
pop edi esi
|
|
test edi, edi ; to clear zero flag
|
|
ret
|
|
|
|
.fail:
|
|
xor edi, edi
|
|
ret
|
|
|
|
|
|
|
|
user_remove_all:
|
|
|
|
xor eax, eax
|
|
mov edi, [window_print]
|
|
mov [edi + window.users], eax
|
|
mov [edi + window.selected], eax
|
|
mov edi, [edi + window.data_ptr]
|
|
add edi, window_data.names
|
|
mov ecx, MAX_NICK_LEN * MAX_USERS / 4
|
|
rep stosd
|
|
|
|
ret |