| 0,0 → 1,449 |
|---|
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| ;; ;; |
| ;; 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 |
| |
| ; 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 = 200 |
| |
| TEXT_X = 5 |
| TEXT_Y = 45 |
| |
| TOP_Y = 40 |
| |
| MAX_WINDOWS = 20 |
| |
| 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 |
| |
| |
| 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 |
| ends |
| |
| struct window_data |
| text rb 120*60 |
| title rb 256 |
| names rb 1200 |
| namespos dd ? |
| 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] |
| |
| push dword scroll1 |
| call [scrollbar_v_mouse] |
| |
| 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', 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, 5, 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, 5 |
| |
| |
| 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: |
| |
| |
| |
| |
| |
| |
| |