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/Events/LFE/events.lfe
+++ b/Task/Events/LFE/events.lfe
@ -0,0 +1,19 @@
+(defun log (msg)
+  (let ((`#(,h ,m ,s) (erlang:time)))
+    (lfe_io:format "~2.B:~2.B:~2.B => ~s~n" `(,h ,m ,s ,msg))))
+
+(defun task ()
+  (log "Task start")
+  (receive
+    ('go 'ok))
+  (log "Task resumed"))
+
+(defun run ()
+  (log "Program start")
+  (let ((pid (spawn (lambda () (task)))))
+    (progn
+      (log "Program sleeping")
+      (timer:sleep 1000)
+      (log "Program signalling event")
+      (! pid 'go)
+      (timer:sleep 100))))