networks: Redefine ppsg and ppsgb as functions and export them.

This commit is contained in:
Sergiu Ivanov 2020-05-28 00:49:29 +02:00
parent 28a77d1e20
commit cd00e2a4d4

View File

@ -55,7 +55,9 @@
[pretty-print-boolean-state (-> state? string?)] [pretty-print-boolean-state (-> state? string?)]
[pretty-print-state-graph-with (-> graph? (-> state? string?) graph?)] [pretty-print-state-graph-with (-> graph? (-> state? string?) graph?)]
[pretty-print-state-graph (-> graph? graph?)] [pretty-print-state-graph (-> graph? graph?)]
[ppsg (-> graph? graph?)]
[pretty-print-boolean-state-graph (-> graph? graph?)] [pretty-print-boolean-state-graph (-> graph? graph?)]
[ppsgb (-> graph? graph?)]
[build-full-boolean-state-graph (-> dynamics? graph?)] [build-full-boolean-state-graph (-> dynamics? graph?)]
[build-full-boolean-state-graph-annotated (-> dynamics? graph?)] [build-full-boolean-state-graph-annotated (-> dynamics? graph?)]
[tabulate-state (->* (procedure? domain-mapping/c) (#:headers boolean?) [tabulate-state (->* (procedure? domain-mapping/c) (#:headers boolean?)
@ -590,14 +592,14 @@
(pretty-print-state-graph-with gr pretty-print-state)) (pretty-print-state-graph-with gr pretty-print-state))
;;; A shortcut for pretty-print-state-graph. ;;; A shortcut for pretty-print-state-graph.
(define-syntax-rule (ppsg gr) (pretty-print-state-graph gr)) (define ppsg pretty-print-state-graph)
;;; Pretty prints a state graph with pretty-print-boolean-state. ;;; Pretty prints a state graph with pretty-print-boolean-state.
(define (pretty-print-boolean-state-graph gr) (define (pretty-print-boolean-state-graph gr)
(pretty-print-state-graph-with gr pretty-print-boolean-state)) (pretty-print-state-graph-with gr pretty-print-boolean-state))
;;; A shortcut for pretty-print-boolean-state-graph. ;;; A shortcut for pretty-print-boolean-state-graph.
(define-syntax-rule (ppsgb gr) (pretty-print-boolean-state-graph gr)) (define ppsgb pretty-print-boolean-state-graph)
;;; Builds the full state graph of a Boolean network. ;;; Builds the full state graph of a Boolean network.
(define (build-full-boolean-state-graph dyn) (define (build-full-boolean-state-graph dyn)