oracle-v6

;; Oracle Price Feed Contract
(define-constant contract-owner tx-sender)
(define-constant err-unauthorized (err u401))
(define-constant err-stale-price (err u402))
(define-constant err-invalid-price (err u403))

;; Price data
(define-map price-feeds (string-ascii 10) {
	price: uint,
	timestamp: uint,
	decimals: uint,
	source: (string-ascii 20)
})

;; Oracle operators
(define-map oracle-operators principal bool)
(define-data-var price-staleness-threshold uint u3600) ;; 1 hour

;; Initialize owner as operator
(map-set oracle-operators contract-owner true)

;; Update price feed
(define-public (update-price (symbol (string-ascii 10)) (price uint) (decimals uint) (source (string-ascii 20)))
	(begin
		(asserts! (default-to false (map-get? oracle-operators tx-sender)) err-unauthorized)
		(asserts! (> price u0) err-invalid-price)
		(map-set price-feeds symbol {
			price: price,
			timestamp: stacks-block-height,
			decimals: decimals,
			source: source
		})
		(ok true)))

;; Get price feed
(define-read-only (get-price (symbol (string-ascii 10)))
	(let ((feed (unwrap! (map-get? price-feeds symbol) (err u404))))
		(asserts! (< (- stacks-block-height (get timestamp feed)) (var-get price-staleness-threshold)) err-stale-price)
		(ok (get price feed))))

;; Get price with timestamp
(define-read-only (get-price-data (symbol (string-ascii 10)))
	(map-get? price-feeds symbol))

;; Add oracle operator
(define-public (add-oracle-operator (operator principal))
	(begin
		(asserts! (is-eq tx-sender contract-owner) err-unauthorized)
		(map-set oracle-operators operator true)
		(ok true)))

;; Remove oracle operator
(define-public (remove-oracle-operator (operator principal))
	(begin
		(asserts! (is-eq tx-sender contract-owner) err-unauthorized)
		(map-delete oracle-operators operator)
		(ok true)))

;; Set staleness threshold
(define-public (set-staleness-threshold (threshold uint))
	(begin
		(asserts! (is-eq tx-sender contract-owner) err-unauthorized)
		(var-set price-staleness-threshold threshold)
		(ok true)))

;; Check if price is fresh
(define-read-only (is-price-fresh (symbol (string-ascii 10)))
	(match (map-get? price-feeds symbol)
		feed (< (- stacks-block-height (get timestamp feed)) (var-get price-staleness-threshold))
		false))

;; Get multiple prices
(define-read-only (get-prices (symbols (list 5 (string-ascii 10))))
	(map get-price-data symbols))

(define-read-only (is-oracle-operator (operator principal))
	(default-to false (map-get? oracle-operators operator)))