1,6 → 1,6 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;; ;; |
;; Copyright (C) KolibriOS team 2004-2014. All rights reserved. ;; |
;; Copyright (C) KolibriOS team 2004-2016. All rights reserved. ;; |
;; Distributed under terms of the GNU General Public License ;; |
;; ;; |
;; IRC client for KolibriOS ;; |
13,85 → 13,89 |
;; ;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
version equ '0.23' |
version equ '0.24' |
|
; connection status |
STATUS_DISCONNECTED = 0 |
STATUS_RESOLVING = 1 |
STATUS_CONNECTING = 2 |
STATUS_CONNECTED = 3 |
STATUS_DISCONNECTED = 0 |
STATUS_RESOLVING = 1 |
STATUS_CONNECTING = 2 |
STATUS_CONNECTED = 3 |
|
; window flags |
FLAG_UPDATED = 1 shl 0 |
FLAG_RECEIVING_NAMES = 1 shl 1 |
FLAG_SCROLL_LOW = 1 shl 2 |
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 |
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 |
CP866 = 0 |
CP1251 = 1 |
UTF8 = 2 |
|
; settings |
USERCMD_MAX_SIZE = 400 |
USERCMD_MAX_SIZE = 400 |
|
WIN_MIN_X = 600 |
WIN_MIN_Y = 170 |
WIN_MIN_X = 600 |
WIN_MIN_Y = 170 |
|
TEXT_X = 5 |
TEXT_Y = TOP_Y + 2 |
TEXT_X = 5 |
TEXT_Y = TOP_Y + 2 |
|
TOP_Y = 24 |
BOTTOM_Y = 15 |
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_WINDOWS = 20 |
MAX_USERS = 4096 |
TEXT_BUFFERSIZE = 1024*1024 |
|
MAX_NICK_LEN = 32 |
MAX_REAL_LEN = 32 ; realname |
MAX_SERVER_NAME = 256 |
MAX_NICK_LEN = 32 |
MAX_REAL_LEN = 32 ; realname |
MAX_SERVER_NAME = 256 |
|
MAX_CHANNEL_LEN = 40 |
MAX_CHANNELS = 37 |
MAX_CHANNEL_LEN = 40 |
MAX_CHANNELS = 37 |
|
MAX_COMMAND_LEN = 512 |
MAX_COMMAND_LEN = 512 |
|
TIMESTAMP = 3 ; 3 = hh:mm:ss, 2 = hh:mm, 0 = no timestamp |
TIMESTAMP = 3 ; 3 = hh:mm:ss, 2 = hh:mm, 0 = no timestamp |
|
MAX_WINDOWNAME_LEN = 256 |
MAX_WINDOWNAME_LEN = 256 |
|
WINDOW_BTN_START = 100 |
WINDOW_BTN_CLOSE = 2 |
WINDOW_BTN_LIST = 3 |
WINDOW_BTN_START = 100 |
WINDOW_BTN_CLOSE = 2 |
WINDOW_BTN_LIST = 3 |
|
SCROLLBAR_WIDTH = 14 |
USERLIST_WIDTH = 100 |
SCROLLBAR_WIDTH = 14 |
USERLIST_WIDTH = 100 |
|
FONT_HEIGHT = 9 |
FONT_WIDTH = 6 |
FONT_HEIGHT = 9 |
FONT_WIDTH = 6 |
|
format binary as "" |
|
use32 |
|
org 0x0 |
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 |
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" |
100,28 → 104,28 |
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 |
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,..) |
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 |
struct window_data |
text rb TEXT_BUFFERSIZE |
names rb MAX_NICK_LEN * MAX_USERS |
ends |
|
include "encodings.inc" |
136,220 → 140,220 |
|
START: |
|
mcall 68, 11 ; init heap so we can allocate memory dynamically |
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 |
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 |
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 |
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 |
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 |
mov edi, servercommand |
mov ecx, 600/4 |
rep stosd |
|
; allocate window data block |
mov ebx, windows |
call window_create_textbox |
test eax, eax |
jz error |
mov [ebx + window.type], WINDOWTYPE_SERVER |
mov ebx, windows |
call window_create_textbox |
test eax, eax |
jz error |
mov [ebx + window.type], WINDOWTYPE_SERVER |
|
; get system colors |
mcall 48, 3, colors, 40 |
mcall 48, 3, colors, 40 |
|
; set edit box and scrollbar colors |
mov eax, [colors.work] |
mov [scroll1.bg_color], eax |
mov [scroll2.bg_color], eax |
mov eax, [colors.work] |
mov [scroll1.bg_color], eax |
mov [scroll2.bg_color], eax |
|
mov eax, [colors.work_button] |
mov [scroll1.front_color], eax |
mov [scroll2.front_color], eax |
mov eax, [colors.work_button] |
mov [scroll1.front_color], eax |
mov [scroll2.front_color], eax |
|
mov eax, [colors.work_text] |
mov [scroll1.line_color], eax |
mov [scroll2.line_color], eax |
mov eax, [colors.work_text] |
mov [scroll1.line_color], eax |
mov [scroll2.line_color], eax |
|
mov [scroll1.type], 1 ; 0 = simple, 1 = skinned |
mov [scroll2.type], 1 |
mov [scroll1.type], 1 ; 0 = simple, 1 = skinned |
mov [scroll2.type], 1 |
|
; 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 |
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 |
mov esi, str_welcome |
call print_asciiz |
|
; Check if parameter contains an URL |
cmp byte[param], 0 |
je @f |
mov esi, param |
mov ecx, 1024 |
call cmd_usr_server.now |
cmp byte[param], 0 |
je @f |
mov esi, param |
mov ecx, 1024 |
call cmd_usr_server.now |
@@: |
|
; Draw window a first time, so we can figure out skin size |
call draw_window |
call draw_window |
|
redraw: |
call draw_window |
call draw_window |
|
mainloop: |
mcall 10 ; wait for event |
mcall 10 ; wait for event |
|
dec eax |
jz redraw |
dec eax |
jz redraw |
|
dec eax |
jz main_window_key |
dec eax |
jz main_window_key |
|
dec eax |
jz button |
dec eax |
jz button |
|
cmp al, 3 |
je mouse |
cmp al, 3 |
je mouse |
|
call process_network_event |
call process_network_event |
|
mov edi, [window_active] |
test [edi + window.flags], FLAG_UPDATED |
jz .no_update |
call draw_channel_text |
mov edi, [window_active] |
cmp [edi + window.type], WINDOWTYPE_CHANNEL |
jne .no_update |
call draw_channel_list |
mov edi, [window_active] |
test [edi + window.flags], FLAG_UPDATED |
jz .no_update |
call draw_channel_text |
mov edi, [window_active] |
cmp [edi + window.type], WINDOWTYPE_CHANNEL |
jne .no_update |
call draw_channel_list |
.no_update: |
call highlight_updated_tabs |
call highlight_updated_tabs |
|
jmp mainloop |
jmp mainloop |
|
button: |
|
mcall 17 ; get id |
ror eax, 8 |
mcall 17 ; get id |
ror eax, 8 |
|
cmp ax, 1 ; close program |
je exit |
cmp ax, 1 ; close program |
je exit |
|
cmp ax, WINDOW_BTN_CLOSE |
jne @f |
call cmd_usr_close_window |
jmp mainloop |
cmp ax, WINDOW_BTN_CLOSE |
jne @f |
call cmd_usr_close_window |
jmp mainloop |
|
@@: |
cmp ax, WINDOW_BTN_LIST |
jne @f |
cmp ax, WINDOW_BTN_LIST |
jne @f |
|
push eax |
push eax |
|
mcall 37, 1 ; Get mouse position |
sub ax, TEXT_Y |
mov bl, FONT_HEIGHT |
div bl |
and eax, 0x000000ff |
inc eax |
add eax, [scroll1.position] |
mov ebx, [window_active] |
mov [ebx + window.selected], eax |
mcall 37, 1 ; Get mouse position |
sub ax, TEXT_Y |
mov bl, FONT_HEIGHT |
div bl |
and eax, 0x000000ff |
inc eax |
add eax, [scroll1.position] |
mov ebx, [window_active] |
mov [ebx + window.selected], eax |
|
call draw_channel_list |
call draw_channel_list |
|
pop eax |
test eax, 1 shl 25 ; Right mouse button pressed? |
jz mainloop |
pop eax |
test eax, 1 shl 25 ; Right mouse button pressed? |
jz mainloop |
|
; TODO: check if selected nick is my nick! |
|
; Right mouse BTN was pressed, open chat window |
mov ebx, [window_active] |
mov eax, [ebx + window.selected] |
dec eax |
imul eax, MAX_NICK_LEN |
mov ebx, [ebx + window.data_ptr] |
lea esi, [ebx + window_data.names + eax] |
call window_open |
test ebx, ebx |
jz mainloop |
mov [window_active], ebx |
call redraw |
mov ebx, [window_active] |
mov eax, [ebx + window.selected] |
dec eax |
imul eax, MAX_NICK_LEN |
mov ebx, [ebx + window.data_ptr] |
lea esi, [ebx + window_data.names + eax] |
call window_open |
test ebx, ebx |
jz mainloop |
mov [window_active], ebx |
call redraw |
|
jmp mainloop |
jmp mainloop |
|
@@: |
sub ax, WINDOW_BTN_START |
jb exit |
sub ax, WINDOW_BTN_START |
jb exit |
|
cmp ax, MAX_WINDOWS |
ja exit |
cmp ax, MAX_WINDOWS |
ja exit |
|
; Save users scrollbar position |
push [scroll1.position] |
mov edx, [window_active] |
pop [edx + window.users_scroll] |
push [scroll1.position] |
mov edx, [window_active] |
pop [edx + window.users_scroll] |
|
; OK, time to switch to another window. |
mov dx, sizeof.window |
mul dx |
shl edx, 16 |
mov dx, ax |
add edx, windows |
cmp [edx + window.type], WINDOWTYPE_NONE |
je exit |
mov [window_active], edx |
mov dx, sizeof.window |
mul dx |
shl edx, 16 |
mov dx, ax |
add edx, windows |
cmp [edx + window.type], WINDOWTYPE_NONE |
je exit |
mov [window_active], edx |
|
push [edx + window.text_line_print] |
pop [scroll2.position] |
push [edx + window.text_line_print] |
pop [scroll2.position] |
|
push [edx + window.users_scroll] |
pop [scroll1.position] |
push [edx + window.users_scroll] |
pop [scroll1.position] |
|
call draw_window |
jmp mainloop |
call draw_window |
jmp mainloop |
|
exit: |
|
cmp [socketnum], 0 |
je @f |
mov esi, quit_msg |
call quit_server |
cmp [socketnum], 0 |
je @f |
mov esi, quit_msg |
call quit_server |
@@: |
|
error: |
|
mcall -1 |
mcall -1 |
|
|
|
main_window_key: |
|
mcall 2 |
mcall 2 |
|
push dword edit1 |
call [edit_box_key] |
push dword edit1 |
call [edit_box_key] |
|
; cmp ah, 178 |
; jne .no_up |
364,29 → 368,29 |
; jmp mainloop |
; |
; .no_down: |
cmp ah, 13 ; enter |
jne no_send2 |
cmp ah, 13 ; enter |
jne no_send2 |
|
call user_parser |
call user_parser |
|
mov eax, [edit1.size] |
mov eax, [edit1.size] |
|
mov [edit1.size], 0 |
mov [edit1.pos], 0 |
mov [edit1.size], 0 |
mov [edit1.pos], 0 |
|
push dword edit1 |
call [edit_box_draw] |
push dword edit1 |
call [edit_box_draw] |
|
call draw_channel_text |
call draw_channel_text |
|
jmp mainloop |
jmp mainloop |
no_send2: |
|
jmp mainloop |
jmp mainloop |
|
mouse: |
push dword edit1 |
call [edit_box_mouse] |
push dword edit1 |
call [edit_box_mouse] |
|
; mcall 37, 7 |
; movsx eax, ax |
393,222 → 397,222 |
; add [scroll2.position], eax |
|
; TODO: check if scrollbar is active? |
mov edi, [window_active] |
cmp [edi + window.type], WINDOWTYPE_CHANNEL |
jne @f |
push [scroll1.position] |
push dword scroll1 |
call [scrollbar_mouse] |
pop eax |
cmp eax, [scroll1.position] ; did the scrollbar move? |
je @f |
call draw_channel_list |
mov edi, [window_active] |
cmp [edi + window.type], WINDOWTYPE_CHANNEL |
jne @f |
push [scroll1.position] |
push dword scroll1 |
call [scrollbar_mouse] |
pop eax |
cmp eax, [scroll1.position] ; did the scrollbar move? |
je @f |
call draw_channel_list |
@@: |
|
; TODO: check if scrollbar is active? |
mov edi, [window_active] |
mov eax, [edi + window.text_lines] |
cmp eax, [textbox_height] |
jbe @f |
push dword scroll2 |
call [scrollbar_mouse] |
mov edi, [window_active] |
and [edi+window.flags], not FLAG_SCROLL_LOW |
mov edx, [scroll2.position] |
add edx, [scroll2.cur_area] |
sub edx, [scroll2.max_area] |
jne .not_low |
or [edi+window.flags], FLAG_SCROLL_LOW |
mov edi, [window_active] |
mov eax, [edi + window.text_lines] |
cmp eax, [textbox_height] |
jbe @f |
push dword scroll2 |
call [scrollbar_mouse] |
mov edi, [window_active] |
and [edi+window.flags], not FLAG_SCROLL_LOW |
mov edx, [scroll2.position] |
add edx, [scroll2.cur_area] |
sub edx, [scroll2.max_area] |
jne .not_low |
or [edi+window.flags], FLAG_SCROLL_LOW |
.not_low: |
mov edx, [scroll2.position] |
sub edx, [edi + window.text_line_print] |
je @f |
call draw_channel_text.scroll_to_pos |
mov edx, [scroll2.position] |
sub edx, [edi + window.text_line_print] |
je @f |
call draw_channel_text.scroll_to_pos |
@@: |
|
jmp mainloop |
jmp mainloop |
|
|
; DATA AREA |
|
encoding_text: |
db 'CP866 ' |
db 'CP1251' |
db 'UTF-8 ' |
db 'CP866 ' |
db 'CP1251' |
db 'UTF-8 ' |
encoding_text_len = 6 |
|
join_header db 3, '3* ', 0 |
quit_header db 3, '5* ', 0 |
nick_header db 3, '2* ', 0 |
kick_header db 3, '5* ', 0 |
mode_header db 3, '2* ', 0 |
part_header db 3, '5* ', 0 |
topic_header db 3, '3* ', 0 |
action_header db 3, '6* ', 0 |
ctcp_header db 3, '13-> [', 0 |
msg_header db 3, '7-> *', 0 |
ctcp_version db '] VERSION', 10, 0 |
ctcp_ping db '] PING', 10, 0 |
ctcp_time db '] TIME', 10, 0 |
join_header db 3, '3* ', 0 |
quit_header db 3, '5* ', 0 |
nick_header db 3, '2* ', 0 |
kick_header db 3, '5* ', 0 |
mode_header db 3, '2* ', 0 |
part_header db 3, '5* ', 0 |
topic_header db 3, '3* ', 0 |
action_header db 3, '6* ', 0 |
ctcp_header db 3, '13-> [', 0 |
msg_header db 3, '7-> *', 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 |
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 |
str_kicked db ' is kicked from ', 0 |
str_by db ' by ', 0 |
str_nickchange db 'Nickname is now ', 0 |
str_realchange db 'Real name is now ', 0 |
str_talking db 'Now talking in ', 0 |
str_topic db 'Topic is "', 0 |
str_topic_end db '"', 10, 0 |
str_setby db 'Set by ', 0 |
sets_mode db ' sets mode ', 0 |
str_kicked db ' is kicked from ', 0 |
str_by db ' by ', 0 |
str_nickchange db 'Nickname is now ', 0 |
str_realchange db 'Real name is now ', 0 |
str_talking db 'Now talking in ', 0 |
str_topic db 'Topic is "', 0 |
str_topic_end db '"', 10, 0 |
str_setby db 'Set by ', 0 |
|
str_connecting db 3, '3* Connecting to ', 0 |
str_sockerr db 3, '5* Socket error', 10, 0 |
str_dnserr db 3, '5* Unable to resolve hostname', 10, 0 |
str_refused db 3, '5* Connection refused', 10, 0 |
str_srv_disconnected db 3, '5* Server disconnected', 10, 0 |
str_disconnected db 3, '5* Disconnected', 10, 0 |
str_reconnect db 3, '5* Connection reset by user', 10, 0 |
str_notconnected db 3, '5* Not connected to server', 10, 0 |
str_notchannel db 3, '5* You are not on a channel', 10, 0 |
str_connecting db 3, '3* Connecting to ', 0 |
str_sockerr db 3, '5* Socket error', 10, 0 |
str_dnserr db 3, '5* Unable to resolve hostname', 10, 0 |
str_refused db 3, '5* Connection refused', 10, 0 |
str_srv_disconnected db 3, '5* Server disconnected', 10, 0 |
str_disconnected db 3, '5* Disconnected', 10, 0 |
str_reconnect db 3, '5* Connection reset by user', 10, 0 |
str_notconnected db 3, '5* Not connected to server', 10, 0 |
str_notchannel db 3, '5* You are not on a channel', 10, 0 |
|
str_1 db 3, '13 -', 0 |
str_2 db '- ', 0 |
str_1 db 3, '13 -', 0 |
str_2 db '- ', 0 |
|
str_list db 'list', 0 |
str_list db 'list', 0 |
|
str_help db 'The following commands are available:', 10 |
db 10 |
db '/nick <nick> : change nickname', 10 |
db '/real <real name> : change real name', 10 |
db '/server <address> : connect to server', 10 |
db '/code <code> : change codepage (cp866, cp1251, or utf8)', 10 |
db '/join <channel> : join a channel', 10 |
db '/part <channel> : part from a channel', 10 |
db '/quit : quit server', 10 |
db '/msg <user> : send a private message', 10 |
db '/ctcp <user> : send a message using client to client protocol', 10 |
db 10 |
db 'Other commands are send straight to server.', 10 |
db 10, 0 |
str_help db 'The following commands are available:', 10 |
db 10 |
db '/nick <nick> : change nickname', 10 |
db '/real <real name> : change real name', 10 |
db '/server <address> : connect to server', 10 |
db '/code <code> : change codepage (cp866, cp1251, or utf8)', 10 |
db '/join <channel> : join a channel', 10 |
db '/part <channel> : part from a channel', 10 |
db '/quit : quit server', 10 |
db '/msg <user> : send a private message', 10 |
db '/ctcp <user> : send a message using client to client protocol', 10 |
db 10 |
db 'Other commands are send straight to server.', 10 |
db 10, 0 |
|
str_welcome db 3, '3 ___', 3, '7__________', 3, '6_________ ', 3, '4 __ __ __', 10 |
db 3, '3| \', 3, '7______ \', 3, '6_ ___ \ ', 3, '4 ____ | | |__| ____ _____/ |_', 10 |
db 3, '3| |', 3, '7| _/', 3, '6 \ \/ ', 3, '4 _/ ___\| | | |/ __ \ / \ __\', 10 |
db 3, '3| |', 3, '7| | \', 3, '6 \____', 3, '4 \ \___| |_| \ ___/| | \ |', 10 |
db 3, '3|___|', 3, '7|____|_ /', 3, '6\______ /', 3, '4 \___ >____/__|\___ >___| /__|', 10 |
db 3, '3 ', 3, '7 \/ ', 3, '6 \/ ', 3, '4 \/ \/ \/', 10 |
db 10 |
db 'Welcome to the KolibriOS IRC client v', version, 10 |
db 10 |
db 'Type /help for help', 10, 10, 0 |
str_welcome db 3, '3 ___', 3, '7__________', 3, '6_________ ', 3, '4 __ __ __', 10 |
db 3, '3| \', 3, '7______ \', 3, '6_ ___ \ ', 3, '4 ____ | | |__| ____ _____/ |_', 10 |
db 3, '3| |', 3, '7| _/', 3, '6 \ \/ ', 3, '4 _/ ___\| | | |/ __ \ / \ __\', 10 |
db 3, '3| |', 3, '7| | \', 3, '6 \____', 3, '4 \ \___| |_| \ ___/| | \ |', 10 |
db 3, '3|___|', 3, '7|____|_ /', 3, '6\______ /', 3, '4 \___ >____/__|\___ >___| /__|', 10 |
db 3, '3 ', 3, '7 \/ ', 3, '6 \/ ', 3, '4 \/ \/ \/', 10 |
db 10 |
db 'Welcome to KolibriOS IRC client ', version, 10 |
db 10 |
db 'Type /help for help', 10, 10, 0 |
|
str_version db 'VERSION ' |
str_programname db 'KolibriOS IRC client v', version, 0 |
str_version db 'VERSION KolibriOS ' |
str_programname db 'IRC client ', version, 0 |
|
str_user db 'user', 0 |
str_nick db 'nick', 0 |
str_real db 'realname', 0 |
str_email db 'email', 0 |
str_quitmsg db 'quitmsg', 0 |
str_user db 'user', 0 |
str_nick db 'nick', 0 |
str_real db 'realname', 0 |
str_email db 'email', 0 |
str_quitmsg db 'quitmsg', 0 |
|
default_nick db 'kolibri_user', 0 |
default_real db 'Kolibri User', 0 |
default_quit db 'KolibriOS forever', 0 |
default_nick db 'kolibri_user', 0 |
default_real db 'Kolibri User', 0 |
default_quit db 'KolibriOS forever', 0 |
|
irc_colors dd 0xffffff ; 0 white |
dd 0x000000 ; 1 black |
dd 0x00007f ; 2 blue (navy) |
dd 0x009300 ; 3 green |
dd 0xff0000 ; 4 red |
dd 0x7f0000 ; 5 brown (maroon) |
dd 0x9c009c ; 6 purple |
dd 0xfc7f00 ; 7 olive |
dd 0xffff00 ; 8 yellow |
dd 0x00fc00 ; 9 light green |
dd 0x009393 ; 10 teal |
dd 0x00ffff ; 11 cyan |
dd 0x0000fc ; 12 royal blue |
dd 0xff00ff ; 13 pink |
dd 0x7f7f7f ; 14 grey |
dd 0xd4d0c4 ; 15 light grey (silver) |
irc_colors dd 0xffffff ; 0 white |
dd 0x000000 ; 1 black |
dd 0x00007f ; 2 blue (navy) |
dd 0x009300 ; 3 green |
dd 0xff0000 ; 4 red |
dd 0x7f0000 ; 5 brown (maroon) |
dd 0x9c009c ; 6 purple |
dd 0xfc7f00 ; 7 olive |
dd 0xffff00 ; 8 yellow |
dd 0x00fc00 ; 9 light green |
dd 0x009393 ; 10 teal |
dd 0x00ffff ; 11 cyan |
dd 0x0000fc ; 12 royal blue |
dd 0xff00ff ; 13 pink |
dd 0x7f7f7f ; 14 grey |
dd 0xd4d0c4 ; 15 light grey (silver) |
|
sockaddr1: |
dw AF_INET4 |
.port dw 0x0b1a ; 6667 FIXMEEEEEE |
.ip dd 0 |
rb 10 |
dw AF_INET4 |
.port dw 0x0b1a ; 6667 FIXMEEEEEE |
.ip dd 0 |
rb 10 |
|
|
status dd STATUS_DISCONNECTED |
status dd STATUS_DISCONNECTED |
|
window_active dd windows |
window_print dd windows |
window_active dd windows |
window_print dd windows |
|
align 4 |
@IMPORT: |
|
library network, 'network.obj',\ |
libini, 'libini.obj',\ |
boxlib, 'box_lib.obj' |
library network, 'network.obj',\ |
libini, 'libini.obj',\ |
boxlib, 'box_lib.obj' |
|
import network,\ |
getaddrinfo, 'getaddrinfo',\ |
freeaddrinfo, 'freeaddrinfo',\ |
inet_ntoa, 'inet_ntoa' |
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 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_draw, 'scrollbar_v_draw',\ |
scrollbar_mouse,'scrollbar_v_mouse' |
import boxlib,\ |
edit_box_draw, 'edit_box',\ |
edit_box_key, 'edit_box_key',\ |
edit_box_mouse, 'edit_box_mouse',\ |
scrollbar_draw, 'scrollbar_v_draw',\ |
scrollbar_mouse,'scrollbar_v_mouse' |
|
; width, left, top |
edit1 edit_box 0, 0, 0, 0xffffff, 0x6f9480, 0, 0, 0, USERCMD_MAX_SIZE, usercommand, mouse_dd, ed_always_focus, 25, 25 |
; xsize, xpos, ysize, ypos, btn_height, max, cur, pos, bgcol, frcol, linecol |
; width, left, top |
edit1 edit_box 0, 0, 0, 0xffffff, 0x6f9480, 0, 0, 0, USERCMD_MAX_SIZE, usercommand, mouse_dd, ed_always_focus, 25, 25 |
; xsize, xpos, ysize, ypos, btn_height, max, cur, pos, bgcol, frcol, linecol |
scroll1 scrollbar SCROLLBAR_WIDTH, 0, 0, TOP_Y, SCROLLBAR_WIDTH, 0, 0, 0, 0, 0, 0, 1 |
scroll2 scrollbar SCROLLBAR_WIDTH, 0, 0, TOP_Y, SCROLLBAR_WIDTH, 0, 0, 0, 0, 0, 0, 1 |
|
usercommand db '/server chat.freenode.net', 0 |
rb MAX_COMMAND_LEN |
usercommand db '/server chat.freenode.net', 0 |
rb MAX_COMMAND_LEN |
|
I_END: |
|
utf8_bytes_rest dd ? ; bytes rest in current UTF8 sequence |
utf8_char dd ? ; first bits of current UTF8 character |
utf8_bytes_rest dd ? ; bytes rest in current UTF8 sequence |
utf8_char dd ? ; first bits of current UTF8 character |
|
packetbuf rb 1024 ; buffer for packets to server |
path rb 1024 |
param rb 1024 |
packetbuf rb 1024 ; buffer for packets to server |
path rb 1024 |
param rb 1024 |
|
servercommand rb 600 |
servercommand rb 600 |
|
thread_info process_information |
xsize dd ? |
ysize dd ? |
mouse_dd dd ? |
thread_info process_information |
xsize dd ? |
ysize dd ? |
mouse_dd dd ? |
|
textbox_height dd ? ; in characters |
textbox_width dd ? ; in characters, not pixels ;) |
textbox_height dd ? ; in characters |
textbox_width dd ? ; in characters, not pixels ;) |
|
colors system_colors |
colors system_colors |
|
irc_server_name rb MAX_SERVER_NAME ; TODO: move this server URL into window struct |
socketnum dd ? ; TODO: same for socket |
irc_server_name rb MAX_SERVER_NAME ; TODO: move this server URL into window struct |
socketnum dd ? ; TODO: same for socket |
|
user_nick rb MAX_NICK_LEN |
user_real_name rb MAX_REAL_LEN |
quit_msg rb 250 |
user_nick rb MAX_NICK_LEN |
user_real_name rb MAX_REAL_LEN |
quit_msg rb 250 |
|
windows rb MAX_WINDOWS*sizeof.window |
windows rb MAX_WINDOWS*sizeof.window |
|
IM_END: |