First test work commit, don't touch

2018-12-22 01:23:40 +01:00
parent 3ceb8c38db
commit d4d02fd576
97 changed files with 10599 additions and 0 deletions
@@ -0,0 +1,43 @@
+//
+// Dutch auction example
+//
+contract DutchAuction =
+
+  record state = { start_amount : int,
+                   start_height : int,
+                   dec          : int,
+                   beneficiary  : address,
+                   sold         : bool }
+
+  // Add to work around current lack of predefined functions
+  private function spend(to, amount) =
+    let total = Contract.balance
+    Chain.spend(to, amount)
+    total - amount
+
+  private function require(b : bool, err : string) =
+    if(!b) abort(err)
+
+  // TTL set by user on posting contract, typically (start - end ) div dec
+  public function init(beneficiary, start, decrease) : state =
+    require(start > 0 && decrease > 0, "bad args")
+    { start_amount = start,
+      start_height = Chain.block_height,
+      beneficiary  = beneficiary,
+      dec          = decrease,
+      sold         = false }
+
+  // -- API
+
+  // We are the buyer... interesting case to buy for someone else and keep 10%
+  public stateful function bid() =
+    require( !(state.sold), "sold")
+    let cost =
+      state.start_amount - (Chain.block_height - state.start_height) * state.dec
+    require( Contract.balance >= cost, "no money")
+
+//    transaction(SpendTx({recipient = state.beneficiary,
+//                         amount    = cost }))  // or self.balance ** burn money **
+    spend(state.beneficiary, cost)
+    spend(Call.caller, Contract.balance)
+    put(state{sold = true})