scolobb/dds
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

networks: Remove unorg-syn and unorg-asyn.

Browse source
This commit is contained in:
Sergiu Ivanov 2020-03-25 23:21:16 +01:00
parent 319b15d956
commit faa3d9ff00
1 changed files with 1 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
networks.rkt
View file

@ -95,9 +95,7 @@
;; Contracts ;; Contracts
(contract-out [state/c contract?] (contract-out [state/c contract?]
[update-function/c contract?] [update-function/c contract?]
[domain-mapping/c contract?]) [domain-mapping/c contract?]))
;; Syntax
unorg-syn unorg-asyn)
;;; ================= ;;; =================
@ -384,16 +382,10 @@
;;; builds the asyncronous dynamics out of it. ;;; builds the asyncronous dynamics out of it.
(define read-org-network-make-asyn (compose make-asyn-dynamics network-form->network read-org-variable-mapping)) (define read-org-network-make-asyn (compose make-asyn-dynamics network-form->network read-org-variable-mapping))
;;; A shortcut for read-org-network-make-asyn.
(define-syntax-rule (unorg-asyn str) (read-org-network-make-asyn str))
;;; Reads an Org-mode-produced sexp, converts it into a network, and ;;; Reads an Org-mode-produced sexp, converts it into a network, and
;;; builds the synchronous dynamics out of it. ;;; builds the synchronous dynamics out of it.
(define read-org-network-make-syn (compose make-syn-dynamics network-form->network read-org-variable-mapping)) (define read-org-network-make-syn (compose make-syn-dynamics network-form->network read-org-variable-mapping))
;;; A shortcut for read-org-network-make-syn.
(define-syntax-rule (unorg-syn str) (read-org-network-make-syn str))
;;; Pretty-prints a state of the network. ;;; Pretty-prints a state of the network.
(define (pretty-print-state s) (define (pretty-print-state s)
(string-join (hash-map s (λ (key val) (format "~a:~a" key val)) #t))) (string-join (hash-map s (λ (key val) (format "~a:~a" key val)) #t)))