From: Antony Pavlov <antonynpavlov@gmail.com>
To: barebox@lists.infradead.org
Subject: [RFC 09/12] net: picotcp: add ping command
Date: Wed, 15 Jul 2015 23:13:47 +0300 [thread overview]
Message-ID: <1436991230-14251-10-git-send-email-antonynpavlov@gmail.com> (raw)
In-Reply-To: <1436991230-14251-1-git-send-email-antonynpavlov@gmail.com>
Signed-off-by: Antony Pavlov <antonynpavlov@gmail.com>
---
net/Makefile | 1 +
net/picotcp/Kconfig | 5 ++++
net/picotcp_ping.c | 85 +++++++++++++++++++++++++++++++++++++++++++++++++++++
3 files changed, 91 insertions(+)
diff --git a/net/Makefile b/net/Makefile
index d5b133b..04e347f 100644
--- a/net/Makefile
+++ b/net/Makefile
@@ -13,3 +13,4 @@ obj-$(CONFIG_NET_PICOTCP) += picotcp.o
obj-$(CONFIG_CMD_PICOTCP_TEST_IPV4) += picotcp_test_ipv4.o
obj-$(CONFIG_CMD_PICOTCP_IFCONFIG) += picotcp_ifconfig.o
+obj-$(CONFIG_CMD_PICOTCP_PING) += picotcp_ping.o
diff --git a/net/picotcp/Kconfig b/net/picotcp/Kconfig
index 9a2d628..cb60001 100644
--- a/net/picotcp/Kconfig
+++ b/net/picotcp/Kconfig
@@ -43,4 +43,9 @@ config CMD_PICOTCP_IFCONFIG
depends on NET_PICO_SUPPORT_IPV4
prompt "ifconfig command"
+config CMD_PICOTCP_PING
+ bool
+ depends on NET_PICO_SUPPORT_ICMP4
+ prompt "ping command"
+
endif # NET_PICOTCP
diff --git a/net/picotcp_ping.c b/net/picotcp_ping.c
new file mode 100644
index 0000000..d4ceb92
--- /dev/null
+++ b/net/picotcp_ping.c
@@ -0,0 +1,85 @@
+#include <command.h>
+#include <common.h>
+#include <complete.h>
+#include <driver.h>
+#include <poller.h>
+
+#include <pico_stack.h>
+#include <pico_ipv4.h>
+#include <pico_dev_null.h>
+#include <pico_dhcp_client.h>
+#include <pico_icmp4.h>
+
+#define NUM_PING 10
+
+static int ping_done;
+static int ping_code;
+
+/* callback function for receiving ping reply */
+void cb_ping(struct pico_icmp4_stats *s)
+{
+ char host[30];
+ int time_sec = 0;
+ int time_msec = 0;
+
+ /* convert ip address from icmp4_stats structure to string */
+ pico_ipv4_to_string(host, s->dst.addr);
+
+ /* get time information from icmp4_stats structure */
+ time_sec = s->time / 1000;
+ time_msec = s->time % 1000;
+
+ if (s->err == PICO_PING_ERR_REPLIED) {
+ /* print info if no error reported in icmp4_stats structure */
+ printf("%lu bytes from %s: icmp_req=%lu ttl=%lu time=%llu ms\n", \
+ s->size, host, s->seq, s->ttl, s->time);
+ if (s->seq == NUM_PING) {
+ ping_done = 1;
+ }
+ } else {
+ /* else, print error info */
+ printf("PING %lu to %s: Error %d\n", s->seq, host, s->err);
+ ping_done = 1;
+ }
+
+ ping_code = s->err;
+}
+
+static int do_picoping(int argc, char *argv[])
+{
+ int id;
+
+ if (argc < 1) {
+ perror("picoping");
+ return 1;
+ }
+
+ id = pico_icmp4_ping(argv[1], NUM_PING, 1000, 5000, 48, cb_ping);
+
+ if (id == -1) {
+ return -EIO;
+ }
+
+ ping_done = 0;
+ ping_code = PICO_PING_ERR_PENDING;
+
+ while (!ping_done) {
+ if (ctrlc()) {
+ break;
+ }
+ get_time_ns();
+ poller_call();
+ }
+
+ pico_icmp4_ping_abort(id);
+
+ if (ping_code != PICO_PING_ERR_REPLIED) {
+ return -EIO;
+ }
+
+ return 0;
+}
+
+BAREBOX_CMD_START(picoping)
+ .cmd = do_picoping,
+BAREBOX_CMD_END
--
2.1.4
_______________________________________________
barebox mailing list
barebox@lists.infradead.org
http://lists.infradead.org/mailman/listinfo/barebox
next prev parent reply other threads:[~2015-07-15 20:14 UTC|newest]
Thread overview: 15+ messages / expand[flat|nested] mbox.gz Atom feed top
2015-07-15 20:13 [RFC 00/12] barebox picotcp integration (2015.07.15) Antony Pavlov
2015-07-15 20:13 ` [RFC 01/12] picotcp: add barebox target support Antony Pavlov
2015-07-15 20:13 ` [RFC 02/12] picotcp: switch to Kbuild Antony Pavlov
2015-07-15 20:13 ` [RFC 03/12] net: add initial picotcp support Antony Pavlov
2015-07-15 20:13 ` [RFC 04/12] WIP: fs/nfs.c: convert to picotcp Antony Pavlov
2015-07-16 19:51 ` Sascha Hauer
2015-07-17 7:18 ` Antony Pavlov
2015-07-15 20:13 ` [RFC 05/12] WIP: fs/tftp.c: " Antony Pavlov
2015-07-15 20:13 ` [RFC 06/12] WIP: net/dns: " Antony Pavlov
2015-07-15 20:13 ` [RFC 07/12] net: picotcp: add test_picotcp command Antony Pavlov
2015-07-15 20:13 ` [RFC 08/12] net: picotcp: add ifconfig command Antony Pavlov
2015-07-15 20:13 ` Antony Pavlov [this message]
2015-07-15 20:13 ` [RFC 10/12] net: picotcp: add route command Antony Pavlov
2015-07-15 20:13 ` [RFC 11/12] sandbox_defconfig: switch to picotcp Antony Pavlov
2015-07-15 20:13 ` [RFC 12/12] WIP: sandbox_defconfig: enable network testing-related stuff Antony Pavlov
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=1436991230-14251-10-git-send-email-antonynpavlov@gmail.com \
--to=antonynpavlov@gmail.com \
--cc=barebox@lists.infradead.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox