gistfile1.txt

;;;; Soli Deo Gloria
;;;; Author: [email protected]
;;;; ZephyrOS client in Racket

#lang racket

(require racket/place)
(require (planet shawnpresser/racket-unix-sockets:1:0))

(define zephyros-in-ch (place
                        listen-channel
                        (display (place-channel-get zephyros-in-ch))))

(define *zephyros-socket* "/tmp/zephyros.sock")

(define (listen-to-zephyros)
  
  (define (inner-loop listener)
    (printf "listened: ~a" listener)
    (inner-loop))
  
  (let ((listener (unix-socket-listen
                   *zephyros-socket* 5)))
    (inner-loop listener)))