(use-trait ft 'SP2VCQJGH7PHP2DJK7Z0V48AGBHQAW3R3ZW1QF4N.ft-trait.ft-trait)
(define-constant wstx 'SP2VCQJGH7PHP2DJK7Z0V48AGBHQAW3R3ZW1QF4N.wstx)
(define-constant zsbtc 'SP2VCQJGH7PHP2DJK7Z0V48AGBHQAW3R3ZW1QF4N.zsbtc-v2-0)
(define-constant sbtc 'SM3VDXK3WZZSA84XXFKAFAF15NNZX32CTSG82JFQ4.sbtc-token)
(define-constant err-not-found (err u8000000))
(define-constant one u100000000)
(define-read-only (get-sbtc-rewards
(who principal)
(sbtc-balance uint)
)
(let (
;; gets with interest
(reward-balance (unwrap-panic (convert-to sbtc wstx sbtc-balance)))
(reward-program-income-state (unwrap-panic (get-reward-program-income sbtc wstx)))
)
;; get increase in rewards
(let (
(cumulated-balance
(unwrap-panic
(calculate-cumulated-balance
who
'SP2VCQJGH7PHP2DJK7Z0V48AGBHQAW3R3ZW1QF4N.zsbtc-v2-0
'SM3VDXK3WZZSA84XXFKAFAF15NNZX32CTSG82JFQ4.sbtc-token
'SP2VCQJGH7PHP2DJK7Z0V48AGBHQAW3R3ZW1QF4N.wstx
reward-balance
u6
reward-program-income-state
)
)
)
(balance-increase (- cumulated-balance reward-balance))
)
balance-increase
)
)
)
(define-read-only (get-user-sbtc-balance (who principal))
(let ((principal (unwrap-panic (contract-call? 'SP2VCQJGH7PHP2DJK7Z0V48AGBHQAW3R3ZW1QF4N.zsbtc-v2-0 get-principal-balance who))))
(calculate-cumulated-balance-supply who u8 'SM3VDXK3WZZSA84XXFKAFAF15NNZX32CTSG82JFQ4.sbtc-token principal u8)
)
)
(define-read-only (get-apy
(supplied-asset <ft>)
(reward-asset <ft>)
)
(let ((reward-program-income-state (unwrap! (get-reward-program-income supplied-asset reward-asset) err-not-found)))
(ok { liquidity-rate: (get liquidity-rate reward-program-income-state) })
)
)
(define-read-only (calculate-cumulated-balance-supply
(who principal)
(lp-decimals uint)
(asset <ft>)
(asset-balance uint)
(asset-decimals uint))
(let (
(asset-principal (contract-of asset))
(reserve-data (unwrap-panic (contract-call? 'SP2VCQJGH7PHP2DJK7Z0V48AGBHQAW3R3ZW1QF4N.pool-reserve-data get-reserve-state-read asset-principal)))
(user-index (unwrap-panic (contract-call? 'SP2VCQJGH7PHP2DJK7Z0V48AGBHQAW3R3ZW1QF4N.pool-reserve-data get-user-index-read who asset-principal)))
(reserve-normalized-income
(get-normalized-income
(get current-liquidity-rate reserve-data)
(get last-updated-block reserve-data)
(get last-liquidity-cumulative-index reserve-data)))
)
(from-fixed-to-precision
(mul-to-fixed-precision
asset-balance
asset-decimals
(div reserve-normalized-income user-index)
)
asset-decimals
)
)
)
(define-read-only (get-precision (asset <ft>))
(contract-call? 'SP2VCQJGH7PHP2DJK7Z0V48AGBHQAW3R3ZW1QF4N.rewards-data get-asset-precision-read (contract-of asset))
)
(define-read-only (get-price (asset <ft>))
(contract-call? 'SP2VCQJGH7PHP2DJK7Z0V48AGBHQAW3R3ZW1QF4N.rewards-data get-price-read (contract-of asset))
)
(define-read-only (get-y-from-x
(x uint)
(x-decimals uint)
(y-decimals uint)
(x-price uint)
(y-price uint)
)
(if (> x-decimals y-decimals)
;; decrease decimals if x has more decimals
(/ (div-precision-with-factor (mul-precision-with-factor x x-decimals x-price) x-decimals y-price) (pow u10 (- x-decimals y-decimals)))
;; do operations in the amounts with greater decimals, convert x to y-decimals
(div-precision-with-factor (mul-precision-with-factor ( * x (pow u10 (- y-decimals x-decimals))) y-decimals x-price) y-decimals y-price)
)
)
(define-read-only (convert-to
(from <ft>)
(to <ft>)
(from-amount uint))
(let (
(from-precision u8)
(to-precision u6)
(from-price (unwrap-panic (get-price from)))
(to-price (unwrap-panic (get-price to)))
(to-amount (get-y-from-x
from-amount
from-precision
to-precision
from-price
to-price
))
)
(ok to-amount)
)
)
(define-read-only (calculate-cumulated-balance
(who principal)
(lp-supplied-asset <ft>)
(supplied-asset <ft>)
(reward-asset <ft>)
(asset-balance uint)
(asset-decimals uint)
(rewarded-reserve-data {
liquidity-rate: uint,
last-updated-block: uint,
last-liquidity-cumulative-index: uint
})
)
(let (
(reserve-normalized-income
(get-normalized-income
(get liquidity-rate rewarded-reserve-data)
(get last-updated-block rewarded-reserve-data)
(get last-liquidity-cumulative-index rewarded-reserve-data))
)
)
(ok
(mul-precision-with-factor
asset-balance
asset-decimals
(div
reserve-normalized-income
(unwrap! (get-user-program-index-eval asset-balance who (get last-liquidity-cumulative-index rewarded-reserve-data)) err-not-found)))
)
)
)
(define-read-only (get-user-program-index-eval
(balance uint)
(who principal)
(last-liquidity-cumulative-index uint))
(match (get-user-program-index who sbtc wstx)
index (ok index)
(if (> balance u0)
(ok one)
(ok last-liquidity-cumulative-index)
)
)
)
(define-read-only (get-normalized-income
(current-liquidity-rate uint)
(last-updated-block uint)
(last-liquidity-cumulative-index uint))
(let (
(cumulated
(calculate-linear-interest
current-liquidity-rate
(- stacks-block-height last-updated-block))))
(mul cumulated last-liquidity-cumulative-index)
)
)
(define-private (get-user-program-index
(who principal)
(supplied-asset <ft>)
(reward-asset <ft>)
)
(contract-call? 'SP2VCQJGH7PHP2DJK7Z0V48AGBHQAW3R3ZW1QF4N.rewards-data get-user-program-index-read
who
(contract-of supplied-asset)
(contract-of reward-asset)
)
)
(define-private (get-reward-program-income
(supplied-asset <ft>)
(reward-asset <ft>)
)
(contract-call? 'SP2VCQJGH7PHP2DJK7Z0V48AGBHQAW3R3ZW1QF4N.rewards-data get-reward-program-income-read
(contract-of supplied-asset)
(contract-of reward-asset)
)
)
(define-read-only (calculate-linear-interest
(current-liquidity-rate uint)
(delta uint))
(let ((rate (get-rt-by-block current-liquidity-rate delta)))
(+ one rate)
)
)
(define-read-only (mul (x uint) (y uint)) (/ (+ (* x y) (/ one u2)) one))
(define-read-only (div (x uint) (y uint)) (/ (+ (* x one) (/ y u2)) y))
(define-read-only (from-fixed-to-precision (a uint) (decimals-a uint))
(if (> decimals-a u8)
(* a (pow u10 (- decimals-a u8)))
(/ a (pow u10 (- u8 decimals-a)))
)
)
(define-read-only (mul-to-fixed-precision (a uint) (decimals-a uint) (b-fixed uint))
(if (> decimals-a u8)
(mul (/ a (pow u10 (- decimals-a u8))) b-fixed)
(mul (* a (pow u10 (- u8 decimals-a))) b-fixed)
)
)
(define-read-only (div-arbitrary (x uint) (y uint) (arbitrary-prec uint))
(/ (+ (* x (pow u10 arbitrary-prec)) (/ y u2)) y))
(define-read-only (mul-arbitrary (x uint) (y uint) (arbitrary-prec uint))
(/ (+ (* x y) (/ (pow u10 arbitrary-prec) u2)) (pow u10 arbitrary-prec)))
(define-read-only (mul-precision-with-factor (a uint) (decimals-a uint) (b-fixed uint))
(if (> decimals-a u8)
(mul-arbitrary a (* b-fixed (pow u10 (- decimals-a u8))) decimals-a)
(/
(mul-arbitrary (* a (pow u10 (- u8 decimals-a))) b-fixed u8)
(pow u10 (- u8 decimals-a)))
)
)
(define-read-only (div-precision-with-factor (a uint) (decimals-a uint) (b-fixed uint))
(if (> decimals-a u8)
(div-arbitrary a (* b-fixed (pow u10 (- decimals-a u8))) decimals-a)
(/
(div-arbitrary (* a (pow u10 (- u8 decimals-a))) b-fixed u8)
(pow u10 (- u8 decimals-a)))
)
)
(define-read-only (get-rt-by-block (rate uint) (delta uint))
(if (is-eq delta u0)
u0
(let (
(start-time (unwrap-panic (get-stacks-block-info? time (- stacks-block-height delta))))
(end-time (+ u5 (unwrap-panic (get-stacks-block-info? time (- stacks-block-height u1)))))
(delta-time (- end-time start-time))
)
(/ (* rate delta-time) u31536000)
)
)
)