diff --git a/programs/network/ircc/ircc.asm b/programs/network/ircc/ircc.asm index ff6c25aa80..70fe22ee33 100644 --- a/programs/network/ircc/ircc.asm +++ b/programs/network/ircc/ircc.asm @@ -1,6 +1,6 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; -;; Copyright (C) KolibriOS team 2004-2013. All rights reserved. ;; +;; Copyright (C) KolibriOS team 2004-2014. All rights reserved. ;; ;; Distributed under terms of the GNU General Public License ;; ;; ;; ;; IRC client for KolibriOS ;; @@ -13,7 +13,7 @@ ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -version equ '0.15' +version equ '0.16' ; connection status STATUS_DISCONNECTED = 0 @@ -52,7 +52,7 @@ BOTTOM_Y = 15 MAX_WINDOWS = 20 MAX_USERS = 4096 -TEXT_BUFFERSIZE = 4096;*1024 +TEXT_BUFFERSIZE = 1024*1024 MAX_NICK_LEN = 32 MAX_REAL_LEN = 32 ; realname @@ -97,7 +97,7 @@ include "../../proc32.inc" include "../../dll.inc" include "../../network.inc" include "../../struct.inc" -include '../../develop/libraries/box_lib/trunk/box_lib.mac' +include "../../develop/libraries/box_lib/trunk/box_lib.mac" struct window data_ptr dd ? @@ -169,7 +169,7 @@ START: ; allocate window data block mov ebx, windows - call window_create + call window_create_textbox test eax, eax jz error mov [ebx + window.type], WINDOWTYPE_SERVER @@ -202,14 +202,22 @@ START: mov esi, str_welcome call print_text2 - call draw_window ; Draw window a first time, so we can figure out skin size +; Check if parameter contains an URL + 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 redraw: call draw_window -still: -; wait here for event - mcall 10 +mainloop: + mcall 10 ; wait for event dec eax jz redraw @@ -235,7 +243,7 @@ still: call draw_channel_list .no_update: - jmp still + jmp mainloop button: @@ -248,7 +256,7 @@ button: cmp ax, WINDOW_BTN_CLOSE jne @f call cmd_usr_close_window - jmp still + jmp mainloop @@: cmp ax, WINDOW_BTN_LIST @@ -270,7 +278,9 @@ button: pop eax test eax, 1 shl 25 ; Right mouse button pressed? - jz still + jz mainloop + +; TODO: check if selected nick is my nick! ; Right mouse BTN was pressed, open chat window mov ebx, [window_active] @@ -284,7 +294,7 @@ button: pop [window_active] call redraw - jmp still + jmp mainloop @@: sub ax, WINDOW_BTN_START @@ -306,7 +316,7 @@ button: mov [scroll2.position], 1 ;;; FIXME call draw_window - jmp still + jmp mainloop exit: @@ -332,14 +342,14 @@ main_window_key: ; cmp ah, 178 ; jne .no_up ; -; jmp still +; jmp mainloop ; ; ; .no_up: ; cmp ah, 177 ; jne .no_down ; -; jmp still +; jmp mainloop ; ; .no_down: cmp ah, 13 ; enter @@ -357,15 +367,19 @@ main_window_key: call draw_channel_text - jmp still + jmp mainloop no_send2: - jmp still + jmp mainloop mouse: push dword edit1 call [edit_box_mouse] +; mcall 37, 7 +; movsx eax, ax +; add [scroll2.position], eax + ; TODO: check if scrollbar is active? mov edi, [window_active] cmp [edi + window.type], WINDOWTYPE_CHANNEL @@ -386,14 +400,14 @@ mouse: jbe @f push dword scroll2 call [scrollbar_mouse] -; mov edi, [window_active] + mov edi, [window_active] mov edx, [scroll2.position] sub edx, [edi + window.text_line_print] je @f call draw_channel_text.scroll_to_pos @@: - jmp still + jmp mainloop ; DATA AREA @@ -404,32 +418,67 @@ 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 + 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_reconnect db 'Connection reset by user.',10,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_disconnected db 3, '5* Server 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_dotnewline db '.',10, 0 +str_newline db 10, 0 +str_1 db 3, '13 -', 0 +str_2 db '- ', 0 + +str_help db 10, 'following commands are available:', 10 + db 10 + db '/nick : change nickname to ', 10 + db '/real : change real name to ', 10 + db '/server
: connect to server
', 10 + db '/code : change codepage to cp866, cp1251, or utf8', 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_version db 'VERSION ' -str_programname db 'KolibriOS IRC client ', version, 0 +str_programname db 'KolibriOS IRC client v', version, 0 str_user db 'user', 0 str_nick db 'nick', 0 @@ -441,36 +490,6 @@ default_nick db 'kolibri_user', 0 default_real db 'Kolibri User', 0 default_quit db 'KolibriOS forever', 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_nickchange db 'Nickname is now ',0 -str_realchange db 'Real name is now ',0 -str_dotnewline db '.',10, 0 -str_newline db 10, 0 -str_connecting db 3,'3* Connecting to ',0 -str_help db 10,'following commands are available:',10 - db 10 - db '/nick : change nickname to ',10 - db '/real : change real name to ',10 - db '/server
: connect to server
',10 - db '/code : change codepage to cp866, cp1251, or utf8',10,0 - -str_1 db 3,'13 -',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 - irc_colors dd 0xffffff ; 0 white dd 0x000000 ; 1 black dd 0x00007f ; 2 blue (navy) @@ -490,7 +509,7 @@ irc_colors dd 0xffffff ; 0 white sockaddr1: dw AF_INET4 -.port dw 0x0b1a ; 6667 +.port dw 0x0b1a ; 6667 FIXMEEEEEE .ip dd 0 rb 10 @@ -527,8 +546,6 @@ import boxlib,\ scrollbar_draw, 'scrollbar_v_draw',\ scrollbar_mouse,'scrollbar_v_mouse' -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, btn_height, max, cur, pos, bgcol, frcol, linecol @@ -538,34 +555,34 @@ scroll2 scrollbar SCROLLBAR_WIDTH, 0, 0, TOP_Y, SCROLLBAR_WIDTH, 0, 0, 0, 0, 0, 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 -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 param rb 1024 -socketnum dd ? - servercommand rb 600 thread_info rb 1024 xsize dd ? ysize dd ? +mouse_dd dd ? colors system_colors -irc_server_name rb MAX_SERVER_NAME +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 +diff16 "windows", 0, $ + 1*sizeof.window ;+ 6 windows rb MAX_WINDOWS*sizeof.window -mouse_dd dd ? - IM_END: diff --git a/programs/network/ircc/serverparser.inc b/programs/network/ircc/serverparser.inc index c902eb324a..88f4684549 100644 --- a/programs/network/ircc/serverparser.inc +++ b/programs/network/ircc/serverparser.inc @@ -1,6 +1,6 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; -;; Copyright (C) KolibriOS team 2004-2013. All rights reserved. ;; +;; Copyright (C) KolibriOS team 2004-2014. All rights reserved. ;; ;; Distributed under terms of the GNU General Public License ;; ;; ;; ;; Written by hidnplayr@kolibrios.org ;; @@ -60,6 +60,7 @@ server_commands: dd '375 ', cmd_375 ; start of motd dd '376 ', cmd_376 ; end of motd dd '421 ', cmd_421 ; unknown command + dd '433 ', cmd_433 ; nickname already in use dd 'join', cmd_join dd 'kick', cmd_kick dd 'mode', cmd_mode @@ -83,6 +84,8 @@ compare_to_nick: lodsb cmp al, ' ' jbe .done + test al, al + jz .done cmp al, 'a' jb .ok cmp al, 'z' @@ -116,24 +119,23 @@ compare_to_nick: align 4 -skip_nick: +skip_parameter: -; First: skip the NICK (maybe we should verify it?) - .nick: +; First: skip the parameter + .part1: lodsb cmp al, ' ' - je .skip + je .part2 cmp al, ':' - je .skip - jmp .nick + jne .part1 -; skip all leading spaces and semicolons - .skip: +; Now, skip all trailing spaces and semicolons + .part2: lodsb cmp al, ' ' - je .skip + je .part2 cmp al, ':' - je .skip + je .part2 dec esi ret @@ -147,6 +149,7 @@ cmd_421: cmd_372: cmd_375: cmd_376: +cmd_433: add esi, 4 jmp cmd_notice.loop @@ -228,11 +231,27 @@ cmd_privmsg: cmp eax, 'msg ' jne .fail add esi, 8 ; skip 'PRIVMSG ' - call window_open ; esi now points to end of destination name + + mov edi, esi + call compare_to_nick + jne .channel + +; private chat message + push esi + mov esi, servercommand+1 + call window_open + pop esi + call skip_parameter ; our own nickname cmp byte[esi], 1 ; Client to Client protocol? je cmd_ctcp + jmp .print + + .channel: + call window_open + + .print: ; nope, just plain old privmsg, print it using ' message' format if TIMESTAMP call print_timestamp @@ -266,8 +285,6 @@ cmd_privmsg: cmd_ctcp: - cmp byte [esi+4], ' ' - jne .fail inc esi mov eax, dword[esi] or eax, 0x20202020 @@ -280,8 +297,8 @@ cmd_ctcp: je .ping cmp eax, 'acti' je .action -; cmp eax, 'dcc ' ; TODO -; je cmd_dcc + cmp eax, 'dcc ' ; TODO + je cmd_dcc ; Unknown CTCP command: TODO: just print to window?? @@ -413,6 +430,9 @@ cmd_dcc: .send: + call window_open + mov [ebx + window.type], WINDOWTYPE_DCC + ret @@ -472,7 +492,7 @@ cmd_part: ; Is it me who parted? mov edi, servercommand+1 call compare_to_nick - jne .dont_close + jne .not_me ; yes, close the window (if its open) call window_find @@ -486,11 +506,14 @@ cmd_part: ; somebody else parted, just print message - .dont_close: + .not_me: push esi - call skip_nick call window_open + if TIMESTAMP + call print_timestamp + end if + mov esi, part_header call print_text2 @@ -518,44 +541,26 @@ cmd_part: cmd_join: - cmp byte [esi+4], ' ' + cmp byte[esi+4], ' ' jne .fail add esi, 5 ; skip 'JOIN ' ; compare nick: did we join a channel? mov edi, servercommand+1 call compare_to_nick - jne .no_new_window + jne .not_me -; create channel window - search for empty slot - mov ebx, windows - mov ecx, MAX_WINDOWS - .loop: - cmp [ebx + window.data_ptr], 0 - je .free_found - add ebx, sizeof.window - dec ecx - jnz .loop -; Error: no more available windows!! ;;;;; TODO - - ret - - .free_found: - call window_create + push esi + call window_open test eax, eax jz .fail mov [ebx + window.type], WINDOWTYPE_CHANNEL - - call window_set_name - mov [window_active], ebx - mov [window_print], ebx if TIMESTAMP call print_timestamp end if - push esi mov esi, join_header call print_text2 @@ -573,7 +578,7 @@ cmd_join: ret - .no_new_window: + .not_me: push esi call window_open @@ -601,8 +606,10 @@ cmd_join: mov esi, servercommand+1 call user_add - .fail: + ret + .fail: + add esp, 4 ret @@ -711,7 +718,7 @@ cmd_kick: .not_me: ; find the channel user has been kicked from push esi - call skip_nick + call skip_parameter call window_open if TIMESTAMP @@ -802,18 +809,7 @@ cmd_mode: call window_find test ebx, ebx jz .fail - -; skip channel name - @@: - lodsb - test al, al - jz .fail - cmp al, 10 - je .fail - cmp al, 13 - je .fail - cmp al, ' ' - jne @r + mov [window_print], ebx push esi if TIMESTAMP @@ -846,7 +842,7 @@ cmd_mode: cmd_353: ; channel usernames reply add esi, 4 ; skip '353 ' - call skip_nick + call skip_parameter inc esi ; channel type '*', '=' or '@' inc esi ; ' ' call window_open @@ -885,7 +881,7 @@ cmd_353: ; channel usernames reply cmd_366: ; channel usernames end add esi, 4 ; skip '366 ' - call skip_nick + call skip_parameter call window_open mov ebx, [window_print] @@ -899,7 +895,7 @@ cmd_366: ; channel usernames end cmd_topic: add esi, 4 ; skip '332 ' - call skip_nick + call skip_parameter call window_open if TIMESTAMP @@ -916,7 +912,7 @@ cmd_topic: pop esi call print_text2 - mov esi, str_newline + mov esi, str_topic_end call print_text2 ret @@ -925,19 +921,9 @@ cmd_topic: cmd_333: add esi, 4 ; skip '333 ' - call skip_nick ;;;; + call skip_parameter ;;;; call window_open -; mov ecx, 2 ; number of spaces to find ;;; CHECKME -; .loop: -; lodsb -; test al, al -; je .fail -; cmp al, ' ' -; jne .loop -; dec ecx -; jnz .loop ; find some more spaces - if TIMESTAMP call print_timestamp end if @@ -967,7 +953,7 @@ cmd_322: ; LIST add esi, 4 mov [window_print], windows ; FIXME - call skip_nick + call skip_parameter mov eax, esi mov dl, 13 call print_text diff --git a/programs/network/ircc/socket.inc b/programs/network/ircc/socket.inc index 4429751a8a..4d69e16016 100644 --- a/programs/network/ircc/socket.inc +++ b/programs/network/ircc/socket.inc @@ -1,6 +1,6 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; -;; Copyright (C) KolibriOS team 2004-2013. All rights reserved. ;; +;; Copyright (C) KolibriOS team 2004-2014. All rights reserved. ;; ;; Distributed under terms of the GNU General Public License ;; ;; ;; ;; Written by hidnplayr@kolibrios.org ;; @@ -100,7 +100,6 @@ socket_connect: ret .reconnect: - if TIMESTAMP call print_timestamp end if @@ -213,10 +212,10 @@ socket_receive: .nextpacket: mcall recv, [socketnum], packetbuf, 1024, MSG_DONTWAIT ; read a packet - inc eax ; check if we got one - jz .done + inc eax ; check if we got any data + jz .done ; TODO: handle errors! dec eax - jz .done ; TODO: check for errors! + jz .disconnected ; ok we have data, now feed it to the recoder @@ -226,7 +225,7 @@ socket_receive: mov edi, servercommand .byteloop: call get_next_byte ; reads byte from [esi] to al - jnc .nextpacket ; if CF is set, we need more data + jnc .nextpacket ; if CF is set, we need more data (TODO: dont throw away old data!!!) cmp al, 10 je .got_command cmp al, 13 @@ -245,5 +244,15 @@ socket_receive: .done: popa + ret + + .disconnected: + mov esi, str_disconnected + call print_text2 + + mov [status], STATUS_DISCONNECTED + mcall close, [socketnum] + + popa ret \ No newline at end of file diff --git a/programs/network/ircc/userparser.inc b/programs/network/ircc/userparser.inc index 2ce08ebe10..406ae0f151 100644 --- a/programs/network/ircc/userparser.inc +++ b/programs/network/ircc/userparser.inc @@ -1,6 +1,6 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; -;; Copyright (C) KolibriOS team 2004-2013. All rights reserved. ;; +;; Copyright (C) KolibriOS team 2004-2014. All rights reserved. ;; ;; Distributed under terms of the GNU General Public License ;; ;; ;; ;; Written by hidnplayr@kolibrios.org ;; @@ -18,7 +18,7 @@ user_parser: mov eax, [edit1.size] test eax, eax - jz sdts_ret ; ignore empty commands + jz .ret ; ignore empty commands mov word [usercommand + eax], 0x0a0d ; terminate the line cmp byte[usercommand], '/' ; is it a server command ? @@ -26,7 +26,7 @@ user_parser: ; Ignore data commands when not connected. cmp [status], STATUS_CONNECTED - jne sdts_ret + jne .notconnected ; Ok, we said something, print it to our textbox ; TODO: dont send if it's a server window? @@ -86,8 +86,13 @@ user_parser: lea esi, [edi - packetbuf] mcall send, [socketnum], packetbuf, , 0 + .ret: -sdts_ret: + ret + + .notconnected: + mov esi, str_notconnected + call print_text2 ret @@ -100,7 +105,9 @@ user_commands: dd 'help', cmd_usr_help dd 'code', cmd_usr_code -; All following commands require a connection to the server. TODO: verify connection + .number2 = ($ - user_commands) / 8 + +; All following commands require a connection to the server. dd 'quer', cmd_usr_quer dd 'quit', cmd_usr_quit dd 'part', cmd_usr_part @@ -113,23 +120,34 @@ user_commands: server_command: - mov eax, dword[usercommand+1] - or eax, 0x20202020 + mov eax, dword[usercommand+1] ; skip '/' + or eax, 0x20202020 ; convert to lowercase mov edi, user_commands mov ecx, user_commands.number + cmp [status], STATUS_CONNECTED + jne .loop + mov ecx, user_commands.number2 .loop: scasd je .got_cmd add edi, 4 dec ecx jnz .loop - jmp cmd_usr_send ; If none of the previous commands, just send to server + + cmp [status], STATUS_CONNECTED + jne .notconnected + + jmp cmd_usr_send ; If none of the previous commands, just send to server .got_cmd: jmp dword[edi] + .notconnected: + mov esi, str_notconnected + call print_text2 + ret @@ -341,15 +359,23 @@ cmd_usr_server: cmp eax, 'er ' jne cmd_usr_send - mov ecx, [edit1.size] ; ok now set the address + mov ecx, [edit1.size] ; ok now set the address sub ecx, 8 mov esi, usercommand+8 + .now: push esi mov edi, irc_server_name - rep movsb + .loop: ; copy until zero byte, or ecx reaches zero. + lodsb + stosb + test al, al + jz .done + dec ecx + jnz .loop xor al, al stosb + .done: pop esi ; set it also in window name @@ -364,31 +390,8 @@ cmd_usr_server: cmd_usr_quer: - mov ecx, MAX_WINDOWS - mov ebx, windows - .loop: - cmp [ebx + window.data_ptr], 0 - je .found - add ebx, sizeof.window - dec ecx - jnz .loop - -; error: no available channels ! FIXME - - ret - - - .found: - call window_create - test eax, eax - jz .error - mov [ebx + window.type], WINDOWTYPE_CHAT - mov esi, usercommand+7 - call window_set_name - - - .error: + call window_open ret @@ -470,6 +473,7 @@ cmd_usr_part_channel: ret + cmd_usr_ctcp: cmp byte[usercommand+5], ' ' @@ -527,6 +531,7 @@ cmd_usr_ctcp: ret + ; The user typed some undefined command, just recode it and send to the server cmd_usr_send: diff --git a/programs/network/ircc/window.inc b/programs/network/ircc/window.inc index b7f10fb102..0049ff14e2 100644 --- a/programs/network/ircc/window.inc +++ b/programs/network/ircc/window.inc @@ -1,6 +1,6 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; -;; Copyright (C) KolibriOS team 2004-2013. All rights reserved. ;; +;; Copyright (C) KolibriOS team 2004-2014. All rights reserved. ;; ;; Distributed under terms of the GNU General Public License ;; ;; ;; ;; Written by hidnplayr@kolibrios.org ;; @@ -10,10 +10,14 @@ ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +; window_create_textbox +; Initialises the data structure for our multiline textbox +; +; in: window ptr in ebx +; out: eax = 0 on error +; ecx, edi = destroyed -; in: window ptr in ebx -; out: eax = 0 on error -window_create: +window_create_textbox: push ebx ; allocate the window data block @@ -47,24 +51,22 @@ window_create: ret -window_set_name: ; esi = ptr to name, ebx = window ptr +; window_set_name +; Fills in the window name in window structure +; +; IN: esi = ptr to name +; ebx = window ptr +; OUT: esi = ptr to next parameter +; ebx = window ptr +; eax, ecx, edx, edi = destroyed - pusha +window_set_name: -; Skip heading spaces - .spaceloop: - cmp byte[esi], ' ' - jne .done - inc esi - jmp .spaceloop - .done: - -; Now copy it lea edi, [ebx + window.name] mov ecx, MAX_WINDOWNAME_LEN .loop: lodsb - cmp al, 0x21 + cmp al, 0x21 ; name ends with 0, space or ! jbe .addzero stosb dec ecx @@ -73,9 +75,9 @@ window_set_name: ; esi = ptr to name, ebx = window ptr xor al, al stosb - call draw_windowtabs ; redraw it - - popa + push esi ebx + call draw_windowtabs + pop ebx esi ret @@ -133,11 +135,16 @@ window_close: ; closes the 'print' window ret +; window_find: +; search for a window with given name in the window list +; +; IN: esi = ptr to start of window name +; OUT: ebx = window ptr, or 0 if none found +; esi = ptr to end of window name, if window was found + +window_find: -window_find: ; esi = window name -; search for window in list mov ebx, windows - mov [window_print], ebx ; set first window (server window) as default output window mov eax, MAX_WINDOWS .scanloop: push esi @@ -146,16 +153,12 @@ window_find: ; esi = window name lea edi, [ebx + window.name] mov ecx, MAX_WINDOWNAME_LEN repe cmpsb - cmp byte[edi-1], 0 + cmp byte[edi-1], 0 ; last equall character was null? yes, the strings match! + je .got_it + cmp byte[edi], 0 ; we're at the end of string1.. ? jne .try_next - cmp byte[esi-1], 0 - je .got_it - cmp byte[esi-1], 10 - je .got_it - cmp byte[esi-1], 13 - je .got_it - cmp byte[esi-1], ' ' - je .got_it + cmp byte[esi], 0x21 ; and the end of string2? yes! + jbe .got_it .try_next: pop esi add ebx, sizeof.window @@ -166,78 +169,62 @@ window_find: ; esi = window name ret .got_it: - pop esi ;;; TODO: dont reset ESI ? - mov [window_print], ebx + add esp, 4 ret - - - +; window_open: ; open a window with a given name, if it does not exist, create it ; This procedure only affects window_print ptr, not window_active! ; -; esi = ptr to ASCIIZ windowname +; IN: esi = ptr to ASCIIZ windowname +; OUT: esi = ptr to next parameter + window_open: - push esi - - mov edi, esi - call compare_to_nick - jne .nochat - - mov esi, servercommand+1 - .nochat: +; Skip heading spaces + lodsb + cmp al, ' ' + je window_open + cmp al, ':' + je window_open + dec esi call window_find test ebx, ebx - jne .got_it + jnz .got_it ; create channel window - search for empty slot .create_it: mov ebx, windows mov ecx, MAX_WINDOWS .scanloop2: - cmp [ebx + window.data_ptr], 0 + cmp [ebx + window.type], WINDOWTYPE_NONE je .free_found add ebx, sizeof.window dec ecx jnz .scanloop2 -; Error: no more available windows! - jmp .got_it ; TODO: return error + jmp .error .free_found: - call window_create + call window_create_textbox test eax, eax - jz .got_it ; TODO: return error + jz .error mov [ebx + window.type], WINDOWTYPE_CHAT ; FIXME: let caller handle this ? call window_set_name - mov [window_print], ebx - - call draw_windowtabs .got_it: - pop esi - .skip1: -; skip text lodsb - test al, al - jz .quit cmp al, ' ' - jne .skip1 - dec esi -; now skip trailing spaces and semicolons - .skip2: - lodsb - test al, al - jz .quit - cmp al, ' ' - je .skip2 + je .got_it cmp al, ':' - je .skip2 + je .got_it dec esi - .quit: + mov [window_print], ebx + ret + + .error: ; TODO: return error? ret \ No newline at end of file