Update schemaish #lang
This commit is contained in:
parent
0e43100e98
commit
aee1eb4c27
|
@ -1,12 +0,0 @@
|
||||||
#lang preserves-schema #:plugin syndicate/schema-compiler
|
|
||||||
;;; SPDX-License-Identifier: LGPL-3.0-or-later
|
|
||||||
;;; SPDX-FileCopyrightText: Copyright © 2021-2023 Tony Garnock-Jones <tonyg@leastfixedpoint.com>
|
|
||||||
|
|
||||||
version 1 .
|
|
||||||
|
|
||||||
BoxState = <BoxState @value int>.
|
|
||||||
SetBox = <SetBox @value int>.
|
|
||||||
|
|
||||||
; BoxCap = BoxState / <Observe =SetBox @observer embedded>.
|
|
||||||
; ClientCap = SetBox / <Observe =BoxState @observer embedded>.
|
|
||||||
.
|
|
|
@ -0,0 +1,12 @@
|
||||||
|
#lang preserves-schema #:plugin syndicate/schema-compiler
|
||||||
|
# SPDX-License-Identifier: LGPL-3.0-or-later
|
||||||
|
# SPDX-FileCopyrightText: Copyright © 2021-2023 Tony Garnock-Jones <tonyg@leastfixedpoint.com>
|
||||||
|
|
||||||
|
version 1 .
|
||||||
|
|
||||||
|
BoxState = <BoxState @value int>.
|
||||||
|
SetBox = <SetBox @value int>.
|
||||||
|
|
||||||
|
# BoxCap = BoxState / <Observe =SetBox @observer embedded>.
|
||||||
|
# ClientCap = SetBox / <Observe =BoxState @observer embedded>.
|
||||||
|
.
|
|
@ -2,7 +2,7 @@
|
||||||
;;; SPDX-License-Identifier: LGPL-3.0-or-later
|
;;; SPDX-License-Identifier: LGPL-3.0-or-later
|
||||||
;;; SPDX-FileCopyrightText: Copyright © 2021-2023 Tony Garnock-Jones <tonyg@leastfixedpoint.com>
|
;;; SPDX-FileCopyrightText: Copyright © 2021-2023 Tony Garnock-Jones <tonyg@leastfixedpoint.com>
|
||||||
|
|
||||||
(require "protocol.rkt")
|
(require "protocol.rkt.prs")
|
||||||
(require "stats.rkt")
|
(require "stats.rkt")
|
||||||
|
|
||||||
(define (box ds LIMIT REPORT_EVERY)
|
(define (box ds LIMIT REPORT_EVERY)
|
||||||
|
|
Loading…
Reference in New Issue