#!hacchpsimguile -b
!#
;; "bool-split-select-a-07.hacchpsimscm"
;;	$Id: bool-split-select-a-08.hacchpsimscm,v 1.2 2007/04/20 18:26:29 fang Exp $
;; vi: ft=scheme
;; @haco@ bool-split-select-a.haco-a

; (use-modules (hackt chpsim-primitives))
(use-modules (hackt chpsim))
; (use-modules (ice-9 streams))
; (use-modules (hackt streams))
; (use-modules (hackt rb-tree))


; "all static events: "
; (stream-for-each-display-newline all-static-events-stream)

"events with multiple entries (branch-joins and loop-heads):"
(define multi-entries (force static-events-with-multiple-entries-delayed))
multi-entries

"testing a depth-first traversal from root node:"
(static-events-depth-first-walk (lambda (x) (display x) (newline)))

"showing loop-head-tail map:"
(define loop-heads (force static-loop-head-events-delayed))
loop-heads

"showing loop-tail-head map:"
(define loop-tails (force static-loop-tail-events-delayed))
loop-tails


"showing branch-head-tail pairs:"
(define branch-heads (force static-branch-head-tail-map-delayed))
branch-heads

"showing branch-tail-head pairs:"
(define branch-tails (force static-branch-tail-head-map-delayed))
branch-tails

"events 7,12 are the only branch head-tail pair."

