#!/bin/bash

# Convert a gtk2-perl program to a standalone linux binary

EV_EVENTFD=
PERL=/usr
PERLLIB=/usr/lib/perl5/
PANGO=1.5.0
#PERL=/opt/perl
#PERLLIB=/opt/perl/lib/perl5/
#PANGO=1.6.0

for mod in AnyEvent EV JSON-XS Deliantra Compress-LZF BDB; do
   (
      cd /root/src/$mod
      $PERL/bin/perl Makefile.PL </dev/null
      make clean
      $PERL/bin/perl Makefile.PL </dev/null
      make install || exit
      make clean
   )
done

(
   # patch braindamaged pango
   perl -pe 's{/u(?=sr/lib(32)?/pango)}{/\x00}g; s{\Q'$PANGO'\E\x00}{y.t.u\x00}g' </usr/lib/libpango-1.0.so.0 >pango-1.0.so.0
   printf "%s" "$PANGO" >pangoversion
   cat <<EOF
pangoversion;root/pangoversion
pango-1.0.so.0;shlib/i486-linux-gnu-thread-multi/libpango-1.0.so.0
/usr/lib/libglib-2.0.so.0;shlib/i486-linux-gnu-thread-multi/libglib-2.0.so.0
/usr/lib/libstdc++.so.6;shlib/i486-linux-gnu-thread-multi/libstdc++.so.6
/usr/lib/libaudio.so.2;shlib/i486-linux-gnu-thread-multi/libaudio.so.2
/lib/libgcc_s.so.1;shlib/i486-linux-gnu-thread-multi/libgcc_s.so.1
/usr/lib/pango/$PANGO;root/usr/lib/pango/$PANGO
docwiki.pst;root/Deliantra/Client/private/resources/docwiki.pst
EOF

   perl -ne '/^(resources\/.*)/ and print "$1;root/Deliantra/Client/private/$1\n"' <MANIFEST

) >addlist

trap "rm addlist pangoversion pango-1.0.so.0" 0

$PERL/bin/perl Makefile.PL
make clean
$PERL/bin/perl Makefile.PL
make install || exit

wait

LD_LIBRARY_PATH=/lib:/usr/lib \
$PERL/bin/pp -C -I /root/src/Deliantra \
        -M AnyEvent::Impl::EV \
        -M attributes \
        -a "blib/arch/auto/Deliantra/Client/Client.so;lib/auto/Deliantra/Client/Client.so" \
        -l db-4.6 \
        -l glib-2.0 -l gobject-2.0 -l gmodule-2.0 \
        -l pangoft2-1.0 \
        -l SDL -l asound \
        -l SDL_mixer -l vorbisfile -l vorbis -l ogg -l smpeg -l stdc++ \
        -l SDL_image -l png12 -l z \
        -o deliantra-gnu-linux-x86.bin -A addlist bin/deliantra || exit

make clean

todata deliantra-gnu-linux-x86.bin