Add timestamp in sc

lib/archethic/contracts/contract/constants.ex

@@ -18,6 +18,7 @@ defmodule Archethic.Contracts.Contract.Constants do
   alias Archethic.TransactionChain.TransactionData.Ownership
   alias Archethic.TransactionChain.TransactionData.UCOLedger
   alias Archethic.TransactionChain.TransactionData.UCOLedger.Transfer, as: UCOTransfer
+  alias Archethic.TransactionChain.Transaction.ValidationStamp
 
   @doc """
   Extract constants from a transaction into a map
@@ -40,7 +41,8 @@ defmodule Archethic.Contracts.Contract.Constants do
             }
           },
           recipients: recipients
-        }
+        },
+        validation_stamp: validation_stamp
       }) do
     %{
       "address" => address,
@@ -75,7 +77,16 @@ defmodule Archethic.Contracts.Contract.Constants do
           }
 
           Map.update(acc, to, [token_transfer], &[token_transfer | &1])
-        end)
+        end),
+      "timestamp" =>
+        case validation_stamp do
+          # Happens during the transaction validation
+          nil ->
+            nil
+
+          %ValidationStamp{timestamp: timestamp} ->
+            DateTime.to_unix(timestamp)
+        end
     }
   end
 

lib/archethic/contracts/interpreter.ex

@@ -596,6 +596,11 @@ defmodule Archethic.Contracts.Interpreter do
     {node, acc}
   end
 
+  # Whitelist the timestamp/0 function
+  defp prewalk(node = {{:atom, "timestamp"}, _, []}, acc = {:ok, %{scope: scope}})
+       when scope != :root,
+       do: {node, acc}
+
   defp prewalk(
          node = {{:atom, "get_genesis_public_key"}, _, [_address]},
          acc = {:ok, %{scope: scope}}
@@ -664,6 +669,10 @@ defmodule Archethic.Contracts.Interpreter do
     {node, acc}
   end
 
+  # Whitelist the timestamp/0 function in condition
+  defp prewalk(node = {{:atom, "timestamp"}, _, []}, acc = {:ok, %{scope: :condition}}),
+    do: {node, acc}
+
   # Whitelist the used of functions in the actions
   defp prewalk(node = {{:atom, fun_name}, _, _}, {:ok, acc = %{scope: :actions}})
        when fun_name in @transaction_statements_functions_names,

lib/archethic/contracts/interpreter/library.ex

@@ -196,4 +196,10 @@ defmodule Archethic.Contracts.Interpreter.Library do
   end
 
   defp download_first_address([], _address), do: {:error, :network_issue}
+
+  @doc """
+  Return the current UNIX timestamp
+  """
+  @spec timestamp() :: non_neg_integer()
+  def timestamp, do: DateTime.utc_now() |> DateTime.to_unix()
 end

test/archethic/contracts/worker_test.exs

@@ -27,6 +27,7 @@ defmodule Archethic.Contracts.WorkerTest do
   alias Archethic.TransactionChain.TransactionData.UCOLedger.Transfer
   alias Archethic.TransactionChain.TransactionData.TokenLedger
   alias Archethic.TransactionChain.TransactionData.TokenLedger.Transfer, as: TokenTransfer
+  alias Archethic.TransactionChain.Transaction.ValidationStamp
   alias Archethic.TransactionChain.Transaction.ValidationStamp.LedgerOperations.UnspentOutput
 
   alias Archethic.PubSub
@@ -80,7 +81,8 @@ defmodule Archethic.Contracts.WorkerTest do
         previous_public_key:
           transaction_seed
           |> Crypto.derive_keypair(0)
-          |> elem(0)
+          |> elem(0),
+        validation_stamp: %ValidationStamp{timestamp: DateTime.utc_now()}
       }
       |> Constants.from_transaction()
 
@@ -255,7 +257,8 @@ defmodule Archethic.Contracts.WorkerTest do
       assert :ok =
                Worker.execute(contract_address, %Transaction{
                  address: "@Bob3",
-                 data: %TransactionData{}
+                 data: %TransactionData{},
+                 validation_stamp: %ValidationStamp{timestamp: DateTime.utc_now()}
                })
 
       receive do
@@ -301,7 +304,8 @@ defmodule Archethic.Contracts.WorkerTest do
       assert :ok =
                Worker.execute(contract_address, %Transaction{
                  address: "@Bob3",
-                 data: %TransactionData{content: "Mr.X"}
+                 data: %TransactionData{content: "Mr.X"},
+                 validation_stamp: %ValidationStamp{timestamp: DateTime.utc_now()}
                })
 
       receive do
@@ -317,7 +321,8 @@ defmodule Archethic.Contracts.WorkerTest do
       assert {:error, :invalid_condition} =
                Worker.execute(contract_address, %Transaction{
                  address: "@Bob3",
-                 data: %TransactionData{content: "Mr.Z"}
+                 data: %TransactionData{content: "Mr.Z"},
+                 validation_stamp: %ValidationStamp{timestamp: DateTime.utc_now()}
                })
 
       refute_receive {:transaction_sent, _}
@@ -367,7 +372,8 @@ defmodule Archethic.Contracts.WorkerTest do
       assert :ok =
                Worker.execute(contract_address, %Transaction{
                  address: "@Bob3",
-                 data: %TransactionData{content: "Mr.X"}
+                 data: %TransactionData{content: "Mr.X"},
+                 validation_stamp: %ValidationStamp{timestamp: DateTime.utc_now()}
                })
 
       receive do
@@ -428,7 +434,8 @@ defmodule Archethic.Contracts.WorkerTest do
         type: :oracle,
         data: %TransactionData{
           content: Jason.encode!(%{"uco" => %{"eur" => 0.21}})
-        }
+        },
+        validation_stamp: %ValidationStamp{timestamp: DateTime.utc_now()}
       }
 
       PubSub.notify_new_transaction("@Oracle1", :oracle, DateTime.utc_now())
@@ -500,7 +507,8 @@ defmodule Archethic.Contracts.WorkerTest do
                      }
                    },
                    recipients: [contract_address]
-                 }
+                 },
+                 validation_stamp: %ValidationStamp{timestamp: DateTime.utc_now()}
                })
 
       receive do