;; title: blaze-subnets
;; authors: rozar.btc, brice.btc
;; version: welsh-v1
;; summary: A permissionless credit tracking system for SIP-010 tokens with automatic
;; deposits, withdrawals, and off-chain signed transfers with standard SIP-010 compatibility.
;; Constants for SIP-018 structured data
(define-constant structured-data-prefix 0x534950303138)
(define-constant message-domain-hash (sha256 (unwrap-panic (to-consensus-buff?
{
name: "blaze",
version: "welsh-v1",
chain-id: chain-id
}
))))
(define-constant structured-data-header (concat structured-data-prefix message-domain-hash))
;; Errors
(define-constant ERR_INSUFFICIENT_BALANCE (err u100))
(define-constant ERR_INVALID_SIGNATURE (err u101))
(define-constant ERR_NONCE_TOO_LOW (err u102))
(define-constant ERR_CONSENSUS_BUFF (err u103))
(define-constant ERR_TOO_MANY_OPERATIONS (err u104))
(define-constant ERR_TRANSFER_FAILED (err u105))
(define-constant ERR_UNAUTHORIZED (err u105))
;; Constants
(define-constant MAX_BATCH_SIZE u200)
;; Maps
(define-map balances { owner: principal } { amount: uint })
(define-map nonces principal uint)
;; Public Functions
;; Deposit tokens and receive credits
(define-public (deposit (amount uint))
(let
(
(sender tx-sender)
(balance-key { owner: sender })
(current-balance (default-to { amount: u0 } (map-get? balances balance-key)))
)
;; First transfer tokens to contract
(try! (contract-call? 'SP3NE50GEXFG9SZGTT51P40X2CKYSZ5CC4ZTZ7A2G.welshcorgicoin-token transfer amount sender (as-contract tx-sender) none))
;; Then credit the balance
(map-set balances balance-key
{ amount: (+ (get amount current-balance) amount) }
)
(print {
event: "deposit",
user: sender,
amount: amount
})
(ok true)
)
)
;; Withdraw tokens by spending credits
(define-public (withdraw (amount uint))
(let
(
(sender tx-sender)
(balance-key { owner: sender })
(current-balance (default-to { amount: u0 } (map-get? balances balance-key)))
)
;; Check sufficient balance
(asserts! (>= (get amount current-balance) amount) ERR_INSUFFICIENT_BALANCE)
;; First reduce the credit balance
(map-set balances balance-key
{ amount: (- (get amount current-balance) amount) }
)
;; Then transfer tokens from contract
(try! (as-contract (contract-call? 'SP3NE50GEXFG9SZGTT51P40X2CKYSZ5CC4ZTZ7A2G.welshcorgicoin-token transfer amount tx-sender sender none)))
(print {
event: "withdraw",
user: sender,
amount: amount
})
(ok true)
)
)
;; Standard SIP-010 compatible transfer function
(define-public (transfer (amount uint) (from principal) (to principal) (memo (optional (buff 34))))
(let
(
(sender tx-sender)
(from-balance-key { owner: sender })
(to-balance-key { owner: to })
(current-from-balance (default-to { amount: u0 } (map-get? balances from-balance-key)))
(current-to-balance (default-to { amount: u0 } (map-get? balances to-balance-key)))
)
;; Auth check from sender
(asserts! (is-eq sender from) ERR_UNAUTHORIZED)
;; Check balance
(asserts! (>= (get amount current-from-balance) amount) ERR_INSUFFICIENT_BALANCE)
;; Update balances
(map-set balances from-balance-key
{ amount: (- (get amount current-from-balance) amount) }
)
(map-set balances to-balance-key
{ amount: (+ (get amount current-to-balance) amount) }
)
(print {
event: "transfer",
from: sender,
to: to,
amount: amount,
memo: memo
})
(ok true)
)
)
;; ;; Transfer credits between users using cryptographic signatures (off-chain)
;; (define-public (signed-transfer
;; (signet {signature: (buff 65), nonce: uint})
;; (to principal)
;; (amount uint)
;; )
;; (let
;; (
;; (nonce (get nonce signet))
;; (signer-principal (unwrap! (verify-transfer-signer signet to amount) ERR_INVALID_SIGNATURE))
;; (from-balance-key { owner: signer-principal })
;; (to-balance-key { owner: to })
;; (current-from-balance (default-to { amount: u0 } (map-get? balances from-balance-key)))
;; (current-to-balance (default-to { amount: u0 } (map-get? balances to-balance-key)))
;; (current-nonce (default-to u0 (map-get? nonces signer-principal)))
;; )
;; ;; Verify nonce
;; (asserts! (> nonce current-nonce) ERR_NONCE_TOO_LOW)
;; ;; Check balance
;; (asserts! (>= (get amount current-from-balance) amount) ERR_INSUFFICIENT_BALANCE)
;; ;; Update balances
;; (map-set balances from-balance-key
;; { amount: (- (get amount current-from-balance) amount) }
;; )
;; (map-set balances to-balance-key
;; { amount: (+ (get amount current-to-balance) amount) }
;; )
;; ;; Update nonce
;; (map-set nonces signer-principal nonce)
;; (print {
;; event: "signed-transfer",
;; from: signer-principal,
;; to: to,
;; amount: amount,
;; nonce: nonce
;; })
;; (ok true)
;; )
;; )
;; ;; Batch credit transfers with success/failure tracking
;; (define-public (batch-transfer
;; (operations (list 200 {
;; signet: {signature: (buff 65), nonce: uint},
;; to: principal,
;; amount: uint,
;; }))
;; )
;; (let
;; (
;; (results (map try-transfer operations))
;; )
;; (asserts! (<= (len operations) MAX_BATCH_SIZE) ERR_TOO_MANY_OPERATIONS)
;; (ok results)
;; )
;; )
;; ;; SIP-010 compatibility functions
;; (define-read-only (get-name)
;; (contract-call? 'SP3NE50GEXFG9SZGTT51P40X2CKYSZ5CC4ZTZ7A2G.welshcorgicoin-token get-name)
;; )
;; (define-read-only (get-symbol)
;; (contract-call? 'SP3NE50GEXFG9SZGTT51P40X2CKYSZ5CC4ZTZ7A2G.welshcorgicoin-token get-symbol)
;; )
;; (define-read-only (get-decimals)
;; (contract-call? 'SP3NE50GEXFG9SZGTT51P40X2CKYSZ5CC4ZTZ7A2G.welshcorgicoin-token get-decimals)
;; )
;; (define-read-only (get-token-uri)
;; (contract-call? 'SP3NE50GEXFG9SZGTT51P40X2CKYSZ5CC4ZTZ7A2G.welshcorgicoin-token get-token-uri)
;; )
;; (define-read-only (get-total-supply)
;; (contract-call? 'SP3NE50GEXFG9SZGTT51P40X2CKYSZ5CC4ZTZ7A2G.welshcorgicoin-token get-total-supply)
;; )
;; ;; Read-only functions
;; (define-read-only (get-balance (owner principal))
;; (get amount (default-to { amount: u0 }
;; (map-get? balances { owner: owner })))
;; )
;; (define-read-only (get-nonce (owner principal))
;; (default-to u0 (map-get? nonces owner))
;; )
;; ;;; Generate a hash of the structured data for a transfer.
;; ;;; Returns:
;; ;;; - (ok (buff 32)) with the hash of the structured data on success
;; ;;; - `ERR_CONSENSUS_BUFF` if the structured data cannot be converted to a
;; ;;; consensus buff
;; (define-read-only (make-structured-data-hash
;; (to principal)
;; (amount uint)
;; (nonce uint)
;; )
;; (let (
;; (structured-data { to: to, amount: amount, nonce: nonce })
;; (data-hash (sha256 (unwrap! (to-consensus-buff? structured-data) ERR_CONSENSUS_BUFF)))
;; )
;; (ok (sha256 (concat structured-data-header data-hash)))
;; )
;; )
;; ;;; Recovers a principal from a signature and message hash
;; ;;; Returns:
;; ;;; - (ok principal) with the address of the signer
;; ;;; - ERR_INVALID_SIGNATURE if recovery fails
;; (define-read-only (get-signer
;; (hash (buff 32))
;; (signature (buff 65))
;; )
;; (match (secp256k1-recover? hash signature)
;; public-key (principal-of? public-key)
;; _ ERR_INVALID_SIGNATURE
;; )
;; )
;; ;;; Verify a transfer signet and return the signer principal
;; ;;; This is a convenience function that combines make-structured-data-hash and get-signer
;; ;;; for token transfer verification
;; ;;; Returns:
;; ;;; - (ok principal) with the address of the signer for the given signet + transfer params
;; ;;; - Error if signature verification fails
;; (define-read-only (verify-transfer-signer
;; (signet {signature: (buff 65), nonce: uint})
;; (to principal)
;; (amount uint)
;; )
;; (let (
;; (signature (get signature signet))
;; (nonce (get nonce signet))
;; (hash (unwrap! (make-structured-data-hash to amount nonce) ERR_CONSENSUS_BUFF))
;; )
;; (get-signer hash signature)
;; )
;; )
;; (define-private (try-transfer
;; (operation {
;; signet: {signature: (buff 65), nonce: uint},
;; to: principal,
;; amount: uint,
;; })
;; )
;; (match (signed-transfer
;; (get signet operation)
;; (get to operation)
;; (get amount operation)
;; )
;; success true
;; error false
;; )
;; )