Subversion Repositories Kolibri OS

Compare Revisions

Ignore whitespace Rev 1646 → Rev 1723

/programs/network/airc/trunk/airc.asm
53,10 → 53,10
ENCODING_X = 25 + 15*6
ENCODING_Y = 183 + 3*12
 
def_server_name db 'kolibrios.org',0 ; default server name
def_server_name db 'kolibrios.org',0 ; default server name
 
user_nick dd 12 ; length
db 'kolibri_user ' ; string
db 'Dmitry_Sokolowski ' ; string
user_nick_max = $ - user_nick - 4
 
user_real_name dd 14 ; length
104,10 → 104,10
 
still:
 
mov eax,10 ; wait here for event
mov eax,10 ; wait here for event
mcall
 
dec eax ; redraw
dec eax ; redraw
je redraw
dec eax ; key
je main_window_key
114,7 → 114,7
dec eax ; button
je button
cmp al,4
jz ipc
jz ipc
 
call process_network_event
 
137,7 → 137,7
cmp ah,1 ; close program
jne noclose
exit:
or eax,-1
or eax,-1
mcall
noclose:
cmp ah,21
164,7 → 164,7
ipc:
mov edx,msgbox_struct
cmp byte[edx-1],0
jz @f
jz @f
mov byte[edx-1],0
mov al,[edx]
dec eax
287,7 → 287,7
 
 
cmp ah,24 ; close socket
jz disconnect
jz disconnect
no_24:
 
 
667,7 → 667,7
mov ecx,[xpos]
sub ecx,7
cmp ecx,user_nick_max
jb @f
jb @f
mov ecx,user_nick_max
@@:
mov [user_nick],ecx
705,7 → 705,7
mov ecx,[xpos]
sub ecx,7
cmp ecx,user_real_name_max
jb @f
jb @f
mov ecx,user_real_name_max
@@:
mov [user_real_name],ecx
2169,7 → 2169,7
mov edi,title
mcall
 
mov eax,8 ; button: change encoding
mov eax,8 ; button: change encoding
mov ebx,(ENCODING_X-2)*65536+38
mov ecx,(ENCODING_Y-2)*65536+12
mov edx,21
2176,7 → 2176,7
mov esi,[main_button]
mcall
 
; mov eax,8 ; button: open socket
; mov eax,8 ; button: open socket
mov ebx,43*65536+22
mov ecx,241*65536+10
; mov edx,22
2183,7 → 2183,7
inc edx
mcall
 
;mov eax,8 ; button: send userinfo
;mov eax,8 ; button: send userinfo
mov ebx,180*65536+22
mov ecx,241*65536+10
; mov edx,23
2190,7 → 2190,7
inc edx
mcall
 
;mov eax,8 ; button: close socket
;mov eax,8 ; button: close socket
mov ebx,317*65536+22
mov ecx,241*65536+10
; mov edx,24
2281,28 → 2281,28
 
text:
 
db ' Real name : KolibriOS User - change with eg /areal Jill User '
db ' Nick : kolibri_user - change with eg /anick Jill '
db ' Server : kolibrios.org - change with eg /aserv irc.by '
db ' Encoding : UTF-8 '
db ' ‚ è¥ ¨¬ï : KolibriOS User - ¬¥­ï©â¥ â ª: /areal Jill User '
db ' ¨ª : Ataualpa - ¬¥­ï©â¥ â ª: /anick Jill '
db ' ‘¥à¢¥à : kolibrios.org - ¬¥­ï©â¥ â ª: /aserv irc.by '
db ' Š®¤¨à®¢ª  : UTF-8 '
db ' '
db ' 1) Connect 2) Send userinfo 3) Disconnect '
db ' 1) ‘®¥¤¨­¨âì 2) ®á« âì ¤ ­­ë¥ 3) ‡ ¢¥àè¨âì '
db ' '
db ' Connection status: disconnected '
db ' ‘â âãá ᮥ¤¨­¥­¨ï: ®âᮥ¤¨­¥­® '
db ' '
db ' Commands after established connection: '
db ' Š®¬ ­¤ë ¯®á«¥ ãáâ ­®¢«¥­¨ï ᮥ¤¨­¥­¨ï: '
db ' '
db ' /join #ChannelName - eg /join #general '
db ' /part #ChannelName - eg /part #windows '
db ' /query Nickname - eg /query Mary '
db ' /quit - Quit server and Close socket '
db ' /join #ChannelName - ­ ¯à¨¬¥à: /join #general '
db ' /part #ChannelName - ­ ¯à¨¬¥à: /part #windows '
db ' /query Nickname - ­ ¯à¨¬¥à: /query Mary '
db ' /quit - ¯®ª¨­ãâì á¥à¢¥à ¨ § ªàëâì ᮪¥â '
db 'x' ; <- END MARKER, DONT DELETE
 
status_text:
db 'disconnected '
db 'resolving server name...'
db 'connecting... '
db 'connected '
db '®âᮥ¤¨­¥­® '
db '¯®«ãç î ¨¬ï á¥à¢¥à ... '
db 'ᮥ¤¨­¥­¨¥... '
db 'ᮥ¤¨­¥­® '
status_text_len = 24
 
encoding_text:
2330,7 → 2330,7
add eax,0x80000
mov esp,eax
 
; mov edi,ebp ; clear thread memory
; mov edi,ebp ; clear thread memory
; imul edi,120*80
; add edi,I_END
; mov ecx,120*80
2376,13 → 2376,13
 
mcall 10
dec eax
jz thread_redraw
jz thread_redraw
dec eax
jz thread_key
jz thread_key
dec eax
jz thread_end
jz thread_end
cmp al,4
jz thread_ipc
jz thread_ipc
call check_mouse
jmp w_t
thread_end:
2531,7 → 2531,7
mov ebx,1
mcall
cmp dword [ipcbuf+4],8
jne wait_for_sending
jne wait_for_sending
popa
call draw_channel_text
call print_entry
2648,7 → 2648,7
mcall
 
 
;mov eax,38 ; line
;mov eax,38 ; line
mov ebx,410*65536+410
mov ecx,22*65536+148
mov edx,[channel_line_sun]
2773,7 → 2773,7
@IMPORT:
 
library network, 'network.obj', msgbox, 'msgbox.obj'
import network, \
import network, \
getaddrinfo_start, 'getaddrinfo_start', \
getaddrinfo_process, 'getaddrinfo_process', \
getaddrinfo_abort, 'getaddrinfo_abort', \
2798,15 → 2798,15
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
msgbox_func_array:
times 3 dd msgbox_notify
times 3 dd msgbox_notify
initialized_size:
 
main_PID dd ? ; identifier of main thread
utf8_bytes_rest dd ? ; bytes rest in current UTF8 sequence
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
irc_server_name rb 256 ; buffer for irc_server_name
ip_list dd ? ; will be filled as pointer to addrinfo list
irc_server_name rb 256 ; buffer for irc_server_name
packetbuf rb 1024 ; buffer for packets to server
mb_stack rb 1024 ; stack for messagebox thread
 
/programs/network/stackcfg/trunk/stackcfg.asm
1,4 → 1,4
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ;
; Stack Configuration Tool ;
; ;
628,8 → 628,8
db ' ¥ ªâ¨¢­ë© Œ®¤¥¬ ­  Com-¯®àâã: 0x < '
db ' Slip à¥à뢠­¨¥ ¬®¤¥¬ : 0x < '
db ' PPP '
db ' „à ©¢¥à ¯ ª¥â®¢ IP server ­ §­ ç¥­­ë© '
db ' (Ethernet) ”¨ªá. . . . < '
db ' „à ©¢¥à ¯ ª¥â®¢ IP ­ §­ ç ¥âáï á¥à¢¥à®¬ '
db ' (Ethernet) ”¨ªá.: . . . < '
db ' ˜«î§: . . . < '
db ' ®¤á¥âì: . . . < '
db ' DNS IP: . . . < '
636,7 → 636,7
db ' '
db 'w —¨â âì à¨¬¥­¨âì '
 
elseif lang eq nl
else if lang eq nl
title db 'Netwerk configuratie',0
text:
db ' Niet actief Modem Com Poort: 0x < '
650,6 → 650,20
db ' '
db 'w Vernieuw Toepassen '
 
else if lang eq ua
title db ' « èâ㢠­­ï ¬¥à¥¦i'
text:
db ' ¥ ªâ¨¢­¨© Œ®¤¥¬ ­  Com-¯®àâã 0x < '
db ' Slip Com-¯®àâ ¬®¤¥¬ : 0x < '
db ' PPP '
db ' „à ©¢¥à ¯ ª¥âi¢ IP ¯à¨§­ ç óâìáï á¥à¢¥à®¬ '
db ' (Ethernet) ”iªá.: . . . < '
db ' Œ àèàãâ: . . . < '
db ' Œ áª : . . . < '
db ' DNS IP . . . < '
db ' '
db 'w à®ç¨â â¨ ‡ áâ®á㢠⨠'
 
else
title db 'Stack configuration',0
text: