Anonymous user
Events: Difference between revisions
→{{header|Delphi}}
Line 176:
10-11-2010 18:35:12</pre>
=={{header|Clojure}}==
{{trans|Go}}
<lang lisp>(ns async-example.core
(:require [clojure.core.async :refer [>! <! >!! <!! go chan]])
(:require [clj-time.core :as time])
(:require [clj-time.format :as time-format])
(:gen-class))
;; Helper functions (logging & time stamp)
; Time stamp format
(def custom-formatter (time-format/formatter "yyyy:MM:dd:ss.SS"))
(defn safe-println [& more]
" This function avoids interleaving of text output when using println due to race condition for multi-processes printing
as discussed http://yellerapp.com/posts/2014-12-11-14-race-condition-in-clojure-println.html "
(.write *out* (str (clojure.string/join " " more) "\n")))
(defn log [s]
" Outputs mesage with time stamp "
(safe-println (time-format/unparse custom-formatter (time/now)) ":" s))
;; Main code
(defn -main [& args]
(let [c (chan)]
(log "Program start")
(go
(log "Task start")
(log (str "Event received by task: "(<! c))))
(<!!
(go
(log "program sleeping")
(Thread/sleep 1000) ; Wait 1 second
(log "Program signaling event")
(>! c "reset") ; Send message to task
))))
; Invoke -main function
(-main)
</lang>
{{Output}}
<pre>
2016:10:18:06.93 : Program start
2016:10:18:06.94 : task start
2016:10:18:06.94 : program sleeping
2016:10:18:07.94 : Program signaling event
2016:10:18:07.94 : Event received by task: reset
</pre>
=={{header|Delphi}}==
<lang Delphi>program Events;
| |||