Table of Contents
- Language Features
- Contracts
- Calling other contracts
- Mutable state
- Payable
- Namespaces
- Splitting code over multiple files
- Standard library
- Types
- Literals
- Arithmetic
- Bit fields
- Type aliases
- Algebraic data types
- Lists
- Maps and records
- Strings
- Byte arrays
- Cryptographic builins
- Authorization interface
- Oracle interface
- AENS interface
- Events
- Compiler pragmas
- Exceptions
- Syntax
- Examples
- Contracts
An Æternity BlockChain Language
The Sophia is a language in the ML family. It is strongly typed and has restricted mutable state.
Sophia is customized for smart contracts, which can be published to a blockchain (the Æternity BlockChain). Thus some features of conventional languages, such as floating point arithmetic, are not present in Sophia, and some blockchain specific primitives, constructions and types have been added.
The main unit of code in Sophia is the contract.
- A contract implementation, or simply a contract, is the code for a smart contract and consists of a list of types, entrypoints and local functions. Only the entrypoints can be called from outside the contract.
- A contract instance is an entity living on the block chain (or in a state channel). Each instance has an address that can be used to call its entrypoints, either from another contract or in a call transaction.
- A contract may define a type
state
encapsulating its local state. When creating a new contract theinit
entrypoint is executed and the state is initialized to its return value.
The language offers some primitive functions to interact with the blockchain and contracts. Please refer to the Chain, Contract and the Call namespaces in the documentation.
To call a function in another contract you need the address to an instance of the contract. The type of the address must be a contract type, which consists of a number of type definitions and entrypoint declarations. For instance,
// A contract type
contract VotingType =
entrypoint vote : string => unit
Now given contract address of type VotingType
you can call the vote
entrypoint of that contract:
contract VoteTwice =
entrypoint voteTwice(v : VotingType, alt : string) =
v.vote(alt)
v.vote(alt)
Contract calls take two optional named arguments gas : int
and value : int
that lets you set a gas limit and provide tokens to a contract call. If omitted
the defaults are no gas limit and no tokens. Suppose there is a fee for voting:
entrypoint voteTwice(v : VotingType, fee : int, alt : string) =
v.vote(value = fee, alt)
v.vote(value = fee, alt)
Named arguments can be given in any order.
Note that reentrant calls are not permitted. In other words, when calling another contract it cannot call you back (directly or indirectly).
To construct a value of a contract type you can give a contract address literal
(for instance ct_2gPXZnZdKU716QBUFKaT4VdBZituK93KLvHJB3n4EnbrHHw4Ay
), or
convert an account address to a contract address using Address.to_contract
.
Note that if the contract does not exist, or it doesn't have the entrypoint, or
the type of the entrypoint does not match the stated contract type, the call
fails.
To recover the underlying address
of a contract instance there is a field
address : address
. For instance, to send tokens to the voting contract (given that it is payable)
without calling it you can write
entrypoint pay(v : VotingType, amount : int) =
Chain.spend(v.address, amount)
Sophia does not have arbitrary mutable state, but only a limited form of state associated with each contract instance.
- Each contract defines a type
state
encapsulating its mutable state. The typestate
defaults to theunit
. - The initial state of a contract is computed by the contract's
init
function. Theinit
function is pure and returns the initial state as its return value. If the typestate
isunit
, theinit
function defaults to returning the value()
. At contract creation time, theinit
function is executed and its result is stored as the contract state. - The value of the state is accessible from inside the contract
through an implicitly bound variable
state
. - State updates are performed by calling a function
put : state => unit
. - Aside from the
put
function (and similar functions for transactions and events), the language is purely functional. - Functions modifying the state need to be annotated with the
stateful
keyword (see below).
To make it convenient to update parts of a deeply nested state Sophia provides special syntax for map/record updates.
Top-level functions and entrypoints must be annotated with the
stateful
keyword to be allowed to affect the state of the running contract.
For instance,
stateful entrypoint set_state(s : state) =
put(s)
Without the stateful
annotation the compiler does not allow the call to
put
. A stateful
annotation is required to
- Use a stateful primitive function. These are
put
Chain.spend
Oracle.register
Oracle.query
Oracle.respond
Oracle.extend
AENS.preclaim
AENS.claim
AENS.transfer
AENS.revoke
- Call a
stateful
function in the current contract - Call another contract with a non-zero
value
argument.
A stateful
annotation is not required to
- Read the contract state.
- Issue an event using the
event
function. - Call another contract with
value = 0
, even if the called function is stateful.
A concrete contract is by default not payable. Any attempt at spending to such
a contract (either a Chain.spend
or a normal spend transaction) will fail. If a
contract shall be able to receive funds in this way it has to be declared payable
:
// A payable contract
payable contract ExampleContract =
stateful entrypoint do_stuff() = ...
If in doubt, it is possible to check if an address is payable using
Address.is_payable(addr)
.
A contract entrypoint is by default not payable. Any call to such a function
(either a Remote call or a contract call transaction)
that has a non-zero value
will fail. Contract entrypoints that should be called
with a non-zero value should be declared payable
.
payable stateful entrypoint buy(to : address) =
if(Call.value > 42)
transfer_item(to)
else
abort("Value too low")
Note: In the Aeternity VM (AEVM) contracts and entrypoints were by default payable until the Lima release.
Code can be split into libraries using the namespace
construct. Namespaces
can appear at the top-level and can contain type and function definitions, but
not entrypoints. Outside the namespace you can refer to the (non-private) names
by qualifying them with the namespace (Namespace.name
).
For example,
namespace Library =
type number = int
function inc(x : number) : number = x + 1
contract MyContract =
entrypoint plus2(x) : Library.number =
Library.inc(Library.inc(x))
Functions in namespaces have access to the same environment (including the
Chain
, Call
, and Contract
, builtin namespaces) as function in a contract,
with the exception of state
, put
and Chain.event
since these are
dependent on the specific state and event types of the contract.
Code from another file can be included in a contract using an include
statement. These must appear at the top-level (outside the main contract). The
included file can contain one or more namespaces and abstract contracts. For
example, if the file library.aes
contains
namespace Library =
function inc(x) = x + 1
you can use it from another file using an include
:
include "library.aes"
contract MyContract =
entrypoint plus2(x) = Library.inc(Library.inc(x))
This behaves as if the contents of library.aes
was textually inserted into
the file, except that error messages will refer to the original source
locations. The language will try to include each file at most one time automatically,
so even cyclic includes should be working without any special tinkering.
Sophia offers standard library which exposes some
primitive operations and some higher level utilities. The builtin
namespaces like Chain
, Contract
, Map
are included by default and are supported internally by the compiler.
Others like List
, Frac
, Option
need to be manually included using the
include
directive. For example
include "List.aes"
include "Pair.aes"
-- Map is already there!
namespace C =
entrypoint keys(m : map('a, 'b)) : list('a) =
List.map(Pair.fst, (Map.to_list(m)))
Sophia has the following types:
Type | Description | Example |
---|---|---|
int | A 2-complement integer | -1 |
address | Aeternity address, 32 bytes | Call.origin |
bool | A Boolean | true |
bits | A bit field | Bits.none |
bytes(n) | A byte array with n bytes |
#fedcba9876543210 |
string | An array of bytes | "Foo" |
list | A homogeneous immutable singly linked list. | [1, 2, 3] |
('a, 'b) => 'c | A function. Parentheses can be skipped if there is only one argument | (x : int, y : int) => x + y |
tuple | An ordered heterogeneous array | (42, "Foo", true) |
record | An immutable key value store with fixed key names and typed values | record balance = { owner: address, value: int } |
map | An immutable key value store with dynamic mapping of keys of one type to values of one type | type accounts = map(string, address) |
option('a) | An optional value either None or Some('a) | Some(42) |
state | A user defined type holding the contract state | record state = { owner: address, magic_key: bytes(4) } |
event | An append only list of blockchain events (or log entries) | datatype event = EventX(indexed int, string) |
hash | A 32-byte hash - equivalent to bytes(32) |
|
signature | A signature - equivalent to bytes(64) |
|
Chain.ttl | Time-to-live (fixed height or relative to current block) | FixedTTL(1050) RelativeTTL(50) |
oracle('a, 'b) | And oracle answering questions of type 'a with answers of type 'b | Oracle.register(acct, qfee, ttl) |
oracle_query('a, 'b) | A specific oracle query | Oracle.query(o, q, qfee, qttl, rttl) |
contract | A user defined, typed, contract address | function call_remote(r : RemoteContract) = r.fun() |
Type | Constant/Literal example(s) |
---|---|
int | -1 , 2425 , 4598275923475723498573485768 |
address | ak_2gx9MEFxKvY9vMG5YnqnXWv1hCsX7rgnfvBLJS4aQurustR1rt |
bool | true , false |
bits | Bits.none , Bits.all |
bytes(8) | #fedcba9876543210 |
string | "This is a string" |
list | [1, 2, 3] , [(true, 24), (false, 19), (false, -42)] |
tuple | (42, "Foo", true) |
record | { owner = Call.origin, value = 100000000 } |
map | {["foo"] = 19, ["bar"] = 42} , {} |
option(int) | Some(42) , None |
state | state{ owner = Call.origin, magic_key = #a298105f } |
event | EventX(0, "Hello") |
hash | #000102030405060708090a0b0c0d0e0f000102030405060708090a0b0c0d0e0f |
signature | #000102030405060708090a0b0c0d0e0f000102030405060708090a0b0c0d0e0f000102030405060708090a0b0c0d0e0f000102030405060708090a0b0c0d0e0f |
Chain.ttl | FixedTTL(1050) , RelativeTTL(50) |
oracle('a, 'b) | ok_2YNyxd6TRJPNrTcEDCe9ra59SVUdp9FR9qWC5msKZWYD9bP9z5 |
oracle_query('a, 'b) | oq_2oRvyowJuJnEkxy58Ckkw77XfWJrmRgmGaLzhdqb67SKEL1gPY |
contract | ct_Ez6MyeTMm17YnTnDdHTSrzMEBKmy7Uz2sXu347bTDPgVH2ifJ |
Sophia integers (int
) are represented by 256-bit (AEVM) or arbitrary-sized (FATE) signed words and supports the following
arithmetic operations:
- addition (
x + y
) - subtraction (
x - y
) - multiplication (
x * y
) - division (
x / y
), truncated towards zero - remainder (
x mod y
), satisfyingy * (x / y) + x mod y == x
for non-zeroy
- exponentiation (
x ^ y
)
All operations are safe with respect to overflow and underflow. On AEVM they behave as the corresponding
operations on arbitrary-size integers and fail with arithmetic_error
if the
result cannot be represented by a 256-bit signed word. For example, 2 ^ 255
fails rather than wrapping around to -2²⁵⁵.
The division and modulo operations also throw an arithmetic error if the second argument is zero.
Sophia integers do not support bit arithmetic. Instead there is a separate
type bits
. See the standard library documentation.
On the AEVM a bit field is represented by a 256-bit word and reading or writing
a bit outside the 0..255 range fails with an arithmetic_error
. On FATE a bit
field can be of arbitrary size (but it is still represented by the
corresponding integer, so setting very high bits can be expensive).
Type aliases can be introduced with the type
keyword and can be
parameterized. For instance
type number = int
type string_map('a) = map(string, 'a)
A type alias and its definition can be used interchangeably. Sophia does not support
higher-kinded types, meaning that following type alias is invalid: type wrap('f, 'a) = 'f('a)
Sophia supports algebraic data types (variant types) and pattern matching. Data types are declared by giving a list of constructors with their respective arguments. For instance,
datatype one_or_both('a, 'b) = Left('a) | Right('b) | Both('a, 'b)
Elements of data types can be pattern matched against, using the switch
construct:
function get_left(x : one_or_both('a, 'b)) : option('a) =
switch(x)
Left(x) => Some(x)
Right(_) => None
Both(x, _) => Some(x)
or directly in the left-hand side:
function
get_left : one_or_both('a, 'b) => option('a)
get_left(Left(x)) = Some(x)
get_left(Right(_)) = None
get_left(Both(x, _)) = Some(x)
NOTE: Data types cannot currently be recursive.
A Sophia list is a dynamically sized, homogenous, immutable, singly
linked list. A list is constructed with the syntax [1, 2, 3]
. The
elements of a list can be any of datatype but they must have the same
type. The type of lists with elements of type 'e
is written
list('e)
. For example we can have the following lists:
[1, 33, 2, 666] : list(int)
[(1, "aaa"), (10, "jjj"), (666, "the beast")] : list(int * string)
[{[1] = "aaa", [10] = "jjj"}, {[5] = "eee", [666] = "the beast"}] : list(map(int, string))
New elements can be prepended to the front of a list with the ::
operator. So 42 :: [1, 2, 3]
returns the list [42, 1, 2, 3]
. The
concatenation operator ++
appends its second argument to its first
and returns the resulting list. So concatenating two lists
[1, 22, 33] ++ [10, 18, 55]
returns the list [1, 22, 33, 10, 18, 55]
.
Sophia supports list comprehensions known from languages like Python, Haskell or Erlang. Example syntax:
[x + y | x <- [1,2,3,4,5], let k = x*x, if (k > 5), y <- [k, k+1, k+2]]
// yields [12,13,14,20,21,22,30,31,32]
Lists can be constructed using the range syntax using special ..
operator:
[1..4] == [1,2,3,4]
The ranges are always ascending and have step equal to 1.
Please refer to the standard library for the predefined functionalities.
A Sophia record type is given by a fixed set of fields with associated, possibly different, types. For instance
record account = { name : string,
balance : int,
history : list(transaction) }
Maps, on the other hand, can contain an arbitrary number of key-value bindings,
but of a fixed type. The type of maps with keys of type 'k
and values of type
'v
is written map('k, 'v)
. The key type can be any type that does not
contain a map or a function type.
Please refer to the standard library for the predefined functionalities.
A value of record type is constructed by giving a value for each of the fields. For the example above,
function new_account(name) =
{name = name, balance = 0, history = []}
Maps are constructed similarly, with keys enclosed in square brackets
function example_map() : map(string, int) =
{["key1"] = 1, ["key2"] = 2}
The empty map is written {}
.
Record fields access is written r.f
and map lookup m[k]
. For instance,
function get_balance(a : address, accounts : map(address, account)) =
accounts[a].balance
Looking up a non-existing key in a map results in contract execution failing. A
default value to return for non-existing keys can be provided using the syntax
m[k = default]
. See also Map.member
and Map.lookup
below.
Record field updates are written r{f = v}
. This creates a new record value
which is the same as r
, but with the value of the field f
replaced by v
.
Similarly, m{[k] = v}
constructs a map with the same values as m
except
that k
maps to v
. It makes no difference if m
has a mapping for k
or
not.
It is possible to give a name to the old value of a field or mapping in an
update: instead of acc{ balance = acc.balance + 100 }
it is possible to write
acc{ balance @ b = b + 100 }
, binding b
to acc.balance
. When giving a
name to a map value (m{ [k] @ x = v }
), the corresponding key must be present
in the map or execution fails, but a default value can be provided:
m{ [k = default] @ x = v }
. In this case x
is bound to default
if
k
is not in the map.
Updates can be nested:
function clear_history(a : address, accounts : map(address, account)) : map(address, account) =
accounts{ [a].history = [] }
This is equivalent to accounts{ [a] @ acc = acc{ history = [] } }
and thus
requires a
to be present in the accounts map. To have clear_history
create
an account if a
is not in the map you can write (given a function empty_account
):
accounts{ [a = empty_account()].history = [] }
Internally in the VM maps are implemented as hash maps and support fast lookup and update. Large maps can be stored in the contract state and the size of the map does not contribute to the gas costs of a contract call reading or updating it.
There is a builtin type string
, which can be seen as an array of bytes.
Strings can be compared for equality (==
, !=
), used as keys in maps and
records, and used in builtin functions String.length
, String.concat
and
the hash functions described below.
Please refer to the Map
library documentation.
Byte arrays are fixed size arrays of 8-bit integers. They are described in hexadecimal system,
for example the literal #cafe
creates a two-element array of bytes ca
(202) and fe
(254)
and thus is a value of type bytes(2)
.
Please refer to the Bytes
library documentation.
Libraries Crypto and String provide functions to
hash objects, verify signatures etc. The hash
is a type alias for bytes(32)
.
The hash functions in String
hash strings interpreted as byte arrays, and
the Crypto
hash functions accept an element of any (first-order) type. The
result is the hash of the binary encoding of the argument as described
below. Note that this means that for s : string
, String.sha3(s)
and Crypto.sha3(s)
will give different results on AEVM.
When a Generalized account is authorized, the authorization function needs
access to the transaction hash for the wrapped transaction. (A GAMetaTx
wrapping a transaction.) The transaction hash is available in the primitive
Auth.tx_hash
, it is only available during authentication if invoked by a
normal contract call it returns None
.
You can attach an oracle to the current contract and you can interact with oracles through the Oracle interface.
For a full description of how Oracle works see Oracles. For a functionality documentation refer to the standard library.
Example for an oracle answering questions of type string
with answers of type int
:
contract Oracles =
stateful entrypoint registerOracle(acct : address,
sign : signature, // Signed network id + oracle address + contract address
qfee : int,
ttl : Chain.ttl) : oracle(string, int) =
Oracle.register(acct, signature = sign, qfee, ttl)
entrypoint queryFee(o : oracle(string, int)) : int =
Oracle.query_fee(o)
payable stateful entrypoint createQuery(o : oracle_query(string, int),
q : string,
qfee : int,
qttl : Chain.ttl,
rttl : int) : oracle_query(string, int) =
require(qfee =< Call.value, "insufficient value for qfee")
Oracle.query(o, q, qfee, qttl, RelativeTTL(rttl))
stateful entrypoint extendOracle(o : oracle(string, int),
ttl : Chain.ttl) : unit =
Oracle.extend(o, ttl)
stateful entrypoint signExtendOracle(o : oracle(string, int),
sign : signature, // Signed network id + oracle address + contract address
ttl : Chain.ttl) : unit =
Oracle.extend(o, signature = sign, ttl)
stateful entrypoint respond(o : oracle(string, int),
q : oracle_query(string, int),
sign : signature, // Signed network id + oracle query id + contract address
r : int) =
Oracle.respond(o, q, signature = sign, r)
entrypoint getQuestion(o : oracle(string, int),
q : oracle_query(string, int)) : string =
Oracle.get_question(o, q)
entrypoint hasAnswer(o : oracle(string, int),
q : oracle_query(string, int)) =
switch(Oracle.get_answer(o, q))
None => false
Some(_) => true
entrypoint getAnswer(o : oracle(string, int),
q : oracle_query(string, int)) : option(int) =
Oracle.get_answer(o, q)
When an Oracle literal is passed to a contract, no deep checks are performed. For extra safety Oracle.check and Oracle.check_query functions are provided.
Contracts can interact with the Aeternity Naming System. For this purpose the AENS library was exposed.
Sophia contracts log structured messages to an event log in the resulting blockchain transaction. The event log is quite similar to Events in Solidity. Events are further discussed in the protocol.
To use events a contract must declare a datatype event
, and events are then
logged using the Chain.event
function:
datatype event
= Event1(int, int, string)
| Event2(string, address)
Chain.event(e : event) : unit
The event can have 0-3 indexed fields, and an optional payload field. A field is indexed if it fits in a 32-byte word, i.e.
bool
int
bits
address
oracle(_, _)
oracle_query(_, _)
- contract types
bytes(n)
forn
≤ 32, in particularhash
The payload field must be either a string or a byte array of more than 32 bytes. The fields can appear in any order.
NOTE: Indexing is not part of the core aeternity node.
Events are emitted by using the Chain.event
function. The following function
will emit one Event of each kind in the example.
entrypoint emit_events() : () =
Chain.event(Event1(42, 34, "foo"))
Chain.event(Event2("This is not indexed", Contract.address))
It is only possible to have one (1) string
parameter in the event, but it can
be placed in any position (and its value will end up in the data
field), i.e.
AnotherEvent(string, indexed address)
...
Chain.event(AnotherEvent("This is not indexed", Contract.address))
would yield exactly the same result in the example above!
To enforce that a contract is only compiled with specific versions of the
Sophia compiler, you can give one or more @compiler
pragmas at the
top-level (typically at the beginning) of a file. For instance, to enforce that
a contract is compiled with version 4.3 of the compiler you write
@compiler >= 4.3
@compiler < 4.4
Valid operators in compiler pragmas are <
, =<
, ==
, >=
, and >
. Version
numbers are given as a sequence of non-negative integers separated by dots.
Trailing zeros are ignored, so 4.0.0 == 4
. If a constraint is violated an
error is reported and compilation fails.
Contracts can fail with an (uncatchable) exception using the built-in function
abort(reason : string) : 'a
Calling abort causes the top-level call transaction to return an error result
containing the reason
string. Only the gas used up to and including the abort
call is charged. This is different from termination due to a crash which
consumes all available gas.
For convenience the following function is also built-in:
function require(b : bool, err : string) =
if(!b) abort(err)
Single line comments start with //
and block comments are enclosed in /*
and */
and can be nested.
contract elif else entrypoint false function if import include let mod namespace
private payable stateful switch true type record datatype
Id = [a-z_][A-Za-z0-9_']*
identifiers start with a lower case letter.Con = [A-Z][A-Za-z0-9_']*
constructors start with an upper case letter.QId = (Con\.)+Id
qualified identifiers (e.g.Map.member
)QCon = (Con\.)+Con
qualified constructorTVar = 'Id
type variable (e.g'a
,'b
)Int = [0-9]+(_[0-9]+)*|0x[0-9A-Fa-f]+(_[0-9A-Fa-f]+)*
integer literal with optional_
separatorsBytes = #[0-9A-Fa-f]+(_[0-9A-Fa-f]+)*
byte array literal with optional_
separatorsString
string literal enclosed in"
with escape character\
Char
character literal enclosed in'
with escape character\
AccountAddress
base58-encoded 32 byte account pubkey withak_
prefixContractAddress
base58-encoded 32 byte contract address withct_
prefixOracleAddress
base58-encoded 32 byte oracle address withok_
prefixOracleQueryId
base58-encoded 32 byte oracle query id withoq_
prefix
Valid string escape codes are
Escape | ASCII | |
---|---|---|
\b |
8 | |
\t |
9 | |
\n |
10 | |
\v |
11 | |
\f |
12 | |
\r |
13 | |
\e |
27 | |
\xHexDigits |
HexDigits |
See the identifier encoding scheme for the details on the base58 literals.
Sophia uses Python-style layout rules to group declarations and statements. A layout block with more than one element must start on a separate line and be indented more than the currently enclosing layout block. Blocks with a single element can be written on the same line as the previous token.
Each element of the block must share the same indentation and no part of an element may be indented less than the indentation of the block. For instance
contract Layout =
function foo() = 0 // no layout
function bar() = // layout block starts on next line
let x = foo() // indented more than 2 spaces
x
+ 1 // the '+' is indented more than the 'x'
In describing the syntax below, we use the following conventions:
- Upper-case identifiers denote non-terminals (like
Expr
) or terminals with some associated value (likeId
). - Keywords and symbols are enclosed in single quotes:
'let'
or'='
. - Choices are separated by vertical bars:
|
. - Optional elements are enclosed in
[
square brackets]
. (
Parentheses)
are used for grouping.- Zero or more repetitions are denoted by a postfix
*
, and one or more repetitions by a+
. Block(X)
denotes a layout block ofX
s.Sep(X, S)
is short for[X (S X)*]
, i.e. a possibly empty sequence ofX
s separated byS
s.Sep1(X, S)
is short forX (S X)*
, i.e. same asSep
, but must not be empty.
A Sophia file consists of a sequence of declarations in a layout block.
File ::= Block(TopDecl)
TopDecl ::= ['payable'] 'contract' Con '=' Block(Decl)
| 'namespace' Con '=' Block(Decl)
| '@compiler' PragmaOp Version
| 'include' String
Decl ::= 'type' Id ['(' TVar* ')'] '=' TypeAlias
| 'record' Id ['(' TVar* ')'] '=' RecordType
| 'datatype' Id ['(' TVar* ')'] '=' DataType
| (EModifier* 'entrypoint' | FModifier* 'function') Block(FunDecl)
FunDecl ::= Id ':' Type // Type signature
| Id Args [':' Type] '=' Block(Stmt) // Definition
PragmaOp ::= '<' | '=<' | '==' | '>=' | '>'
Version ::= Sep1(Int, '.')
EModifier ::= 'payable' | 'stateful'
FModifier ::= 'stateful' | 'private'
Args ::= '(' Sep(Pattern, ',') ')'
Contract declarations must appear at the top-level.
For example,
contract Test =
type t = int
entrypoint add (x : t, y : t) = x + y
There are three forms of type declarations: type aliases (declared with the
type
keyword), record type definitions (record
) and data type definitions
(datatype
):
TypeAlias ::= Type
RecordType ::= '{' Sep(FieldType, ',') '}'
DataType ::= Sep1(ConDecl, '|')
FieldType ::= Id ':' Type
ConDecl ::= Con ['(' Sep1(Type, ',') ')']
For example,
record point('a) = {x : 'a, y : 'a}
datatype shape('a) = Circle(point('a), 'a) | Rect(point('a), point('a))
type int_shape = shape(int)
Type ::= Domain '=>' Type // Function type
| Type '(' Sep(Type, ',') ')' // Type application
| '(' Type ')' // Parens
| 'unit' | Sep(Type, '*') // Tuples
| Id | QId | TVar
Domain ::= Type // Single argument
| '(' Sep(Type, ',') ')' // Multiple arguments
The function type arrow associates to the right.
Example,
'a => list('a) => (int * list('a))
Function bodies are blocks of statements, where a statement is one of the following
Stmt ::= 'switch' '(' Expr ')' Block(Case)
| 'if' '(' Expr ')' Block(Stmt)
| 'elif' '(' Expr ')' Block(Stmt)
| 'else' Block(Stmt)
| 'let' LetDef
| Expr
LetDef ::= Id Args [':' Type] '=' Block(Stmt) // Function definition
| Pattern '=' Block(Stmt) // Value definition
Case ::= Pattern '=>' Block(Stmt)
Pattern ::= Expr
if
statements can be followed by zero or more elif
statements and an optional final else
statement. For example,
let x : int = 4
switch(f(x))
None => 0
Some(y) =>
if(y > 10)
"too big"
elif(y < 3)
"too small"
else
"just right"
Expr ::= '(' LamArgs ')' '=>' Block(Stmt) // Anonymous function (x) => x + 1
| 'if' '(' Expr ')' Expr 'else' Expr // If expression if(x < y) y else x
| Expr ':' Type // Type annotation 5 : int
| Expr BinOp Expr // Binary operator x + y
| UnOp Expr // Unary operator ! b
| Expr '(' Sep(Expr, ',') ')' // Application f(x, y)
| Expr '.' Id // Projection state.x
| Expr '[' Expr ']' // Map lookup map[key]
| Expr '{' Sep(FieldUpdate, ',') '}' // Record or map update r{ fld[key].x = y }
| '[' Sep(Expr, ',') ']' // List [1, 2, 3]
| '[' Expr '|' Sep(Generator, ',') ']'
// List comprehension [k | x <- [1], if (f(x)), let k = x+1]
| '[' Expr '..' Expr ']' // List range [1..n]
| '{' Sep(FieldUpdate, ',') '}' // Record or map value {x = 0, y = 1}, {[key] = val}
| '(' Expr ')' // Parens (1 + 2) * 3
| Id | Con | QId | QCon // Identifiers x, None, Map.member, AELib.Token
| Int | Bytes | String | Char // Literals 123, 0xff, #00abc123, "foo", '%'
| AccountAddress | ContractAddress // Chain identifiers
| OracleAddress | OracleQueryId // Chain identifiers
Generator ::= Pattern '<-' Expr // Generator
| 'if' '(' Expr ')' // Guard
| LetDef // Definition
LamArgs ::= '(' Sep(LamArg, ',') ')'
LamArg ::= Id [':' Type]
FieldUpdate ::= Path '=' Expr
Path ::= Id // Record field
| '[' Expr ']' // Map key
| Path '.' Id // Nested record field
| Path '[' Expr ']' // Nested map key
BinOp ::= '||' | '&&' | '<' | '>' | '=<' | '>=' | '==' | '!='
| '::' | '++' | '+' | '-' | '*' | '/' | 'mod' | '^'
UnOp ::= '-' | '!'
Operators | Type |
---|---|
- + * / mod ^ |
arithmetic operators |
! && || |
logical operators |
== != < > =< >= |
comparison operators |
:: ++ |
list operators |
In order of highest to lowest precedence.
Operators | Associativity |
---|---|
! |
right |
^ |
left |
* / mod |
left |
- (unary) |
right |
+ - |
left |
:: ++ |
right |
< > =< >= == != |
none |
&& |
right |
|| |
right |
/*
* A simple crowd-funding example
*/
contract FundMe =
record spend_args = { recipient : address,
amount : int }
record state = { contributions : map(address, int),
total : int,
beneficiary : address,
deadline : int,
goal : int }
stateful function spend(args : spend_args) =
Chain.spend(args.recipient, args.amount)
entrypoint init(beneficiary, deadline, goal) : state =
{ contributions = {},
beneficiary = beneficiary,
deadline = deadline,
total = 0,
goal = goal }
function is_contributor(addr) =
Map.member(addr, state.contributions)
stateful entrypoint contribute() =
if(Chain.block_height >= state.deadline)
spend({ recipient = Call.caller, amount = Call.value }) // Refund money
false
else
let amount =
switch(Map.lookup(Call.caller, state.contributions))
None => Call.value
Some(n) => n + Call.value
put(state{ contributions[Call.caller] = amount,
total @ tot = tot + Call.value })
true
stateful entrypoint withdraw() =
if(Chain.block_height < state.deadline)
abort("Cannot withdraw before deadline")
if(Call.caller == state.beneficiary)
withdraw_beneficiary()
elif(is_contributor(Call.caller))
withdraw_contributor()
else
abort("Not a contributor or beneficiary")
stateful function withdraw_beneficiary() =
require(state.total >= state.goal, "Project was not funded")
spend({recipient = state.beneficiary,
amount = Contract.balance })
stateful function withdraw_contributor() =
if(state.total >= state.goal)
abort("Project was funded")
let to = Call.caller
spend({recipient = to,
amount = state.contributions[to]})
put(state{ contributions @ c = Map.delete(to, c) })