Subversion Repositories Kolibri OS

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;                                                   ;;

;;    IRC CLIENT for KolibriOS                       ;;

;;                                                   ;;

;;    License: GPL / See file COPYING for details    ;;

;;    Copyright 2004 (c) Ville Turjanmaa             ;;

;;    Copyright 2009 (c) CleverMouse                 ;;

;;                                                   ;;

;;    Compile with FASM for Kolibri                  ;;

;;                                                   ;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

version equ '0.6'

;__DEBUG__ equ 1

;__DEBUG_LEVEL__ equ 1

use32

		org	0x0

		db	'MENUET01'		; 8 byte id

		dd	0x01			; required os

		dd	START			; program start

		dd	initialized_size	; program image size

		dd	0x100000		; required amount of memory

		dd	0x100000

		dd	0,0

include "../../../macros.inc"

include "../../../proc32.inc"

include "../../../develop/libraries/network/network.inc"

include "dll.inc"

;include "fdo.inc"

include "eth.inc"

include "lang.inc"

; connection statuses

STATUS_DISCONNECTED = 0 ; disconnected

STATUS_RESOLVING    = 1 ; resolving server name

STATUS_CONNECTING   = 2 ; connecting to server

STATUS_CONNECTED    = 3 ; connected

; where to display status

STATUS_X = 25 + 22*6

STATUS_Y = 183 + 7*12

; supported encodings

CP866 = 0

CP1251 = 1

UTF8 = 2

; where to display encoding

ENCODING_X = 25 + 15*6

ENCODING_Y = 183 + 3*12

def_server_name db	'chat.freenode.net',0		  ; default server name

user_nick	dd	12				  ; length

		db	'kolibri_user           '	  ; string

user_nick_max = $ - user_nick - 4

user_real_name	dd	14				  ; length

		db	'KolibriOS User         '	  ; string

user_real_name_max = $ - user_real_name - 4

START:				; start of execution

    stdcall dll.Load, @IMPORT

    test eax,eax

    jnz  exit

    mov  eax,40

    mov  ebx,11000111b

    mcall

    mcall 60, 1, ipcbuf, ipcbuf.size

    mcall 9, 0xe0000, -1

    mov  eax,[ebx+process_information.PID]

    mov  [main_PID],eax

	mov	esi, def_server_name

	mov	edi, irc_server_name

@@:

	lodsb

	stosb

	test	al, al

	jnz	@b

    mov  edi,I_END

    mov  ecx,60*120

    mov  al,32

    cld

    rep  stosb

    mov  eax,[rxs]

    imul eax,11

    mov  [pos],eax

    mov  ebp,0

    mov  edx,I_END

redraw: 			; redraw

    call draw_window		; at first, draw the window

still:

    mov  eax,10 		; wait here for event

    mcall

    dec  eax			; redraw

    je	 redraw

    dec  eax			; key

    je	 main_window_key

    dec  eax			; button

    je	 button

    cmp  al,4

    jz	 ipc

    call process_network_event

    cmp  [I_END+120*60],byte 1

    jne  no_main_update

    mov  [I_END+120*60],byte 0

    mov  edx,I_END

    call draw_channel_text

  no_main_update:

    call print_channel_list

    jmp  still

button: 			; button

    mov  eax,17 		; get id

    mcall

    cmp  ah,1			; close program

    jne  noclose

exit:

    or	 eax,-1

    mcall

  noclose:

    cmp  ah,21

    jne  no_change_encoding

    cmp  byte[edx-1],0

    jnz  still

    mov  eax,[encoding]

    inc  eax

    mov  edx,msgbox_struct

    mov  byte[edx],al

    mov  byte[edx-1],1 ; msgbox is running

    push mb_stack

    push edx

    call [mb_create]

    push msgbox_func_array

    call [mb_setfunctions]

    jmp  still

  no_change_encoding:

    call socket_commands

    jmp  still

ipc:

    mov  edx,msgbox_struct

    cmp  byte[edx-1],0

    jz	 @f

    mov  byte[edx-1],0

    mov  al,[edx]

    dec  eax

    mov  byte[encoding],al

    call update_encoding

    jmp  ipc_done

@@:

    call process_command

ipc_done:

    mov  dword [ipcbuf+4], 8

    jmp  still

main_window_key:

    mov  eax,2

    mcall

    shr  eax,8

    cmp  eax,8

    jne  no_bks2

    cmp  [xpos],0

    je	 still

    dec  [xpos]

    call print_entry

    jmp  still

   no_bks2:

    cmp  eax,20

    jbe  no_character2

    mov  ebx,[xpos]

    mov  [send_string+ebx],al

    inc  [xpos]

    cmp  [xpos],80

    jb	 noxposdec

    mov  [xpos],79

  noxposdec:

    call print_entry

    jmp  still

  no_character2: