#!/bin/bash

set -e

cd "$(dirname "$0")/.."

function clone_repo {
  owner=$1
  name=$2
  sha=$3

  path=examples/$name
  if [ ! -d "$path" ]; then
    echo "Cloning $owner/$name"
    git clone "https://github.com/$owner/$name" "$path"
  fi

  pushd "$path" > /dev/null
  head=$(git rev-parse HEAD)
  if [ "$head" != "$sha"  ]; then
    echo "Updating $owner/$name from $head to $sha"
    git fetch
    git reset --hard $sha
  fi
  popd > /dev/null
}

clone_repo 0install 0install 3411b55158e4896018d14946ab8a9f4522bc84b1
clone_repo BinaryAnalysisPlatform bap ea79178856512355f1789183a0dcfac7d2e830ed
clone_repo dbuenzli cmdliner db4d02a9eb47b5c43127a67cb121004b03ea3719
clone_repo facebook flow fef70240a1358704d14810032eaddd2a7b161aaa
clone_repo facebook pyre-check 50fd4352a53ff3d020308eaacb2d7801c672d719
clone_repo garrigue lablgtk 61e524bb6141d07f1fb46e00a48009eb49bfcca2
clone_repo janestreet base e8e658eded12b085bcca890dc035ffbe09460aec
clone_repo mirage ocaml-cohttp bc6191afb140279c222f33c8a5e7c7eb5d08e618
clone_repo ocaml dune d6e490c24dfb4607080b6a41930bb9d378bc2a43
clone_repo ocaml merlin 5ca4857302c2d2d329fd01d0db6a22fa5922b42a
clone_repo ocaml ocaml 90c1365901d22826e419129428a94515ca2b5af1
clone_repo ocaml opam 598d9691faa29e5876fd6db8d656c8d41ce78896
clone_repo ocsigen js_of_ocaml 69c904855b1f2099bdd7506e6cc075f3568f4b25
clone_repo ocsigen lwt f843bd81de08a0a27fd9908e960b0c3e8b2bc6b5
clone_repo owlbarn owl e5c440bba643c291ed2df29c3c8e990d7875bb94

known_failures="$(cat script/known_failures.txt)"

tree-sitter parse -q \
  'examples/**/*.ml' \
  'examples/**/*.mli' \
  $(for failure in $known_failures; do echo "!${failure}"; done)

example_count=$(find examples -name '*.ml' -o -name '*.mli' | wc -l)
failure_count=$(wc -w <<< "$known_failures")
success_count=$(( $example_count - $failure_count ))
success_percent=$(bc -l <<< "100*${success_count}/${example_count}")

printf \
  "Successfully parsed %d of %d example files (%.1f%%)\n" \
  $success_count $example_count $success_percent
