-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathdao-hive-reference-final.pact
119 lines (100 loc) · 4.87 KB
/
dao-hive-reference-final.pact
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
(namespace 'free)
(module dao-hive-reference GOVERNANCE "Swarms.Finance Reference Manager"
;Contains references to dapps that integrate with swarms on various chains around kadena
(defcap GOVERNANCE ()
@doc "Verifies Contract Governance"
(enforce-keyset "free.admin-kadena-stake")
)
;///////
;REPL
;\\\\\\\
; (defun kds-swap-exact-in (swap-in-amount:decimal from-pool-tokenA:module{fungible-v2} to-pool-tokenB:module{fungible-v2} from-pool-account:string to-pool-account:string)
; @doc " KDS SWAP "
; (swap.exchange.swap-exact-in swap-in-amount 0.0 [from-pool-tokenA to-pool-tokenB] from-pool-account to-pool-account (at "guard" (to-pool-tokenB::details to-pool-account)) )
; )
;
; (defun kds-get-pair (from-pool-tokenA:module{fungible-v2} to-pool-tokenB:module{fungible-v2})
; @doc " KDS GET PAIR "
; (swap.exchange.get-pair from-pool-tokenA to-pool-tokenB)
; )
;
; (defun kds-get-pair-key (tokenA:module{fungible-v2} tokenB:module{fungible-v2})
; @doc " KDS GET PAIR KEY "
; (swap.exchange.get-pair-key tokenA tokenB)
; )
;
; (defun kds-add-liquidity (tokenA:module{fungible-v2} tokenB:module{fungible-v2} add-amount-A:decimal add-amount-B:decimal new-treasury-account:string pool-guard:guard)
; @doc " KDS ADD LIQUIDITY "
; (swap.exchange.add-liquidity tokenA tokenB add-amount-A add-amount-B 0.0 0.0 new-treasury-account new-treasury-account pool-guard)
; )
;
; (defun kds-remove-liquidity (tokenA:module{fungible-v2} tokenB:module{fungible-v2} remove-amount:decimal lp-pool-account:string new-treasury-account:string pool-guard:guard)
; @doc " KDS REMOVE LIQUIDITY "
; (swap.exchange.remove-liquidity tokenA tokenB remove-amount 0.0 0.0 lp-pool-account new-treasury-account pool-guard)
; )
;
; (defun kds-tokens-get-balance (lp-pool-pair:string lp-pool-account:string)
; @doc " KDS TOKENS GET BALANCE "
; (swap.tokens.get-balance lp-pool-pair lp-pool-account)
; )
;///////
;CHAIN 0
;\\\\\\\
; (defun kds-swap-exact-in (swap-in-amount:decimal from-pool-tokenA:module{fungible-v2} to-pool-tokenB:module{fungible-v2} from-pool-account:string to-pool-account:string)
; @doc " KDS SWAP "
; (kdlaunch.kdswap-exchange.swap-exact-in swap-in-amount 0.0 [from-pool-tokenA to-pool-tokenB] from-pool-account to-pool-account (at "guard" (to-pool-tokenB::details to-pool-account)) )
; )
;
; (defun kds-get-pair (from-pool-tokenA:module{fungible-v2} to-pool-tokenB:module{fungible-v2})
; @doc " KDS GET PAIR "
; (kdlaunch.kdswap-exchange.get-pair from-pool-tokenA to-pool-tokenB)
; )
;
; (defun kds-get-pair-key(tokenA:module{fungible-v2} tokenB:module{fungible-v2})
; @doc " KDS GET PAIR KEY "
; (kdlaunch.kdswap-exchange.get-pair-key tokenA tokenB)
; )
;
; (defun kds-add-liquidity (tokenA:module{fungible-v2} tokenB:module{fungible-v2} add-amount-A:decimal add-amount-B:decimal new-treasury-account:string pool-guard:guard)
; @doc " KDS ADD LIQUIDITY "
; (kdlaunch.kdswap-exchange.add-liquidity tokenA tokenB add-amount-A add-amount-B 0.0 0.0 new-treasury-account new-treasury-account pool-guard)
; )
;
; (defun kds-remove-liquidity (tokenA:module{fungible-v2} tokenB:module{fungible-v2} remove-amount:decimal lp-pool-account:string new-treasury-account:string pool-guard:guard lp-pool-pair:string swap-account:string remove-amount:decimal)
; @doc " KDS REMOVE LIQUIDITY "
; (install-capability (kdlaunch.kdswap-exchange-tokens.TRANSFER lp-pool-pair lp-pool-account swap-account remove-amount))
; (kdlaunch.kdswap-exchange.remove-liquidity tokenA tokenB remove-amount 0.0 0.0 lp-pool-account new-treasury-account pool-guard)
; )
;
; (defun kds-tokens-get-balance (lp-pool-pair:string lp-pool-account:string)
; @doc " KDS TOKENS GET BALANCE "
; (kdlaunch.kdswap-exchange-tokens.get-balance lp-pool-pair lp-pool-account)
; )
;///////
;CHAIN 1
;\\\\\\\
(defun kds-swap-exact-in (swap-in-amount:decimal from-pool-tokenA:module{fungible-v2} to-pool-tokenB:module{fungible-v2} from-pool-account:string to-pool-account:string)
@doc " KDS SWAP "
true
)
(defun kds-get-pair (from-pool-tokenA:module{fungible-v2} to-pool-tokenB:module{fungible-v2})
@doc " KDS GET PAIR "
true
)
(defun kds-get-pair-key(tokenA:module{fungible-v2} tokenB:module{fungible-v2})
@doc " KDS GET PAIR KEY "
true
)
(defun kds-add-liquidity (tokenA:module{fungible-v2} tokenB:module{fungible-v2} add-amount-A:decimal add-amount-B:decimal new-treasury-account:string pool-guard:guard)
@doc " KDS ADD LIQUIDITY "
true
)
(defun kds-remove-liquidity (tokenA:module{fungible-v2} tokenB:module{fungible-v2} remove-amount:decimal lp-pool-account:string new-treasury-account:string pool-guard:guard)
@doc " KDS REMOVE LIQUIDITY "
true
)
(defun kds-tokens-get-balance (lp-pool-pair:string lp-pool-account:string)
@doc " KDS TOKENS GET BALANCE "
true
)
)