Add tasks for all the new languages

2016-12-05 23:44:36 +01:00 · 2016-12-05 23:44:36 +01:00 · bba7bfd280
commit bba7bfd280
parent 9dc3c2bb62
13208 changed files with 134745 additions and 0 deletions
--- a/Task/Metered-concurrency/EchoLisp/metered-concurrency.echolisp
+++ b/Task/Metered-concurrency/EchoLisp/metered-concurrency.echolisp
@ -0,0 +1,13 @@
+(require 'tasks) ;; tasks library
+
+(define (task id)
+	(wait S) ;; acquire, p-op
+	(printf "task %d acquires semaphore @ %a" id (date->time-string (current-date)))
+	(sleep 2000)
+	(signal S) ;; release, v-op
+	id)
+	
+(define S (make-semaphore 4)) ;; semaphore with init count 4
+
+;; run 10 // tasks
+(for ([i 10]) (task-run (make-task task i ) (random 500)))