#!/bin/bash

runCommand()
{
    sol=$(basename -- "$1")
    sol="${sol%.*}"
    if [ -f log."$sol" ]; then rm log."$sol"; fi
    "$@" 1> >(tee -a log."$sol") 2> >(tee -a log."$sol" >&2)
    err=$?
    if [ ! $err -eq 0 ]; then exit $err; fi
}

runParallel()
{
    nproc="$1"
    shift
    exe="$(which $1)"
    sol=$(basename -- "$1")
    sol="${sol%.*}"
    shift
    if [ -f log."$sol" ]; then rm log."$sol"; fi
    export OMPI_MCA_btl_vader_single_copy_mechanism=none  # Workaround for open-mpi/docker bug
    mpiexec  -np $nproc "$exe" -parallel "$@" 1> >(tee -a log."$sol") 2> >(tee -a log."$sol" >&2)
    err=$?
    if [ ! $err -eq 0 ]; then exit $err; fi
}

GMSH_EXE='C:\Program Files\FreeCAD 1.0\bin\gmsh.exe'
if [[ $OSTYPE == 'darwin'* ]]
then
    NTHREADS=$(sysctl -n hw.logicalcpu)
else
    NTHREADS=$(nproc)
fi
runCommand "$GMSH_EXE" -nt $NTHREADS - "gmsh/Pad_Geometry.geo"

# Unset and source bashrc
if [ ! -z "$FOAMDIR" ]
then
    source "$FOAMDIR/etc/config.sh/unset" 2> /dev/null
    source "$FOAMDIR/etc/bashrc"
fi

runCommand gmshToFoam "gmsh/Pad_Geometry.msh"

# polyDualMesh doesn't seem to convert cell zones or sets
rm -f constant/polyMesh/cellZones
rm -rf constant/polyMesh/sets
# Convert to polyhedra
runCommand polyDualMesh 10 -concaveMultiCells -overwrite

if [ ! -z $FOAM_API ] || [ $WM_PROJECT_VERSION -lt 9 ] 2>/dev/null
then
    runCommand transformPoints -scale "(0.001 0.001 0.001)"
else
    runCommand transformPoints "scale=(0.001 0.001 0.001)"
fi


# Extract surface mesh and convert to mm for visualisation in FreeCAD
runCommand foamToSurface -scale 1000 -tri surfaceMesh.vtk
