feat: use sbt-transfer-many native, foramt

Author: friedger

contracts/extensions/ext-sponsored-sbtc-transfer-many.clar

@@ -40,6 +40,26 @@
   )
 )
 
+;; Uses native transfer-many function with standard tuple format. More
+;; efficient cost-wise but supports fewer recipients.
+;;
+;; Max recipients:
+;; - 19 standard principals
+;; - 5 contract principals
+(define-private (sbtc-transfer-many-native (recipients (list
+  200
+  {
+    amount: uint,
+    sender: principal,
+    to: principal,
+    memo: (optional (buff 34)),
+  }
+)))
+  (contract-call? 'SM3VDXK3WZZSA84XXFKAFAF15NNZX32CTSG82JFQ4.sbtc-token
+    transfer-many recipients
+  )
+)
+
 (define-private (sbtc-transfer
     (amount uint)
     (from principal)
@@ -50,6 +70,18 @@
   )
 )
 
+(define-private (to-native (transfer {
+  a: uint,
+  r: principal,
+}))
+  {
+    amount: (get a transfer),
+    sender: tx-sender,
+    to: (get r transfer),
+    memo: none,
+  }
+)
+
 (define-public (call (payload (buff 2048)))
   (let ((details (unwrap!
       (from-consensus-buff? {
@@ -66,7 +98,7 @@
       )
       err-invalid-payload
     )))
-    (try! (sbtc-transfer-many-custom (get recipients details)))
+    (try! (sbtc-transfer-many-native (map to-native (get recipients details))))
     (match tx-sponsor?
       spnsr (let ((fees (get fees details)))
         (and (> fees u0) (try! (sbtc-transfer fees tx-sender spnsr)))

contracts/extensions/ext-sponsored-send-many.clar

@@ -9,7 +9,9 @@
   ustx: uint,
   to: principal,
 })))
-  (contract-call? 'SP3FBR2AGK5H9QBDH3EEN6DF8EK8JY7RX8QJ5SVTE.send-many send-many recipients)
+  (contract-call? 'SP3FBR2AGK5H9QBDH3EEN6DF8EK8JY7RX8QJ5SVTE.send-many send-many
+    recipients
+  )
 )
 
 (define-public (call (payload (buff 2048)))

contracts/smart-wallet-endpoint.clar

@@ -20,13 +20,16 @@
   )
 )
 
-(define-public (stx-send-many-sponsored (sm <wallet-trait>) (details {
-  recipients: (list 11 {
-    ustx: uint,
-    to: principal,
-  }),
-  fees: uint,
-}))
+(define-public (stx-send-many-sponsored
+    (sm <wallet-trait>)
+    (details {
+      recipients: (list 11 {
+        ustx: uint,
+        to: principal,
+      }),
+      fees: uint,
+    })
+  )
   (contract-call? sm extension-call .ext-sponsored-send-many
     (unwrap! (to-consensus-buff? details) err-invalid-payload)
   )
@@ -48,7 +51,8 @@
 (define-public (sbtc-transfer-many-sponsored
     (sm <wallet-trait>)
     (details {
-      recipients: (list 11 {
+      recipients: (list 11
+        {
         ;; Amount in sats.
         a: uint,
         ;; Recipient address.

contracts/smart-wallet-group.clar

@@ -142,5 +142,5 @@
 )
 
 ;; init
-(map-set admins tx-sender true) 
+(map-set admins tx-sender true)
 (map-set admins (as-contract tx-sender) true)

contracts/smart-wallet-standard.clar

@@ -136,5 +136,5 @@
 )
 
 ;; init
-(map-set admins tx-sender true) 
+(map-set admins tx-sender true)
 (map-set admins (as-contract tx-sender) true)

contracts/smart-wallet-standard_test.clar

@@ -21,4 +21,3 @@
     (ok true)
   )
 )
-

contracts/smart-wallet-with-rules.clar

@@ -171,5 +171,5 @@
 
 ;; init
 (set-security-level u1)
-(map-set admins .inactive-observer true) 
+(map-set admins .inactive-observer true)
 (map-set admins tx-sender true) ;; send 1000 ustx to the smart wallet(stx-transfer? u1000 tx-sender (as-contract tx-sender))