renatoalencar

diff --git a/src/dune b/src/dune
index 2ba2d36..d9e8e57 100644
--- a/src/dune
+++ b/src/dune
@@ -1,7 +1,6 @@
 (library
  (name binaryen)
  (public_name binaryen)
- (libraries libbinaryen.c)
  (foreign_stubs

renatoalencar

module Result_let_syntax = struct
  let (let*) = Result.bind
  let (let+) a f = Result.map f a
end

module Parse = struct
  open Tezos_micheline
  module MPrim = Michelson_v1_primitives

renatoalencar

{ parameter
    (pair (pair (address %deposit_address) (bytes %hash_)) (address %vault_address)) ;
  storage nat ;
  code { PUSH mutez 0 ;
         AMOUNT ;
         COMPARE ;
         EQ ;
         IF {} { PUSH string "failed assertion" ; FAILWITH } ;
         UNPAIR ;
         UNPAIR ;

renatoalencar

#include <stdio.h>
#include <ctype.h>
#include "caml/mlvalues.h"

char* tag_repr(int tag) {
  switch (tag) {
    case Custom_tag:
      return "Custom_tag";
    case Double_array_tag:
      return "Double_array_tag";

renatoalencar

diff --git a/esy.lock/index.json b/esy.lock/index.json
index 472c19f2..950f6e8f 100644
--- a/esy.lock/index.json
+++ b/esy.lock/index.json
@@ -1,5 +1,5 @@
 {
-  "checksum": "06f9f237cf9dd0acc2174a26407cd7c3",
+  "checksum": "9d0b0d7d646f14d07c9584a66e8ae6a9",
   "root": "sidechain@link-dev:./package.json",
   "node": {

renatoalencar

From ff156d75ef825155fc6877d47ff9d067fee61cca Mon Sep 17 00:00:00 2001
From: Renato Alencar <renatoalencar.73@gmail.com>
Date: Fri, 31 Dec 2021 01:19:46 +0000
Subject: [PATCH] Change tests to adapt to the new behavior

This is not ideal yet, but it gives a better idea
of what's really happening and what behavior
has broken when the previous change was introduced.

The command `ocamlopt -output-obj main_obj.o dynlink.cmxa

renatoalencar

Install cygwin and add the following packages

• cygwin
• diffutils
• make
• mingw64-i686-gcc-core
• mingw64-i686-runtime

./configure --build=i686-pc-cygwin --host=i686-w64-mingw32 --disable-dependency-generation

renatoalencar

type version = Socks4

type command = Connect | Bind

type port = int

type request = { version: version
               ; command: command
               ; destport: port

renatoalencar

let read_lines () =
  let rec aux lines =
    try
      let line = input_line stdin in
      aux @@ line :: lines
    with End_of_file ->
      lines
  in
  List.rev @@ aux []

renatoalencar

let root = $0._reactRootContainer._internalRoot

let node
let count
let map

node = root.current
count = 0
map = new Map()