forked from KolibriOS/kolibrios
Stub for new IRC client.
git-svn-id: svn://kolibrios.org@3191 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
hidnplayr
parent
2c925a77a9
commit
5959abc989
317
kernel/branches/net/applications/ircc/encodings.inc
Normal file
317
kernel/branches/net/applications/ircc/encodings.inc
Normal file
@ -0,0 +1,317 @@
|
|||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
;; ;;
|
||||||
|
;; Copyright (C) KolibriOS team 2004-2013. All rights reserved. ;;
|
||||||
|
;; Distributed under terms of the GNU General Public License ;;
|
||||||
|
;; ;;
|
||||||
|
;; ;;
|
||||||
|
;; GNU GENERAL PUBLIC LICENSE ;;
|
||||||
|
;; Version 2, June 1991 ;;
|
||||||
|
;; ;;
|
||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
|
|
||||||
|
get_next_byte:
|
||||||
|
; Load next byte from the packet, translating to cp866 if necessary
|
||||||
|
; At input esi = pointer to data, edx = limit of data
|
||||||
|
; Output is either (translated) byte in al with CF set or CF cleared.
|
||||||
|
mov eax, [encoding]
|
||||||
|
jmp [get_byte_table+eax*4]
|
||||||
|
|
||||||
|
get_byte_cp866:
|
||||||
|
cmp esi, edx
|
||||||
|
jae .nothing
|
||||||
|
lodsb
|
||||||
|
.nothing:
|
||||||
|
ret
|
||||||
|
|
||||||
|
get_byte_cp1251:
|
||||||
|
cmp esi, edx
|
||||||
|
jae .nothing
|
||||||
|
lodsb
|
||||||
|
cmp al, 0x80
|
||||||
|
jb @f
|
||||||
|
and eax, 0x7F
|
||||||
|
mov al, [cp1251_table+eax]
|
||||||
|
@@:
|
||||||
|
stc
|
||||||
|
.nothing:
|
||||||
|
ret
|
||||||
|
|
||||||
|
get_byte_utf8:
|
||||||
|
; UTF8 decoding is slightly complicated.
|
||||||
|
; One character can occupy one or more bytes.
|
||||||
|
; The boundary in packets theoretically can be anywhere in data,
|
||||||
|
; so this procedure keeps internal state between calls and handles
|
||||||
|
; one byte at a time, looping until character is read or packet is over.
|
||||||
|
; Globally, there are two distinct tasks: decode byte sequence to unicode char
|
||||||
|
; and convert this unicode char to our base encoding (that is cp866).
|
||||||
|
; 1. Check that there are data.
|
||||||
|
cmp esi, edx
|
||||||
|
jae .nothing
|
||||||
|
; 2. Load byte.
|
||||||
|
lodsb
|
||||||
|
movzx ecx, al
|
||||||
|
; 3. Bytes in an UTF8 sequence can be of any of three types.
|
||||||
|
; If most significant bit is cleared, sequence is one byte and usual ASCII char.
|
||||||
|
; First byte of a sequence must be 11xxxxxx, other bytes are 10yyyyyy.
|
||||||
|
and al, 0xC0
|
||||||
|
jns .single_byte
|
||||||
|
jp .first_byte
|
||||||
|
; 4. This byte is not first in UTF8 sequence.
|
||||||
|
; 4a. Check that the sequence was started. If no, it is invalid byte
|
||||||
|
; and we simply ignore it.
|
||||||
|
cmp [utf8_bytes_rest], 0
|
||||||
|
jz get_byte_utf8
|
||||||
|
; 4b. Otherwise, it is really next byte and it gives some more bits of char.
|
||||||
|
mov eax, [utf8_char]
|
||||||
|
shl eax, 6
|
||||||
|
lea eax, [eax+ecx-0x80]
|
||||||
|
; 4c. Decrement number of bytes rest in the sequence.
|
||||||
|
; If it goes to zero, character is read, so return it.
|
||||||
|
dec [utf8_bytes_rest]
|
||||||
|
jz .got_char
|
||||||
|
mov [utf8_char], eax
|
||||||
|
jmp get_byte_utf8
|
||||||
|
; 5. If the byte is first in UTF8 sequence, calculate the number of leading 1s
|
||||||
|
; - it equals total number of bytes in the sequence; some other bits rest for
|
||||||
|
; leading bits in the character.
|
||||||
|
.first_byte:
|
||||||
|
mov eax, -1
|
||||||
|
@@:
|
||||||
|
inc eax
|
||||||
|
add cl, cl
|
||||||
|
js @b
|
||||||
|
mov [utf8_bytes_rest], eax
|
||||||
|
xchg eax, ecx
|
||||||
|
inc ecx
|
||||||
|
shr al, cl
|
||||||
|
mov [utf8_char], eax
|
||||||
|
jmp get_byte_utf8
|
||||||
|
; 6. If the byte is ASCII char, it is the character.
|
||||||
|
.single_byte:
|
||||||
|
xchg eax, ecx
|
||||||
|
.got_char:
|
||||||
|
; We got the character, now abandon a possible sequence in progress.
|
||||||
|
and [utf8_bytes_rest], 0
|
||||||
|
; Now second task. The unicode character is in eax, and now we shall convert it
|
||||||
|
; to cp866.
|
||||||
|
cmp eax, 0x80
|
||||||
|
jb .done
|
||||||
|
; 0x410-0x43F -> 0x80-0xAF, 0x440-0x44F -> 0xE0-0xEF, 0x401 -> 0xF0, 0x451 -> 0xF1
|
||||||
|
cmp eax, 0x401
|
||||||
|
jz .YO
|
||||||
|
cmp eax, 0x451
|
||||||
|
jz .yo
|
||||||
|
cmp eax, 0x410
|
||||||
|
jb .unrecognized
|
||||||
|
cmp eax, 0x440
|
||||||
|
jb .part1
|
||||||
|
cmp eax, 0x450
|
||||||
|
jae .unrecognized
|
||||||
|
sub al, (0x40-0xE0) and 0xFF
|
||||||
|
ret
|
||||||
|
.part1:
|
||||||
|
sub al, 0x10-0x80
|
||||||
|
.nothing:
|
||||||
|
.done:
|
||||||
|
ret
|
||||||
|
.unrecognized:
|
||||||
|
mov al, '?'
|
||||||
|
stc
|
||||||
|
ret
|
||||||
|
.YO:
|
||||||
|
mov al, 0xF0
|
||||||
|
stc
|
||||||
|
ret
|
||||||
|
.yo:
|
||||||
|
mov al, 0xF1
|
||||||
|
stc
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
print_character:
|
||||||
|
|
||||||
|
pusha
|
||||||
|
|
||||||
|
cmp bl, 13 ; line beginning
|
||||||
|
jne nobol
|
||||||
|
|
||||||
|
mov ecx, [pos]
|
||||||
|
inc ecx
|
||||||
|
boll1:
|
||||||
|
dec ecx
|
||||||
|
mov eax, ecx
|
||||||
|
xor edx, edx
|
||||||
|
mov ebx, [textbox_width]
|
||||||
|
div ebx
|
||||||
|
test edx, edx
|
||||||
|
jnz boll1
|
||||||
|
mov [pos], ecx
|
||||||
|
jmp newdata
|
||||||
|
nobol:
|
||||||
|
|
||||||
|
cmp bl, 10 ; line down
|
||||||
|
jne nolf
|
||||||
|
|
||||||
|
addx1:
|
||||||
|
inc [pos]
|
||||||
|
mov eax, [pos]
|
||||||
|
xor edx, edx
|
||||||
|
mov ecx, [textbox_width]
|
||||||
|
div ecx
|
||||||
|
test edx, edx
|
||||||
|
jnz addx1
|
||||||
|
mov eax, [pos]
|
||||||
|
jmp cm1
|
||||||
|
nolf:
|
||||||
|
no_lf_ret:
|
||||||
|
|
||||||
|
|
||||||
|
cmp bl, 15 ; character
|
||||||
|
jbe newdata
|
||||||
|
|
||||||
|
mov eax, [irc_data]
|
||||||
|
shl eax, 8
|
||||||
|
mov al, bl
|
||||||
|
mov [irc_data], eax
|
||||||
|
|
||||||
|
mov eax, [pos]
|
||||||
|
;---- draw data
|
||||||
|
pusha
|
||||||
|
|
||||||
|
and ebx, 0xff
|
||||||
|
add eax, [text_start]
|
||||||
|
mov [eax], bl
|
||||||
|
|
||||||
|
popa
|
||||||
|
;---- draw data
|
||||||
|
|
||||||
|
mov eax, [pos]
|
||||||
|
inc eax
|
||||||
|
cm1:
|
||||||
|
mov ebx, [scroll+4]
|
||||||
|
imul ebx, [textbox_width]
|
||||||
|
cmp eax, ebx
|
||||||
|
jb noeaxz
|
||||||
|
|
||||||
|
mov esi, [text_start]
|
||||||
|
add esi, [textbox_width]
|
||||||
|
|
||||||
|
mov edi, [text_start]
|
||||||
|
mov ecx, ebx
|
||||||
|
rep movsb
|
||||||
|
|
||||||
|
mov esi, [text_start]
|
||||||
|
mov ecx, [textbox_width]
|
||||||
|
imul ecx, 61
|
||||||
|
add esi, ecx
|
||||||
|
|
||||||
|
mov edi, [text_start]
|
||||||
|
mov ecx, [textbox_width]
|
||||||
|
imul ecx, 60
|
||||||
|
add edi, ecx
|
||||||
|
mov ecx, ebx
|
||||||
|
rep movsb
|
||||||
|
|
||||||
|
mov eax, ebx
|
||||||
|
sub eax, [textbox_width]
|
||||||
|
noeaxz:
|
||||||
|
mov [pos], eax
|
||||||
|
|
||||||
|
newdata:
|
||||||
|
mov eax, [window_print]
|
||||||
|
or [eax + window.flags], FLAG_UPDATED
|
||||||
|
|
||||||
|
popa
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
recode_to_cp866:
|
||||||
|
rep movsb
|
||||||
|
ret
|
||||||
|
|
||||||
|
recode_to_cp1251:
|
||||||
|
xor eax, eax
|
||||||
|
jecxz .nothing
|
||||||
|
.loop:
|
||||||
|
lodsb
|
||||||
|
cmp al,0x80
|
||||||
|
jb @f
|
||||||
|
mov al, [cp866_table-0x80+eax]
|
||||||
|
@@: stosb
|
||||||
|
loop .loop
|
||||||
|
.nothing:
|
||||||
|
ret
|
||||||
|
|
||||||
|
recode_to_utf8:
|
||||||
|
jecxz .nothing
|
||||||
|
.loop:
|
||||||
|
lodsb
|
||||||
|
cmp al, 0x80
|
||||||
|
jb .single_byte
|
||||||
|
and eax, 0x7F
|
||||||
|
mov ax, [utf8_table+eax*2]
|
||||||
|
stosw
|
||||||
|
loop .loop
|
||||||
|
ret
|
||||||
|
.single_byte:
|
||||||
|
stosb
|
||||||
|
loop .loop
|
||||||
|
.nothing:
|
||||||
|
ret
|
||||||
|
|
||||||
|
recode:
|
||||||
|
mov eax, [encoding]
|
||||||
|
jmp [recode_proc+eax*4]
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
encoding dd UTF8
|
||||||
|
recode_proc dd recode_to_cp866, recode_to_cp1251, recode_to_utf8
|
||||||
|
get_byte_table dd get_byte_cp866, get_byte_cp1251, get_byte_utf8
|
||||||
|
|
||||||
|
|
||||||
|
cp1251_table:
|
||||||
|
db '?','?','?','?','?','?','?','?' , '?','?','?','?','?','?','?','?' ; 8
|
||||||
|
db '?','?','?','?','?',$F9,'?','?' , '?','?','?','?','?','?','?','?' ; 9
|
||||||
|
db '?',$F6,$F7,'?',$FD,'?','?','?' , $F0,'?',$F2,'?','?','?','?',$F4 ; A
|
||||||
|
db $F8,'?','?','?','?','?','?',$FA , $F1,$FC,$F3,'?','?','?','?',$F5 ; B
|
||||||
|
db $80,$81,$82,$83,$84,$85,$86,$87 , $88,$89,$8A,$8B,$8C,$8D,$8E,$8F ; C
|
||||||
|
db $90,$91,$92,$93,$94,$95,$96,$97 , $98,$99,$9A,$9B,$9C,$9D,$9E,$9F ; D
|
||||||
|
db $A0,$A1,$A2,$A3,$A4,$A5,$A6,$A7 , $A8,$A9,$AA,$AB,$AC,$AD,$AE,$AF ; E
|
||||||
|
db $E0,$E1,$E2,$E3,$E4,$E5,$E6,$E7 , $E8,$E9,$EA,$EB,$EC,$ED,$EE,$EF ; F
|
||||||
|
|
||||||
|
; 0 1 2 3 4 5 6 7 8 9 A B C D E F
|
||||||
|
|
||||||
|
utf8_table:
|
||||||
|
times 80h dw 0x98C3 ; default placeholder
|
||||||
|
|
||||||
|
; 0x80-0xAF -> 0x90D0-0xBFD0
|
||||||
|
repeat 0x30
|
||||||
|
store byte 0xD0 at utf8_table+2*(%-1)
|
||||||
|
store byte 0x90+%-1 at utf8_table+2*%-1
|
||||||
|
end repeat
|
||||||
|
|
||||||
|
; 0xE0-0xEF -> 0x80D1-0x8FD1
|
||||||
|
repeat 0x10
|
||||||
|
store byte 0xD1 at utf8_table+2*(0xE0-0x80+%-1)
|
||||||
|
store byte 0x80+%-1 at utf8_table+2*(0xE0-0x80+%)-1
|
||||||
|
end repeat
|
||||||
|
|
||||||
|
; 0xF0 -> 0x81D0, 0xF1 -> 0x91D1
|
||||||
|
store dword 0x91D181D0 at utf8_table+2*(0xF0-0x80)
|
||||||
|
|
||||||
|
cp866_table:
|
||||||
|
db $C0,$C1,$C2,$C3,$C4,$C5,$C6,$C7 , $C8,$C9,$CA,$CB,$CC,$CD,$CE,$CF ; 8
|
||||||
|
db $D0,$D1,$D2,$D3,$D4,$D5,$D6,$D7 , $D8,$D9,$DA,$DB,$DC,$DD,$DE,$DF ; 9
|
||||||
|
db $E0,$E1,$E2,$E3,$E4,$E5,$E6,$E7 , $E8,$E9,$EA,$EB,$EC,$ED,$EE,$EF ; A
|
||||||
|
db '?','?','?','?','?','?','?','?' , '?','?','?','?','?','?','?','?' ; B
|
||||||
|
db '?','?','?','?','?','?','?','?' , '?','?','?','?','?','?','?','?' ; C
|
||||||
|
db '?','?','?','?','?','?','?','?' , '?','?','?','?','?','?','?','?' ; D
|
||||||
|
db $F0,$F1,$F2,$F3,$F4,$F5,$F6,$F7 , $F8,$F9,$FA,$FB,$FC,$FD,$FE,$FF ; E
|
||||||
|
db $A8,$B8,$AA,$BA,$AF,$BF,$A1,$A2 , $B0,$95,$B7,'?',$B9,$A4,'?','?' ; F
|
||||||
|
|
||||||
|
; 0 1 2 3 4 5 6 7 8 9 A B C D E F
|
||||||
|
|
||||||
241
kernel/branches/net/applications/ircc/gui.inc
Normal file
241
kernel/branches/net/applications/ircc/gui.inc
Normal file
@ -0,0 +1,241 @@
|
|||||||
|
draw_window:
|
||||||
|
|
||||||
|
pusha
|
||||||
|
|
||||||
|
mcall 9, thread_info, -1 ; get current window size
|
||||||
|
mov eax, dword[thread_info+42] ; window xsize
|
||||||
|
mov ebx, dword[thread_info+46] ; ysize
|
||||||
|
mov edx, dword[thread_info+62] ; work area xsize
|
||||||
|
mov esi, dword[thread_info+66] ; ysize
|
||||||
|
sub eax, edx
|
||||||
|
sub ebx, esi
|
||||||
|
|
||||||
|
cmp edx, WIN_MIN_X
|
||||||
|
jae .x_ok
|
||||||
|
mov edx, WIN_MIN_X
|
||||||
|
.x_ok:
|
||||||
|
mov [xsize], edx
|
||||||
|
add edx, eax
|
||||||
|
|
||||||
|
cmp esi, WIN_MIN_Y
|
||||||
|
jae .y_ok
|
||||||
|
mov esi, WIN_MIN_Y
|
||||||
|
.y_ok:
|
||||||
|
mov [ysize], esi
|
||||||
|
add esi, ebx
|
||||||
|
mcall 67, -1, -1 ; set the new sizes
|
||||||
|
|
||||||
|
mcall 12, 1
|
||||||
|
xor eax, eax ; draw window
|
||||||
|
mov ebx, WIN_MIN_X
|
||||||
|
mov ecx, WIN_MIN_Y
|
||||||
|
mov edx, [colors.work]
|
||||||
|
add edx, 0x33000000
|
||||||
|
mov edi, str_programname
|
||||||
|
mcall
|
||||||
|
|
||||||
|
mov ebx, [xsize]
|
||||||
|
mov ecx, [ysize]
|
||||||
|
sub cx, 35
|
||||||
|
push cx
|
||||||
|
shl ecx, 16
|
||||||
|
pop cx
|
||||||
|
mov edx, [colors.work_graph]
|
||||||
|
mcall 38 ; draw line
|
||||||
|
|
||||||
|
mov ecx, TOP_Y SHL 16 + TOP_Y
|
||||||
|
mcall
|
||||||
|
|
||||||
|
mov edi, [window_open]
|
||||||
|
cmp [edi + window.type], WINDOWTYPE_CHANNEL
|
||||||
|
jne .not_channel
|
||||||
|
|
||||||
|
mov ebx, [xsize]
|
||||||
|
sub ebx, 100
|
||||||
|
push bx
|
||||||
|
shl ebx, 16
|
||||||
|
pop bx
|
||||||
|
mov ecx, [ysize]
|
||||||
|
add ecx, TOP_Y SHL 16 -(15+20)
|
||||||
|
mcall
|
||||||
|
|
||||||
|
call print_channel_list
|
||||||
|
|
||||||
|
.not_channel:
|
||||||
|
|
||||||
|
mov edx, [edi + window.data_ptr]
|
||||||
|
add edx, window_data.text
|
||||||
|
call draw_channel_text
|
||||||
|
|
||||||
|
; editbox
|
||||||
|
|
||||||
|
mov eax, [ysize]
|
||||||
|
sub eax, 30 ;;;;;;
|
||||||
|
mov [edit1.top], eax
|
||||||
|
|
||||||
|
mov eax, [xsize]
|
||||||
|
sub eax, 10 ;;;;;;
|
||||||
|
mov [edit1.width], eax
|
||||||
|
|
||||||
|
push dword edit1
|
||||||
|
call [edit_box_draw]
|
||||||
|
|
||||||
|
; scrollbar
|
||||||
|
|
||||||
|
mov eax, [ysize]
|
||||||
|
sub eax, TOP_Y + 35 ;;;;
|
||||||
|
mov [scroll1.y_size], ax
|
||||||
|
|
||||||
|
mov eax, [xsize]
|
||||||
|
sub eax, SCROLLBAR_WIDTH
|
||||||
|
mov [scroll1.x_pos], ax
|
||||||
|
|
||||||
|
mov [scroll1.all_redraw], 1
|
||||||
|
|
||||||
|
push dword scroll1
|
||||||
|
call [scrollbar_v_draw]
|
||||||
|
|
||||||
|
call draw_windownames
|
||||||
|
|
||||||
|
mcall 12, 2
|
||||||
|
popa
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
print_channel_list:
|
||||||
|
|
||||||
|
pusha
|
||||||
|
|
||||||
|
mov eax, 13 ; draw rectangle (clear list)
|
||||||
|
|
||||||
|
mov ebx, [xsize]
|
||||||
|
sub ebx, 95
|
||||||
|
shl ebx, 16
|
||||||
|
push ebx
|
||||||
|
mov bx, 90 ; x size ;;; FIXME
|
||||||
|
mov ecx, TEXT_Y shl 16 + 12*10 ; y size ;;; FIXME
|
||||||
|
mov edx, [colors.work]
|
||||||
|
mcall
|
||||||
|
|
||||||
|
mov eax, 4 ; draw text
|
||||||
|
pop ebx
|
||||||
|
mov bx, TEXT_Y
|
||||||
|
mov ecx, [colors.work_text]
|
||||||
|
or ecx, 0x80000000 ; ASCIIZ string
|
||||||
|
mov edx, [window_open]
|
||||||
|
mov edx, [edx + window.data_ptr]
|
||||||
|
add edx, window_data.names
|
||||||
|
mov edi, MAX_CHANNELS
|
||||||
|
.loop:
|
||||||
|
mcall
|
||||||
|
|
||||||
|
add edx, MAX_NICK_LEN ; next name
|
||||||
|
add ebx, 10 ; height distance between lines
|
||||||
|
dec edi
|
||||||
|
jnz .loop
|
||||||
|
|
||||||
|
popa
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
draw_channel_text:
|
||||||
|
|
||||||
|
pusha
|
||||||
|
|
||||||
|
mov eax, 4 ; draw text
|
||||||
|
mov ebx, TEXT_X shl 16 + TEXT_Y
|
||||||
|
mov ecx, 12 ; 12 lines max ?
|
||||||
|
mov esi, [textbox_width]
|
||||||
|
|
||||||
|
.dct:
|
||||||
|
pusha
|
||||||
|
mov cx, bx
|
||||||
|
shl ecx, 16
|
||||||
|
mov cx, 9 ; character height
|
||||||
|
mov eax, 13 ; draw rectangle
|
||||||
|
mov ebx, TEXT_X shl 16
|
||||||
|
mov bx, word[textbox_width]
|
||||||
|
imul bx, 6 ; character width
|
||||||
|
mov edx, [colors.work]
|
||||||
|
mcall
|
||||||
|
popa
|
||||||
|
|
||||||
|
push ecx
|
||||||
|
mov ecx, [colors.work_text]
|
||||||
|
cmp word[edx], '* '
|
||||||
|
jne .no_red
|
||||||
|
mov ecx, 0x00aa0000
|
||||||
|
jmp .draw
|
||||||
|
.no_red:
|
||||||
|
|
||||||
|
cmp word[edx], '**'
|
||||||
|
jne .no_light_blue
|
||||||
|
cmp byte[edx+2], '*'
|
||||||
|
jne .no_light_blue
|
||||||
|
mov ecx, 0x000000aa
|
||||||
|
jmp .draw
|
||||||
|
.no_light_blue:
|
||||||
|
|
||||||
|
cmp byte[edx], '#'
|
||||||
|
jne .no_blue
|
||||||
|
mov ecx, 0x0000aa00
|
||||||
|
; jmp .draw
|
||||||
|
.no_blue:
|
||||||
|
|
||||||
|
.draw:
|
||||||
|
mcall
|
||||||
|
add edx, [textbox_width]
|
||||||
|
add ebx, 10 ; height distance between lines
|
||||||
|
|
||||||
|
pop ecx
|
||||||
|
loop .dct
|
||||||
|
|
||||||
|
popa
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
draw_windownames:
|
||||||
|
|
||||||
|
mov eax, 8
|
||||||
|
mov ebx, 5 shl 16 + 120
|
||||||
|
mov ecx, 12 shl 16 + 12
|
||||||
|
mov edx, WINDOW_BTN_START
|
||||||
|
mov edi, windows
|
||||||
|
.more_btn:
|
||||||
|
mov esi, [colors.work_button]
|
||||||
|
cmp [window_open], edi
|
||||||
|
jne @f
|
||||||
|
not esi
|
||||||
|
and esi, 0x00ffffff
|
||||||
|
@@:
|
||||||
|
mcall
|
||||||
|
inc edx
|
||||||
|
add ebx, 125 shl 16
|
||||||
|
add edi, sizeof.window
|
||||||
|
cmp [edi + + window.data_ptr], 0
|
||||||
|
jne .more_btn
|
||||||
|
|
||||||
|
mov eax, 4
|
||||||
|
mov ebx, 10 shl 16 + 15
|
||||||
|
mov ecx, [colors.work_button_text]
|
||||||
|
or ecx, 0x80000000 ; ASCIIZ string
|
||||||
|
lea edx, [windows + window.name]
|
||||||
|
mov esi, MAX_WINDOWS
|
||||||
|
.more:
|
||||||
|
mcall
|
||||||
|
add edx, sizeof.window
|
||||||
|
cmp byte[edx], 0
|
||||||
|
je .enough
|
||||||
|
add ebx, 125 shl 16
|
||||||
|
dec esi
|
||||||
|
jnz .more
|
||||||
|
.enough:
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
449
kernel/branches/net/applications/ircc/ircc.asm
Normal file
449
kernel/branches/net/applications/ircc/ircc.asm
Normal file
@ -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:
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
8
kernel/branches/net/applications/ircc/ircc.ini
Normal file
8
kernel/branches/net/applications/ircc/ircc.ini
Normal file
@ -0,0 +1,8 @@
|
|||||||
|
[user]
|
||||||
|
nick = kolibri_user
|
||||||
|
realname = tetten
|
||||||
|
|
||||||
|
[colors]
|
||||||
|
action1 = 0x000000aa
|
||||||
|
action2 = 0x0000aa00
|
||||||
|
action3 = 0x00aa0000
|
||||||
882
kernel/branches/net/applications/ircc/serverparser.inc
Normal file
882
kernel/branches/net/applications/ircc/serverparser.inc
Normal file
@ -0,0 +1,882 @@
|
|||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
;; ;;
|
||||||
|
;; Copyright (C) KolibriOS team 2004-2013. All rights reserved. ;;
|
||||||
|
;; Distributed under terms of the GNU General Public License ;;
|
||||||
|
;; ;;
|
||||||
|
;; ;;
|
||||||
|
;; GNU GENERAL PUBLIC LICENSE ;;
|
||||||
|
;; Version 2, June 1991 ;;
|
||||||
|
;; ;;
|
||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
|
|
||||||
|
server_parser:
|
||||||
|
|
||||||
|
mov esi, servercommand
|
||||||
|
|
||||||
|
cmp byte [esi], ':'
|
||||||
|
jne .parse
|
||||||
|
|
||||||
|
.spaceloop:
|
||||||
|
lodsb
|
||||||
|
test al, al
|
||||||
|
jz .fail
|
||||||
|
cmp al, ' '
|
||||||
|
jne .spaceloop
|
||||||
|
|
||||||
|
.parse:
|
||||||
|
mov eax, [esi]
|
||||||
|
or eax, 0x20202020
|
||||||
|
mov edi, server_commands
|
||||||
|
mov ecx, server_commands.number
|
||||||
|
|
||||||
|
.loop:
|
||||||
|
scasd
|
||||||
|
je .got_cmd
|
||||||
|
add edi, 4
|
||||||
|
dec ecx
|
||||||
|
jnz .loop
|
||||||
|
|
||||||
|
.fail:
|
||||||
|
ret
|
||||||
|
|
||||||
|
.got_cmd:
|
||||||
|
jmp dword[edi+4]
|
||||||
|
|
||||||
|
|
||||||
|
server_commands:
|
||||||
|
|
||||||
|
dd '328 ', cmd_328
|
||||||
|
dd '332 ', cmd_topic
|
||||||
|
dd '333 ', cmd_333 ; nickname and time of topic
|
||||||
|
dd '353 ', cmd_353 ; name reply
|
||||||
|
dd '366 ', cmd_366 ; end of names list
|
||||||
|
dd '372 ', cmd_372 ; motd
|
||||||
|
dd '375 ', cmd_375 ; start of motd
|
||||||
|
dd '376 ', cmd_376 ; end of motd
|
||||||
|
dd '421 ', cmd_421 ; unknown command
|
||||||
|
dd 'join', cmd_join
|
||||||
|
dd 'kick', cmd_kick
|
||||||
|
dd 'mode', cmd_mode
|
||||||
|
dd 'nick', cmd_nick
|
||||||
|
dd 'part', cmd_part
|
||||||
|
dd 'ping', cmd_ping
|
||||||
|
dd 'priv', cmd_privmsg
|
||||||
|
dd 'quit', cmd_quit
|
||||||
|
dd 'noti', cmd_notice
|
||||||
|
|
||||||
|
.number = ($ - server_commands) / 8
|
||||||
|
|
||||||
|
compare_to_nick:
|
||||||
|
|
||||||
|
push esi
|
||||||
|
mov ecx, MAX_NICK_LEN
|
||||||
|
mov esi, user_nick
|
||||||
|
.loop:
|
||||||
|
lodsb
|
||||||
|
cmp al, ' '
|
||||||
|
jbe .done
|
||||||
|
cmp al, 'a'
|
||||||
|
jb .ok
|
||||||
|
cmp al, 'z'
|
||||||
|
ja .ok
|
||||||
|
sub al, 0x20
|
||||||
|
.ok:
|
||||||
|
|
||||||
|
mov bl, byte[edi]
|
||||||
|
cmp bl, 'a'
|
||||||
|
jb .ok2
|
||||||
|
cmp bl, 'z'
|
||||||
|
ja .ok2
|
||||||
|
sub bl, 0x20
|
||||||
|
.ok2:
|
||||||
|
cmp bl, al
|
||||||
|
jne .not_equal
|
||||||
|
inc edi
|
||||||
|
dec ecx
|
||||||
|
jnz .loop
|
||||||
|
|
||||||
|
.done:
|
||||||
|
xor eax, eax
|
||||||
|
pop esi
|
||||||
|
ret
|
||||||
|
|
||||||
|
.not_equal:
|
||||||
|
or eax, -1
|
||||||
|
pop esi
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
find_window:
|
||||||
|
|
||||||
|
; mov [window_print],
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
cmd_328:
|
||||||
|
cmd_421:
|
||||||
|
cmd_372:
|
||||||
|
cmd_375:
|
||||||
|
cmd_376:
|
||||||
|
add esi, 4
|
||||||
|
jmp cmd_notice.loop
|
||||||
|
|
||||||
|
cmd_notice:
|
||||||
|
|
||||||
|
cmp byte[servercommand], ':'
|
||||||
|
jne .gogogo
|
||||||
|
|
||||||
|
mov byte [esi-1], 0
|
||||||
|
push esi
|
||||||
|
mov esi, str_1
|
||||||
|
call print_text2
|
||||||
|
mov esi, servercommand+1
|
||||||
|
call print_text2
|
||||||
|
mov esi, str_2
|
||||||
|
call print_text2
|
||||||
|
pop esi
|
||||||
|
|
||||||
|
.gogogo:
|
||||||
|
add esi, 6
|
||||||
|
|
||||||
|
.loop:
|
||||||
|
inc esi
|
||||||
|
cmp byte [esi], 0
|
||||||
|
je .fail
|
||||||
|
cmp byte [esi], 10 ; newline
|
||||||
|
je server_parser.parse
|
||||||
|
cmp byte [esi], ' '
|
||||||
|
jne .loop
|
||||||
|
|
||||||
|
.loop2:
|
||||||
|
inc esi
|
||||||
|
cmp byte [esi], 0
|
||||||
|
je .fail
|
||||||
|
cmp byte [esi], ' '
|
||||||
|
je .loop2
|
||||||
|
cmp byte [esi], ':'
|
||||||
|
je .loop2
|
||||||
|
|
||||||
|
call print_text2
|
||||||
|
mov esi, str_newline
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
.fail:
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
cmd_ping:
|
||||||
|
|
||||||
|
; Just change PING to PONG
|
||||||
|
mov dword[esi], 'PONG'
|
||||||
|
|
||||||
|
; Find the end of the command
|
||||||
|
lea edi, [esi + 5]
|
||||||
|
xor al, al
|
||||||
|
repne scasb
|
||||||
|
|
||||||
|
; Now send it back
|
||||||
|
mov edx, esi
|
||||||
|
mov esi, edi
|
||||||
|
mov word [esi], 0x0d0a
|
||||||
|
inc esi
|
||||||
|
inc esi
|
||||||
|
sub esi, edx
|
||||||
|
mcall send, [socketnum], , , 0
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
cmd_privmsg:
|
||||||
|
|
||||||
|
; Check if it was destined for me privately
|
||||||
|
mov edi, servercommand+1
|
||||||
|
call compare_to_nick
|
||||||
|
;;; je .private
|
||||||
|
|
||||||
|
; If not, find the correct window ???
|
||||||
|
|
||||||
|
; now find the end of nick
|
||||||
|
mov edi, esi
|
||||||
|
.loop:
|
||||||
|
inc edi
|
||||||
|
cmp byte [edi], 0
|
||||||
|
je .fail
|
||||||
|
cmp byte [edi], ' '
|
||||||
|
jne .loop
|
||||||
|
|
||||||
|
.loop2:
|
||||||
|
inc edi
|
||||||
|
cmp byte [edi], 0
|
||||||
|
je .fail
|
||||||
|
cmp byte [edi], ' '
|
||||||
|
je .loop2
|
||||||
|
cmp byte [edi], ':'
|
||||||
|
je .loop2
|
||||||
|
cmp byte [edi], 1
|
||||||
|
je cmd_ctcp
|
||||||
|
|
||||||
|
; Action?
|
||||||
|
cmp dword[edi+1], 'ACTI'
|
||||||
|
je .action
|
||||||
|
|
||||||
|
; nope, just plain old privmsg
|
||||||
|
if TIMESTAMP
|
||||||
|
call print_timestamp
|
||||||
|
end if
|
||||||
|
|
||||||
|
push edi
|
||||||
|
mov bl, '<'
|
||||||
|
call print_character
|
||||||
|
|
||||||
|
mov eax, servercommand+1
|
||||||
|
mov dl, '!'
|
||||||
|
call print_text
|
||||||
|
|
||||||
|
mov bl, '>'
|
||||||
|
call print_character
|
||||||
|
|
||||||
|
mov bl, ' '
|
||||||
|
call print_character
|
||||||
|
|
||||||
|
pop esi
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
mov bl, 10
|
||||||
|
call print_character
|
||||||
|
|
||||||
|
.fail:
|
||||||
|
ret
|
||||||
|
|
||||||
|
.action:
|
||||||
|
push edi
|
||||||
|
if TIMESTAMP
|
||||||
|
call print_timestamp
|
||||||
|
end if
|
||||||
|
|
||||||
|
mov esi, action_header_short
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
mov eax, servercommand+1
|
||||||
|
mov dl, ' '
|
||||||
|
call print_text
|
||||||
|
|
||||||
|
mov bl, ' '
|
||||||
|
call print_character
|
||||||
|
|
||||||
|
pop esi
|
||||||
|
add esi, 8
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
mov bl, 10
|
||||||
|
call print_character
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
cmd_ctcp:
|
||||||
|
|
||||||
|
cmp dword[edi+1], 'VERS'
|
||||||
|
je .version
|
||||||
|
|
||||||
|
cmp dword[edi+1], 'TIME'
|
||||||
|
je .time
|
||||||
|
|
||||||
|
cmp dword[edi+1], 'PING'
|
||||||
|
je .ping
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
.time:
|
||||||
|
lea esi, [edi+1]
|
||||||
|
mov byte [edi+5], ' '
|
||||||
|
add edi, 6
|
||||||
|
|
||||||
|
; TODO: add system date (fn 29) in human readable format
|
||||||
|
|
||||||
|
mcall 3 ; get system time
|
||||||
|
|
||||||
|
mov ecx, 3
|
||||||
|
.timeloop:
|
||||||
|
mov bl, al
|
||||||
|
shr al, 4
|
||||||
|
add al, '0'
|
||||||
|
stosb
|
||||||
|
|
||||||
|
mov al, bl
|
||||||
|
and al, 0x0f
|
||||||
|
add al, '0'
|
||||||
|
stosb
|
||||||
|
|
||||||
|
dec ecx
|
||||||
|
jz .timedone
|
||||||
|
|
||||||
|
mov al, ':'
|
||||||
|
stosb
|
||||||
|
shr eax, 8
|
||||||
|
jmp .timeloop
|
||||||
|
|
||||||
|
.timedone:
|
||||||
|
xor al, al
|
||||||
|
stosb
|
||||||
|
call ctcp_reply
|
||||||
|
|
||||||
|
if TIMESTAMP
|
||||||
|
call print_timestamp
|
||||||
|
end if
|
||||||
|
|
||||||
|
mov esi, ctcp_header
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
mov esi, servercommand+1
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
mov esi, ctcp_time
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
.version:
|
||||||
|
mov esi, str_version
|
||||||
|
call ctcp_reply
|
||||||
|
|
||||||
|
if TIMESTAMP
|
||||||
|
call print_timestamp
|
||||||
|
end if
|
||||||
|
|
||||||
|
mov esi, ctcp_header
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
mov esi, servercommand+1
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
mov esi, ctcp_version
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
.ping:
|
||||||
|
lea esi, [edi+1]
|
||||||
|
call ctcp_reply
|
||||||
|
|
||||||
|
if TIMESTAMP
|
||||||
|
call print_timestamp
|
||||||
|
end if
|
||||||
|
|
||||||
|
mov esi, ctcp_header
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
mov esi, servercommand+1
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
mov esi, ctcp_ping
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
ctcp_reply:
|
||||||
|
|
||||||
|
push esi
|
||||||
|
|
||||||
|
mov dword [usercommand], 'NOTI'
|
||||||
|
mov dword [usercommand+4], 'CE '
|
||||||
|
|
||||||
|
mov esi, servercommand+1
|
||||||
|
mov edi, usercommand+7
|
||||||
|
.nickloop:
|
||||||
|
lodsb
|
||||||
|
cmp al, '!'
|
||||||
|
je .done
|
||||||
|
cmp al, ' '
|
||||||
|
je .done
|
||||||
|
test al, al
|
||||||
|
je .fail
|
||||||
|
stosb
|
||||||
|
jmp .nickloop
|
||||||
|
.done:
|
||||||
|
mov byte [esi-1], 0
|
||||||
|
mov ax, ' :'
|
||||||
|
stosw
|
||||||
|
mov al, 1
|
||||||
|
stosb
|
||||||
|
|
||||||
|
pop esi
|
||||||
|
.replyloop:
|
||||||
|
lodsb
|
||||||
|
cmp al, 1
|
||||||
|
jbe .done2
|
||||||
|
stosb
|
||||||
|
jmp .replyloop
|
||||||
|
.done2:
|
||||||
|
|
||||||
|
mov al, 1
|
||||||
|
stosb
|
||||||
|
mov ax, 0x0a0d
|
||||||
|
stosw
|
||||||
|
|
||||||
|
lea esi, [edi - usercommand]
|
||||||
|
mcall send, [socketnum], usercommand, , 0
|
||||||
|
.fail:
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
cmd_part:
|
||||||
|
|
||||||
|
; Is it me who parted?
|
||||||
|
mov edi, servercommand+1
|
||||||
|
call compare_to_nick
|
||||||
|
jne .dont_close
|
||||||
|
|
||||||
|
; yes, close the window
|
||||||
|
mov edi, [window_print]
|
||||||
|
mov [edi + window.flags], FLAG_UPDATED + FLAG_CLOSE
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
; somebody else parted, just print message
|
||||||
|
.dont_close:
|
||||||
|
push esi
|
||||||
|
mov esi, action_header
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
mov eax, servercommand+1
|
||||||
|
mov dl, '!'
|
||||||
|
mov cl, ' '
|
||||||
|
call print_text
|
||||||
|
|
||||||
|
mov esi, has_left_channel
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
pop esi
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
cmd_join:
|
||||||
|
; compare nick: did we join a channel?
|
||||||
|
mov edi, servercommand+1
|
||||||
|
call compare_to_nick
|
||||||
|
jne .no_new_window
|
||||||
|
|
||||||
|
; 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
|
||||||
|
.fail:
|
||||||
|
ret
|
||||||
|
|
||||||
|
.free_found:
|
||||||
|
push ebx
|
||||||
|
call window_create
|
||||||
|
pop ebx
|
||||||
|
test eax, eax
|
||||||
|
jz .fail
|
||||||
|
mov [ebx + window.data_ptr], eax
|
||||||
|
mov [ebx + window.type], WINDOWTYPE_CHANNEL
|
||||||
|
mov [ebx + window.flags], 0
|
||||||
|
call window_set_name
|
||||||
|
|
||||||
|
mov [window_open], ebx
|
||||||
|
mov [window_print], ebx
|
||||||
|
call window_refresh
|
||||||
|
|
||||||
|
push esi
|
||||||
|
mov esi, action_header
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
mov esi, str_talking
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
pop eax
|
||||||
|
mov dl, ' '
|
||||||
|
call print_text
|
||||||
|
|
||||||
|
mov esi, str_dotnewline
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
call draw_window
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
.no_new_window:
|
||||||
|
push esi
|
||||||
|
call window_set_name
|
||||||
|
|
||||||
|
mov esi, action_header
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
mov eax, servercommand+1
|
||||||
|
mov dl, ' '
|
||||||
|
call print_text
|
||||||
|
|
||||||
|
mov esi, joins_channel
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
pop esi
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
mov esi, str_newline
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
cmd_nick: ; FIXME
|
||||||
|
|
||||||
|
push esi
|
||||||
|
; test for change of my nick
|
||||||
|
mov esi, servercommand+1
|
||||||
|
mov edi, user_nick
|
||||||
|
mov ecx, MAX_NICK_LEN
|
||||||
|
rep cmpsb
|
||||||
|
cmp byte[edi-1], 0
|
||||||
|
jne .notmy
|
||||||
|
cmp byte[esi-1], '!'
|
||||||
|
jne .notmy
|
||||||
|
|
||||||
|
; yes, this is my nick, set to new
|
||||||
|
pop esi
|
||||||
|
or ecx, -1
|
||||||
|
mov edi, esi
|
||||||
|
xor eax, eax
|
||||||
|
repne scasb
|
||||||
|
neg ecx
|
||||||
|
cmp ecx, MAX_NICK_LEN
|
||||||
|
jb @f
|
||||||
|
mov ecx, MAX_NICK_LEN
|
||||||
|
@@:
|
||||||
|
mov edi, user_nick
|
||||||
|
rep movsb
|
||||||
|
.notmy:
|
||||||
|
|
||||||
|
; replace nick in all lists of users
|
||||||
|
mov ebx, windows
|
||||||
|
.channels:
|
||||||
|
mov esi, [ebx + window.data_ptr]
|
||||||
|
lea esi, [esi + window_data.names]
|
||||||
|
;;;;; mov edx, [esi + window_data.nameslen]
|
||||||
|
add edx, esi
|
||||||
|
.nicks:
|
||||||
|
mov edi, servercommand+1
|
||||||
|
cmp byte[esi], '@'
|
||||||
|
jne @f
|
||||||
|
inc esi
|
||||||
|
|
||||||
|
@@:
|
||||||
|
cmp esi, edx
|
||||||
|
jae .srcdone
|
||||||
|
lodsb
|
||||||
|
cmp al, ' '
|
||||||
|
je .srcdone
|
||||||
|
scasb
|
||||||
|
je @b
|
||||||
|
|
||||||
|
@@:
|
||||||
|
cmp esi, edx
|
||||||
|
jae .nextchannel
|
||||||
|
lodsb
|
||||||
|
cmp al, ' '
|
||||||
|
jne @b
|
||||||
|
|
||||||
|
.nextnick:
|
||||||
|
cmp esi, edx
|
||||||
|
jae .nextchannel
|
||||||
|
lodsb
|
||||||
|
cmp al, ' '
|
||||||
|
jz .nextnick
|
||||||
|
dec esi
|
||||||
|
jmp .nicks
|
||||||
|
|
||||||
|
|
||||||
|
.srcdone:
|
||||||
|
cmp byte [edi], '!'
|
||||||
|
jne .nextnick
|
||||||
|
|
||||||
|
; here we have esi -> end of nick which must be replaced to [servercommand_position]+6
|
||||||
|
lea edx, [edi-servercommand-1]
|
||||||
|
sub esi, edx
|
||||||
|
or ecx, -1
|
||||||
|
xor eax, eax
|
||||||
|
; mov edi, [servercommand_position] ;;;;; FIXME
|
||||||
|
repnz scasb
|
||||||
|
not ecx
|
||||||
|
dec ecx
|
||||||
|
push ecx
|
||||||
|
cmp ecx, edx
|
||||||
|
jb .decrease
|
||||||
|
jz .copy
|
||||||
|
.increase:
|
||||||
|
|
||||||
|
; new nick is longer than the old
|
||||||
|
push esi
|
||||||
|
lea edi, [ebx+120*10] ;;;;;;
|
||||||
|
lea esi, [edi+edx]
|
||||||
|
sub esi, ecx
|
||||||
|
mov ecx, esi
|
||||||
|
sub ecx, [esp]
|
||||||
|
dec esi
|
||||||
|
dec edi
|
||||||
|
std
|
||||||
|
rep movsb
|
||||||
|
cld
|
||||||
|
pop esi
|
||||||
|
jmp .copy
|
||||||
|
.decrease:
|
||||||
|
; new nick is shorter than the old
|
||||||
|
push esi
|
||||||
|
lea edi, [esi+ecx]
|
||||||
|
add esi, edx
|
||||||
|
lea ecx, [ebx+120*10]
|
||||||
|
sub ecx, edi
|
||||||
|
rep movsb
|
||||||
|
pop esi
|
||||||
|
.copy:
|
||||||
|
; copy nick
|
||||||
|
mov edi, esi
|
||||||
|
dec edi
|
||||||
|
; mov esi, [servercommand_position] ;;;;; FIXME
|
||||||
|
pop ecx
|
||||||
|
sub edx, ecx
|
||||||
|
sub [ebx-4], edx
|
||||||
|
rep movsb
|
||||||
|
mov al, ' '
|
||||||
|
stosb
|
||||||
|
|
||||||
|
.nextchannel:
|
||||||
|
add ebx, sizeof.window
|
||||||
|
cmp ebx, windows + sizeof.window*MAX_WINDOWS
|
||||||
|
jb .channels
|
||||||
|
|
||||||
|
; mov [text_start], window_text + 120*80
|
||||||
|
new_all_channels3:
|
||||||
|
|
||||||
|
mov esi, action_header_short
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
mov eax, servercommand+1
|
||||||
|
mov dl,'!'
|
||||||
|
call print_text
|
||||||
|
|
||||||
|
mov esi,is_now_known_as
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
; mov esi,[servercommand_position] ;;;;; FIXME
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
;;; call notify_channel_thread
|
||||||
|
|
||||||
|
; go to next window (and check if its a channel!)
|
||||||
|
|
||||||
|
; add [text_start], 120*80
|
||||||
|
; cmp [text_start], I_END+120*80*20
|
||||||
|
; jb new_all_channels3
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
cmd_kick:
|
||||||
|
; Is it me who got kicked?
|
||||||
|
mov edi, servercommand+1
|
||||||
|
call compare_to_nick
|
||||||
|
jne .not_me
|
||||||
|
|
||||||
|
; TODO: mark channel as disconnected
|
||||||
|
|
||||||
|
.not_me:
|
||||||
|
; find the channel user has been kicked from
|
||||||
|
push esi
|
||||||
|
mov esi, action_header_short
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
mov eax, servercommand+1
|
||||||
|
mov dl,'!'
|
||||||
|
call print_text
|
||||||
|
|
||||||
|
mov esi, kicked
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
pop esi
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
cmd_quit:
|
||||||
|
|
||||||
|
mov esi, action_header
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
mov eax, servercommand+1
|
||||||
|
mov dl, '!'
|
||||||
|
call print_text
|
||||||
|
|
||||||
|
mov esi, has_quit_irc
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
cmd_mode:
|
||||||
|
|
||||||
|
push esi
|
||||||
|
mov esi, action_header_short
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
mov eax, servercommand+1
|
||||||
|
mov dl, ' '
|
||||||
|
call print_text
|
||||||
|
|
||||||
|
mov esi, sets_mode
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
pop esi
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
mov esi, str_newline
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
cmd_353: ; channel usernames reply
|
||||||
|
|
||||||
|
; TODO: mark a bit that we are receiving names
|
||||||
|
|
||||||
|
; first, find the channel name
|
||||||
|
.loop1:
|
||||||
|
lodsb
|
||||||
|
cmp al, '#'
|
||||||
|
je .got_channel
|
||||||
|
test al, al
|
||||||
|
jnz .loop1
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
.got_channel:
|
||||||
|
; call find_channel ;;;; ASSUME current channel for now
|
||||||
|
mov ebx, [window_print]
|
||||||
|
mov ebx, [ebx + window.data_ptr]
|
||||||
|
lea edi, [ebx + window_data.names]
|
||||||
|
lea edx, [edi + MAX_NICK_LEN]
|
||||||
|
|
||||||
|
; now find the semicolon separating channelname and usernames
|
||||||
|
.loop2:
|
||||||
|
lodsb
|
||||||
|
cmp al, ':'
|
||||||
|
je .namesloop
|
||||||
|
test al, al
|
||||||
|
jnz .loop2
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
.namesloop:
|
||||||
|
; now the names list begins, separated with spaces
|
||||||
|
lodsb
|
||||||
|
test al, al
|
||||||
|
jz .done
|
||||||
|
cmp al, ' '
|
||||||
|
jz .next
|
||||||
|
stosb
|
||||||
|
jmp .namesloop
|
||||||
|
|
||||||
|
.next:
|
||||||
|
mov edi, edx
|
||||||
|
add edx, MAX_NICK_LEN
|
||||||
|
|
||||||
|
;;; cmp edi, .. ; Check for buffer overflow
|
||||||
|
jmp .namesloop
|
||||||
|
|
||||||
|
.done:
|
||||||
|
call print_channel_list
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
cmd_366: ; channel usernames end
|
||||||
|
|
||||||
|
; TODO: clear the bit that we are receiving names
|
||||||
|
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
cmd_topic:
|
||||||
|
|
||||||
|
.loop:
|
||||||
|
lodsb
|
||||||
|
test al, al
|
||||||
|
je .fail
|
||||||
|
cmp al, ':'
|
||||||
|
jne .loop
|
||||||
|
|
||||||
|
push esi
|
||||||
|
mov esi, action_header
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
mov esi, str_topic
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
pop esi
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
mov esi, str_newline
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
.fail:
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
cmd_333:
|
||||||
|
|
||||||
|
; TODO: check channelname and change pointer accordingly
|
||||||
|
|
||||||
|
mov ecx, 3 ; number of spaces to find
|
||||||
|
.loop:
|
||||||
|
lodsb
|
||||||
|
test al, al
|
||||||
|
je .fail
|
||||||
|
cmp al, ' '
|
||||||
|
jne .loop
|
||||||
|
dec ecx
|
||||||
|
jnz .loop ; find some more spaces
|
||||||
|
|
||||||
|
push esi
|
||||||
|
mov esi, action_header
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
mov esi, str_setby
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
pop esi
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
mov esi, str_newline
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
.fail:
|
||||||
|
ret
|
||||||
|
|
||||||
240
kernel/branches/net/applications/ircc/socket.inc
Normal file
240
kernel/branches/net/applications/ircc/socket.inc
Normal file
@ -0,0 +1,240 @@
|
|||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
;; ;;
|
||||||
|
;; Copyright (C) KolibriOS team 2004-2013. All rights reserved. ;;
|
||||||
|
;; Distributed under terms of the GNU General Public License ;;
|
||||||
|
;; ;;
|
||||||
|
;; ;;
|
||||||
|
;; GNU GENERAL PUBLIC LICENSE ;;
|
||||||
|
;; Version 2, June 1991 ;;
|
||||||
|
;; ;;
|
||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
|
|
||||||
|
socket_connect:
|
||||||
|
|
||||||
|
; cmp [status], STATUS_CONNECTED ; TODO
|
||||||
|
; je disconnect
|
||||||
|
|
||||||
|
; ignore if status is not "disconnected"
|
||||||
|
cmp [status], STATUS_DISCONNECTED
|
||||||
|
jne .nothing
|
||||||
|
|
||||||
|
mov esi, str_connecting
|
||||||
|
call print_text2
|
||||||
|
mov esi, irc_server_name
|
||||||
|
call print_text2
|
||||||
|
mov esi, str_dotnewline
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
; update status
|
||||||
|
inc [status] ; was STATUS_DISCONNECTED, now STATUS_RESOLVING
|
||||||
|
|
||||||
|
; resolve name
|
||||||
|
push esp ; reserve stack place
|
||||||
|
push esp ; fourth parameter
|
||||||
|
push 0 ; third parameter
|
||||||
|
push 0 ; second parameter
|
||||||
|
push irc_server_name
|
||||||
|
call [getaddrinfo]
|
||||||
|
pop esi
|
||||||
|
; test for error
|
||||||
|
test eax, eax
|
||||||
|
jnz .fail_dns
|
||||||
|
|
||||||
|
; fill in ip in sockstruct
|
||||||
|
mov eax, [esi + addrinfo.ai_addr]
|
||||||
|
mov eax, [eax + sockaddr_in.sin_addr]
|
||||||
|
mov [sockaddr1.ip], eax
|
||||||
|
|
||||||
|
; free allocated memory
|
||||||
|
push esi
|
||||||
|
call [freeaddrinfo]
|
||||||
|
|
||||||
|
; update status
|
||||||
|
inc [status]
|
||||||
|
|
||||||
|
; connect
|
||||||
|
mcall socket, AF_INET4, SOCK_STREAM, 0
|
||||||
|
cmp eax, -1
|
||||||
|
jz .fail
|
||||||
|
mov [socketnum], eax
|
||||||
|
|
||||||
|
mcall connect, [socketnum], sockaddr1, 18
|
||||||
|
cmp eax, -1
|
||||||
|
jz .fail_refused
|
||||||
|
|
||||||
|
.nothing:
|
||||||
|
ret
|
||||||
|
|
||||||
|
.fail:
|
||||||
|
mov [status], STATUS_DISCONNECTED
|
||||||
|
|
||||||
|
mov esi, str_sockerr
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
.fail_dns:
|
||||||
|
mov [status], STATUS_DISCONNECTED
|
||||||
|
|
||||||
|
mov esi, str_dnserr
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
.fail_refused:
|
||||||
|
mov [status], STATUS_DISCONNECTED
|
||||||
|
|
||||||
|
mov esi, str_refused
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
socket_write_userinfo:
|
||||||
|
|
||||||
|
; create packet in packetbuf
|
||||||
|
mov edi, packetbuf
|
||||||
|
|
||||||
|
mov eax, 'NICK'
|
||||||
|
stosd
|
||||||
|
mov al, ' '
|
||||||
|
stosb
|
||||||
|
mov esi, user_nick
|
||||||
|
mov ecx, MAX_NICK_LEN
|
||||||
|
.loop:
|
||||||
|
lodsb
|
||||||
|
test al, al
|
||||||
|
jz .done
|
||||||
|
stosb
|
||||||
|
dec ecx
|
||||||
|
jnz .loop
|
||||||
|
.done:
|
||||||
|
mov ax, 0x0d0a
|
||||||
|
stosw
|
||||||
|
|
||||||
|
mov eax, 'USER'
|
||||||
|
stosd
|
||||||
|
mov al, ' '
|
||||||
|
stosb
|
||||||
|
mov esi, user_nick
|
||||||
|
mov ecx, MAX_NICK_LEN
|
||||||
|
.loop2:
|
||||||
|
lodsb
|
||||||
|
test al, al
|
||||||
|
jz .done2
|
||||||
|
stosb
|
||||||
|
dec ecx
|
||||||
|
jnz .loop2
|
||||||
|
.done2:
|
||||||
|
mov eax, ' 8 *'
|
||||||
|
stosd
|
||||||
|
mov ax, ' :'
|
||||||
|
stosw
|
||||||
|
mov al, ' '
|
||||||
|
stosb
|
||||||
|
mov esi, user_real_name
|
||||||
|
mov ecx, MAX_REAL_LEN
|
||||||
|
.loop3:
|
||||||
|
lodsb
|
||||||
|
test al, al
|
||||||
|
jz .done3
|
||||||
|
stosb
|
||||||
|
dec ecx
|
||||||
|
jnz .loop3
|
||||||
|
.done3:
|
||||||
|
mov ax, 0x0d0a
|
||||||
|
stosw
|
||||||
|
|
||||||
|
lea esi, [edi - packetbuf]
|
||||||
|
mcall send, [socketnum], packetbuf, , 0
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
process_network_event:
|
||||||
|
; values for status: 0, 1, 2, 3
|
||||||
|
mov eax, [status]
|
||||||
|
dec eax
|
||||||
|
; 0 = STATUS_DISCONNECTED - do nothing
|
||||||
|
; (ignore network events if we are disconnected from network)
|
||||||
|
js .nothing
|
||||||
|
; 1 = STATUS_RESOLVING
|
||||||
|
jz .nothing
|
||||||
|
; 2 = STATUS_CONNECTING
|
||||||
|
dec eax
|
||||||
|
jz .connecting
|
||||||
|
; 3 = STATUS_CONNECTED
|
||||||
|
jmp .connected
|
||||||
|
|
||||||
|
.nothing:
|
||||||
|
ret
|
||||||
|
|
||||||
|
.connecting:
|
||||||
|
call socket_write_userinfo
|
||||||
|
|
||||||
|
; The connection has been established, change status from "connecting" to "connected".
|
||||||
|
inc [status]
|
||||||
|
|
||||||
|
.connected:
|
||||||
|
call read_incoming_data
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
disconnect:
|
||||||
|
|
||||||
|
cmp [status], STATUS_DISCONNECTED
|
||||||
|
je .nothing
|
||||||
|
|
||||||
|
mcall close, [socketnum]
|
||||||
|
|
||||||
|
mov [status], STATUS_DISCONNECTED
|
||||||
|
|
||||||
|
.nothing:
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
read_incoming_data:
|
||||||
|
|
||||||
|
pusha
|
||||||
|
|
||||||
|
; TODO: read more data if we receive one full packet
|
||||||
|
|
||||||
|
.nextpacket:
|
||||||
|
mcall recv, [socketnum], packetbuf, 1024 ; read a packet
|
||||||
|
inc eax ; check if we got one
|
||||||
|
jz .done
|
||||||
|
dec eax
|
||||||
|
jz .done
|
||||||
|
|
||||||
|
; ok we have data, now feed it to the recoder
|
||||||
|
|
||||||
|
lea edx, [packetbuf + eax] ; edx = end pointer
|
||||||
|
mov esi, packetbuf ; esi = start pointer
|
||||||
|
.nextcommand:
|
||||||
|
mov edi, servercommand
|
||||||
|
.byteloop:
|
||||||
|
call get_next_byte ; reads byte from [esi] to al
|
||||||
|
jnc .nextpacket ; if CF is set, we need more data
|
||||||
|
cmp al, 10
|
||||||
|
je .got_command
|
||||||
|
stosb
|
||||||
|
jmp .byteloop
|
||||||
|
|
||||||
|
; we have a command, call the serverparser
|
||||||
|
|
||||||
|
.got_command:
|
||||||
|
mov byte[edi-1], 0 ; mark the end of the command
|
||||||
|
push esi edx
|
||||||
|
call server_parser
|
||||||
|
pop edx esi
|
||||||
|
jmp .nextcommand
|
||||||
|
|
||||||
|
.done:
|
||||||
|
popa
|
||||||
|
|
||||||
|
ret
|
||||||
313
kernel/branches/net/applications/ircc/userparser.inc
Normal file
313
kernel/branches/net/applications/ircc/userparser.inc
Normal file
@ -0,0 +1,313 @@
|
|||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
;; ;;
|
||||||
|
;; Copyright (C) KolibriOS team 2004-2013. All rights reserved. ;;
|
||||||
|
;; Distributed under terms of the GNU General Public License ;;
|
||||||
|
;; ;;
|
||||||
|
;; ;;
|
||||||
|
;; GNU GENERAL PUBLIC LICENSE ;;
|
||||||
|
;; Version 2, June 1991 ;;
|
||||||
|
;; ;;
|
||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
|
|
||||||
|
user_parser:
|
||||||
|
|
||||||
|
mov eax, [edit1.size]
|
||||||
|
mov word [usercommand + eax], 0x0a0d ; terminate the line
|
||||||
|
|
||||||
|
cmp byte[usercommand], '/' ; is it a server command ?
|
||||||
|
je server_command
|
||||||
|
|
||||||
|
; Ignore data commands when not connected.
|
||||||
|
cmp [status], STATUS_CONNECTED
|
||||||
|
jne sdts_ret
|
||||||
|
|
||||||
|
; Ok, we said something, print it to our textbox
|
||||||
|
|
||||||
|
if TIMESTAMP
|
||||||
|
call print_timestamp
|
||||||
|
end if
|
||||||
|
|
||||||
|
mov bl, '<'
|
||||||
|
call print_character
|
||||||
|
|
||||||
|
mov esi, user_nick
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
mov bl,'>'
|
||||||
|
call print_character
|
||||||
|
mov bl,' '
|
||||||
|
call print_character
|
||||||
|
|
||||||
|
mov eax, [edit1.size]
|
||||||
|
mov byte[usercommand + eax],0
|
||||||
|
|
||||||
|
mov esi, usercommand
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
mov bl, 10
|
||||||
|
call print_character
|
||||||
|
|
||||||
|
; and now send it to the server
|
||||||
|
|
||||||
|
mov dword[packetbuf], 'priv'
|
||||||
|
mov dword[packetbuf+4], 'msg '
|
||||||
|
|
||||||
|
mov esi, [window_print]
|
||||||
|
add esi, window.name
|
||||||
|
mov edi, packetbuf+8
|
||||||
|
mov ecx, MAX_WINDOWNAME_LEN
|
||||||
|
.loop:
|
||||||
|
lodsb
|
||||||
|
test al, al
|
||||||
|
jz .done
|
||||||
|
stosb
|
||||||
|
dec ecx
|
||||||
|
jnz .loop
|
||||||
|
.done:
|
||||||
|
|
||||||
|
mov ax, ' :'
|
||||||
|
stosw
|
||||||
|
|
||||||
|
mov esi, usercommand
|
||||||
|
mov ecx, [edit1.size]
|
||||||
|
inc ecx
|
||||||
|
call recode
|
||||||
|
|
||||||
|
mov al, 10
|
||||||
|
stosb
|
||||||
|
|
||||||
|
lea esi, [edi - packetbuf]
|
||||||
|
mcall send, [socketnum], packetbuf, , 0
|
||||||
|
|
||||||
|
sdts_ret:
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
user_commands:
|
||||||
|
dd 'nick', cmd_usr_nick
|
||||||
|
dd 'real', cmd_usr_real
|
||||||
|
dd 'serv', cmd_usr_server
|
||||||
|
dd 'help', cmd_usr_help
|
||||||
|
dd 'code', cmd_usr_code
|
||||||
|
; TODO: All other commands require a connection to the server.
|
||||||
|
dd 'quer', cmd_usr_quer
|
||||||
|
dd 'quit', cmd_usr_quit
|
||||||
|
|
||||||
|
.number = ($ - user_commands) / 8
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
server_command:
|
||||||
|
|
||||||
|
mov eax, dword[usercommand+1]
|
||||||
|
or eax, 0x20202020
|
||||||
|
|
||||||
|
mov edi, user_commands
|
||||||
|
mov ecx, user_commands.number
|
||||||
|
.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
|
||||||
|
|
||||||
|
.got_cmd:
|
||||||
|
jmp dword[edi]
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
cmd_usr_quit:
|
||||||
|
|
||||||
|
cmp [edit1.size], 5
|
||||||
|
je .ok
|
||||||
|
jb cmd_usr_send
|
||||||
|
cmp byte[usercommand+5], ' '
|
||||||
|
jne cmd_usr_send
|
||||||
|
|
||||||
|
.ok:
|
||||||
|
call cmd_usr_send
|
||||||
|
|
||||||
|
mcall close, [socketnum]
|
||||||
|
|
||||||
|
mov ecx, MAX_WINDOWS
|
||||||
|
mov edi, windows
|
||||||
|
.loop:
|
||||||
|
mov [edi+window.flags], FLAG_CLOSE
|
||||||
|
; call notify_channel_thread
|
||||||
|
add edi, sizeof.window
|
||||||
|
dec ecx
|
||||||
|
jnz .loop
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
cmd_usr_nick:
|
||||||
|
|
||||||
|
cmp [edit1.size], 5
|
||||||
|
je .justprint
|
||||||
|
cmp byte[usercommand+5], ' '
|
||||||
|
jne cmd_usr_send
|
||||||
|
|
||||||
|
mov ecx, MAX_NICK_LEN
|
||||||
|
mov esi, usercommand+6
|
||||||
|
mov edi, user_nick
|
||||||
|
.loop:
|
||||||
|
lodsb
|
||||||
|
cmp al, 13
|
||||||
|
je .done
|
||||||
|
stosb
|
||||||
|
dec ecx
|
||||||
|
jnz .loop
|
||||||
|
.done:
|
||||||
|
xor al, al
|
||||||
|
stosb
|
||||||
|
|
||||||
|
cmp [socketnum], 0
|
||||||
|
je .justprint
|
||||||
|
|
||||||
|
lea esi, [edi - usercommand]
|
||||||
|
mcall send, [socketnum], usercommand+1, , 0
|
||||||
|
|
||||||
|
.justprint:
|
||||||
|
mov esi, str_nickchange
|
||||||
|
call print_text2
|
||||||
|
mov esi, user_nick
|
||||||
|
call print_text2
|
||||||
|
mov esi, str_dotnewline
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
cmd_usr_real:
|
||||||
|
|
||||||
|
cmp byte[usercommand+5], ' '
|
||||||
|
jne cmd_usr_send
|
||||||
|
|
||||||
|
mov ecx, MAX_REAL_LEN
|
||||||
|
mov esi, usercommand+6
|
||||||
|
mov edi, user_real_name
|
||||||
|
.loop:
|
||||||
|
lodsb
|
||||||
|
cmp al, 13
|
||||||
|
je .done
|
||||||
|
stosb
|
||||||
|
dec ecx
|
||||||
|
jnz .loop
|
||||||
|
.done:
|
||||||
|
xor al, al
|
||||||
|
stosb
|
||||||
|
|
||||||
|
mov esi, str_realchange
|
||||||
|
call print_text2
|
||||||
|
mov esi, user_real_name
|
||||||
|
call print_text2
|
||||||
|
mov esi, str_dotnewline
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
cmd_usr_server:
|
||||||
|
|
||||||
|
mov eax, dword[usercommand+5] ; check for 'er ', we only checked 'serv'
|
||||||
|
or eax, 0x00002020
|
||||||
|
and eax, 0x00ffffff
|
||||||
|
cmp eax, 'er '
|
||||||
|
jne cmd_usr_send
|
||||||
|
|
||||||
|
mov ecx, [edit1.size] ; ok now set the address
|
||||||
|
sub ecx, 8
|
||||||
|
|
||||||
|
mov esi, usercommand+8
|
||||||
|
push esi
|
||||||
|
mov edi, irc_server_name
|
||||||
|
rep movsb
|
||||||
|
xor al, al
|
||||||
|
stosb
|
||||||
|
pop esi
|
||||||
|
|
||||||
|
; set it also in window name
|
||||||
|
mov ebx, [window_print]
|
||||||
|
call window_set_name
|
||||||
|
|
||||||
|
; now connect
|
||||||
|
call socket_connect
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
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.data_ptr], eax
|
||||||
|
|
||||||
|
mov esi, usercommand+7
|
||||||
|
call window_set_name
|
||||||
|
|
||||||
|
mov [ebx + window.type], WINDOWTYPE_CHAT
|
||||||
|
mov [ebx + window.flags], 0
|
||||||
|
|
||||||
|
.error:
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
cmd_usr_help:
|
||||||
|
|
||||||
|
mov esi, str_help
|
||||||
|
call print_text2
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
cmd_usr_code:
|
||||||
|
|
||||||
|
; TODO
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
cmd_usr_send:
|
||||||
|
|
||||||
|
mov esi, usercommand+1
|
||||||
|
mov ecx, [edit1.size]
|
||||||
|
inc ecx
|
||||||
|
mov edi, packetbuf
|
||||||
|
call recode
|
||||||
|
|
||||||
|
lea esi, [edi - packetbuf]
|
||||||
|
mcall send, [socketnum], packetbuf, , 0
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
163
kernel/branches/net/applications/ircc/window.inc
Normal file
163
kernel/branches/net/applications/ircc/window.inc
Normal file
@ -0,0 +1,163 @@
|
|||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
;; ;;
|
||||||
|
;; Copyright (C) KolibriOS team 2004-2013. All rights reserved. ;;
|
||||||
|
;; Distributed under terms of the GNU General Public License ;;
|
||||||
|
;; ;;
|
||||||
|
;; ;;
|
||||||
|
;; GNU GENERAL PUBLIC LICENSE ;;
|
||||||
|
;; Version 2, June 1991 ;;
|
||||||
|
;; ;;
|
||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
|
|
||||||
|
window_create:
|
||||||
|
|
||||||
|
; allocate the window data block
|
||||||
|
mcall 68, 12, sizeof.window_data
|
||||||
|
test eax, eax
|
||||||
|
jz .fail
|
||||||
|
|
||||||
|
; fill it with all zeros
|
||||||
|
push eax
|
||||||
|
mov edi, eax
|
||||||
|
mov ecx, (sizeof.window_data+3)/4
|
||||||
|
xor eax, eax
|
||||||
|
rep stosd
|
||||||
|
pop eax
|
||||||
|
|
||||||
|
.fail:
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
window_set_name: ; esi = ptr to name, ebx = window ptr
|
||||||
|
|
||||||
|
pusha
|
||||||
|
|
||||||
|
; 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, 10
|
||||||
|
jbe .addzero
|
||||||
|
stosb
|
||||||
|
dec ecx
|
||||||
|
jnz .loop
|
||||||
|
.addzero:
|
||||||
|
xor al, al
|
||||||
|
stosb
|
||||||
|
|
||||||
|
call draw_windownames ; redraw it
|
||||||
|
|
||||||
|
popa
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
window_find: ; esi is ptr to windowname
|
||||||
|
|
||||||
|
; mov [current_window],
|
||||||
|
; call reset_gui
|
||||||
|
|
||||||
|
.fail:
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
window_refresh:
|
||||||
|
|
||||||
|
; set the correct buffer pointers ; FIXME: what is it good for?
|
||||||
|
mov eax, [textbox_width] ;
|
||||||
|
imul eax, 11 ;
|
||||||
|
mov [pos], eax ;
|
||||||
|
|
||||||
|
mov eax, [window_open]
|
||||||
|
mov eax, [eax + window.data_ptr]
|
||||||
|
add eax, window_data.text
|
||||||
|
mov [text_start], eax
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
print_text: ; eax = start ptr
|
||||||
|
; dl = end char
|
||||||
|
pusha
|
||||||
|
ptr2:
|
||||||
|
mov bl, [eax]
|
||||||
|
|
||||||
|
cmp bl, dl
|
||||||
|
je ptr_ret
|
||||||
|
cmp bl, 0
|
||||||
|
je ptr_ret
|
||||||
|
call print_character
|
||||||
|
|
||||||
|
inc eax
|
||||||
|
jmp ptr2
|
||||||
|
|
||||||
|
ptr_ret:
|
||||||
|
popa
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
print_text2: ; esi = ptr to ASCIIZ string
|
||||||
|
|
||||||
|
pusha
|
||||||
|
.loop:
|
||||||
|
lodsb
|
||||||
|
test al, al
|
||||||
|
jz .done
|
||||||
|
mov bl, al
|
||||||
|
call print_character
|
||||||
|
jmp .loop
|
||||||
|
|
||||||
|
.done:
|
||||||
|
popa
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
if TIMESTAMP
|
||||||
|
print_timestamp:
|
||||||
|
|
||||||
|
pusha
|
||||||
|
mcall 3 ; get system time
|
||||||
|
|
||||||
|
mov bl, '['
|
||||||
|
call print_character
|
||||||
|
mov ecx, TIMESTAMP
|
||||||
|
.loop:
|
||||||
|
mov bl, al
|
||||||
|
shr bl, 4
|
||||||
|
add bl, '0'
|
||||||
|
call print_character
|
||||||
|
|
||||||
|
mov bl, al
|
||||||
|
and bl, 0x0f
|
||||||
|
add bl, '0'
|
||||||
|
call print_character
|
||||||
|
|
||||||
|
dec ecx
|
||||||
|
jz .done
|
||||||
|
|
||||||
|
mov bl, ':'
|
||||||
|
call print_character
|
||||||
|
shr eax, 8
|
||||||
|
jmp .loop
|
||||||
|
.done:
|
||||||
|
mov bl, ']'
|
||||||
|
call print_character
|
||||||
|
mov bl, ' '
|
||||||
|
call print_character
|
||||||
|
|
||||||
|
popa
|
||||||
|
ret
|
||||||
|
end if
|
||||||
Loading…
Reference in New Issue
Block a user