https://github.com/wingo/fibers

Concurrent ML-like concurrency for Guile
https://github.com/wingo/fibers

Last synced: 2 months ago
JSON representation

Concurrent ML-like concurrency for Guile

• Host: GitHub
• URL: https://github.com/wingo/fibers
• Owner: wingo
• License: lgpl-3.0
• Created: 2016-07-04T08:01:36.000Z (over 8 years ago)
• Default Branch: master
• Last Pushed: 2024-11-10T16:11:11.000Z (2 months ago)
• Last Synced: 2024-11-10T16:27:02.928Z (2 months ago)
• Language: Scheme
• Homepage:
• Size: 478 KB
• Stars: 310
• Watchers: 15
• Forks: 32
• Open Issues: 32
• Metadata Files:
  • Readme: README
  • Changelog: ChangeLog
  • License: COPYING
  • Authors: AUTHORS

Awesome Lists containing this project

• awesome-racket-and-scheme - fibers - like concurrency for Guile (Scheme / course)

README

        
# Fibers

Fibers is a facility that provides Go-like concurrency for Guile

Scheme, in the tradition of Concurrent ML.

[![GNU Guile 2.0](https://github.com/wingo/fibers/actions/workflows/guile2.2.yml/badge.svg)](https://github.com/wingo/fibers/actions/workflows/guile2.2.yml)

[![GNU Guile 3.0](https://github.com/wingo/fibers/actions/workflows/guile3.0.yml/badge.svg)](https://github.com/wingo/fibers/actions/workflows/guile3.0.yml)

## A pasteable introduction to using Fibers

```scheme

;; Paste this into your guile interpreter!

(use-modules (fibers) (fibers channels) (ice-9 match))

(define (server in out)

  (let lp ()

    (match (pk 'server-received (get-message in))

      ('ping! (put-message out 'pong!))

      ('sup   (put-message out 'not-much-u))

      (msg    (put-message out (cons 'wat msg))))

    (lp)))

(define (client in out)

  (for-each (lambda (msg)

              (put-message out msg)

              (pk 'client-received (get-message in)))

            '(ping! sup)))

(run-fibers

 (lambda ()

   (let ((c2s (make-channel))

         (s2c (make-channel)))

     (spawn-fiber (lambda () (server c2s s2c)))

     (client s2c c2s))))

```

If you paste the above at into a Guile REPL, it prints out:

```scheme

;;; (server-received ping!)

;;; (client-received pong!)

;;; (server-received sup)

;;; (client-received not-much-u)

```

## Contact info

Mailing List: `[email protected]`

Homepage: https://github.com/wingo/fibers

Download: https://github.com/wingo/fibers/releases

Manual: https://github.com/wingo/fibers/wiki/Manual

## Build dependencies

Guile 2.1.7 or newer (https://www.gnu.org/software/guile/).

If you build from source you also need `autoconf`, `automake` and `libtool`.

## Installation quickstart

Install from a release tarball using the standard autotools

incantation:

```

./configure --prefix=/opt/guile && make && make install

```

Build from Git is the same, except run `autoreconf -vif` first.

You can run without installing, just run `./env guile`.

## Copying Fibers

Distribution of Fibers is under the LGPLv3+. See the `COPYING` and

`COPYING.LESSER` files for more information.

## Copying this file

Copyright (C) 2016 Free Software Foundation, Inc.

Copying and distribution of this file, with or without modification, are

permitted in any medium without royalty provided the copyright notice

and this notice are preserved.