https://github.com/ahungry/janet-pobox

Clojure like atoms/spinlocking in Janet
https://github.com/ahungry/janet-pobox

Last synced: about 2 months ago
JSON representation

Clojure like atoms/spinlocking in Janet

• Host: GitHub
• URL: https://github.com/ahungry/janet-pobox
• Owner: ahungry
• License: gpl-3.0
• Created: 2020-05-27T04:36:08.000Z (over 4 years ago)
• Default Branch: master
• Last Pushed: 2022-02-27T03:19:25.000Z (almost 3 years ago)
• Last Synced: 2024-08-04T04:01:04.575Z (5 months ago)
• Language: C
• Homepage:
• Size: 35.2 KB
• Stars: 11
• Watchers: 5
• Forks: 0
• Open Issues: 0
• Metadata Files:
  • Readme: README.md
  • License: LICENSE

Awesome Lists containing this project

• awesome-janet - janet-pobox - Clojure like atoms (Concurrency)

README

        
# Janet PObox

Janet uses message passing among threads for it's native concurrency

model.

While I like the Erlang'ish approach, I was missing Clojure atoms, so

I whipped this together.  So far, it seems lossless after using

pthread spinlocks instead of my hand-rolled one (which was still

roughly 99.9% lossless).

```clojure

(import build/pobox :as pobox)

(thread/new (fn [_] (pobox/make :counter 0)))

(map (fn [_] (thread/new (fn [_] (os/sleep 1) (pobox/update :counter inc))))

     (range 100))

(pobox/make :map @{:a 1})

# # Also illustrate some concurrency in just using a common storage area

# # among Janet threads

(thread/new (fn [_] (os/sleep 0.2) (pobox/update :map (fn [m] (put m :b 2)))))

(thread/new (fn [_] (os/sleep 0.2) (pobox/update :map (fn [m] (put m :c 3)))))

(thread/new (fn [_] (os/sleep 0.2) (pobox/update :map (fn [m] (put m :d "woohoo")))))

(thread/new (fn [_] (os/sleep 0.2) (pobox/update :map (fn [m] (put m :b {:x 10 :w 20})))))

# # Give enough sleep to let things finish

(os/sleep 2)

(pp (pobox/get :counter))

(pp (pobox/get :map))

(assert (= 100 (pobox/get :counter)))

(assert (deep= @{:c 3 :a 1 :b 2 :d "woohoo" :b {:x 10 :w 20}} (pobox/get :map)))

(print "All tests passing!")

```

```sh

true

100

@{:a 1 :c 3 :b 2}

janet test.janet  0.23s user 0.15s system 18% cpu 2.058 total

```

# License

Copyright 2020 Matthew Carter  GPLv3 or later