kolibrios-gitea/kernel/branches/net/applications/ircc/ircc.asm

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                                                 ;;
;; Copyright (C) KolibriOS team 2004-2013. All rights reserved.    ;;
;; Distributed under terms of the GNU General Public License       ;;
;;                                                                 ;;
;;  IRC client for KolibriOS                                       ;;
;;                                                                 ;;
;;   Written by hidnplayr@kolibrios.org,                           ;;
;;     text encoder/decoder by Clevermouse.                        ;;
;;                                                                 ;;
;;         GNU GENERAL PUBLIC LICENSE                              ;;
;;          Version 2, June 1991                                   ;;
;;                                                                 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

version equ '0.1'

; connection status
STATUS_DISCONNECTED     = 0
STATUS_RESOLVING        = 1
STATUS_CONNECTING       = 2
STATUS_CONNECTED        = 3

; window flags
FLAG_UPDATED            = 1 shl 0
FLAG_CLOSE              = 1 shl 1
FLAG_RECEIVING_NAMES    = 1 shl 2

; window types
WINDOWTYPE_SERVER       = 0
WINDOWTYPE_CHANNEL      = 1
WINDOWTYPE_CHAT         = 2
WINDOWTYPE_LIST         = 3
WINDOWTYPE_DCC          = 4

; supported encodings
CP866                   = 0
CP1251                  = 1
UTF8                    = 2

; settings
USERCMD_MAX_SIZE        = 400

WIN_MIN_X               = 600
WIN_MIN_Y               = 180

TEXT_X                  = 5
TEXT_Y                  = 45

TOP_Y                   = 40

MAX_WINDOWS             = 20
MAX_USERS               = 4096

MAX_NICK_LEN            = 32
MAX_REAL_LEN            = 32    ; realname
MAX_SERVER_NAME         = 256

MAX_CHANNEL_LEN         = 40
MAX_CHANNELS            = 37

MAX_COMMAND_LEN         = 512

TIMESTAMP               = 3     ; 3 = hh:mm:ss, 2 = hh:mm, 0 = no timestamp

MAX_WINDOWNAME_LEN      = 256

WINDOW_BTN_START        = 100

SCROLLBAR_WIDTH         = 12

USERLIST_X              = 98


format binary as ""

use32

        org     0x0

        db      'MENUET01'              ; 8 byte id
        dd      1                       ; header version
        dd      START                   ; program start
        dd      I_END                   ; program image size
        dd      IM_END+2048             ; required amount of memory
        dd      IM_END+2048
        dd      0
        dd      path

include "../macros.inc"
include "../proc32.inc"
include "../dll.inc"
include "../network.inc"
include "../struct.inc"
include '../../../../../programs/develop/libraries/box_lib/trunk/box_lib.mac'

struct  window
        data_ptr        dd ?            ; zero if not used
        flags           db ?
        type            db ?
        name            rb MAX_WINDOWNAME_LEN
        users           dd ?
        users_scroll    dd ?
ends

struct  window_data
        text            rb 120*60
        title           rb 256
        names           rb MAX_NICK_LEN * MAX_USERS
        usertext        rb 256
        usertextlen     dd ?
ends

include "encodings.inc"
include "window.inc"                    ; also contains text print routines
include "serverparser.inc"
include "userparser.inc"
include "socket.inc"
include "gui.inc"


START:

        mcall   68, 11                  ; init heap so we can allocate memory dynamically

; wanted events
        mcall   40, EVM_REDRAW + EVM_KEY + EVM_BUTTON + EVM_STACK + EVM_MOUSE

; load libraries
        stdcall dll.Load, @IMPORT
        test    eax, eax
        jnz     exit

; find path to main settings file (ircc.ini)
        mov     edi, path               ; Calculate the length of zero-terminated string
        xor     al, al
        mov     ecx, 1024
        repne   scasb
        dec     edi
        mov     eax, '.ini'
        stosd
        xor     al, al
        stosb

; Fill the window buffer with zeros
        mov     edi, windows
        mov     ecx, (sizeof.window*MAX_WINDOWS+3)/4
        xor     eax, eax
        rep     stosd

; clear command area too
        mov     edi, servercommand
        mov     ecx, 600/4
        rep     stosd

; allocate window data block

        call    window_create
        mov     ebx, windows
        mov     [ebx + window.data_ptr], eax
        mov     [ebx + window.flags], 0
        mov     [ebx + window.type], WINDOWTYPE_SERVER
        add     eax, window_data.text
        mov     [text_start], eax

        call    window_refresh

; get system colors
        mcall   48, 3, colors, 40

; set edit box and scrollbar colors

        mov     eax, [colors.work]
        mov     [scroll1.bg_color], eax

        mov     eax, [colors.work_button]
        mov     [scroll1.front_color], eax

        mov     eax, [colors.work_text]
        mov     [scroll1.line_color], eax

; get settings from ini
        invoke  ini.get_str, path, str_user, str_nick, user_nick, MAX_NICK_LEN, default_nick
        invoke  ini.get_str, path, str_user, str_real, user_real_name, MAX_REAL_LEN, default_real

; Welcome user
        mov     esi, str_welcome
        call    print_text2

        call    draw_window ;;; FIXME (gui is not correctly drawn first time)

redraw:
        call    draw_window

still:

; wait here for event
        mcall   10

        dec     eax
        jz      redraw

        dec     eax
        jz      main_window_key

        dec     eax
        jz      button

        cmp     al, 3
        je      mouse

        call    process_network_event

        mov     edx, [window_open]
        test    [edx + window.flags], FLAG_UPDATED
        jz      .no_update
        and     [edx + window.flags], not FLAG_UPDATED
        mov     edx, [edx + window.data_ptr]
        add     edx, window_data.text
        call    draw_channel_text
  .no_update:
        call    print_channel_list

        jmp     still

button:

        mcall   17              ; get id
        shr     eax, 8

        cmp     ax, 1           ; close program
        je      exit

        sub     ax, WINDOW_BTN_START
        jb      exit

        cmp     ax, MAX_WINDOWS
        ja      exit

        mov     dx, sizeof.window
        mul     dx
        shl     edx, 16
        mov     dx, ax
        add     edx, windows
        cmp     [edx + window.data_ptr], 0
        je      exit
        mov     [window_open], edx
        call    window_refresh
        call    draw_window

        jmp     still
exit:
        mcall   -1



main_window_key:

        mcall   2

        push    dword edit1
        call    [edit_box_key]

        cmp     ah, 13          ; enter
        jne     no_send2

        call    user_parser

        mov     [edit1.size], 0
        mov     [edit1.pos], 0

        push    dword edit1
        call    [edit_box_draw]

        mov     edx, [window_open]
        mov     edx, [edx + window.data_ptr]
        add     edx, window_data.text
        call    draw_channel_text

        jmp     still
  no_send2:

        jmp     still

mouse:
        push    dword edit1
        call    [edit_box_mouse]

; TODO: check if scrollbar is active
        push    dword scroll1
        call    [scrollbar_v_mouse]

; TODO: check if scrollbar moved
        call    print_channel_list

        jmp     still


; DATA AREA

encoding_text:
db      'CP866 '
db      'CP1251'
db      'UTF-8 '
encoding_text_len = 6

action_header           db '*** ', 0
action_header_short     db '* ', 0
ctcp_header             db '-> [',0
ctcp_version            db '] VERSION',10,0
ctcp_ping               db '] PING',10,0
ctcp_time               db '] TIME',10,0
has_left_channel        db ' has left ', 0
joins_channel           db ' has joined ', 0
is_now_known_as         db ' is now known as ', 0
has_quit_irc            db ' has quit IRC', 10, 0
sets_mode               db ' sets mode ', 0
kicked                  db ' is kicked from ', 0
str_talking             db 'Now talking in ',0
str_topic               db 'Topic is ',0
str_setby               db 'Set by ',0

str_version             db 'VERSION '
str_programname         db 'KolibriOS IRC client ', version, 0

str_user                db 'user', 0
str_nick                db 'nick', 0
str_real                db 'realname', 0
str_email               db 'email', 0

default_nick            db 'kolibri_user', 0
default_real            db 'Kolibri User', 0

str_welcome             db 10
                        db '.______________________          .__  .__               __',10
                        db '|   \______   \_   ___ \    ____ |  | |__| ____   _____/  |_',10
                        db '|   ||       _/    \  \/  _/ ___\|  | |  |/ __ \ /    \   __\',10
                        db '|   ||    |   \     \____ \  \___|  |_|  \  ___/|   |  \  |',10
                        db '|___||____|_  /\______  /  \___  >____/__|\___  >___|  /__|',10
                        db '            \/        \/       \/             \/     \/',10
                        db 10
                        db 'Welcome to IRC client ',version,' for KolibriOS',10
                        db 10
                        db 'Type /help for help',10,0

str_nickchange          db 10,'Nickname is now ',0
str_realchange          db 10,'Real name is now ',0
str_dotnewline          db '.',10, 0
str_newline             db 10, 0
str_connecting          db 10,'* Connecting to ',0
str_help                db 10,'following commands are available:',10
                        db 10
                        db '/nick <nick>        : change nickname to <nick>',10
                        db '/real <real name>   : change real name to <real name>',10
                        db '/server <address>   : connect to server <address>',10
                        db '/code <code>        : change codepage to cp866, cp1251, or utf8',10,0

str_1                   db ' -',0
str_2                   db '- ',0

str_sockerr             db 'Socket Error',10,0
str_dnserr              db 'Unable to resolve hostname.',10,0
str_refused             db 'Connection refused',10,0

sockaddr1:
        dw AF_INET4
.port   dw 0x0b1a       ; 6667
.ip     dd 0
        rb 10


status                  dd STATUS_DISCONNECTED

channel_line_sun        dd 0x9999ff
channel_line_shadow     dd 0x666699
index_list_2            dd 0x0000ff

text_start              dd ?                    ; pointer to current textbox data
irc_data                dd 0x0                  ; encoder
textbox_width           dd 80                   ; in characters, not pixels ;)
pos                     dd 66 * 11              ; encoder

window_open             dd windows
window_print            dd windows

scroll                  dd 1
                        dd 12

align 4
@IMPORT:

library network,        'network.obj',\
        libini,         'libini.obj',\
        boxlib,         'box_lib.obj'

import  network,\
        getaddrinfo,    'getaddrinfo',\
        freeaddrinfo,   'freeaddrinfo',\
        inet_ntoa,      'inet_ntoa'

import  libini,\
        ini.get_str,    'ini_get_str',\
        ini.get_int,     'ini_get_int'

import  boxlib,\
        edit_box_draw    ,'edit_box'            ,\
        edit_box_key     ,'edit_box_key'        ,\
        edit_box_mouse   ,'edit_box_mouse'      ,\
        scrollbar_v_draw ,'scrollbar_v_draw'    ,\
        scrollbar_v_mouse,'scrollbar_v_mouse'


usercommand     db '/server chat.freenode.net', 0
                rb MAX_COMMAND_LEN

I_END:

        ;         width, left, top
edit1   edit_box  0, 0, 0, 0xffffff, 0x6f9480, 0, 0, 0, USERCMD_MAX_SIZE, usercommand, mouse_dd, ed_focus, 25, 25
        ;         xsize, xpos, ysize, ypos, max, cur, pos, bgcol, frcol, linecol
scroll1 scrollbar SCROLLBAR_WIDTH, 300, 150, TOP_Y, 10, 100, 0, 0, 0, 0, 0, 1


main_PID        dd ?       ; identifier of main thread
utf8_bytes_rest dd ?       ; bytes rest in current UTF8 sequence
utf8_char       dd ?       ; first bits of current UTF8 character
gai_reqdata     rb 32      ; buffer for getaddrinfo_start/process
ip_list         dd ?       ; will be filled as pointer to addrinfo list
packetbuf       rb 1024    ; buffer for packets to server
path            rb 1024

socketnum       dd ?

servercommand   rb 600

thread_info     rb 1024
xsize           dd ?
ysize           dd ?

colors          system_colors

irc_server_name rb MAX_SERVER_NAME

user_nick       rb MAX_NICK_LEN
user_real_name  rb MAX_REAL_LEN

windows         rb MAX_WINDOWS*sizeof.window

mouse_dd        dd ?

IM_END: