Initial draft

CoqOfPython/ethereum/paris/simulations/fork_types.v

@@ -1,6 +1,8 @@
 Require Import CoqOfPython.CoqOfPython.
 Require ethereum.simulations.base_types.
 
+
+
 Module Address.
   Inductive t : Set :=
   | Make (address : base_types.Bytes20.t).

CoqOfPython/ethereum/paris/vm/instructions/simulations/keccak.v

@@ -0,0 +1,116 @@
+Require Import CoqOfPython.CoqOfPython.
+Require Import simulations.CoqOfPython.
+Require Import simulations.builtins.
+
+Require ethereum.simulations.base_types.
+Definition U255_CEIL_VALUE := base_types.U255_CEIL_VALUE.
+Module U256 := base_types.U256.
+Definition U256_CEIL_VALUE := base_types.U256_CEIL_VALUE.
+Module Uint := base_types.Uint.
+
+Require ethereum.paris.vm.simulations.__init__.
+Module Evm := __init__.Evm.
+
+Require ethereum.paris.vm.simulations.gas.
+Definition GAS_KECCAK256 := gas.GAS_KECCAK256.
+Definition GAS_KECCAK256_WORD := gas.GAS_KECCAK256_WORD.
+Definition calculate_gas_extend_memory := gas.calculate_gas_extend_memory.
+Definition charge_gas := gas.charge_gas.
+
+Require ethereum.paris.vm.simulations.stack.
+Definition pop := stack.pop.
+Definition push := stack.push.
+
+Import simulations.CoqOfPython.Notations.
+
+(*  *)
+Axiom keccak256 (bytes : FixedBytes.t) : FixBytes.t. Admitted. 
+
+(* 
+from ethereum.utils.numeric import ceil32
+
+from .. import Evm
+from ..gas import (
+    GAS_KECCAK256,
+    GAS_KECCAK256_WORD,
+    calculate_gas_extend_memory,
+    charge_gas,
+)
+from ..memory import memory_read_bytes
+from ..stack import pop, push
+
+
+def keccak(evm: Evm) -> None:
+    """
+    Pushes to the stack the Keccak-256 hash of a region of memory.
+
+    This also expands the memory, in case the memory is insufficient to
+    access the data's memory location.
+
+    Parameters
+    ----------
+    evm :
+        The current EVM frame.
+
+    """
+    # STACK
+    memory_start_index = pop(evm.stack)
+    size = pop(evm.stack)
+
+    # GAS
+    words = ceil32(Uint(size)) // 32
+    word_gas_cost = GAS_KECCAK256_WORD * words
+    extend_memory = calculate_gas_extend_memory(
+        evm.memory, [(memory_start_index, size)]
+    )
+    charge_gas(evm, GAS_KECCAK256 + word_gas_cost + extend_memory.cost)
+
+    # OPERATION
+    evm.memory += b"\x00" * extend_memory.expand_by
+    data = memory_read_bytes(evm.memory, memory_start_index, size)
+    hash = keccak256(data)
+
+    push(evm.stack, U256.from_be_bytes(hash))
+
+    # PROGRAM COUNTER
+    evm.pc += 1
+*)
+Definition bitwise_and : MS? Evm.t Exception.t unit := 
+  (* STACK *)
+  letS? memory_start_index := StateError.lift_lens Evm.Lens.stack pop in
+  letS? size := StateError.lift_lens Evm.Lens.stack pop in
+  (* GAS *)
+  (* 
+    words = ceil32(Uint(size)) // 32
+    word_gas_cost = GAS_KECCAK256_WORD * words
+    extend_memory = calculate_gas_extend_memory(
+        evm.memory, [(memory_start_index, size)]
+    )
+    charge_gas(evm, GAS_KECCAK256 + word_gas_cost + extend_memory.cost)
+  *)
+  let words : Uint32 := _ in
+  let word_gas_cost := _ in
+  let evm_memory := _ in 
+  let extend_memory := calculate_gas_extend_memory _ in
+  letS? _ := charge_gas GAS_KECCAK256 + word_gas_cost + extend_memory.cost in
+  (* OPERATION *)
+  (* 
+    evm.memory += b"\x00" * extend_memory.expand_by
+    data = memory_read_bytes(evm.memory, memory_start_index, size)
+    hash = keccak256(data)
+
+    push(evm.stack, U256.from_be_bytes(hash))
+  *)
+  (* Construct correrctly the b"\x00" *)
+  let b_x00 := base_types.FixedBytes.Make [Ascii.ascii_of_N 0] in
+  let b_x00 := hash.Bytes32.Make b_x00 in
+  let b_x00 := __init__.Hash32.Make b_x00 in
+
+
+
+  letS? _ := StateError.lift_lens Evm.Lens.stack (
+    push (U256.bit_and x y)) in 
+  (* PROGRAM COUNTER *) 
+  letS? _ := StateError.lift_lens Evm.Lens.pc (fun pc =>
+  (inl tt, Uint.__add__ pc (Uint.Make 1))) in
+  returnS? tt.

CoqOfPython/ethereum/paris/vm/simulations/gas.v

@@ -52,4 +52,57 @@ Definition GAS_COLD_SLOAD := Uint.Make 2100.
 Definition GAS_COLD_ACCOUNT_ACCESS := Uint.Make 2600.
 Definition GAS_WARM_ACCESS := Uint.Make 100.
 
-Parameter charge_gas : forall (amount : Uint.t), MS? Evm.t Exception.t unit.
+(* Parameter charge_gas : forall (amount : Uint.t), MS? Evm.t Exception.t unit. *)
+Parameter charge_gas : forall (amount : Uint.t), unit.
+
+(* 
+class ExtendMemory:
+    """
+    Define the parameters for memory extension in opcodes
+
+    `cost`: `ethereum.base_types.Uint`
+        The gas required to perform the extension
+    `expand_by`: `ethereum.base_types.Uint`
+        The size by which the memory will be extended
+    """
+
+    cost: Uint
+    expand_by: Uint
+*)
+Module ExtendMemory.
+  Record t : Set :={
+    cost : Uint.t;
+    expand_by : Uint.t;
+  }.
+End ExtendMemory.
+
+(* def calculate_gas_extend_memory(
+    memory: bytearray, extensions: List[Tuple[U256, U256]]
+) -> ExtendMemory: *)
+Parameter calculate_gas_extend_memory : 
+  forall (memory : list FixedBytes) (extensions : list (U256.t, U256.t)), ExtendMemory.
+
+  (* 
+  def ceil32(value: Uint) -> Uint:
+    """
+    Converts a unsigned integer to the next closest multiple of 32.
+
+    Parameters
+    ----------
+    value :
+        The value whose ceil32 is to be calculated.
+
+    Returns
+    -------
+    ceil32 : `ethereum.base_types.U256`
+        The same value if it's a perfect multiple of 32
+        else it returns the smallest multiple of 32
+        that is greater than `value`.
+    """
+    ceiling = Uint(32)
+    remainder = value % ceiling
+    if remainder == Uint(0):
+        return value
+    else:
+        return value + ceiling - remainder
+  *)

CoqOfPython/ethereum/utils/simulations/numeric.v

@@ -0,0 +1,22 @@
+(* def ceil32(value: Uint) -> Uint:
+    """
+    Converts a unsigned integer to the next closest multiple of 32.
+
+    Parameters
+    ----------
+    value :
+        The value whose ceil32 is to be calculated.
+
+    Returns
+    -------
+    ceil32 : `ethereum.base_types.U256`
+        The same value if it's a perfect multiple of 32
+        else it returns the smallest multiple of 32
+        that is greater than `value`.
+    """
+    ceiling = Uint(32)
+    remainder = value % ceiling
+    if remainder == Uint(0):
+        return value
+    else:
+        return value + ceiling - remainder *)