58 lines
1.3 KiB
Racket
58 lines
1.3 KiB
Racket
#lang typed/syndicate/roles
|
|
|
|
;; Expected Output
|
|
;; 0
|
|
;; 70
|
|
;; #f
|
|
|
|
(define-constructor (account balance)
|
|
#:type-constructor AccountT
|
|
#:with Account (AccountT Int)
|
|
#:with AccountRequest (AccountT ★/t))
|
|
|
|
(define-constructor (deposit amount)
|
|
#:type-constructor DepositT
|
|
#:with Deposit (DepositT Int)
|
|
#:with DepositRequest (DepositT ★/t))
|
|
|
|
(define-type-alias ds-type
|
|
(U Account
|
|
(Observe AccountRequest)
|
|
(Observe (Observe AccountRequest))
|
|
Deposit
|
|
(Observe DepositRequest)
|
|
(Observe (Observe DepositRequest))))
|
|
|
|
(define-type-alias account-manager-role
|
|
(Role (account-manager)
|
|
(Shares Account)
|
|
(Reacts (Know Deposit))))
|
|
|
|
(define-type-alias client-role
|
|
(Role (client)
|
|
(Reacts (Know Account))))
|
|
|
|
(run-ground-dataspace ds-type
|
|
|
|
(spawn ds-type
|
|
(print-role
|
|
(start-facet account-manager
|
|
(field [balance Int 0])
|
|
(assert (account (ref balance)))
|
|
(on (asserted (deposit (bind amount Int)))
|
|
(set! balance (+ (ref balance) amount))))))
|
|
|
|
(spawn ds-type
|
|
(print-role
|
|
(start-facet observer
|
|
(on (asserted (account (bind amount Int)))
|
|
(displayln amount)))))
|
|
|
|
(spawn ds-type
|
|
(print-role
|
|
(start-facet buyer
|
|
(on (asserted (observe (deposit discard)))
|
|
(start-facet deposits
|
|
(assert (deposit 100))
|
|
(assert (deposit -30))))))))
|