#!/usr/bin/env bash
# Compila o Cuyo do fredygames.com: o quebra-cabeca de bolas coloridas de Immanuel Halupczok, Bernhard
# Seckinger, Mark Weyer e colaboradores (codigo, fases, graficos e musica sob a GPL-2.0-or-later, como diz o
# AUTHORS e o cabecalho de cada arquivo) em WebAssembly, com o Emscripten 6.0.10 e as portas SDL2 2.32.10,
# SDL2_mixer 2.8.0 (com a libmodplug 11022021, que toca o modulo IT da musica) e zlib 1.3.2 dele. Este
# script e o patch fazem parte do codigo-fonte publicado junto do jogo.
#
#   source <emsdk>/emsdk_env.sh      # emsdk install 6.0.10 && emsdk activate 6.0.10
#   src/FredGames.Bundler/Builds/build-cuyo.sh
#
# Fonte: cuyo_2.1.0.orig.tar.gz do Debian (cuyo 2.1.0, com parser.cc e scanner.cc ja gerados, sem precisar de
# flex nem bison), conferido pelo SHA-256 e guardado em artifacts/cache/cuyo/. O jogo usa o SDL 1.2. O patch
# (cuyo/cuyo-fredygames.patch):
#   - acrescenta src/cysdl12.h/.cpp, o pedaco do SDL 1.2 que o jogo usa sobre o SDL2 (tela de 32 bits em
#     memoria mostrada numa textura, SDL_DisplayFormat, sem repeticao de tecla, um unico "modo de video" para o
#     jogo escolher o tamanho de janela que prefere, o SDL_keysym com o campo unicode); o SDL_Delay do laco
#     principal devolve a vez ao navegador (Asyncify);
#   - sdltools.cpp: sem o colorkey de paleta (SDL 2 nao tem; o navegador nao usa tela com paleta) e sem o evento
#     de redimensionar a janela; blatt.cpp: as teclas do teclado numerico; cuyointl.h: ngettext sem traducoes;
#   - data/summary.ld: sem as fases "Tetris", "Pacman" e "ASCII" (nomes de jogos comerciais; o "ASCII" mostra
#     "APPLE ][" na tela); a fase "Paratroopers" (nome de um jogo de computador, como diz o comentario do
#     autor) passa a se chamar "Parachutists" (summary.ld e paratroopers.ld).
# O script tira do pacote essas tres fases (tetris.ld, pacman.ld, ascii.ld), a fase de exemplo (example.ld,
# que nao esta na lista) e as imagens que so elas usam (ia*.xpm.gz, btGrey, btScore, btTetris e as sp*.xpm.gz:
# spBlinky, spClyde, spEyes, spGhost, spInkey, spLabyrinth, spPacman*, spPfeil, spPinky). data/ (as fases .ld, pics/ com as imagens .xpm.gz e sounds/) vai num cuyo.data (--preload-file),
# em /data. As preferencias (.cuyo) ficam em /home/web_user.
#
# Saida: artifacts/build/cuyo-2.1.0/cuyo.{js,wasm,data}, que o bundle.yaml confere pelo SHA-256.

set -euo pipefail

VERSION=2.1.0
SRC_SHA256=6c0809a59a2d236f15d8fbd68d61fb1465e51f6c327d7f7ae4db9f4e44dad89f
EMSCRIPTEN=6.0.10

here="$(cd "$(dirname "${BASH_SOURCE[0]}")" && pwd)"
root="$(git -C "$here" rev-parse --show-toplevel 2>/dev/null || pwd)"
out="$root/artifacts/build/cuyo-$VERSION"
cache="$root/artifacts/cache/cuyo"
tarball="cuyo_$VERSION.orig.tar.gz"

if ! emcc --version 2>/dev/null | head -1 | grep -q " $EMSCRIPTEN "; then
  echo "Precisa do Emscripten $EMSCRIPTEN no PATH (source <emsdk>/emsdk_env.sh)." >&2
  exit 1
fi

# Arquivo auxiliar: em cuyo/ (repositorio) ou ao lado do script (pasta de fontes do site).
aux() {
  if [ -f "$here/cuyo/$1" ]; then echo "$here/cuyo/$1"; else echo "$here/$1"; fi
}

if [ -f "$here/$tarball" ]; then
  src_tar="$here/$tarball"
else
  src_tar="$cache/$tarball"
  if [ ! -f "$src_tar" ]; then
    mkdir -p "$cache"
    curl -fsSL -o "$src_tar.part" "https://deb.debian.org/debian/pool/main/c/cuyo/$tarball"
    mv "$src_tar.part" "$src_tar"
  fi
fi
echo "$SRC_SHA256  $src_tar" | shasum -a 256 -c - >&2

rm -rf "$out"
mkdir -p "$out/obj"
s=cuyo
mkdir "$out/$s"
tar xzf "$src_tar" -C "$out/$s" --strip-components 1
patch -d "$out/$s" -p1 --quiet --no-backup-if-mismatch < "$(aux cuyo-fredygames.patch)"

cat > "$out/$s/config.h" <<CFG
#define HAVE_LIBZ 1
#define PACKAGE "cuyo"
#define PACKAGE_NAME "cuyo"
#define PACKAGE_STRING "cuyo $VERSION"
#define PACKAGE_TARNAME "cuyo"
#define PACKAGE_VERSION "$VERSION"
#define VERSION "$VERSION"
CFG

# Dados: as fases, as imagens e os sons, sem os arquivos de construcao e sem as fases tiradas.
d="$out/cuyodata/data"
mkdir -p "$d/pics" "$d/sounds"
for f in "$out/$s"/data/*.ld; do
  case "$(basename "$f")" in tetris.ld|pacman.ld|ascii.ld|example.ld) ;; *) cp "$f" "$d/" ;; esac
done
for f in "$out/$s"/data/pics/*.xpm.gz; do
  case "$(basename "$f")" in
    ia*|btGrey.*|btScore.*|btTetris.*|spBlinky.*|spClyde.*|spEyes.*|spGhost.*|spInkey.*|spLabyrinth.*|spPacman*|spPfeil.*|spPinky.*) ;;
    *) cp "$f" "$d/pics/" ;;
  esac
done
cp "$out/$s"/data/sounds/*.wav "$out/$s"/data/sounds/cuyo.it "$d/sounds/"

# Compila de dentro da pasta de saida, com caminhos relativos: o carregador do cuyo.data guarda o nome que o
# arquivo tem aqui. Os arquivos fonte do jogo estao em ISO-8859-1, que o compilador aceita.
(
  cd "$out"
  ports=(-sUSE_SDL=2 -sUSE_SDL_MIXER=2 -sSDL2_MIXER_FORMATS='["mod"]' -sUSE_ZLIB=1)
  flags=(-O2 -w -std=gnu++14 -ffile-prefix-map="$out/=" -DHAVE_CONFIG_H -DPKGDATADIR='"/data"'
    -I"$s" -I"$s/src" -include "$s/src/cysdl12.h" "${ports[@]}")
  objs=()
  for f in $(LC_ALL=C ls "$s"/src/*.cpp "$s"/src/*.cc); do
    o="obj/$(basename "$f").o"
    em++ "${flags[@]}" -c "$f" -o "$o"
    objs+=("$o")
  done
  em++ -O2 "${objs[@]}" "${ports[@]}" -lidbfs.js \
    -sASYNCIFY -sSTACK_SIZE=2MB -sALLOW_MEMORY_GROWTH -sINITIAL_MEMORY=64MB -sENVIRONMENT=web -sEXIT_RUNTIME=1 \
    -sEXPORTED_RUNTIME_METHODS=FS,addRunDependency,removeRunDependency \
    --preload-file "cuyodata/data@/data" \
    -o cuyo.js
  rm -rf obj
)
rm -rf "$out/$s" "$out/cuyodata"

shasum -a 256 "$out/cuyo.js" "$out/cuyo.wasm" "$out/cuyo.data"