;; lib/relations/api.sx — relationship lifecycle + current-db convenience layer.
;;
;; A relations db is a live Datalog db holding rel(Src,Dst,Kind) facts (and, for
;; federation, peer_rel/trust facts) under the engine ruleset
;; (lib/relations/engine.sx). The query functions live in engine.sx; this module
;; owns db construction, the assert/retract lifecycle, and a current-db
;; convenience layer for callers that load a fact base once and query without
;; threading the db around. This mirrors lib/acl/api.sx.

(define
  relations-build-db
  (fn (facts) (dl-program-data facts relations-rules)))

(define relations-current-db nil)

(define
  relations/load!
  (fn
    (facts)
    (do
      (set! relations-current-db (relations-build-db facts))
      relations-current-db)))

(define
  relations-ensure-db!
  (fn
    ()
    (do
      (when
        (= relations-current-db nil)
        (set! relations-current-db (relations-build-db (list))))
      relations-current-db)))

;; Add a relationship to the current db (re-saturates).
(define
  relations/relate
  (fn
    (src dst kind)
    (dl-assert! (relations-ensure-db!) (relations-rel src dst kind))))

;; Remove a relationship from the current db (re-saturates).
(define
  relations/unrelate
  (fn
    (src dst kind)
    (dl-retract! (relations-ensure-db!) (relations-rel src dst kind))))

(define
  relations/children
  (fn (node kind) (relations-children-of (relations-ensure-db!) node kind)))

(define
  relations/parents
  (fn (node kind) (relations-parents-of (relations-ensure-db!) node kind)))

(define
  relations/related
  (fn (node kind) (relations-related (relations-ensure-db!) node kind)))

(define
  relations/descendants
  (fn (node kind) (relations-descendants (relations-ensure-db!) node kind)))

(define
  relations/ancestors
  (fn (node kind) (relations-ancestors (relations-ensure-db!) node kind)))

(define
  relations/reachable?
  (fn (a b kind) (relations-reachable? (relations-ensure-db!) a b kind)))

(define
  relations/roots
  (fn (kind) (relations-roots (relations-ensure-db!) kind)))

(define
  relations/leaves
  (fn (kind) (relations-leaves (relations-ensure-db!) kind)))

(define
  relations/cycle?
  (fn (node kind) (relations-cycle? (relations-ensure-db!) node kind)))

(define
  relations/acyclic?
  (fn (kind) (relations-acyclic? (relations-ensure-db!) kind)))