Subversion Repositories Kolibri OS

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

;;                                                                 ;;

;; Copyright (C) KolibriOS team 2004-2024. 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.36b'

; connection status

STATUS_DISCONNECTED     = 0

STATUS_RESOLVING        = 1

STATUS_CONNECTING       = 2

STATUS_CONNECTED        = 3

STATUS_LOGGED_IN        = 4

; window flags

FLAG_UPDATED            = 1 shl 0

FLAG_RECEIVING_NAMES    = 1 shl 1

FLAG_SCROLL_LOW         = 1 shl 2

; window types

WINDOWTYPE_NONE         = 0

WINDOWTYPE_SERVER       = 1

WINDOWTYPE_CHANNEL      = 2

WINDOWTYPE_CHAT         = 3

WINDOWTYPE_LIST         = 4

WINDOWTYPE_DCC          = 5

; supported encodings

CP866                   = 0

CP1251                  = 1

UTF8                    = 2

; settings

USERCMD_MAX_SIZE        = 400

WIN_MIN_X               = 600

WIN_MIN_Y               = 183

TEXT_X                  = 2

TEXT_Y                  = TOP_Y + 2

TOP_SPACE               = 2

TAB_HEIGHT              = 14

TAB_WIDTH               = 120

TAB_SPACE               = 5

TOP_Y                   = TOP_SPACE+ TAB_HEIGHT

INPUTBOX_HEIGHT         = 13

MAX_WINDOWS             = 20

MAX_USERS               = 4096

TEXT_BUFFERSIZE         = 1024*1024

MAX_NICK_LEN            = 32

MAX_REAL_LEN            = 32    ; realname

QUIT_MSG_LEN            = 250

MAX_SERVER_NAME         = 256

MAX_CHANNEL_LEN         = 40

MAX_CHANNELS            = 37

MAX_COMMAND_LEN         = 512

PACKETBUF_SIZE          = 1024

PATH_SIZE               = 1024

PARAM_SIZE              = 1024

SERVERCOMMAND_SIZE      = 600

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

MAX_WINDOWNAME_LEN      = 256

WINDOW_BTN_START        = 100

WINDOW_BTN_CLOSE        = 2

WINDOW_BTN_LIST         = 3

SCROLLBAR_WIDTH         = 14

USERLIST_WIDTH          = 160

FONT_WIDTH              = 8

FONT_HEIGHT             = 16

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      param

        dd      path

include "../../macros.inc"

include "../../proc32.inc"

include "../../dll.inc"

include "../../network.inc"

include "../../struct.inc"

include "../../develop/libraries/box_lib/trunk/box_lib.mac"

struct  window

        data_ptr        dd ?

        flags           db ?

        type            db ?

        name            rb MAX_WINDOWNAME_LEN

        users           dd ?

        users_scroll    dd ?

        selected        dd ?            ; selected user, 0 if none selected

        text_start      dd ?            ; pointer to current textbox data

        text_end        dd ?

        text_print      dd ?            ; pointer to first character to print on screen

        text_line_print dd ?            ; line number of that character

        text_write      dd ?            ; write pointer

        text_lines      dd ?            ; total number of lines

        text_scanned    dd ?            ; pointer to beginning of unscanned data (we still need to count number of lines, insert newline characters,..)

ends

struct  window_data

        text            rb TEXT_BUFFERSIZE

        names           rb MAX_NICK_LEN * MAX_USERS

ends

include "encodings.inc"

include "window.inc"

include "serverparser.inc"

include "userparser.inc"

include "socket.inc"

include "gui.inc"

include "users.inc"

include "textbox.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+EVM_MOUSE_FILTER

; 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, PATH_SIZE

        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, SERVERCOMMAND_SIZE/4

        rep     stosd

; allocate window data block

        mov     ebx, windows

        call    window_create_textbox

        test    eax, eax

        jz      exit

        mov     [ebx + window.type], WINDOWTYPE_SERVER

; 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

        invoke  ini.get_str, path, str_user, str_quitmsg, quit_msg, 250, default_quit

; Welcome user

        mov     esi, str_welcome

        call    print_asciiz