From fa6e98d8ecf58d4ad4144636f58820d9102695c4 Mon Sep 17 00:00:00 2001
From: Benjamin Franzke <benjaminfranzke@googlemail.com>
Date: Thu, 8 Nov 2012 14:42:38 +0100
Subject: Add an example on how to connect, write and read from a socket with
 GNU Prolog

---
 example/socket.pl | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 example/socket.pl

(limited to 'example')

diff --git a/example/socket.pl b/example/socket.pl
new file mode 100644
index 0000000..41f87d7
--- /dev/null
+++ b/example/socket.pl
@@ -0,0 +1,10 @@
+start:-start(localhost).
+start(Host):-start(Host, 8068).
+
+start(Host,Port):-
+socket('AF_INET', Socket),
+hostname_address(Host, HostAddress),
+socket_connect(Socket, 'AF_INET'(HostAddress, Port), StreamIn, StreamOut),
+write(StreamOut, c), flush_output(StreamOut),
+read_atom(StreamIn, X), write(X), nl,
+socket_close(Socket).
-- 
cgit