common-lisp: tutorial three code

Author: deadtrickster

common-lisp/emit-log.lisp

@@ -0,0 +1,16 @@
+#!/bin/sh
+
+sbcl --noinform --noprint $@ <<EOF
+
+(ql:quickload :cl-bunny.examples)
+
+(in-package :cl-bunny.examples)
+
+(with-connection ("amqp://")
+  (with-channel ()
+    (let ((msg (format nil "~{~a~^ ~}" (cdr sb-ext:*posix-argv*)))
+          (x (exchange.fanout "logs")))
+      (publish x msg)
+      (format t " [x] Sent '~a'~%" msg))))
+
+EOF

common-lisp/receive-logs.lisp

@@ -0,0 +1,23 @@
+#!/bin/sh
+
+sbcl --noinform --noprint <<EOF
+
+(ql:quickload :cl-bunny.examples)
+
+(in-package :cl-bunny.examples)
+
+(with-connection ("amqp://")
+  (with-channel ()
+    (let ((q (queue.declare-temp)))
+      (queue.bind q "logs")
+      (format t " [*] Waiting for logs. To exit press CTRL+C~%")
+      (handler-case
+          (progn
+            (subscribe q (lambda (message)
+                            (format t " [x] #~a~%" (message-body-string message)))
+                       :type :sync)
+            (consume))
+        (sb-sys:interactive-interrupt ()
+          (sb-ext:exit))))))
+
+EOF