;; @contract Vault
;; @version 0.1
(impl-trait .test-vault-trait-v6.vault-trait)
;;-------------------------------------
;; Constants
;;-------------------------------------
(define-constant ERR_DEPOSIT_CAP_EXCEEDED (err u103001))
(define-constant ERR_BELOW_MIN (err u103002))
(define-constant ERR_NO_CLAIM_FOR_ID (err u103003))
(define-constant ERR_NOT_COOLED_DOWN (err u103004))
(define-constant ERR_ALREADY_FUNDED (err u103005))
(define-constant ERR_NOT_FUNDED (err u103006))
(define-constant ERR_EMPTY_LIST (err u103007))
(define-constant ERR_NOT_AUTHORIZED (err u103008))
(define-constant share-base u100000000) ;; 10^8 = 100000000 (share price base)
(define-constant bps-base u10000) ;; 10^4 = 10000 (basis points base)
(define-constant reserve .test-reserve-hbtc-v6)
(define-constant sbtc-token 'SM3VDXK3WZZSA84XXFKAFAF15NNZX32CTSG82JFQ4.sbtc-token)
(define-constant fee-collector .test-fee-collector-hbtc-v6)
;;-------------------------------------
;; Maps
;;-------------------------------------
(define-map claims
{
claim-id: uint
}
{
user: principal,
shares: uint, ;; number of hBTC shares to burn at funding time
share-price: (optional uint), ;; share price at funding time (none until funded)
assets: (optional uint), ;; gross asset amount (includes fee) - calculated at funding time
fee: (optional uint), ;; fee amount in asset
fee-bps: uint, ;; fee basis points
ts: uint ;; timestamp in s claim after cooldown
}
)
;;-------------------------------------
;; Getters
;;-------------------------------------
;; @desc - preview how many shares would be received for depositing a given asset amount
(define-read-only (preview-deposit (assets uint))
(contract-call? .test-state-hbtc-v6 convert-to-shares assets)
)
;; @desc - preview how many assets would be received for redeeming a given number of shares
(define-read-only (preview-redeem (shares uint))
(contract-call? .test-state-hbtc-v6 convert-to-assets shares)
)
(define-read-only (get-claim (id uint))
(ok (unwrap! (map-get? claims { claim-id: id }) ERR_NO_CLAIM_FOR_ID))
)
;;-------------------------------------
;; User
;;-------------------------------------
;; @desc - deposit asset to mint shares
(define-public (deposit (assets uint) (affiliate (optional (buff 64))))
(let (
(state (contract-call? .test-state-hbtc-v6 get-deposit-state assets))
(shares (get shares state))
)
(try! (contract-call? .test-blacklist-vaults-v6 check-is-not-soft contract-caller))
(try! (contract-call? .test-state-hbtc-v6 check-is-deposit-enabled))
(asserts! (<= (+ (get net-assets state) assets) (get deposit-cap state)) ERR_DEPOSIT_CAP_EXCEEDED)
(asserts! (>= assets (get min-deposit state)) ERR_BELOW_MIN)
(try! (contract-call? 'SM3VDXK3WZZSA84XXFKAFAF15NNZX32CTSG82JFQ4.sbtc-token transfer assets contract-caller reserve none))
(try! (contract-call? .test-state-hbtc-v6 update-state
(list
{ type: "total-assets", amount: assets, is-add: true })
none
(some { amount: shares, is-add: true, user: contract-caller })))
(print { action: "deposit", user: contract-caller, data: { assets: assets, shares: shares, affiliate: affiliate, net-assets: (get net-assets state) } })
(ok shares)
)
)
;; @desc - creates a claim for redeem operations
(define-private (create-claim (shares uint) (exit-fee uint) (cooldown uint))
(let (
(new-claim-id (try! (contract-call? .test-state-hbtc-v6 increment-claim-id)))
(ts (+ stacks-block-time cooldown))
)
;; Transfer shares from user to vault
(try! (contract-call? .test-token-hbtc-v6 transfer shares contract-caller current-contract none))
(map-set claims { claim-id: new-claim-id }
{
user: contract-caller,
shares: shares,
share-price: none, ;; Will be set at funding time
assets: none, ;; Will be calculated at funding time
fee: none, ;; Will be calculated at funding time
fee-bps: exit-fee,
ts: ts
}
)
(print { action: "create-claim", user: contract-caller, data: { claim-id: new-claim-id, shares: shares, cooldown: cooldown, fee-bps: exit-fee, ts: ts } })
(ok new-claim-id)
)
)
;; @desc - creates a claim to redeem shares for assets after cooldown period has passed
(define-public (request-redeem (shares uint) (is-express bool))
(let (
(state (contract-call? .test-state-hbtc-v6 get-redeem-state contract-caller is-express))
)
(asserts! (>= shares (get min-redeem state)) ERR_BELOW_MIN)
(try! (contract-call? .test-blacklist-vaults-v6 check-is-not-soft contract-caller))
(try! (contract-call? .test-state-hbtc-v6 check-redeem-auth shares is-express))
(let ((claim-id (try! (create-claim shares (get exit-fee state) (get cooldown state)))))
(print { action: "request-redeem", user: contract-caller, data: { claim-id: claim-id, shares: shares, is-express: is-express } })
(ok claim-id)
)
)
)
;; @desc - executes a claim for each claim-id in the list
(define-public (redeem-many (entries (list 1000 uint)))
(begin
(try! (contract-call? .test-state-hbtc-v6 check-is-redeem-enabled))
(ok (map redeem-internal entries))
)
)
;; @desc - transfers asset to user after cooldown window has passed (claim must be funded)
(define-public (redeem (claim-id uint))
(begin
(try! (contract-call? .test-state-hbtc-v6 check-is-redeem-enabled))
(redeem-internal claim-id)
)
)
;; @desc - internal function to perform the redeem operation
(define-private (redeem-internal (claim-id uint))
(let (
(current-claim (try! (get-claim claim-id)))
(assets (unwrap! (get assets current-claim) ERR_NOT_FUNDED))
(fee (unwrap-panic (get fee current-claim)))
(user (get user current-claim))
(assets-net (- assets fee))
)
(asserts! (>= stacks-block-time (get ts current-claim)) ERR_NOT_COOLED_DOWN)
(try! (contract-call? .test-blacklist-vaults-v6 check-is-not-soft user))
(try! (contract-call? 'SM3VDXK3WZZSA84XXFKAFAF15NNZX32CTSG82JFQ4.sbtc-token transfer assets-net current-contract user none))
(if (> fee u0)
(try! (contract-call? 'SM3VDXK3WZZSA84XXFKAFAF15NNZX32CTSG82JFQ4.sbtc-token transfer fee current-contract fee-collector none))
true
)
(print { action: "redeem", user: contract-caller, data: { claim-id: claim-id, assets: assets, fee: fee, user: user, fee-address: fee-collector } })
(map-delete claims { claim-id: claim-id })
(ok assets-net)
)
)
;; @desc - Cancel a redeem request at any time (only if not yet funded)
(define-public (cancel-redeem (claim-id uint))
(let (
(claim (try! (get-claim claim-id)))
(claim-user (get user claim))
(shares (get shares claim))
)
(asserts! (is-eq contract-caller claim-user) ERR_NOT_AUTHORIZED)
(asserts! (is-none (get assets claim)) ERR_ALREADY_FUNDED)
(try! (contract-call? .test-blacklist-vaults-v6 check-is-not-soft claim-user))
(try! (contract-call? .test-token-hbtc-v6 transfer shares current-contract claim-user none))
(map-delete claims { claim-id: claim-id })
(print { action: "cancel-redeem", user: contract-caller, data: { claim-id: claim-id, shares: shares } })
(ok shares)
)
)
;;-------------------------------------
;; Protocol
;;-------------------------------------
;; @desc - Funds a single claim
(define-public (fund-claim (claim-id uint))
(let (
(is-manager (contract-call? .test-hq-vaults-v6 get-manager contract-caller))
(share-price (contract-call? .test-state-hbtc-v6 get-share-price))
(claim (try! (get-claim claim-id)))
(result (try! (process-claim claim-id claim share-price (some is-manager))))
(assets (get assets result))
(shares (get shares result))
)
;; Transfer assets from reserve to vault and update state
(try! (contract-call? .test-reserve-hbtc-v6 transfer sbtc-token assets current-contract))
(try! (contract-call? .test-state-hbtc-v6 update-state
(list
{ type: "total-assets", amount: assets, is-add: false })
none
(some { amount: shares, is-add: false, user: current-contract })))
(print { action: "fund-claim", user: contract-caller, data: { claim-id: claim-id, shares: shares, assets: assets, share-price: share-price } })
(ok assets)
)
)
;; @desc - Optimized batch funding of claims
(define-public (fund-claim-many (claim-ids (list 1000 uint)))
(let (
(share-price (contract-call? .test-state-hbtc-v6 get-share-price))
(initial-accum { total-shares: u0, total-assets: u0, share-price: share-price })
)
(asserts! (> (len claim-ids) u0) ERR_EMPTY_LIST)
(try! (contract-call? .test-hq-vaults-v6 check-is-manager contract-caller))
(match (fold fund-claim-iter claim-ids (ok initial-accum))
accum
(let ((total-assets-accum (get total-assets accum)))
;; Transfer accumulated assets from reserve to vault in a single batch and update state
(asserts! (> total-assets-accum u0) ERR_EMPTY_LIST)
(try! (contract-call? .test-reserve-hbtc-v6 transfer sbtc-token total-assets-accum current-contract))
(try! (contract-call? .test-state-hbtc-v6 update-state
(list
{ type: "total-assets", amount: total-assets-accum, is-add: false })
none
(some { amount: (get total-shares accum), is-add: false, user: current-contract })))
(print { action: "fund-claim-many", user: contract-caller, data: { total-shares: (get total-shares accum), total-assets: total-assets-accum } })
(ok true)
)
error (err error)
)
)
)
;; @desc - Iterator function for fund-claim-many that processes each claim and accumulates totals
(define-private (fund-claim-iter (claim-id uint) (prev (response { total-shares: uint, total-assets: uint, share-price: uint } uint)))
(match prev
accum
(match (map-get? claims { claim-id: claim-id }) claim
;; Claim exists, process it
(let ( (result (try! (process-claim claim-id claim (get share-price accum) none))))
(ok {
total-shares: (+ (get total-shares accum) (get shares result)),
total-assets: (+ (get total-assets accum) (get assets result)),
share-price: (get share-price accum)
}))
;; Claim doesn't exist, skip it and continue
(begin
(print { action: "claim-not-found", user: contract-caller, data: { claim-id: claim-id } })
(ok accum)
)
)
error (err error)
)
)
;; @desc - Processes a single claim for funding
(define-private (process-claim
(claim-id uint)
(claim { user: principal, shares: uint, share-price: (optional uint), assets: (optional uint), fee: (optional uint), fee-bps: uint, ts: uint })
(share-price uint)
(maybe-manager (optional bool)))
(let (
(shares (get shares claim))
(is-cooled-down (>= stacks-block-time (get ts claim)))
(assets (/ (* shares share-price) share-base))
(fee (/ (* assets (get fee-bps claim)) bps-base))
)
(asserts! (> assets u0) ERR_BELOW_MIN)
(asserts! (is-none (get assets claim)) ERR_ALREADY_FUNDED)
(match maybe-manager
is-manager (asserts! (or is-manager is-cooled-down) ERR_NOT_COOLED_DOWN)
true
)
;; Update claim with calculated assets, fee, and share-price (funding complete when all are some)
(map-set claims { claim-id: claim-id } (merge claim { share-price: (some share-price), assets: (some assets), fee: (some fee) }))
(print { action: "process-claim", user: contract-caller, data: { claim-id: claim-id, shares: shares, assets: assets, fee: fee, share-price: share-price, manager: maybe-manager } })
(ok { shares: shares, assets: assets })
)
)