syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Pretty-print struct process instances

This commit is contained in:
Tony Garnock-Jones 2017-07-12 10:29:26 -04:00
parent 3073d8b614
commit 990ad4ca72
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
racket/syndicate/core.rkt
View File

@ -69,6 +69,7 @@
(require "trie.rkt")
(require "patch.rkt")
(require "mux.rkt")
(require "pretty.rkt")
;; Events = Patches ∪ Messages
(struct message (body) #:prefab)
@ -97,7 +98,10 @@
(struct quit (exn actions) #:prefab)
;; A Process is per-process data: (process Any Behavior Any)
(struct process (name behavior state) #:transparent)
(struct process (name behavior state) #:transparent
#:methods gen:syndicate-pretty-printable
[(define (syndicate-pretty-print proc [p (current-output-port)])
(pretty-print-process proc p))])
;; A PID is a Nat.
;; A Label is a PID or 'meta.
@ -238,6 +242,17 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (pretty-print-process proc p)
(match-define (process name behavior state) proc)
(fprintf p "PROCESS:\n")
(fprintf p " - Name: ~v\n" name)
(fprintf p " - Behavior: ~v\n" behavior)
(fprintf p " - ")
(display (indented-port-output 3 (lambda (p) (syndicate-pretty-print state p)) #:first-line? #f) p)
(newline p))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Local Variables:
;;; eval: (put 'match-event 'scheme-indent-function 1)
;;; eval: (put 'match-event 'racket-indent-function 1)