#!/bin/bash

fin=/tmp/a.ml
fout=/tmp/a.s

for index in int32 int64 nativeint
do
  for width in int16 int32 'int32#' float32 'float32#' int64 'int64#'
  do
    for container in string bigstring bytes
    do
      access_sigil=`echo $width | sed -E 's/(f?)(loat|int)([0-9]+)(#?)/\1\3u\4/'`
      access_type=`echo $width | sed 's/16//'`
      printf "open Bigarray\n`
             `type bigstring = (char, int8_unsigned_elt, c_layout) Array1.t\n`
             `external get_unsafe`
             ` : $container`
             ` -> ${index}#`
             ` -> $access_type`
             ` = \"%%caml_${container}_get${access_sigil}_indexed_by_${index}#\"\n`
             `external set_unsafe`
             ` : $container`
             ` -> ${index}#`
             ` -> $access_type`
             ` -> unit`
             ` = \"%%caml_${container}_set${access_sigil}_indexed_by_${index}#\"\n`
             `let[@inline never] get s i = get_unsafe s i\n`
             `let[@inline never] set s i v = set_unsafe s i v" > $fin
      $INSTALL_DIR/bin/ocamlopt.opt -S -c -O3 $fin
      echo "==== access $width in $container by ${index}# ===="
      sed -nE '/^caml.*__get_.*code/,/^\s*ret$/p' $fout
      sed -nE '/^caml.*__set_.*code/,/^\s*ret$/p' $fout
    done
  done
done