-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathpackage.lisp
42 lines (37 loc) · 1.42 KB
/
package.lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
(defpackage :myriam
(:nicknames :myr)
(:import-from :bordeaux-threads :make-thread)
(:import-from :pzmq :with-context :with-socket :bind :connect :curve-keypair)
(:import-from :usocket :socket-listen :get-local-port)
(:import-from :str :split)
(:import-from :conspack :encode :decode)
;; am i importing serapeum just to use its pretty -> type declaration syntax? yes. yes i am.
(:import-from :serapeum :-> :count-cpus)
(:import-from :sha3 :sha3-digest-vector)
(:import-from :lparallel :*kernel* :make-kernel :make-channel :submit-task :try-receive-result
:*task-category* :kill-tasks)
(:import-from :ppcre :create-scanner :scan-to-strings)
(:import-from :uuid :make-v4-uuid)
(:import-from :babel :string-to-octets :octets-to-string)
(:export
;; core functionlity
:action :msg :spawn :send :send* :*self*
;; identity
:with-self-identity :with-target-identity
:*target-public-identity* :*current-self-identity*
:make-self-identity :self->public-identity
:public-identity :public-identity-key :public-identity-hash
:self-identity :self-identity-public-key :self-identity-secret-key :self-identity-hash
;; context
:with-new-context
;; utils
:*send-timeout*
:*print-internal-actor-error-messages*
:change-host
;; actor query
:all-actors :stop-all-actors
;; authentication
:spawn-authenticator
:kill-authenticator
:authenticator-alive-p)
(:use :cl))