;; comet-index - SIP-010 Fungible Token
;; A standard fungible token on the Stacks blockchain
(define-fungible-token comet_index)
(define-constant CONTRACT-OWNER tx-sender)
(define-constant TOTAL-SUPPLY u1000000000000)
(define-constant ERR-OWNER-ONLY (err u100))
(define-constant ERR-NOT-TOKEN-OWNER (err u101))
(define-constant ERR-INSUFFICIENT-BALANCE (err u102))
(define-data-var token-name (string-ascii 32) "comet-index")
(define-data-var token-symbol (string-ascii 10) "CI")
(define-data-var token-decimals uint u6)
(define-data-var token-uri (optional (string-utf8 256)) none)
(define-data-var is-paused bool false)
(define-public (transfer (amount uint) (sender principal) (recipient principal) (memo (optional (buff 34))))
(begin
(asserts! (not (var-get is-paused)) (err u103))
(asserts! (is-eq tx-sender sender) ERR-NOT-TOKEN-OWNER)
(asserts! (> amount u0) ERR-INSUFFICIENT-BALANCE)
(try! (ft-transfer? comet_index amount sender recipient))
(match memo to-print (print to-print) 0x)
(ok true)))
(define-public (mint (amount uint) (recipient principal))
(begin
(asserts! (is-eq tx-sender CONTRACT-OWNER) ERR-OWNER-ONLY)
(ft-mint? comet_index amount recipient)))
(define-public (burn (amount uint) (owner principal))
(begin
(asserts! (is-eq tx-sender owner) ERR-NOT-TOKEN-OWNER)
(ft-burn? comet_index amount owner)))
(define-public (set-pause (paused bool))
(begin
(asserts! (is-eq tx-sender CONTRACT-OWNER) ERR-OWNER-ONLY)
(ok (var-set is-paused paused))))
(define-public (set-token-uri (uri (optional (string-utf8 256))))
(begin
(asserts! (is-eq tx-sender CONTRACT-OWNER) ERR-OWNER-ONLY)
(ok (var-set token-uri uri))))
(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 (who principal)) (ok (ft-get-balance comet_index who)))
(define-read-only (get-total-supply) (ok (ft-get-supply comet_index)))
(define-read-only (get-token-uri) (ok (var-get token-uri)))
(define-read-only (get-owner) (ok CONTRACT-OWNER))
(begin (try! (ft-mint? comet_index TOTAL-SUPPLY CONTRACT-OWNER)))