#!/usr/bin/bash
# package-emacs-29 - Create an Emacs 29 Snapshot Pre-Release for Windows
#
# Copyright 2023 Corwin Brust <corwin@bru.st>
#
# This program is distributed under the terms of the GNU Public
# License version 3 or (at your option) any later version.
#

FROM=/c/users/corwi/emacs-build

DEPS=$FROM/deps/emacs-29-deps.zip

MV=29

SRC=$FROM/git/emacs-$MV

EV=$(grep '^version=' $SRC/Makefile | perl -pne 'chomp;$_=[split/=/]->[-1]')

TO=/d/emacs-build

SLUG=29-$(cd $SRC; git rev-parse --short HEAD);

  EB="emacs-${SLUG}"

  IB="${TO}/install"
  IN="${IB}/${EB}"
  UP="${TO}/upload/${EB}"
  NO="${UP}/${EB}-no-deps.zip"
  FU="${UP}/${EB}.zip"
  OE="${IB}/emacs-${EV}-installer.exe"
  SE="${UP}/${EB}-installer.exe"
  SZ="${UP}/${EB}-src.zip"

  DIR=/d/projects/emacs-build/new-hotness/emacs-29-pre.directive
  PF=/c/users/corwi/emacs-build/foo.txt

  echo "FROM: ${FROM}
    MV: ${MV}
   SRC: ${SRC}
    EV: ${EV}
    TO: ${TO}
  DEPS: ${DEPS}
  SLUG: ${SLUG}
    EB: ${EB}
    IB: ${IB}
    IN: ${IN}
    UP: ${UP}
    NO: ${NO}
    FU: ${FU}
    OE: ${OE}
    SE: ${SE}
   DIR: ${DIR}"

  if [[ -d $IN ]] ; then
      echo "NOTICE: build dir exits: $IN"
  else
      (cd $SRC; git clean -fxd;
       ((./autogen.sh \
	     && ./configure --with-modules \
			    --without-dbus \
			    --with-native-compilation \
			    --without-compress-install \
			    --with-tree-sitter \
			    CFLAGS=-O2 \
	     && make install -j 20 \
		     NATIVE_FULL_AOT=1 \
		     prefix=$IN
	) | tee $TO/${EB}-make.log
       )  && echo "1..OK make"
      ) || (echo "ERROR: prep upload ($?)"; exit 1);
  fi

  # pause for testing
  echo "Pausing for 10 seconds for tests."
  echo "Presss C-z then: make prove";
  echo "When finished, type: fg<RET>"
  user_input=''
  sleep 10;

  if [[ ! -d $IN ]]; then
      echo "ERROR install folder is missing: $IN"
      exit 1
  fi

  if [[ -d $UP ]]; then
      echo "NOTICE: install folder exists: $UP"
  else
      ((mkdir $UP \
	    && cd $IN \
	    && zip -vr9 $NO . 2>&1 \
	    && unzip -vd bin $DEPS \
	    && zip -vr9 $FU . 2>&1) \
	   | tee $TO/${EB}-zip.log \
	   && echo "2..OK zip files") \
	  || ( echo "FAILED ($?)" ; exit 2 )
  fi

  if [[ -r $SE ]] ; then
      echo "NOTICE: self-installer exists: $SE";
  else
  ((cd $IB \
	&& cp $SRC/admin/nt/dist-build/emacs.nsi . \
	&& makensis -v4 \
		    -DEMACS_VERSION=$EV \
		    -DVERSION_BRANCH=$EV \
		    -DOUT_VERSION=$EV \
		    emacs.nsi \
	&& mv $OE $SE) \
       | tee $TO/${EB}-esi.log \
	   && echo "3..OK executable self installer") \
	   || (echo "ERROR: creating self installer ($?)"; exit 3)
  fi


  # clean-up the build folder
  cd $SRC
  git clean -fxd | tee $TO/${EB}-clea.log

  # archive sources
  ((zip -9r $SZ . -x .git/ .git/\* \
	| tee $TO/${EB}-src.log
   ) && echo "4..OK archive sources"
  ) || (echo "ERROR: archive sources ($?)"; exit 4);

  cd $UP

  # create SHA256 sums
  ((for f in *.{zip,exe} ;
   do
       sha256sum.exe $f ;
   done) | tee $UP/${EB}-sha256sums.txt
   ) | tee $TO/${EB}-sums.log

  # sign release files
  (for f in $UP/*.{txt,exe,zip} ;
   do
       gpg --pinentry-mode=loopback \
	   --passphrase-file=$HOME/emacs-build/foo.txt \
	   --batch --yes -b $f
   done) | tee $TO/emacs-${SLUG}-sign.log

  # create upload directives
  (for f in *.{zip,exe,txt} ;
   do
       cat $DIR \
	   | perl -p -e "s/__FILE__/$f/" \
		  > $f.directive ;
   done) | tee $TO/emacs-${SLUG}-dirs.log

  # sign directives
  (((for f in *.directive ;
   do
       gpg --pinentry-mode=loopback \
	   --passphrase-file=$HOME/emacs-build/foo.txt \
	   --batch --yes --clearsign $f ;
   done)  | tee $TO/emacs-${SLUG}-sidr.log
   ) && echo "5..OK prep upload"
   ) || (echo "ERROR: prep upload ($?)"; exit 4);

  # (export SLUG=29-$(git rev-parse --short HEAD); (./autogen.sh && ./configure --with-modules --without-dbus --with-native-compilation --without-compress-install --with-tree-sitter CFLAGS=-O2 && make install -j 20 NATIVE_FULL_AOT=1 prefix=/d/emacs-build/install/emacs-${SLUG}) |tee /d/emacs-build/install/emacs-${SLUG}.log)
  # makensis -v4 -DEMACS_VERSION=29.0.60 -DVERSION_BRANCH=29.0.60 -DOUT_VERSION=29.0.60 emacs.nsi
  # (for f in *.{zip,exe} ; do sha256sum.exe $f ; done) | tee emacs-29.0.60_1-sha256sums.txt
  #  for f in *.directive ; do gpg --pinentry-mode=loopback --passphrase-file=$HOME/emacs-build/foo.txt --batch --yes --clearsign $f ; done
  # for f in *.{txt,exe,zip} ; do gpg --pinentry-mode=loopback  --passphrase-file=$HOME/emacs-build/foo.txt --batch --yes -b $f ; done
  #for f in *.{zip,exe,txt} ; do cp /d/projects/emacs-build/new-hotness/emacs-29-pre.directive $f.directive; perl -pi -e "s/__FILE__/$f/" $f.directive ; done