liquidity-token-v5gwhunr3fi.clar

(impl-trait .liquidity-token-trait-v4b.liquidity-token-trait)
(impl-trait .initializable-trait-v1b.initializable-liquidity-token-trait)
(use-trait sip-010-token .sip-010-v1a.sip-010-trait)

(define-fungible-token liquidity-token)

(define-constant ERR_UNAUTHORIZED u4201)
(define-constant ERR_TOKEN_TRANSFER u4202)
(define-constant ERR_ALREADY_INITIALIZED u4203)
(define-constant ERR_NOT_INITIALIZED u4204)
(define-constant ERR_INVALID_LP_TOKEN u4205)
(define-constant ERR_INVALID_TOKEN u4206)
(define-constant ERR_ALREADY_IN_SWAP u4207)
(define-constant ERR_DAO_ACCESS u4208)


(define-constant NULL_PRINCIPAL tx-sender)

(define-data-var is-initialized bool false)
(define-data-var is-in-swap bool false)


(define-data-var token-name (string-ascii 32) "")
(define-data-var token-symbol (string-ascii 32) "")
(define-data-var token-decimals uint u0)


(define-data-var token-x principal NULL_PRINCIPAL)
(define-data-var token-y principal NULL_PRINCIPAL)

(define-data-var shares-total uint u0)
(define-data-var balance-x uint u0)
(define-data-var balance-y uint u0)
(define-data-var fee-balance-x uint u0)
(define-data-var fee-balance-y uint u0)
(define-data-var fee-to-address principal tx-sender)


(define-public (transfer (amount uint) (from principal) (to principal) (memo (optional (buff 34))))
  (begin
    (asserts! (is-eq from tx-sender) (err ERR_UNAUTHORIZED))
    (try! (ft-transfer? liquidity-token amount from to))
	(match memo to-print (print to-print) 0x)
	(ok true)
  )
)

(define-read-only (get-name)
  (ok (var-get token-name)))

(define-read-only (get-symbol)
  (ok (var-get token-symbol)))

(define-read-only (get-decimals)
  (ok (var-get token-decimals)))

(define-read-only (get-balance (owner principal))
  (ok (ft-get-balance liquidity-token owner))
)

(define-read-only (get-total-supply)
  (ok (ft-get-supply liquidity-token))
)

(define-data-var uri (string-utf8 256) u"")

(define-read-only (get-token-uri)
  (ok (some (var-get uri))))

(define-read-only (get-data (owner principal))
  (ok {
    name: (unwrap-panic (get-name)),
    symbol: (unwrap-panic (get-symbol)),
    decimals: (unwrap-panic (get-decimals)),
    uri: (unwrap-panic (get-token-uri)),
    supply: (unwrap-panic (get-total-supply)),
    balance: (unwrap-panic (get-balance owner))
  })
)

(define-public (mint (recipient principal) (amount uint))
  (begin
    (print "token-liquidity.mint")
    (print (some contract-caller))
    (print amount)
    (asserts! (is-eq contract-caller (unwrap-panic (contract-call? .stackswap-dao-v5g get-qualified-name-by-name "swap"))) (err ERR_DAO_ACCESS))
    (ft-mint? liquidity-token amount recipient)
  )
)

(define-public (burn (recipient principal) (amount uint))
  (begin
    (print "token-liquidity.burn")
    (print contract-caller)
    (print amount)
    (asserts! (is-eq contract-caller (unwrap-panic (contract-call? .stackswap-dao-v5g get-qualified-name-by-name "swap"))) (err ERR_DAO_ACCESS))
    (ft-burn? liquidity-token amount recipient)
  )
)

(define-public (initialize (name-to-set (string-ascii 32)) (symbol-to-set (string-ascii 32)) (decimals-to-set uint) (uri-to-set (string-utf8 256)))
  (begin
    (print "token-liquidity.init")
    (print contract-caller)
    (asserts! (is-eq contract-caller (unwrap-panic (contract-call? .stackswap-dao-v5g get-qualified-name-by-name "one-step-mint"))) (err ERR_DAO_ACCESS))
    (asserts! (not (var-get is-initialized)) (err ERR_ALREADY_INITIALIZED))
    (var-set is-initialized true)
    (var-set token-name name-to-set)
    (var-set token-symbol symbol-to-set)
    (var-set token-decimals decimals-to-set)
    (var-set uri uri-to-set)
    (ok u0)
  )
)


(define-public (transfer-token (amount uint) (token <sip-010-token>) (to principal) )
  (begin
    (asserts! (is-eq contract-caller (unwrap-panic (contract-call? .stackswap-dao-v5g get-qualified-name-by-name "swap"))) (err ERR_DAO_ACCESS))
    (unwrap! (as-contract (contract-call? token transfer amount tx-sender to none)) (err ERR_TOKEN_TRANSFER))
    (ok true)
  )
)

(define-public (initialize-swap (token-x-input principal) (token-y-input principal))
  (begin
    (print "token-liquidity.init")
    (print contract-caller)
    (asserts! (is-eq contract-caller (unwrap-panic (contract-call? .stackswap-dao-v5g get-qualified-name-by-name "swap"))) (err ERR_DAO_ACCESS))
    (asserts!  (var-get is-initialized) (err ERR_NOT_INITIALIZED))
    (asserts! (not (var-get is-in-swap)) (err ERR_ALREADY_IN_SWAP))
    (var-set is-in-swap true) ;; Set to true so that this can't be called again
    (var-set token-x token-x-input)
    (var-set token-y token-y-input)
    (ok true)
  )
)

(define-public (set-lp-data ( data {
    shares-total: uint,
    balance-x: uint,
    balance-y: uint,
    fee-balance-x: uint,
    fee-balance-y: uint,
    fee-to-address: principal,
    liquidity-token: principal,
    name: (string-ascii 32),
  }) (token-x-input principal) (token-y-input principal))
  (begin
    (asserts! (is-eq contract-caller (unwrap-panic (contract-call? .stackswap-dao-v5g get-qualified-name-by-name "swap"))) (err ERR_DAO_ACCESS))
    (asserts! (is-eq (as-contract tx-sender) (get liquidity-token data)) (err ERR_INVALID_LP_TOKEN))
    (asserts! (is-eq token-x-input (var-get token-x)) (err ERR_INVALID_TOKEN))
    (asserts! (is-eq token-y-input (var-get token-y)) (err ERR_INVALID_TOKEN))
    (var-set shares-total (get shares-total data))
    (var-set balance-x (get balance-x data))
    (var-set balance-y (get balance-y data))
    (var-set fee-balance-x (get fee-balance-x data))
    (var-set fee-balance-y (get fee-balance-y data))
    (var-set fee-to-address (get fee-to-address data))
    (ok true)
  )
)

(define-read-only (get-lp-data)
  (ok {
  shares-total: (var-get shares-total),
  balance-x: (var-get balance-x),
  balance-y: (var-get balance-y),
  fee-balance-x: (var-get fee-balance-x),
  fee-balance-y: (var-get fee-balance-y),
  fee-to-address: (var-get fee-to-address),
  liquidity-token: (as-contract tx-sender),
  name: (var-get token-name),
  })
)

(define-read-only (get-tokens)
  (ok {token-x: (var-get token-x), token-y: (var-get token-y)}))

(contract-call? .stackswap-one-step-mint-v5h add-liquidity-token (as-contract tx-sender))