balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Michelson (docs): fixed reservoir example.

Browse Source
This commit is contained in:
Benjamin Canou 2017-01-16 22:35:43 +01:00 committed by Benjamin Canou
parent 3a149af667
commit 5e06b9c719
1 changed files with 26 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
src/proto/bootstrap/docs/language.md
View File

@ -1400,21 +1400,33 @@ writen as
pair timestamp tez pair timestamp tez
pair (contract unit unit) (contract unit unit) pair (contract unit unit) (contract unit unit)
its code is The complete source `reservoir.tz` is:
DUP ; CDAAR # T parameter timestamp ;
NOW storage
COMPARE ; LE pair
IF { DUP ; CDADR # N (pair timestamp tez) # T N
BALANCE (pair (contract unit unit) (contract unit unit)) ; # A B
COMPARE ; LE return unit ;
IF { } # nothing to do code
{ DUP ; CDDDR # B { DUP ; CDAAR ; # T
BALANCE ; UNIT ; TRANSFER_TOKENS ; DROP } } NOW ;
{ DUP ; CDDAR ; # A COMPARE ; LE ;
BALANCE ; IF { DUP ; CDADR ; # N
UNIT ; TRANSFER_TOKENS ; DROP } BALANCE ;
CDR ; UNIT ; PAIR COMPARE ; LE ;
IF { CDR ; UNIT ; PAIR }
{ DUP ; CDDDR ; # B
BALANCE ; UNIT ;
DIIIP { CDR } ;
TRANSFER_TOKENS ;
PAIR } }
{ DUP ; CDDAR ; # A
BALANCE ;
UNIT ;
DIIIP { CDR } ;
TRANSFER_TOKENS ;
PAIR } }
### Reservoir contract (variant with broker and status) ### Reservoir contract (variant with broker and status)