Net Branch:

TCPserv: very simple TCP server used to develop and debug TCP code.

git-svn-id: svn://kolibrios.org@1836 a494cfbc-eb01-0410-851d-a64ba20cac60

kernel/branches/net/applications/tcpserv/tcpserv.asm

@@ -0,0 +1,162 @@
+use32
+; standard header
+	db	'MENUET01'	; signature
+	dd	1		; header version
+	dd	start		; entry point
+	dd	i_end		; initialized size
+	dd	mem		; required memory
+	dd	mem		; stack pointer
+	dd	0		; parameters
+	dd	0		; path
+
+
+BUFFERSIZE	equ 1500
+; useful includes
+include '../macros.inc'
+purge mov,add,sub
+include '../proc32.inc'
+include '../dll.inc'
+
+include '../network.inc'
+
+; entry point
+start:
+; load libraries
+	stdcall dll.Load, @IMPORT
+	test	eax, eax
+	jnz	exit
+
+; initialize console
+	push	1
+	call	[con_start]
+	push	title
+	push	25
+	push	80
+	push	25
+	push	80
+	call	[con_init]
+
+	mcall	40, 1 shl 7	; we only want network events
+
+	push	str1
+	call	[con_write_asciiz]
+
+	mcall	socket, AF_INET4, SOCK_STREAM, 0
+	cmp	eax, -1
+	je	sock_err
+
+	mov	[socketnum], eax
+
+;;        mcall   setsockopt, [socketnum], SOL_SOCKET, SO_REUSEADDR, &yes,
+;;        cmp     eax, -1
+;;        je      opt_err
+
+	mcall	bind, [socketnum], sockaddr1, sockaddr1.length
+	cmp	eax, -1
+	je	bind_err
+
+	mcall	listen, [socketnum], 10 ; Backlog = 10
+	cmp	eax, -1
+	je	listen_err
+
+	push	str2
+	call	[con_write_asciiz]
+
+	mcall	10
+
+	mcall	accept, [socketnum], sockaddr1, sockaddr1.length
+	cmp	eax, -1
+	je	acpt_err
+
+	mov	[socketnum2], eax
+
+;;        mcall   close, [socketnum]
+
+	mcall	send, [socketnum2], hello, hello.length
+
+  .loop:
+	mcall	10
+
+	mcall	recv, [socketnum2], buffer, buffer.length
+
+	push	buffer
+	call	[con_write_asciiz]
+
+	jmp	.loop
+
+acpt_err:
+	push	str8
+	call	[con_write_asciiz]
+	jmp	done
+
+listen_err:
+	push	str3
+	call	[con_write_asciiz]
+	jmp	done
+
+bind_err:
+	push	str4
+	call	[con_write_asciiz]
+	jmp	done
+
+sock_err:
+	push	str6
+	call	[con_write_asciiz]
+	jmp	done
+
+done:
+	call	[con_getch2]
+	push	1
+	call	[con_exit]
+exit:
+	mcall	-1
+
+
+
+; data
+title	db	'TCP stream server - test',0
+str1	db	'Opening socket',10, 0
+str2	db	'Listening for incoming connections...',10,0
+str3	db	'Listen error',10,10,0
+str4	db	'Bind error',10,10,0
+str5	db	'Setsockopt error.',10,10,0
+str6	db	'Could not open socket',10,10,0
+str7	db	'Got data!',10,10,0
+str8	db	'Error accepting connection',10,10,0
+
+hello	db	'Hello world!',0
+.length = $ - hello
+
+sockaddr1:
+	dw AF_INET4
+.port	dw 23
+.ip	dd 0
+	rb 10
+.length = $ - sockaddr1
+
+; import
+align 4
+@IMPORT:
+
+library console, 'console.obj'
+
+import	console,	\
+	con_start,	'START',	\
+	con_init,	'con_init',	\
+	con_write_asciiz,	'con_write_asciiz',	\
+	con_exit,	'con_exit',	\
+	con_gets,	'con_gets',\
+	con_cls,	'con_cls',\
+	con_printf,	'con_printf',\
+	con_getch2,	'con_getch2',\
+	con_set_cursor_pos, 'con_set_cursor_pos'
+i_end:
+
+socketnum	dd ?
+socketnum2	dd ?
+buffer	       rb BUFFERSIZE
+.length = BUFFERSIZE
+
+align	4
+rb	4096	; stack
+mem: