swift-bit-77

;; agate-gate
(define-map volume-log { id: uint } { actor: principal, block: uint, data: (string-ascii 64) })
(define-data-var next-id uint u1)

(define-public (log-event (data (string-ascii 64)))
  (let ((id (var-get next-id)))
    (map-set volume-log { id: id }
      { actor: tx-sender, block: block-height, data: data })
    (var-set next-id (+ id u1))
    (ok id)))

(define-read-only (get-event (id uint))
  (ok (map-get? volume-log { id: id })))

(define-read-only (get-count)
  (ok (- (var-get next-id) u1)))