stackswap-swap-router-v1a

(use-trait sip-010-token .sip-010-v1a.sip-010-trait)
(use-trait liquidity-token .liquidity-token-trait-v4c.liquidity-token-trait)

(define-constant ERR_INVALID_ROUTER (err u4162))
(define-constant ERR_INEFFICIENT_AMOUNT_FROM  (err u90001))
(define-constant ERR_INEFFICIENT_AMOUNT_BRIDGE  (err u90002))
(define-constant ERR_INEFFICIENT_AMOUNT_TO  (err u90003))

(define-public (router-swap
  (from <sip-010-token>) 
  (bridge <sip-010-token>)
  (to <sip-010-token>)
  (from-lp <liquidity-token>)
  (to-lp <liquidity-token>)
  (from-type bool)
  (to-type bool)
  (from-amt uint)
  (from-2-bridge-min-amt uint)
  (bridge-2-to-min-amt uint)
)
  (let
    (
        (pre_from_amt (unwrap-panic (contract-call? from get-balance tx-sender)))
        (pre_bridge_amt (unwrap-panic (contract-call? bridge get-balance tx-sender)))
        (pre_to_amt (unwrap-panic (contract-call? to get-balance tx-sender)))
    )
    (asserts! (contract-call? .stackswap-security-list-v1a is-secure-router-or-user contract-caller) ERR_INVALID_ROUTER)
    (asserts! (>= (unwrap-panic (contract-call? from get-balance tx-sender)) from-amt) ERR_INEFFICIENT_AMOUNT_FROM)
    (if (and from-type true)
        (begin
            (try! (contract-call? .stackswap-swap-v5k swap-x-for-y from bridge from-lp from-amt from-2-bridge-min-amt))
        )
        (begin
            (try! (contract-call? .stackswap-swap-v5k swap-y-for-x bridge from from-lp from-amt from-2-bridge-min-amt))
        )
    )
    (let
        (
            (after_bridge_amt (unwrap-panic (contract-call? bridge get-balance tx-sender)))
            (delta_bridge_amt (- after_bridge_amt pre_bridge_amt))
        )
        ;; (ok (list from-amt delta_bridge_amt))
        (asserts! (> delta_bridge_amt from-2-bridge-min-amt) ERR_INEFFICIENT_AMOUNT_BRIDGE)
        (if (and to-type true)
            (begin
                (try! (contract-call? .stackswap-swap-v5k swap-x-for-y bridge to to-lp delta_bridge_amt bridge-2-to-min-amt))
            )
            (begin
                (try! (contract-call? .stackswap-swap-v5k swap-y-for-x to bridge to-lp delta_bridge_amt bridge-2-to-min-amt))
            )
        )
        (let
            (
                (after_to_amt (unwrap-panic (contract-call? to get-balance tx-sender)))
                (delta_to_amt (- after_to_amt pre_to_amt))
            )
            (asserts! (> delta_bridge_amt bridge-2-to-min-amt) ERR_INEFFICIENT_AMOUNT_TO)

            (ok (list from-amt delta_bridge_amt delta_to_amt))
        )
        
    )
  )
)