[ViewVC] Annotation of: cvs/deliantra/Deliantra-Client/util/gatherer

#!/bin/bash

# this gem of a hack gathers all files required by the client for the platform
# by deep magic, it works on osx, linux and windows. on MY osx, linux
# and windows, that is.

STRIP="strip"
LIBEXT=so
LIB0=so.?
SO=so
SYSLIB=/usr/lib
MAKE=make
ARCHNAME=x86
GENPACK_ENVVARS="LD_LIBRARY_PATH=."
EXTRA_EXTRACT=

umask 022

if [ "$(uname -s)" = CYGWIN_NT-5.0 ]; then
   . ~/.setenv

   OS=windows
   URLADER=windows-x86
   unset PANGO
   PERL=/c/perl/bin/perl
   MAKE=nmake
   SYSLIB=/c/gtk/bin
   LIBEXT=dll
   LIB0=dll
   SO=dll
   STRIP=":" # stripping the perl library kills it, and apparently, everythignis always stripped
   EXTRA_EXTRACT="-MWin32::GUI::SplashScreen"

   # fontconfig apparently ignores env vars and always looks at ./etc/fonts/fonts.conf,
   # but only if . isn't actually called bin or lib. hope for the best.
   GENPACK_ENVVARS="FONTCONFIG_PATH=pm/Deliantra/Client/private/resources/fonts FONTCONFIG_FILE=fonts.conf"

   pango-querymodules() {
      /c/gtk/bin/pango-querymodules # empty output usually
   }

elif [ "$(uname -s)" = Darwin ]; then
   OS=darwin
   URLADER=darwin-x86
   PANGO=1.6.0
   PERL=/opt/local/bin/perl
   GENPACK_ENVVARS="DYLD_LIBRARY_PATH=."

   SYSLIB=/opt/local/lib
   LIB0=dylib
   SO=bundle
   STRIP="strip -x"
elif [ $(arch) = i686 ]; then
   OS=linux
   URLADER=linux-x86
   PANGO=1.5.0
   PERL=/usr/bin/perl
else
   OS=linux
   URLADER=linux-amd64
   PANGO=1.5.0
   PERL=/usr/bin/perl
   ARCHNAME=amd64
fi

DISTf="dist/$OS-$ARCHNAME"
export DIST="$(pwd)/$DISTf"

eval $("$PERL" -V:sitebinexp:)

"$PERL" "$sitebinexp"/perl-libextractor \
   --perl --core-support --script deliantra $EXTRA_EXTRACT \
   --runtime-only \
   --copy "$DISTf" --exedir . --dlldir . --bindir pm/bin --libdir pm

cat <<EOF >"$DIST"/pango.rc
[Pango]
ModuleFiles = pango.modules
EOF

(
   exec 5>"$DIST"/pango.modules
   pango-querymodules | grep ^/ | while read lib rest; do
      base=$(basename "$lib")
      [ "$base" = pango-basic-x.$LIBEXT ] && continue
      cp -p "$lib" "$DIST"/.
      echo "./$base $rest" >&5 # using ./ seems to help pango not to rummage around in /usr/lib etc.
   done
)

#############################################################################

IFS="   

" # space tab nl cr - cr for windows
eval $($PERL -V:sitebinexp -V:sitearchexp -V:sitelib -V:vendorarchexp -V:vendorlibexp -V:archlibexp -V:privlibexp)

mkdir -p "$DIST"/pm/bin
cp "$sitebinexp"/deliantra "$DIST"/pm/bin/
cp -p util/run "$DIST"

#############################################################################

if [ "$OS" = windows ]; then
   libdeps() {
      objdump -p "$1" | awk '/\tDLL Name:/ { print $3 }' | while read lib; do
         set -- $(type "$lib")
         case "$3" in
            /c/WINNT/* | /c/sdk/* )
               ;;
            * )
               echo "$3"
               ;;
         esac
      done
   }
elif [ "$OS" = darwin ]; then
   libdeps() {
      otool -L "$1" | perl -ne 'print "$1\n" if m%^\s+(/opt\S+)%'
   }
else
   libdeps() {
      ldd "$1" | perl -ne 'print "$1\n" if / => (\S+)/'
   }
fi

add_deps() {
   local so="$1"
   libdeps "$so" | while read path; do
      base="$(basename "$path")"
      if ! [ -e "$base" ]; then
         cp -p "$path" .
         chmod 755 "$base"
         add_deps "$base"
      fi
   done
}

(
   cd "$DIST"

   case "$OS" in
      windows )
         cp -p $SYSLIB/libvorbisfile-3.dll $SYSLIB/mikmod.dll $SYSLIB/libpng12-0.dll $SYSLIB/jpeg.dll .
         cp -p $SYSLIB/jpeg.dll .
         cp /root/src/CFPlus/util/splash.bmp .
         chmod -R u+rwX pm/auto

         # convert perl to a non-console-app
         $PERL -MWin32::Exe -e '$e = new Win32::Exe"perl.exe"; $e->set_subsystem_windows; $e->write'
         ;;
      linux )
         cp -p $SYSLIB/libjpeg.so.62 .
         ;;
   esac

   if [ "$OS" != windows ]; then
      for lib in mikmod vorbisfile; do
         cp -p $SYSLIB/lib$lib.$LIB0 .
         chmod 755 lib$lib.$LIB0
      done
   fi

   for so in $(find . -name "*.$SO" -o -name "*.$LIBEXT" -o -name "*.$LIB0") perl; do
      add_deps "$so"
   done

   rm -f pm/auto/POSIX/*.al

   for lib in \
      dl c m rt pthread nsl crypt \
      X11 Xext Xau Xdmcp ICE SM Xrandr Xrender Xxf86vm drm GL \
      z
   do
      rm -f lib"$lib".$LIB0
   done

   if [ "$OS" != windows ]; then
      # patch braindamaged pango

      if [ "$OS" != darwin ]; then
         set libpango-1.0.$LIB0
         perl -pe 's{/u(?=sr/lib(32)?/pango)}{.\x00}g;' <"$1" >"$1~" && mv "$1~" "$1"
      else
         set lib*pango-1.0.0.dylib
         perl -pe 's{/o(?=pt/local/.../pango)}{.\x00}g;' <"$1" >"$1~" && mv "$1~" "$1"
      fi
      chmod 755 "$1"
   fi

   if [ "$OS" = darwin ]; then
      # "dll hell" is most severe on os x, because apple
      # does not generally give a shit for backwards compatibility,
      # alwayss ships outdated libraries and often provides libraries
      # of the same name as well-known libs (such as libjpeg), that
      # of course do something completely different
      patchlibs() {
         <"$1" \
         perl -0777 -pe '
            s%('"/opt/local/lib[^\x00]*/lib"'([^\x00/]+)\.dylib\x00)%
               my $s = $1;
               my $r = "libdeliantra-$2.dylib\x00";
               (length $r) <= (length $s)
                  or die "lib replacement <$r> larger than <$s>\n";
               substr $s, 0, length $r, $r;
               $s
            %ge
         ' \
         >"$1~" && mv "$1~" "$1" || exit 67
      }

      # patch bundles and pango modules with external dependencies,
      # should be few, so hardcode(tm)
      for so in \
         pm/auto/BDB/BDB.bundle \
         pm/auto/Deliantra/Client/Client.bundle \
         *.$LIBEXT
      do
         patchlibs "$so"
      done

      # now patch and rename all .dylibs
      for lib in *.$LIB0; do
         stem="${lib#lib}"
         stem="${stem%.$LIB0}"
         patchlibs "$lib"
         mv "$lib" "libdeliantra-$stem.dylib"
      done
   fi

   [ "$OS" = linux ] && chrpath -d perl $(find pm -name "*.so") # debian perls have an rpath, many modules too
   $STRIP $(find . -name "*.$SO" -o -name "*.$LIBEXT" -o -name "*.$LIB0") perl

   : >timidity.cfg
)

cat >"$DIST".vars <<EOF
G_URLADER="$URLADER"
G_OS="$OS"
G_ARCHNAME="$ARCHNAME"
G_ENVVARS="$GENPACK_ENVVARS"
G_COMMAND="./perl run"
EOF

Revision:	1.15
Committed:	Sat Jan 28 00:03:31 2012 UTC (12 years, 3 months ago) by root
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.14:	+17 -10 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	#!/bin/bash
2
3	root	1.8	# this gem of a hack gathers all files required by the client for the platform
4	root	1.4	# by deep magic, it works on osx, linux and windows. on MY osx, linux
5			# and windows, that is.
6
7	root	1.1	STRIP="strip"
8			LIBEXT=so
9			LIB0=so.?
10			SO=so
11			SYSLIB=/usr/lib
12			MAKE=make
13			ARCHNAME=x86
14	root	1.4	GENPACK_ENVVARS="LD_LIBRARY_PATH=."
15	root	1.14	EXTRA_EXTRACT=
16	root	1.1
17			umask 022
18
19			if [ "$(uname -s)" = CYGWIN_NT-5.0 ]; then
20			. ~/.setenv
21
22			OS=windows
23	root	1.7	URLADER=windows-x86
24	root	1.1	unset PANGO
25			PERL=/c/perl/bin/perl
26			MAKE=nmake
27			SYSLIB=/c/gtk/bin
28			LIBEXT=dll
29			LIB0=dll
30			SO=dll
31			STRIP=":" # stripping the perl library kills it, and apparently, everythignis always stripped
32	root	1.14	EXTRA_EXTRACT="-MWin32::GUI::SplashScreen"
33	root	1.1
34			# fontconfig apparently ignores env vars and always looks at ./etc/fonts/fonts.conf,
35			# but only if . isn't actually called bin or lib. hope for the best.
36			GENPACK_ENVVARS="FONTCONFIG_PATH=pm/Deliantra/Client/private/resources/fonts FONTCONFIG_FILE=fonts.conf"
37
38			pango-querymodules() {
39			/c/gtk/bin/pango-querymodules # empty output usually
40			}
41
42			elif [ "$(uname -s)" = Darwin ]; then
43			OS=darwin
44	root	1.6	URLADER=darwin-x86
45	root	1.1	PANGO=1.6.0
46			PERL=/opt/local/bin/perl
47	root	1.4	GENPACK_ENVVARS="DYLD_LIBRARY_PATH=."
48	root	1.1
49			SYSLIB=/opt/local/lib
50			LIB0=dylib
51			SO=bundle
52			STRIP="strip -x"
53			elif [ $(arch) = i686 ]; then
54			OS=linux
55	root	1.6	URLADER=linux-x86
56	root	1.1	PANGO=1.5.0
57			PERL=/usr/bin/perl
58			else
59			OS=linux
60	root	1.6	URLADER=linux-amd64
61	root	1.1	PANGO=1.5.0
62			PERL=/usr/bin/perl
63			ARCHNAME=amd64
64			fi
65
66	root	1.13	DISTf="dist/$OS-$ARCHNAME"
67			export DIST="$(pwd)/$DISTf"
68	root	1.1
69	root	1.13	eval $("$PERL" -V:sitebinexp:)
70	root	1.1
71	root	1.15	"$PERL" "$sitebinexp"/perl-libextractor \
72	root	1.14	--perl --core-support --script deliantra $EXTRA_EXTRACT \
73			--runtime-only \
74	root	1.15	--copy "$DISTf" --exedir . --dlldir . --bindir pm/bin --libdir pm
75	root	1.1
76			cat <<EOF >"$DIST"/pango.rc
77			[Pango]
78			ModuleFiles = pango.modules
79			EOF
80
81			(
82			exec 5>"$DIST"/pango.modules
83			pango-querymodules \| grep ^/ \| while read lib rest; do
84			base=$(basename "$lib")
85			[ "$base" = pango-basic-x.$LIBEXT ] && continue
86			cp -p "$lib" "$DIST"/.
87	root	1.7	echo "./$base $rest" >&5 # using ./ seems to help pango not to rummage around in /usr/lib etc.
88	root	1.1	done
89			)
90
91			#############################################################################
92
93			IFS="
94			" # space tab nl cr - cr for windows
95			eval $($PERL -V:sitebinexp -V:sitearchexp -V:sitelib -V:vendorarchexp -V:vendorlibexp -V:archlibexp -V:privlibexp)
96
97			mkdir -p "$DIST"/pm/bin
98			cp "$sitebinexp"/deliantra "$DIST"/pm/bin/
99			cp -p util/run "$DIST"
100
101			#############################################################################
102
103			if [ "$OS" = windows ]; then
104			libdeps() {
105			objdump -p "$1" \| awk '/\tDLL Name:/ { print $3 }' \| while read lib; do
106			set -- $(type "$lib")
107			case "$3" in
108			/c/WINNT/* \| /c/sdk/* )
109			;;
110			* )
111			echo "$3"
112			;;
113			esac
114			done
115			}
116			elif [ "$OS" = darwin ]; then
117			libdeps() {
118			otool -L "$1" \| perl -ne 'print "$1\n" if m%^\s+(/opt\S+)%'
119			}
120			else
121			libdeps() {
122			ldd "$1" \| perl -ne 'print "$1\n" if / => (\S+)/'
123			}
124			fi
125
126			add_deps() {
127			local so="$1"
128			libdeps "$so" \| while read path; do
129			base="$(basename "$path")"
130			if ! [ -e "$base" ]; then
131			cp -p "$path" .
132			chmod 755 "$base"
133			add_deps "$base"
134			fi
135			done
136			}
137
138			(
139			cd "$DIST"
140
141	root	1.15	case "$OS" in
142			windows )
143			cp -p $SYSLIB/libvorbisfile-3.dll $SYSLIB/mikmod.dll $SYSLIB/libpng12-0.dll $SYSLIB/jpeg.dll .
144			cp -p $SYSLIB/jpeg.dll .
145			cp /root/src/CFPlus/util/splash.bmp .
146			chmod -R u+rwX pm/auto
147
148			# convert perl to a non-console-app
149			$PERL -MWin32::Exe -e '$e = new Win32::Exe"perl.exe"; $e->set_subsystem_windows; $e->write'
150			;;
151			linux )
152			cp -p $SYSLIB/libjpeg.so.62 .
153			;;
154			esac
155	root	1.2
156	root	1.15	if [ "$OS" != windows ]; then
157	root	1.1	for lib in mikmod vorbisfile; do
158			cp -p $SYSLIB/lib$lib.$LIB0 .
159			chmod 755 lib$lib.$LIB0
160			done
161			fi
162
163			for so in $(find . -name ".$SO" -o -name ".$LIBEXT" -o -name "*.$LIB0") perl; do
164			add_deps "$so"
165			done
166
167			rm -f pm/auto/POSIX/*.al
168
169			for lib in \
170			dl c m rt pthread nsl crypt \
171			X11 Xext Xau Xdmcp ICE SM Xrandr Xrender Xxf86vm drm GL \
172			z
173			do
174	root	1.5	rm -f lib"$lib".$LIB0
175	root	1.1	done
176
177	root	1.5	if [ "$OS" != windows ]; then
178			# patch braindamaged pango
179	root	1.8
180	root	1.10	if [ "$OS" != darwin ]; then
181			set libpango-1.0.$LIB0
182			perl -pe 's{/u(?=sr/lib(32)?/pango)}{.\x00}g;' <"$1" >"$1~" && mv "$1~" "$1"
183	root	1.8	else
184	root	1.10	set lib*pango-1.0.0.dylib
185			perl -pe 's{/o(?=pt/local/.../pango)}{.\x00}g;' <"$1" >"$1~" && mv "$1~" "$1"
186	root	1.8	fi
187	root	1.5	chmod 755 "$1"
188			fi
189
190	root	1.1	if [ "$OS" = darwin ]; then
191			# "dll hell" is most severe on os x, because apple
192			# does not generally give a shit for backwards compatibility,
193			# alwayss ships outdated libraries and often provides libraries
194			# of the same name as well-known libs (such as libjpeg), that
195			# of course do something completely different
196			patchlibs() {
197			<"$1" \
198			perl -0777 -pe '
199			s%('"/opt/local/lib[^\x00]*/lib"'([^\x00/]+)\.dylib\x00)%
200			my $s = $1;
201			my $r = "libdeliantra-$2.dylib\x00";
202			(length $r) <= (length $s)
203			or die "lib replacement <$r> larger than <$s>\n";
204			substr $s, 0, length $r, $r;
205			$s
206			%ge
207			' \
208			>"$1~" && mv "$1~" "$1" \|\| exit 67
209			}
210
211			# patch bundles and pango modules with external dependencies,
212			# should be few, so hardcode(tm)
213			for so in \
214			pm/auto/BDB/BDB.bundle \
215			pm/auto/Deliantra/Client/Client.bundle \
216			*.$LIBEXT
217			do
218			patchlibs "$so"
219			done
220
221			# now patch and rename all .dylibs
222			for lib in *.$LIB0; do
223			stem="${lib#lib}"
224			stem="${stem%.$LIB0}"
225			patchlibs "$lib"
226			mv "$lib" "libdeliantra-$stem.dylib"
227			done
228			fi
229
230	root	1.7	[ "$OS" = linux ] && chrpath -d perl $(find pm -name "*.so") # debian perls have an rpath, many modules too
231	root	1.1	$STRIP $(find . -name ".$SO" -o -name ".$LIBEXT" -o -name "*.$LIB0") perl
232	root	1.7
233			: >timidity.cfg
234	root	1.1	)
235
236	root	1.6	cat >"$DIST".vars <<EOF
237			G_URLADER="$URLADER"
238			G_OS="$OS"
239			G_ARCHNAME="$ARCHNAME"
240			G_ENVVARS="$GENPACK_ENVVARS"
241	root	1.7	G_COMMAND="./perl run"
242	root	1.6	EOF
243	root	1.1