From: Christopher Allan Webber Date: Mon, 31 Jul 2017 15:56:35 +0000 (-0500) Subject: Add daydream.scm and re-enable some files in Makefile.am. X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=f8f472befbca280fe63848d37595fc6ff327ba92;p=8sync.git Add daydream.scm and re-enable some files in Makefile.am. * 8sync/daydream.scm: New file. * Makefile.am (SOURCES): Adjust for modules which currently do compile. --- diff --git a/8sync/daydream.scm b/8sync/daydream.scm new file mode 100644 index 0000000..291d010 --- /dev/null +++ b/8sync/daydream.scm @@ -0,0 +1,43 @@ +;;; 8sync --- Asynchronous programming for Guile +;;; Copyright © 2017 Christopher Allan Webber +;;; +;;; This file is part of 8sync. +;;; +;;; 8sync is free software: you can redistribute it and/or modify it +;;; under the terms of the GNU Lesser General Public License as +;;; published by the Free Software Foundation, either version 3 of the +;;; License, or (at your option) any later version. +;;; +;;; 8sync is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU Lesser General Public License for more details. +;;; +;;; You should have received a copy of the GNU Lesser General Public +;;; License along with 8sync. If not, see . + +(define-module (8sync daydream) + #:use-module (8sync) + #:use-module (fibers) + #:export (daydream)) + +;;; Daydreaming is a lot like sleeping, except it doesn't block other +;;; message correspondence. + +(define-actor () + ((dream daydreamer-dream))) + +(define (daydreamer-dream daydreamer message + secs) + (sleep secs) + ;; We're a single use actor, so we blow up + (self-destruct daydreamer) + ;; Now reply to the actor's continuation + 'wake-up) + +;; TODO: don't require the actor here +(define (daydream secs) + (define dreamer + (create-actor ((@@ (8sync actors) *current-actor*)) + )) + (<-wait dreamer 'dream secs)) diff --git a/Makefile.am b/Makefile.am index 2cbd695..196e863 100644 --- a/Makefile.am +++ b/Makefile.am @@ -47,15 +47,16 @@ godir=$(libdir)/guile/2.2/ccache SOURCES = \ 8sync.scm \ 8sync/actors.scm \ - 8sync/inbox.scm -# 8sync/repl.scm \ + 8sync/daydream.scm \ + 8sync/inbox.scm \ + 8sync/repl.scm \ + 8sync/rmeta-slot.scm \ + 8sync/systems/irc.scm # 8sync/agenda.scm \ # 8sync/debug.scm \ # 8sync/ports.scm \ -# 8sync/rmeta-slot.scm \ # 8sync/contrib/base64.scm \ # 8sync/contrib/sha-1.scm \ -# 8sync/systems/irc.scm \ # 8sync/systems/web.scm \ # 8sync/systems/websocket.scm \ # 8sync/systems/websocket/client.scm \