ehmry/genode
ehmry
/
genode
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

run: add lwip pingpong test using tcp

This commit is contained in:
Josef Söntgen 2013-01-24 16:36:10 +01:00 committed by Norman Feske
parent 85c6640795
commit 0b906207bb
9 changed files with 789 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

117
libports/run/test-ping_client.run Normal file
View File

@ -0,0 +1,117 @@
#
# \brief Test ping
# \author Josef Soentgen
# \date 2013-01-06
#
#
# Build
#
set build_components {
core init
drivers/pci drivers/timer drivers/nic
test/lwip/pingpong/client
}
lappend_if [have_spec omap4] build_components drivers/usb
build $build_components
create_boot_directory
#
# Generate config
#
set config {
<config verbose="yes">
<parent-provides>
<service name="ROM"/>
<service name="RAM"/>
<service name="IRQ"/>
<service name="IO_MEM"/>
<service name="IO_PORT"/>
<service name="CAP"/>
<service name="PD"/>
<service name="RM"/>
<service name="CPU"/>
<service name="LOG"/>
<service name="SIGNAL"/>
</parent-provides>
<default-route>
<any-service> <parent/> <any-child/> </any-service>
</default-route>
<start name="timer">
<resource name="RAM" quantum="1M"/>
<provides> <service name="Timer"/> </provides>
</start>
<start name="test-ping_client">
<resource name="RAM" quantum="16M"/>
<config>
<argv verbose="1" serverip="10.0.0.190" startsize="1024" endsize="16384" />
</config>
</start> }
append_if [have_spec omap4] config {
<start name="usb_drv" priority="-1">
<resource name="RAM" quantum="12M"/>
<provides>
<service name="Nic"/>
</provides>
<config>
<nic mac="2e:60:90:0c:4e:02" />
</config>
</start>}
append_if [expr ![have_spec omap4]] config {
<start name="nic_drv">
<resource name="RAM" quantum="4M"/>
<provides><service name="Nic"/></provides>
</start>}
append_if [have_spec pci] config {
<start name="pci_drv">
<resource name="RAM" quantum="1M"/>
<provides> <service name="PCI"/> </provides>
</start> }
append config {
</config>
}
install_config $config
#
# Boot modules
#
# generic modules
set boot_modules {
core init timer
ld.lib.so libc.lib.so lwip.lib.so
test-ping_client
}
# platform-specific modules
lappend_if [have_spec pci] boot_modules pci_drv
lappend_if [have_spec omap4] boot_modules usb_drv
lappend_if [expr ![have_spec omap4]] boot_modules nic_drv
build_boot_image $boot_modules
#
# Execute test case
#
# qemu config
append qemu_args " -m 128 -nographic "
append_if [have_spec x86] qemu_args " -net nic,model=e1000 "
append_if [have_spec lan9118] qemu_args " -net nic,model=lan9118 "
append qemu_args " -net user "
run_genode_until forever
# vi: set ft=tcl :

117
libports/run/test-ping_server.run Normal file
View File

@ -0,0 +1,117 @@
#
# \brief Test pong
# \author Josef Soentgen
# \date 2013-01-06
#
#
# Build
#
set build_components {
core init
drivers/pci drivers/timer drivers/nic
test/lwip/pingpong/server
}
lappend_if [have_spec omap4] build_components drivers/usb
build $build_components
create_boot_directory
#
# Generate config
#
set config {
<config verbose="yes">
<parent-provides>
<service name="ROM"/>
<service name="RAM"/>
<service name="IRQ"/>
<service name="IO_MEM"/>
<service name="IO_PORT"/>
<service name="CAP"/>
<service name="PD"/>
<service name="RM"/>
<service name="CPU"/>
<service name="LOG"/>
<service name="SIGNAL"/>
</parent-provides>
<default-route>
<any-service> <parent/> <any-child/> </any-service>
</default-route>
<start name="timer">
<resource name="RAM" quantum="1M"/>
<provides> <service name="Timer"/> </provides>
</start>
<start name="test-ping_server">
<resource name="RAM" quantum="16M"/>
<config>
<argv verbose="1" listenip="0.0.0.0" />
</config>
</start> }
append_if [have_spec omap4] config {
<start name="usb_drv" priority="-1">
<resource name="RAM" quantum="12M"/>
<provides>
<service name="Nic"/>
</provides>
<config>
<nic mac="2e:60:90:0c:4e:02" />
</config>
</start>}
append_if [expr ![have_spec omap4]] config {
<start name="nic_drv">
<resource name="RAM" quantum="4M"/>
<provides><service name="Nic"/></provides>
</start>}
append_if [have_spec pci] config {
<start name="pci_drv">
<resource name="RAM" quantum="1M"/>
<provides> <service name="PCI"/> </provides>
</start> }
append config {
</config>
}
install_config $config
#
# Boot modules
#
# generic modules
set boot_modules {
core init timer
ld.lib.so libc.lib.so lwip.lib.so
test-ping_server
}
# platform-specific modules
lappend_if [have_spec pci] boot_modules pci_drv
lappend_if [have_spec omap4] boot_modules usb_drv
lappend_if [expr ![have_spec omap4]] boot_modules nic_drv
build_boot_image $boot_modules
#
# Execute test case
#
# qemu config
append qemu_args " -m 128 -nographic "
append_if [have_spec x86] qemu_args " -net nic,model=e1000 "
append_if [have_spec lan9118] qemu_args " -net nic,model=lan9118 "
append qemu_args " -net user "
run_genode_until forever
# vi: set ft=tcl :

13
libports/src/test/lwip/pingpong/README Normal file
View File

@ -0,0 +1,13 @@
Pingpong is a simple test where a client sends ping packets with different
sizes to a server. The client has to specify the serverip in its config
as well as the start and end of the ping packet sizes in bytes.
! <start name="test-ping_client">
! <resource name="RAM" quantum="16M"/>
! <config>
! <argv verbose="1" serverip="x.x.x.x" startsize="256" endsize="32768" />
! </config>
! </start>
If verbose is set 1 the client and the server will print the id and the
size of each packet (packet header + payload size).

155
libports/src/test/lwip/pingpong/client/main.cc Normal file
View File

@ -0,0 +1,155 @@
/*
* \brief Ping-client
* \author Josef Soentgen
* \date 2013-01-24
*
*/
/*
* Copyright (C) 2013 Genode Labs GmbH
*
* This file is part of the Genode OS framework, which is distributed
* under the terms of the GNU General Public License version 2.
*/
/* Genode includes */
#include <base/printf.h>
#include <util/string.h>
#include <os/config.h>
#include <lwip/genode.h>
/* libc includes */
#include <unistd.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <arpa/inet.h>
#include <netinet/in.h>
#include <stdlib.h>
#include "../pingpong.h"
unsigned int verbose;
int
dial(const char *addr)
{
int s;
struct sockaddr_in in_addr;
PLOG("Create new socket...");
s = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
if (s == -1) {
PERR("Could not create socket!");
return -1;
}
PLOG("Connect to server %s:%d...", addr, Sport);
in_addr.sin_port = htons(Sport);
in_addr.sin_family = AF_INET;
in_addr.sin_addr.s_addr = inet_addr(addr);
if (connect(s, (struct sockaddr *)&in_addr, sizeof (in_addr)) == -1) {
PERR("Could not connect to server!");
close(s);
return -1;
}
PLOG("Sucessful connected to server.");
return s;
}
int
sendping(const char *addr, size_t dsize)
{
Packet p;
int s;
size_t i;
ssize_t n;
s = dial(addr);
if (s == -1)
return -1;
p.h.type = Tping;
p.h.dsize = dsize;
p.d = (char *)malloc(p.h.dsize);
if (p.d == NULL) {
PERR("Out of memory!");
return -1;
}
PINF("Try to send %d packets...", Numpackets);
for (i = 0; i < Numpackets; i++) {
forgepacket(&p, i + 1);
n = sendpacket(s, &p);
if (n <= 0)
break;
if (n != (sizeof (Packetheader) + p.h.dsize)) {
PERR("size mismatch: %ld != %lu", n, sizeof (Packetheader) + p.h.dsize);
break;
}
if (verbose)
PINF("%lu %ld", p.h.id, n);
}
close(s);
free(p.d);
switch (n) {
case 0:
PERR("Disconnect, sent packets: %lu", i);
return 0;
break;
case -1:
PERR("Error, sent packets: %lu", i);
return 1;
break;
default:
PINF("Sucessful, sent packets: %lu", i);
return 0;
break;
}
/* never reached */
return 0;
}
int
main(int argc, char *argv[])
{
char serverip[16];
unsigned int i;
unsigned int startsize, endsize;
/* DHCP */
if (lwip_nic_init(0, 0, 0)) {
PERR("We got no IP address!");
return 1;
}
/* default settings */
startsize = 1;
endsize = 32768;
verbose = 0;
Genode::Xml_node argv_node = Genode::config()->xml_node().sub_node("argv");
try {
argv_node.attribute("serverip" ).value(serverip, sizeof(serverip));
argv_node.attribute("startsize").value( &startsize );
argv_node.attribute("endsize").value( &endsize );
argv_node.attribute("verbose").value( &verbose );
} catch(...) { }
if ((endsize + sizeof (Packetheader)) > Databuf) {
PERR("endsize is greater than the servers' data buffer");
return 1;
}
for (i = startsize; i <= endsize; i <<= 1)
sendping(serverip, i);
return 0;
}

7
libports/src/test/lwip/pingpong/client/target.mk Normal file
View File

@ -0,0 +1,7 @@
TARGET = test-ping_client
LIBS = cxx env libc libc_lwip lwip
SRC_CC = main.cc ../pingpong.cc
CC_OPT_main += -fpermissive
INC_DIR += $(REP_DIR)/src/lib/lwip/include

165
libports/src/test/lwip/pingpong/pingpong.cc Normal file
View File

@ -0,0 +1,165 @@
/*
* \brief PingPong
* \author Josef Soentgen
* \date 2013-01-24
*
*/
/*
* Copyright (C) 2013 Genode Labs GmbH
*
* This file is part of the Genode OS framework, which is distributed
* under the terms of the GNU General Public License version 2.
*/
/* Genode includes */
#include <base/printf.h>
/* libc includes */
#include <sys/types.h>
#include <sys/socket.h>
#include <stdlib.h>
#include "pingpong.h"
void
forgepacket(Packet *p, uint32_t id)
{
p->h.id = id;
p->d[p->h.dsize - 1] = (id % 128);
//PLOG("payload for %u = %u", id, (id % 128));
}
int
checkpacket(size_t n, Packet *p)
{
/* check size of received packet */
if (n != (sizeof (Packetheader) + p->h.dsize)) {
PERR("packetsize mismatch!");
return -1;
}
//PLOG("header: %u, data: %u", n - p->h.dsize, n - sizeof (Packetheader));
/* check packet type */
if (p->h.type != Tping) {
PERR("wrong packet type!");
return -1;
}
/* check payload */
if (p->d[p->h.dsize - 1] != (p->h.id % 128)) {
PERR("packet payload corrupt, expected: %d got: %d", (p->h.id % 128),
p->d[p->h.dsize - 1]);
return -1;
}
return 0;
}
ssize_t
sendpacket(int s, Packet *p)
{
char *b;
ssize_t sent, nd, nh;
size_t dsize;
/* send packet header */
b = (char *)&p->h;
nh = 0;
while (nh < sizeof (Packetheader)) {
sent = send(s, b + nh, sizeof (Packetheader) - nh, 0);
switch (sent) {
case -1:
PERR("send(Packetheader) == -1");
return nh;
break;
case 0:
PERR("send(Packetheader) == 0, connection closed");
return nh;
break;
default:
nh += sent;
}
}
/* sent packet data */
b = (char *)p->d;
dsize = p->h.dsize; // save data length
nd = 0;
while (nd < dsize) {
sent = send(s, b + nd, dsize - nd, 0);
switch (sent) {
case -1:
PERR("send(data) == -1");
return nd;
break;
case 0:
PERR("send(data) == 0, connection closed");
return nd;
break;
default:
nd += sent;
}
}
return nh + nd;
}
ssize_t
recvpacket(int s, Packet *p, char *dbuf, size_t ldbuf)
{
char *b;
ssize_t r, nd, nh;
size_t dsize;
/* recv packet header */
b = (char *)&p->h;
nh = 0;
while (nh < sizeof (Packetheader)) {
r = recv(s, b + nh, sizeof (Packetheader) - nh, 0);
switch (r) {
case -1:
PERR("recv(Packetheader) == -1");
return nh;
break;
case 0:
/* disconnect */
PERR("recv(Packetheader) == 0, connection closed");
return nh;
break;
default:
nh += r;
break;
}
}
if (p->h.dsize > ldbuf) {
PERR("packet payload is too large for dbuf!");
return -1;
}
/* receive packet data */
dsize = p->h.dsize;
nd = 0;
while (nd < dsize) {
r = recv(s, dbuf + nd, dsize - nd, 0);
switch (r) {
case -1:
PERR("recv(data) == -1");
return nh + nd;
break;
case 0:
/* disconnect */
PERR("recv(data) == 0, connection closed");
return nh + nd;
break;
default:
nd += r;
break;
}
}
return nh + nd;
}

48
libports/src/test/lwip/pingpong/pingpong.h Normal file
View File

@ -0,0 +1,48 @@
/*
* \brief PingPong
* \author Josef Soentgen
* \date 2013-01-24
*
*/
/*
* Copyright (C) 2013 Genode Labs GmbH
*
* This file is part of the Genode OS framework, which is distributed
* under the terms of the GNU General Public License version 2.
*/
#ifndef _PINGPONG_H_
#define _PINGPONG_H_
enum {
Databuf = 1024 * 1024, // data buffer for server
Numpackets = 1024,
Pdata = 16384,
Sport = 10000,
Tping = 1,
Tpong = 2
};
typedef struct Packetheader Packetheader;
struct Packetheader
{
uint32_t type; // packet type
uint32_t id; // packet id
uint32_t dsize; // data size
};
typedef struct Packet Packet;
struct Packet
{
Packetheader h;
char *d;
};
void forgepacket(Packet *, uint32_t);
int checkpacket(size_t, Packet *);
ssize_t sendpacket(int, Packet *);
ssize_t recvpacket(int, Packet *, char *, size_t);
#endif /* _PINGPONG_H_ */

160
libports/src/test/lwip/pingpong/server/main.cc Normal file
View File

@ -0,0 +1,160 @@
/*
* \brief Ping-server
* \author Josef Soentgen
* \date 2013-01-24
*
*/
/*
* Copyright (C) 2013 Genode Labs GmbH
*
* This file is part of the Genode OS framework, which is distributed
* under the terms of the GNU General Public License version 2.
*/
/* Genode includes */
#include <base/printf.h>
#include <util/string.h>
#include <os/config.h>
#include <lwip/genode.h>
/* libc includes */
#include <unistd.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <arpa/inet.h>
#include <netinet/in.h>
#include <stdlib.h>
#include "../pingpong.h"
unsigned int verbose;
int
announce(const char *addr)
{
int s;
struct sockaddr_in in_addr;
PLOG("Create new socket...");
s = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
if (s == -1) {
PERR("Could not create socket!");
return -1;
}
PLOG("Bind socket to %d", Sport);
in_addr.sin_port = htons(Sport);
in_addr.sin_family = AF_INET;
in_addr.sin_addr.s_addr = inet_addr(addr);
if ( bind(s, (struct sockaddr *)&in_addr, sizeof (in_addr)) == -1) {
PERR("Could not bind!");
close(s);
return -1;
}
return s;
}
int
recvping(const char *addr)
{
int s, c;
struct sockaddr caddr;
socklen_t lcaddr = sizeof (caddr);
s = announce(addr);
if (s == -1)
return -1;
PLOG("Listen on %s:%d...", addr, Sport);
if (listen(s, 5) == -1) {
PERR("Could not listen!");
close(s);
return -1;
}
while (1) {
Packet p;
int act;
size_t packets;
ssize_t n;
PINF("wait...");
c = accept(s, &caddr, &lcaddr);
if (c == -1) {
PERR("Invalid socket from accept()!");
continue;
}
PLOG("client %d connected...", c);
p.d = (char *)malloc(Databuf);
if (p.d == NULL) {
PERR("Out of memeory!");
close(c);
break;
}
/* receive packets from client */
act = 1; packets = 0;
while (act) {
n = recvpacket(c, &p, p.d, Databuf);
switch (n) {
case -1:
/* error */
PERR("recvpacket() == -1");
case 0:
/* disconnect */
PERR("disconnect");
close(c);
act = 0;
break;
default:
/* check if packet is vaid */
if (checkpacket(n, &p)) {
act = 0;
}
break;
}
if (verbose)
PINF("%u %d", p.h.id, n);
}
PINF("received packets: %u", packets);
free(p.d);
}
close(s);
return 0;
}
int
main(int argc, char *argv[])
{
char listenip[16];
/* DHCP */
if (lwip_nic_init(0, 0, 0)) {
PERR("We got no IP address!");
return 1;
}
verbose = 0;
Genode::Xml_node argv_node = Genode::config()->xml_node().sub_node("argv");
try {
argv_node.attribute("listenip" ).value(listenip, sizeof(listenip));
argv_node.attribute("verbose").value( &verbose );
} catch(...) {
PERR("listenip was not specified!");
return 1;
}
recvping(listenip);
return 0;
}

7
libports/src/test/lwip/pingpong/server/target.mk Normal file
View File

@ -0,0 +1,7 @@
TARGET = test-ping_server
LIBS = cxx env libc libc_lwip lwip
SRC_CC = main.cc ../pingpong.cc
CC_OPT_main += -fpermissive
INC_DIR += $(REP_DIR)/src/lib/lwip/include