Source Code

(define-read-only (reserves)
   (let (
       (s-w (contract-call? 'SP1Y5YSTAHZ88XYK1VPDH24GY0HPX5J4JECTMY4A1.univ2-core do-get-pool u27)) ;; velar stx-welsh
       (s-p (contract-call? 'SP1Y5YSTAHZ88XYK1VPDH24GY0HPX5J4JECTMY4A1.univ2-core do-get-pool u11)) ;; velar stx-pepe
       (w-iw (contract-call? 'SP2ZNGJ85ENDY6QRHQ5P2D4FXKGZWCKTB2T0Z55KS.univ2-core do-get-pool u1)) ;; chadex welsh-iouwelsh
       (c-w (contract-call? 'SP2ZNGJ85ENDY6QRHQ5P2D4FXKGZWCKTB2T0Z55KS.univ2-core do-get-pool u3)) ;; chadex cha-welsh
       (c-iw (contract-call? 'SP2ZNGJ85ENDY6QRHQ5P2D4FXKGZWCKTB2T0Z55KS.univ2-core do-get-pool u5)) ;; chadex cha-iouwelsh
       (s-c (contract-call? 'SP2ZNGJ85ENDY6QRHQ5P2D4FXKGZWCKTB2T0Z55KS.univ2-core do-get-pool u4)) ;; chadex stx-cha
       (s-ss (contract-call? 'SP2ZNGJ85ENDY6QRHQ5P2D4FXKGZWCKTB2T0Z55KS.univ2-core do-get-pool u10)) ;; chadex stx-synstx
       (c-p (contract-call? 'SP2ZNGJ85ENDY6QRHQ5P2D4FXKGZWCKTB2T0Z55KS.univ2-core do-get-pool u12)) ;; chadex cha-pepe
       (s-ss-c-w (contract-call? 'SP2ZNGJ85ENDY6QRHQ5P2D4FXKGZWCKTB2T0Z55KS.univ2-core do-get-pool u13)) ;; chadex s-ss-c-w
       (c-w-iw (contract-call? 'SP2ZNGJ85ENDY6QRHQ5P2D4FXKGZWCKTB2T0Z55KS.univ2-core do-get-pool u11)) ;; chadex c-w-iw
   )
   {
       reserve00: (get reserve0 s-w),
       reserve10: (get reserve1 s-w),
       reserve01: (get reserve0 w-iw),
       reserve11: (get reserve1 w-iw),
       reserve02: (get reserve0 c-w),
       reserve12: (get reserve1 c-w),
       reserve03: (get reserve0 c-iw),
       reserve13: (get reserve1 c-iw),
       reserve04: (get reserve0 s-c),
       reserve14: (get reserve1 s-c),
       reserve05: (get reserve0 s-ss),
       reserve15: (get reserve1 s-ss),
       reserve06: (get reserve0 s-p),
       reserve16: (get reserve1 s-p),
       reserve07: (get reserve0 c-p),
       reserve17: (get reserve1 c-p),
       reserve08: (get reserve0 s-ss-c-w),
       reserve18: (get reserve1 s-ss-c-w),
       reserve09: (get reserve0 c-w-iw),
       reserve19: (get reserve1 c-w-iw)
   })
)

(define-read-only (supplies)
   (let (
       (c-w-sup (unwrap-panic (contract-call? 'SP2ZNGJ85ENDY6QRHQ5P2D4FXKGZWCKTB2T0Z55KS.cha-welsh get-total-supply)))
       (w-iw-sup (unwrap-panic (contract-call? 'SP2ZNGJ85ENDY6QRHQ5P2D4FXKGZWCKTB2T0Z55KS.welsh-iouwelsh get-total-supply)))
       (s-ss-sup (unwrap-panic (contract-call? 'SP2ZNGJ85ENDY6QRHQ5P2D4FXKGZWCKTB2T0Z55KS.wstx-synstx get-total-supply)))
   )
   {
       cha-welsh: c-w-sup,
       welsh-iou: w-iw-sup,
       wstx-synstx: s-ss-sup
   })
)

(define-public (call-me)
   (let (
       (pool-reserves (reserves))
       (sups (supplies))
   )
   (ok {
       pools: {
           reserve00: (get reserve00 pool-reserves),
           reserve10: (get reserve10 pool-reserves),
           reserve01: (get reserve01 pool-reserves),
           reserve11: (get reserve11 pool-reserves),
           reserve02: (get reserve02 pool-reserves),
           reserve12: (get reserve12 pool-reserves),
           reserve03: (get reserve03 pool-reserves),
           reserve13: (get reserve13 pool-reserves),
           reserve04: (get reserve04 pool-reserves),
           reserve14: (get reserve14 pool-reserves),
           reserve05: (get reserve05 pool-reserves),
           reserve15: (get reserve15 pool-reserves),
           reserve06: (get reserve06 pool-reserves),
           reserve16: (get reserve16 pool-reserves),
           reserve07: (get reserve07 pool-reserves),
           reserve17: (get reserve17 pool-reserves),
           reserve08: (get reserve08 pool-reserves),
           reserve18: (get reserve18 pool-reserves),
           reserve09: (get reserve09 pool-reserves),
           reserve19: (get reserve19 pool-reserves)
       },
       supplies: {
           cha-welsh: (get cha-welsh sups),
           welsh-iou: (get welsh-iou sups),
           wstx-synstx: (get wstx-synstx sups)
       }
   }))
)

Functions (3)

FunctionAccessArgs
reservesread-only
suppliesread-only
call-mepublic