ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/util/gatherer
(Generate patch)

Comparing deliantra/Deliantra-Client/util/gatherer (file contents):
Revision 1.5 by root, Fri Dec 30 10:59:00 2011 UTC vs.
Revision 1.12 by root, Thu Jan 26 20:11:14 2012 UTC

1#!/bin/bash 1#!/bin/bash
2 2
3# this gem of a hack gathers all fiels required by the client for the platform 3# this gem of a hack gathers all files required by the client for the platform
4# by deep magic, it works on osx, linux and windows. on MY osx, linux 4# by deep magic, it works on osx, linux and windows. on MY osx, linux
5# and windows, that is. 5# and windows, that is.
6 6
7STRIP="strip" 7STRIP="strip"
8LIBEXT=so 8LIBEXT=so
… …
17 17
18if [ "$(uname -s)" = CYGWIN_NT-5.0 ]; then 18if [ "$(uname -s)" = CYGWIN_NT-5.0 ]; then
19 . ~/.setenv 19 . ~/.setenv
20 20
21 OS=windows 21 OS=windows
22 URLADER=.exe 22 URLADER=windows-x86
23 unset PANGO 23 unset PANGO
24 PERL=/c/perl/bin/perl 24 PERL=/c/perl/bin/perl
25 MAKE=nmake 25 MAKE=nmake
26 SYSLIB=/c/gtk/bin 26 SYSLIB=/c/gtk/bin
27 LIBEXT=dll 27 LIBEXT=dll
… …
37 /c/gtk/bin/pango-querymodules # empty output usually 37 /c/gtk/bin/pango-querymodules # empty output usually
38 } 38 }
39 39
40elif [ "$(uname -s)" = Darwin ]; then 40elif [ "$(uname -s)" = Darwin ]; then
41 OS=darwin 41 OS=darwin
42 URLADER=-osx105 42 URLADER=darwin-x86
43 PANGO=1.6.0 43 PANGO=1.6.0
44 PERL=/opt/local/bin/perl 44 PERL=/opt/local/bin/perl
45 GENPACK_ENVVARS="DYLD_LIBRARY_PATH=." 45 GENPACK_ENVVARS="DYLD_LIBRARY_PATH=."
46 46
47 SYSLIB=/opt/local/lib 47 SYSLIB=/opt/local/lib
48 LIB0=dylib 48 LIB0=dylib
49 SO=bundle 49 SO=bundle
50 STRIP="strip -x" 50 STRIP="strip -x"
51elif [ $(arch) = i686 ]; then 51elif [ $(arch) = i686 ]; then
52 OS=linux 52 OS=linux
53 URLADER=-x86 53 URLADER=linux-x86
54 PANGO=1.5.0 54 PANGO=1.5.0
55 PERL=/usr/bin/perl 55 PERL=/usr/bin/perl
56else 56else
57 OS=linux 57 OS=linux
58 URLADER=-amd64 58 URLADER=linux-amd64
59 PANGO=1.5.0 59 PANGO=1.5.0
60 PERL=/usr/bin/perl 60 PERL=/usr/bin/perl
61 ARCHNAME=amd64 61 ARCHNAME=amd64
62fi 62fi
63 63
64export DIST="$(pwd)/dist/$OS-$ARCHNAME" 64export DIST="$(pwd)/dist/$OS-$ARCHNAME"
65 65
66rm -rf "$DIST" 66eval $($PERL -V:sitebinexp:)
67mkdir -p "$DIST"
68 67
69#PERL=/opt/perl 68"$sitebinexp"/perl-libextractor --exedir . --dlldir . --bindir pm/bin --libdir pm \
70#PANGO=1.6.0 69 --perl --core-support --script deliantra \
71 70 --runtime-only --strip \
72export EV_EVENTFD=0 71 --copy "$DIST"
73export EV_INOTIFY=0
74export EV_SIGNALFD=0
75
76if true; then
77 for mod in deliantra/Deliantra deliantra/Deliantra-Client; do
78# for mod in common-sense AnyEvent EV JSON-XS deliantra/Deliantra Compress-LZF BDB Guard deliantra/Deliantra-Client; do
79# for mod in CFPlus; do
80 (
81 cd /root/src/$mod || exit
82 cvs update -AdP
83 rm -rf blib
84 set -x
85 $PERL Makefile.PL </dev/null >/dev/null
86 $MAKE clean >/dev/null
87 $PERL Makefile.PL </dev/null >/dev/null
88 if ! $MAKE install >log 2>&1; then
89 echo
90 echo error while building $mod
91 cat log
92 exit
93 fi
94 rm -f log
95 $MAKE clean >/dev/null
96 ) || exit
97 done
98fi
99 72
100cat <<EOF >"$DIST"/pango.rc 73cat <<EOF >"$DIST"/pango.rc
101[Pango] 74[Pango]
102ModuleFiles = pango.modules 75ModuleFiles = pango.modules
103EOF 76EOF
… …
106 exec 5>"$DIST"/pango.modules 79 exec 5>"$DIST"/pango.modules
107 pango-querymodules | grep ^/ | while read lib rest; do 80 pango-querymodules | grep ^/ | while read lib rest; do
108 base=$(basename "$lib") 81 base=$(basename "$lib")
109 [ "$base" = pango-basic-x.$LIBEXT ] && continue 82 [ "$base" = pango-basic-x.$LIBEXT ] && continue
110 cp -p "$lib" "$DIST"/. 83 cp -p "$lib" "$DIST"/.
111 echo "$base $rest" >&5 84 echo "./$base $rest" >&5 # using ./ seems to help pango not to rummage around in /usr/lib etc.
112 done 85 done
113) 86)
114 87
115############################################################################# 88#############################################################################
116 89
… …
119eval $($PERL -V:sitebinexp -V:sitearchexp -V:sitelib -V:vendorarchexp -V:vendorlibexp -V:archlibexp -V:privlibexp) 92eval $($PERL -V:sitebinexp -V:sitearchexp -V:sitelib -V:vendorarchexp -V:vendorlibexp -V:archlibexp -V:privlibexp)
120 93
121mkdir -p "$DIST"/pm/bin 94mkdir -p "$DIST"/pm/bin
122cp "$sitebinexp"/deliantra "$DIST"/pm/bin/ 95cp "$sitebinexp"/deliantra "$DIST"/pm/bin/
123cp -p util/run "$DIST" 96cp -p util/run "$DIST"
124
125(
126 exec <util/modules.dep
127
128# while read type name; do
129# if [ "$type" = d ]; then
130# # not implemented
131# dir=$(echo "$name" | sed -e s%::%/%g)
132# for lib in "$sitearchexp" "$sitelib" "$vendorarchexp" "$vendorlibexp" "$archlibexp" "$privlibexp"; do
133# if [ -e "$lib/auto/$dir/.packlist" ]; then
134# cat "$lib/auto/$dir/.packlist"
135# fi
136# echo "x $lib $dir"
137# done
138# elif [ $type = m ]; then
139# :
140# else
141# echo "unknown type $type ($name)"
142# exit 1
143# fi
144# done
145 mkdir -p "$DIST"/pm
146
147 export OSDIST="$DIST"
148 [ "$OS" = windows ] && OSDIST=$(cygpath -w "$OSDIST")
149
150 $PERL -e '
151 use Config;
152 use File::Glob qw(:glob);
153 use File::Copy;
154 use File::Path;
155 use File::Basename;
156
157 my @path = do {
158 my %seen;
159 grep !$seen{$_}++, grep length, map $Config{$_}, qw(
160 sitearchexp
161 sitelib
162 vendorarchexp
163 vendorlibexp
164 archlibexp
165 privlibexp
166 )
167 };
168
169 while (<>) {
170 s/\015?\012$//;
171 next if /^(#|$)/;
172 s/\.dynob$/.'$SO'/;
173
174 my $found;
175 for my $lib (@path) {
176 chdir $lib || next;
177
178 my @glob = File::Glob::bsd_glob $_, 0; # explicit 0 needed
179
180 if (@glob) {
181 ++$found;
182
183 for (@glob) {
184 if (-d $_) {
185 system "rsync", "-aR", $_, "$ENV{DIST}/pm/.";
186 } else {
187 File::Path::mkpath "$ENV{OSDIST}/pm/" . dirname $_;
188 File::Copy::syscopy "$_", "$ENV{OSDIST}/pm/$_"
189 or die "$ENV{OSDIST}/pm/$_: $!";
190
191 if (s/\.pm$//) {
192 $auto = "auto/$_";
193
194 for my $glob ("*.'$SO'", "autosplit.ix", "*.al") {
195 for (bsd_glob "$auto/$glob", 0) {
196 File::Path::mkpath "$ENV{OSDIST}/pm/" . dirname $_;
197 File::Copy::syscopy "$_", "$ENV{OSDIST}/pm/$_";
198 }
199 }
200 }
201 }
202 }
203
204 last;
205 }
206 }
207
208 warn "$_: not found\n"
209 unless $found;
210 }
211 '
212) || exit
213 97
214############################################################################# 98#############################################################################
215 99
216if [ "$OS" = windows ]; then 100if [ "$OS" = windows ]; then
217 libdeps() { 101 libdeps() {
… …
249} 133}
250 134
251( 135(
252 cd "$DIST" 136 cd "$DIST"
253 137
254 cp -p "$PERL" .
255
256 if [ "$OS" = windows ]; then 138 if [ "$OS" = windows ]; then
257 cp -p $SYSLIB/libvorbisfile-3.dll $SYSLIB/mikmod.dll $SYSLIB/libpng12-0.dll . 139 cp -p $SYSLIB/libvorbisfile-3.dll $SYSLIB/mikmod.dll $SYSLIB/libpng12-0.dll .
258 cp /root/src/CFPlus/util/splash.bmp . 140 cp /root/src/CFPlus/util/splash.bmp .
259 chmod -R u+rwX pm/auto 141 chmod -R u+rwX pm/auto
260 142
… …
282 rm -f lib"$lib".$LIB0 164 rm -f lib"$lib".$LIB0
283 done 165 done
284 166
285 if [ "$OS" != windows ]; then 167 if [ "$OS" != windows ]; then
286 # patch braindamaged pango 168 # patch braindamaged pango
169
170 if [ "$OS" != darwin ]; then
287 set libpango-1.0.$LIB0 171 set libpango-1.0.$LIB0
288 perl -pe 's{/u(?=sr/lib(32)?/pango)}{/\x00}g; s{\Q'$PANGO'\E\x00}{y.t.u\x00}g' <"$1" >"$1~" && mv "$1~" "$1" 172 perl -pe 's{/u(?=sr/lib(32)?/pango)}{.\x00}g;' <"$1" >"$1~" && mv "$1~" "$1"
173 else
174 set lib*pango-1.0.0.dylib
175 perl -pe 's{/o(?=pt/local/.../pango)}{.\x00}g;' <"$1" >"$1~" && mv "$1~" "$1"
176 fi
289 chmod 755 "$1" 177 chmod 755 "$1"
290 fi 178 fi
291 179
292 if [ "$OS" = darwin ]; then 180 if [ "$OS" = darwin ]; then
293 # "dll hell" is most severe on os x, because apple 181 # "dll hell" is most severe on os x, because apple
… …
327 patchlibs "$lib" 215 patchlibs "$lib"
328 mv "$lib" "libdeliantra-$stem.dylib" 216 mv "$lib" "libdeliantra-$stem.dylib"
329 done 217 done
330 fi 218 fi
331 219
332 [ "$OS" = linux ] && chrpath -d perl # debian perls have an rpath. really. 220 [ "$OS" = linux ] && chrpath -d perl $(find pm -name "*.so") # debian perls have an rpath, many modules too
333 $STRIP $(find . -name "*.$SO" -o -name "*.$LIBEXT" -o -name "*.$LIB0") perl 221 $STRIP $(find . -name "*.$SO" -o -name "*.$LIBEXT" -o -name "*.$LIB0") perl
222
223 : >timidity.cfg
334) 224)
335 225
336printf -- urlader$URLADER >"$DIST".urlader 226cat >"$DIST".vars <<EOF
227G_URLADER="$URLADER"
228G_OS="$OS"
229G_ARCHNAME="$ARCHNAME"
230G_ENVVARS="$GENPACK_ENVVARS"
231G_COMMAND="./perl run"
232EOF
337 233
338echo >"$DIST".genpack genpack deliantra_S-$OS-"$ARCHNAME" '"$EXE_VER"' '"$1"' $GENPACK_ENVVARS ./perl run
339
340exit
341
342
343tar cf deliantra-gnu-linux-$ARCHNAME.tar deliantra-gnu-linux-$ARCHNAME
344gzip -9vf deliantra-gnu-linux-$ARCHNAME.tar
345todata deliantra-gnu-linux-$ARCHNAME.tar.gz
346

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines