Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-09 22:17:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

New test files

Browse source
This commit is contained in:
Justin Ethier 2019-06-10 18:19:34 -04:00
parent b898f6b954
commit ddcc0522b3
2 changed files with 88 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43
libs/test-atomic-nosync.scm Normal file
View file

@ -0,0 +1,43 @@
;;;; A simple example of using a condition variable to simulate thread-join
(import (scheme base)
(scheme read)
(scheme write)
(srfi 18))
;(define cv (make-condition-variable))
;(define m (make-mutex))
(define *sum* 0)
(define (sum-loop n)
(set! *sum* (+ *sum* 1))
(if (zero? n)
'done
(sum-loop (- n 1))))
(define (sum-entry-pt)
(sum-loop (* 10 100 100)))
;; Thread - Do something, then let main thread know when we are done
(define t1 (make-thread sum-entry-pt))
(define t2 (make-thread sum-entry-pt))
(define t3 (make-thread sum-entry-pt))
(define t4 (make-thread sum-entry-pt))
(define t5 (make-thread sum-entry-pt))
(define t6 (make-thread sum-entry-pt))
(thread-start! t1)
(thread-start! t2)
(thread-start! t3)
(thread-start! t4)
(thread-start! t5)
(thread-start! t6)
(thread-join! t1)
(thread-join! t2)
(thread-join! t3)
(thread-join! t4)
(thread-join! t5)
(thread-join! t6)
(display "main thread done, sum = ")
(display *sum*)
(newline)

45
libs/test-atomic.scm Normal file
View file

@ -0,0 +1,45 @@
;;;; A simple example of using a condition variable to simulate thread-join
(import (scheme base)
(scheme read)
(scheme write)
(cyclone concurrency)
(srfi 18))
;(define cv (make-condition-variable))
;(define m (make-mutex))
(define *sum* (make-atom 0))
(define (sum-loop n)
;;(set! *sum* (+ *sum* 1))
(swap! *sum* + 1)
(if (zero? n)
'done
(sum-loop (- n 1))))
(define (sum-entry-pt)
(sum-loop (* 10 100 100)))
;; Thread - Do something, then let main thread know when we are done
(define t1 (make-thread sum-entry-pt))
(define t2 (make-thread sum-entry-pt))
(define t3 (make-thread sum-entry-pt))
(define t4 (make-thread sum-entry-pt))
(define t5 (make-thread sum-entry-pt))
(define t6 (make-thread sum-entry-pt))
(thread-start! t1)
(thread-start! t2)
(thread-start! t3)
(thread-start! t4)
(thread-start! t5)
(thread-start! t6)
(thread-join! t1)
(thread-join! t2)
(thread-join! t3)
(thread-join! t4)
(thread-join! t5)
(thread-join! t6)
(display "main thread done, sum = ")
(display (ref *sum*))
(newline)