Subversion Repositories Kolibri OS

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;                                                                 ;;

;; Copyright (C) KolibriOS team 2004-2018. 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                                   ;;

;;                                                                 ;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

server_parser:

        mov     esi, servercommand

        cmp     byte [esi], ':'

        jne     .parse

  .spaceloop:

        lodsb

        test    al, al

        jz      .fail

        cmp     al, ' '

        jne     .spaceloop

  .parse:

        mov     eax, [esi]

        or      eax, 0x20202020

        mov     edi, server_commands

        mov     ecx, server_commands.number

  .loop:

        scasd

        je      .got_cmd

        add     edi, 4

        dec     ecx

        jnz     .loop

  .fail:

        ret

  .got_cmd:

        jmp     dword[edi]

server_commands:

        dd      '001 ', cmd_welcome

        dd      '002 ', cmd_justprint

        dd      '003 ', cmd_justprint

        dd      '004 ', cmd_justprint

        dd      '005 ', cmd_justprint

        dd      '250 ', cmd_justprint

        dd      '251 ', cmd_justprint

        dd      '252 ', cmd_justprint

        dd      '253 ', cmd_justprint

        dd      '254 ', cmd_justprint

        dd      '255 ', cmd_justprint

        dd      '265 ', cmd_justprint

        dd      '266 ', cmd_justprint

        dd      '311 ', cmd_justprint   ; RPL_WHOISUSER

        dd      '312 ', cmd_justprint   ; RPL_WHOISSERVER

        dd      '318 ', cmd_justprint   ; RPL_ENDOFWHOIS

        dd      '322 ', cmd_322         ; RPL_LIST

        dd      '323 ', cmd_323         ; RPL_LISTEND

        dd      '324 ', cmd_justprint   ; RPL_CHANNELMODEIS

        dd      '328 ', cmd_justprint   ; RPL_CHANNEL_URL

        dd      '329 ', cmd_justprint   ; RPL_CREATIONTIME

        dd      '330 ', cmd_justprint

        dd      '332 ', cmd_topic       ; topic

        dd      '333 ', cmd_333         ; nickname and time of topic

        dd      '353 ', cmd_353         ; name reply

        dd      '366 ', cmd_366         ; end of names list

        dd      '372 ', cmd_justprint   ; motd

        dd      '375 ', cmd_justprint   ; start of motd

        dd      '376 ', cmd_justprint   ; end of motd

        dd      '421 ', cmd_justprint   ; unknown command

        dd      '432 ', cmd_justprint   ; erroneous nickname

        dd      '433 ', cmd_justprint   ; nickname already in use

        dd      '436 ', cmd_justprint   ; nickname collision

        dd      'join', cmd_join

        dd      'kick', cmd_kick

        dd      'mode', cmd_mode

        dd      'nick', cmd_nick

        dd      'part', cmd_part

        dd      'ping', cmd_ping

        dd      'priv', cmd_privmsg

        dd      'quit', cmd_quit

        dd      'noti', cmd_notice

        .number = ($ - server_commands) / 8

align 4

compare_to_nick:

        push    esi

        mov     ecx, MAX_NICK_LEN

        mov     esi, user_nick

  .loop:

        lodsb

        cmp     al, ' '

        jbe     .done

        test    al, al

        jz      .done

        cmp     al, 'a'

        jb      .ok

        cmp     al, 'z'

        ja      .ok

        sub     al, 0x20

  .ok:

        mov     bl, byte[edi]

        cmp     bl, 'a'

        jb      .ok2

        cmp     bl, 'z'

        ja      .ok2

        sub     bl, 0x20

  .ok2:

        cmp     bl, al

        jne     .not_equal

        inc     edi

        dec     ecx

        jnz     .loop

  .done:

        xor     eax, eax

        pop     esi

        ret

  .not_equal:

        or      eax, -1

        pop     esi

        ret

align 4

skip_parameter:

; First: skip the parameter (scan untill space or colon)

  .part1:

        lodsb

        cmp     al, ' '

        je      .part2

        cmp     al, ':'

        jne     .part1

; Skip all trailing spaces

  .part3:

        lodsb

        cmp     al, ' '

        je      .part3

        dec     esi

        ret

; Now, skip all trailing spaces and first semicolon

  .part2:

        lodsb

        cmp     al, ' '

        je      .part2

        cmp     al, ':'

        je      .part3

        dec     esi

        ret

cmd_welcome:

        mov     [status], STATUS_LOGGED_IN

cmd_justprint:

        add     esi, 4

        call    skip_parameter          ; our nickname

        call    print_asciiz

        mov     al, 10

        call    print_char

        ret

cmd_notice:

        if TIMESTAMP

        call    print_timestamp

        end if

        cmp     byte[servercommand], ':'

        jne     .gogogo

        mov     byte [esi-1], 0

        push    esi

        mov     esi, str_1

        call    print_asciiz

        mov     esi, servercommand+1

        mov     bl, '!'

        call    print_string

        mov     esi, str_2

        call    print_asciiz

        pop     esi

  .gogogo:

        add     esi, 6

        call    skip_parameter

        call    skip_parameter

        call    print_asciiz

        mov     al, 10

        call    print_char