Data commit

Task/Distributed-programming/LFE/distributed-programming-1.lfe

@@ -0,0 +1,5 @@
+$ ./bin/lfe
+Erlang/OTP 17 [erts-6.2] [source] [64-bit] [smp:4:4] [async-threads:10] [hipe] [kernel-poll:false]
+
+LFE Shell V6.2 (abort with ^G)
+>

Task/Distributed-programming/LFE/distributed-programming-2.lfe

@@ -0,0 +1,19 @@
+> (defun get-server-name ()
+    (list_to_atom (++ "exampleserver@" (element 2 (inet:gethostname)))))
+
+> (defun start ()
+    (net_kernel:start `(,(get-server-name) shortnames))
+    (erlang:set_cookie (node) 'rosettaexample)
+    (let ((pid (spawn #'listen/0)))
+      (register 'serverref pid)
+      (io:format "~p ready~n" (list (node pid)))
+      'ok))
+
+> (defun listen ()
+    (receive
+      (`#(echo ,pid ,data)
+        (io:format "Got ~p from ~p~n" (list data (node pid)))
+        (! pid `#(hello ,data))
+        (listen))
+      (x
+        (io:format "Unexpected pattern: ~p~n" `(,x)))))

Task/Distributed-programming/LFE/distributed-programming-3.lfe

@@ -0,0 +1,14 @@
+> (defun get-server-name ()
+    (list_to_atom (++ "exampleserver@" (element 2 (inet:gethostname)))))
+
+> (defun send (data)
+    (net_kernel:start '(exampleclient shortnames))
+    (erlang:set_cookie (node) 'rosettaexample)
+    (io:format "connecting to ~p~n" `(,(get-server-name)))
+    (! `#(serverref ,(get-server-name)) `#(echo ,(self) ,data))
+    (receive
+      (`#(hello ,data)
+        (io:format "Received ~p~n" `(,data)))
+      (x
+        (io:format "Unexpected pattern: ~p~n" (list x))))
+    'ok)

Task/Distributed-programming/LFE/distributed-programming-4.lfe

@@ -0,0 +1,4 @@
+> (start)
+exampleserver@yourhostname ready
+ok
+(exampleserver@yourhostname)>

Task/Distributed-programming/LFE/distributed-programming-5.lfe

@@ -0,0 +1,13 @@
+> (send "hi there")
+connecting to exampleserver@yourhostname
+Received "hi there"
+ok
+(exampleclient@yourhostname)> (send 42)
+connecting to exampleserver@yourhostname
+Received 42
+ok
+(exampleclient@yourhostname)> (send #(key value))
+connecting to exampleserver@yourhostname
+Received {key,value}
+ok
+(exampleclient@yourhostname)>

Task/Distributed-programming/LFE/distributed-programming-6.lfe

@@ -0,0 +1,3 @@
+Got "hi there" from exampleclient@yourhostname
+Got 42 from exampleclient@yourhostname
+Got {key,value} from exampleclient@yourhostname