/
t-2.clar
114 lines (107 loc) · 3.35 KB
/
t-2.clar
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
;; constants
(define-constant ERR-NOT-AUTHORIZED u401)
(define-constant CONTRACT-OWNER tx-sender)
;;(define-data-var holders (string-ascii 256) "hi")
;;;;;;;;;;;;;;
(define-read-only (get-vault-by-id (vault-id uint))
(contract-call? 'SP2C2YFP12AJZB4MABJBAJ55XECVS7E4PMMZ89YZR.arkadiko-vault-data-v1-1 get-vault-by-id vault-id)
)
(define-read-only (get-debt-for-vault (vault-id uint))
(let ((vault (get-vault-by-id vault-id))) (ok (get debt vault)))
)
(print (get-vault-by-id u95))
(print (get-vault-by-id u96))
(print (get-vault-by-id u97))
(print (get-vault-by-id u98))
(print (get-vault-by-id u99))
(print (get-vault-by-id u100))
(print (get-vault-by-id u101))
(print (get-vault-by-id u102))
(print (get-vault-by-id u103))
(print (get-vault-by-id u104))
(print (get-vault-by-id u105))
(print (get-vault-by-id u106))
(print (get-vault-by-id u107))
(print (get-vault-by-id u108))
(print (get-vault-by-id u109))
(print (get-vault-by-id u110))
(print (get-vault-by-id u111))
(print (get-vault-by-id u112))
(print (get-vault-by-id u113))
(print (get-vault-by-id u114))
(print (get-vault-by-id u115))
(print (get-vault-by-id u116))
(print (get-vault-by-id u117))
(print (get-vault-by-id u118))
(print (get-vault-by-id u119))
(print (get-vault-by-id u120))
(print (get-vault-by-id u121))
(print (get-vault-by-id u122))
(print (get-vault-by-id u123))
(print (get-vault-by-id u124))
(print (get-vault-by-id u125))
(print (get-vault-by-id u126))
(print (get-vault-by-id u127))
(print (get-vault-by-id u128))
(print (get-vault-by-id u129))
(print (get-vault-by-id u130))
(print (get-vault-by-id u131))
(print (get-vault-by-id u132))
(print (get-vault-by-id u133))
(print (get-vault-by-id u134))
(print (get-vault-by-id u135))
(print (get-vault-by-id u136))
(print (get-vault-by-id u137))
(print (get-vault-by-id u138))
(print (get-vault-by-id u139))
(print (get-vault-by-id u140))
(print (get-vault-by-id u141))
(print (get-vault-by-id u142))
(print (get-vault-by-id u143))
(print (get-vault-by-id u144))
(print (get-vault-by-id u145))
(print (get-vault-by-id u146))
(print (get-vault-by-id u147))
(print (get-vault-by-id u148))
(print (get-vault-by-id u149))
(print (get-vault-by-id u150))
(print (get-vault-by-id u151))
(print (get-vault-by-id u152))
(print (get-vault-by-id u153))
(print (get-vault-by-id u154))
(print (get-vault-by-id u155))
(print (get-vault-by-id u156))
(print (get-vault-by-id u157))
(print (get-vault-by-id u158))
(print (get-vault-by-id u159))
(print (get-vault-by-id u160))
(print (get-vault-by-id u161))
(print (get-vault-by-id u162))
(print (get-vault-by-id u163))
(print (get-vault-by-id u164))
(print (get-vault-by-id u165))
(print (get-vault-by-id u166))
(print (get-vault-by-id u167))
(print (get-vault-by-id u168))
(print (get-vault-by-id u169))
(print (get-vault-by-id u170))
(print (get-vault-by-id u171))
(print (get-vault-by-id u172))
(print (get-vault-by-id u173))
(print (get-vault-by-id u174))
(print (get-vault-by-id u175))
(print (get-vault-by-id u176))
(print (get-vault-by-id u177))
(print (get-vault-by-id u178))
(print (get-vault-by-id u179))
(print (get-vault-by-id u180))
(print (get-vault-by-id u181))
(print (get-vault-by-id u182))
(print (get-vault-by-id u183))
(print (get-vault-by-id u184))
(print (get-vault-by-id u185))
(print (get-vault-by-id u186))
(print (get-vault-by-id u187))
(print (get-vault-by-id u188))
(print (get-vault-by-id u189))
(print (get-vault-by-id u190))