Skip to content

Instantly share code, notes, and snippets.

@renatoalencar
Created November 23, 2021 21:54
Show Gist options
  • Save renatoalencar/45f21794276de2538e257af004b5ed9b to your computer and use it in GitHub Desktop.
Save renatoalencar/45f21794276de2538e257af004b5ed9b to your computer and use it in GitHub Desktop.
Clojure for Tezos

Clojure for Tezos

  • Endpoints are declared by adding an :entrypoint metadata at the function declaration, which could further extended to a defentrypoint macro.
  • Due to the typed nature of Michelson, the code must be typed to properly be translated to code:
    • Type declarations should use the type function (or macro?) to declare types for namespace defined variables.
    • Extra type annotation could be done by using metadata.
    • Need for a type checker, which I don't know how to implement (I don't know to how to build a backend also, but don't tell anyone).
    • Michelson types need a correspondence for Clojure literals, while some are possible, conjunction and disjunction types are not available for Clojure.
  • Some types have an extra challenge, like option and or, because Clojure doesn't have the proper idioms to deal with it, I should define a few patterns to describe how to interpret them, mainly option.
  • To descrease the overhead for type inference, some literals are going to be used for naturals and mutez, like 1n and 1mutez.

Just like domain specific stuff are exposed on the Tezos module for LIGO, I'm going to expose those on the tezos namespace.

Advantages

  • Macros
  • Emulate some of the dynamic features of Clojure and other Lisps

Examples

Counter contract

(type storage nat)
(type return (pair (list operation) storage))

(type increment (-> unit storage return))
(defn ^:entrypoint increment
  [_ storage]
  (tezos/pair :unit (inc storage))

(type decrement (-> unit storage return))
(defn ^:entrypoint decrement
  [_ storage]
  (tezos/pair :unit (dec storage)))
 
(type decrement (-> unit storage return))
(defn ^:entrypoint reset
  [_ _]
  (tezos/pair :unit 0))