1 | #!/bin/bash |
1 | #!/bin/bash |
|
|
2 | |
|
|
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 |
|
|
5 | # and windows, that is. |
2 | |
6 | |
3 | STRIP="strip" |
7 | STRIP="strip" |
4 | LIBEXT=so |
8 | LIBEXT=so |
5 | LIB0=so.? |
9 | LIB0=so.? |
6 | SO=so |
10 | SO=so |
7 | SYSLIB=/usr/lib |
11 | SYSLIB=/usr/lib |
8 | MAKE=make |
12 | MAKE=make |
9 | ARCHNAME=x86 |
13 | ARCHNAME=x86 |
10 | GENPACK_ENVVARS= |
14 | GENPACK_ENVVARS="LD_LIBRARY_PATH=." |
11 | |
15 | |
12 | umask 022 |
16 | umask 022 |
13 | |
17 | |
14 | if [ "$(uname -s)" = CYGWIN_NT-5.0 ]; then |
18 | if [ "$(uname -s)" = CYGWIN_NT-5.0 ]; then |
15 | . ~/.setenv |
19 | . ~/.setenv |
16 | |
20 | |
17 | OS=windows |
21 | OS=windows |
18 | URLADER=.exe |
22 | URLADER=windows-x86 |
19 | unset PANGO |
23 | unset PANGO |
20 | PERL=/c/perl/bin/perl |
24 | PERL=/c/perl/bin/perl |
21 | MAKE=nmake |
25 | MAKE=nmake |
22 | SYSLIB=/c/gtk/bin |
26 | SYSLIB=/c/gtk/bin |
23 | LIBEXT=dll |
27 | LIBEXT=dll |
… | |
… | |
33 | /c/gtk/bin/pango-querymodules # empty output usually |
37 | /c/gtk/bin/pango-querymodules # empty output usually |
34 | } |
38 | } |
35 | |
39 | |
36 | elif [ "$(uname -s)" = Darwin ]; then |
40 | elif [ "$(uname -s)" = Darwin ]; then |
37 | OS=darwin |
41 | OS=darwin |
38 | URLADER=-osx105 |
42 | URLADER=darwin-x86 |
39 | PANGO=1.6.0 |
43 | PANGO=1.6.0 |
40 | PERL=/opt/local/bin/perl |
44 | PERL=/opt/local/bin/perl |
|
|
45 | GENPACK_ENVVARS="DYLD_LIBRARY_PATH=." |
41 | |
46 | |
42 | SYSLIB=/opt/local/lib |
47 | SYSLIB=/opt/local/lib |
43 | LIB0=dylib |
48 | LIB0=dylib |
44 | SO=bundle |
49 | SO=bundle |
45 | STRIP="strip -x" |
50 | STRIP="strip -x" |
46 | elif [ $(arch) = i686 ]; then |
51 | elif [ $(arch) = i686 ]; then |
47 | OS=linux |
52 | OS=linux |
48 | URLADER=-x86 |
53 | URLADER=linux-x86 |
49 | PANGO=1.5.0 |
54 | PANGO=1.5.0 |
50 | PERL=/usr/bin/perl |
55 | PERL=/usr/bin/perl |
51 | else |
56 | else |
52 | OS=linux |
57 | OS=linux |
53 | URLADER=-amd64 |
58 | URLADER=linux-amd64 |
54 | PANGO=1.5.0 |
59 | PANGO=1.5.0 |
55 | PERL=/usr/bin/perl |
60 | PERL=/usr/bin/perl |
56 | ARCHNAME=amd64 |
61 | ARCHNAME=amd64 |
57 | fi |
62 | fi |
58 | |
63 | |
59 | export DIST="$(pwd)/dist/$OS-$ARCHNAME" |
64 | export DIST="$(pwd)/dist/$OS-$ARCHNAME" |
60 | |
65 | |
61 | rm -rf "$DIST" |
66 | eval $($PERL -V:sitebinexp:) |
62 | mkdir -p "$DIST" |
|
|
63 | |
67 | |
64 | #PERL=/opt/perl |
68 | "$sitebinexp"/perl-libextractor --exedir . --dlldir . --bindir pm/bin --libdir pm \ |
65 | #PANGO=1.6.0 |
69 | --perl --core-support --script deliantra \ |
66 | |
70 | --runtime-only --strip \ |
67 | export EV_EVENTFD=0 |
71 | --copy "$DIST" |
68 | export EV_INOTIFY=0 |
|
|
69 | export EV_SIGNALFD=0 |
|
|
70 | |
|
|
71 | if false; then |
|
|
72 | # for mod in common-sense AnyEvent EV JSON-XS Deliantra Compress-LZF BDB Guard CFPlus; do |
|
|
73 | for mod in CFPlus; do |
|
|
74 | ( |
|
|
75 | cd /root/src/$mod |
|
|
76 | $PERL Makefile.PL </dev/null |
|
|
77 | $MAKE clean |
|
|
78 | $PERL Makefile.PL </dev/null |
|
|
79 | $MAKE install || exit |
|
|
80 | $MAKE clean |
|
|
81 | ) |
|
|
82 | done |
|
|
83 | fi |
|
|
84 | |
72 | |
85 | cat <<EOF >"$DIST"/pango.rc |
73 | cat <<EOF >"$DIST"/pango.rc |
86 | [Pango] |
74 | [Pango] |
87 | ModuleFiles = pango.modules |
75 | ModuleFiles = pango.modules |
88 | EOF |
76 | EOF |
… | |
… | |
91 | exec 5>"$DIST"/pango.modules |
79 | exec 5>"$DIST"/pango.modules |
92 | pango-querymodules | grep ^/ | while read lib rest; do |
80 | pango-querymodules | grep ^/ | while read lib rest; do |
93 | base=$(basename "$lib") |
81 | base=$(basename "$lib") |
94 | [ "$base" = pango-basic-x.$LIBEXT ] && continue |
82 | [ "$base" = pango-basic-x.$LIBEXT ] && continue |
95 | cp -p "$lib" "$DIST"/. |
83 | cp -p "$lib" "$DIST"/. |
96 | echo "$base $rest" >&5 |
84 | echo "./$base $rest" >&5 # using ./ seems to help pango not to rummage around in /usr/lib etc. |
97 | done |
85 | done |
98 | ) |
86 | ) |
99 | |
87 | |
100 | ############################################################################# |
88 | ############################################################################# |
101 | |
89 | |
… | |
… | |
104 | eval $($PERL -V:sitebinexp -V:sitearchexp -V:sitelib -V:vendorarchexp -V:vendorlibexp -V:archlibexp -V:privlibexp) |
92 | eval $($PERL -V:sitebinexp -V:sitearchexp -V:sitelib -V:vendorarchexp -V:vendorlibexp -V:archlibexp -V:privlibexp) |
105 | |
93 | |
106 | mkdir -p "$DIST"/pm/bin |
94 | mkdir -p "$DIST"/pm/bin |
107 | cp "$sitebinexp"/deliantra "$DIST"/pm/bin/ |
95 | cp "$sitebinexp"/deliantra "$DIST"/pm/bin/ |
108 | cp -p util/run "$DIST" |
96 | cp -p util/run "$DIST" |
109 | |
|
|
110 | ( |
|
|
111 | exec <util/modules.dep |
|
|
112 | |
|
|
113 | # while read type name; do |
|
|
114 | # if [ "$type" = d ]; then |
|
|
115 | # # not implemented |
|
|
116 | # dir=$(echo "$name" | sed -e s%::%/%g) |
|
|
117 | # for lib in "$sitearchexp" "$sitelib" "$vendorarchexp" "$vendorlibexp" "$archlibexp" "$privlibexp"; do |
|
|
118 | # if [ -e "$lib/auto/$dir/.packlist" ]; then |
|
|
119 | # cat "$lib/auto/$dir/.packlist" |
|
|
120 | # fi |
|
|
121 | # echo "x $lib $dir" |
|
|
122 | # done |
|
|
123 | # elif [ $type = m ]; then |
|
|
124 | # : |
|
|
125 | # else |
|
|
126 | # echo "unknown type $type ($name)" |
|
|
127 | # exit 1 |
|
|
128 | # fi |
|
|
129 | # done |
|
|
130 | mkdir -p "$DIST"/pm |
|
|
131 | |
|
|
132 | export OSDIST="$DIST" |
|
|
133 | [ "$OS" = windows ] && OSDIST=$(cygpath -w "$OSDIST") |
|
|
134 | |
|
|
135 | $PERL -e ' |
|
|
136 | use Config; |
|
|
137 | use File::Glob qw(:glob); |
|
|
138 | use File::Copy; |
|
|
139 | use File::Path; |
|
|
140 | use File::Basename; |
|
|
141 | |
|
|
142 | my @path = do { |
|
|
143 | my %seen; |
|
|
144 | grep !$seen{$_}++, grep length, map $Config{$_}, qw( |
|
|
145 | sitearchexp |
|
|
146 | sitelib |
|
|
147 | vendorarchexp |
|
|
148 | vendorlibexp |
|
|
149 | archlibexp |
|
|
150 | privlibexp |
|
|
151 | ) |
|
|
152 | }; |
|
|
153 | |
|
|
154 | while (<>) { |
|
|
155 | s/\015?\012$//; |
|
|
156 | next if /^(#|$)/; |
|
|
157 | s/\.dynob$/.'$SO'/; |
|
|
158 | |
|
|
159 | my $found; |
|
|
160 | for my $lib (@path) { |
|
|
161 | chdir $lib || next; |
|
|
162 | |
|
|
163 | my @glob = File::Glob::bsd_glob $_, 0; # explicit 0 needed |
|
|
164 | |
|
|
165 | if (@glob) { |
|
|
166 | ++$found; |
|
|
167 | |
|
|
168 | for (@glob) { |
|
|
169 | if (-d $_) { |
|
|
170 | system "rsync", "-aR", $_, "$ENV{DIST}/pm/."; |
|
|
171 | } else { |
|
|
172 | File::Path::make_path "$ENV{OSDIST}/pm/" . dirname $_; |
|
|
173 | File::Copy::syscopy "$_", "$ENV{OSDIST}/pm/$_" |
|
|
174 | or die "$ENV{OSDIST}/pm/$_: $!"; |
|
|
175 | |
|
|
176 | if (s/\.pm$//) { |
|
|
177 | $auto = "auto/$_"; |
|
|
178 | |
|
|
179 | for my $glob ("*.'$SO'", "autosplit.ix", "*.al") { |
|
|
180 | for (bsd_glob "$auto/$glob", 0) { |
|
|
181 | File::Path::make_path "$ENV{OSDIST}/pm/" . dirname $_; |
|
|
182 | File::Copy::syscopy "$_", "$ENV{OSDIST}/pm/$_"; |
|
|
183 | } |
|
|
184 | } |
|
|
185 | } |
|
|
186 | } |
|
|
187 | } |
|
|
188 | |
|
|
189 | last; |
|
|
190 | } |
|
|
191 | } |
|
|
192 | |
|
|
193 | warn "$_: not found\n" |
|
|
194 | unless $found; |
|
|
195 | } |
|
|
196 | ' |
|
|
197 | ) || exit |
|
|
198 | |
97 | |
199 | ############################################################################# |
98 | ############################################################################# |
200 | |
99 | |
201 | if [ "$OS" = windows ]; then |
100 | if [ "$OS" = windows ]; then |
202 | libdeps() { |
101 | libdeps() { |
… | |
… | |
234 | } |
133 | } |
235 | |
134 | |
236 | ( |
135 | ( |
237 | cd "$DIST" |
136 | cd "$DIST" |
238 | |
137 | |
239 | # # patch braindamaged pango |
|
|
240 | if [ "$OS" != windows ]; then |
|
|
241 | perl -pe 's{/u(?=sr/lib(32)?/pango)}{/\x00}g; s{\Q'$PANGO'\E\x00}{y.t.u\x00}g' <$SYSLIB/libpango-1.0.$LIB0 >libpango-1.0.$LIB0 |
|
|
242 | chmod 755 libpango-1.0.$LIB0 |
|
|
243 | fi |
|
|
244 | |
|
|
245 | if [ "$OS" = windows ]; then |
138 | if [ "$OS" = windows ]; then |
246 | 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 . |
247 | cp /root/src/CFPlus/util/splash.bmp . |
140 | cp /root/src/CFPlus/util/splash.bmp . |
248 | chmod -R u+rwX pm/auto |
141 | chmod -R u+rwX pm/auto |
|
|
142 | |
|
|
143 | # convert perl to a non-console-app |
|
|
144 | $PERL -MWin32::Exe -e '$e = new Win32::Exe"perl.exe"; $e->set_subsystem_windows; $e->write' |
|
|
145 | |
249 | else |
146 | else |
250 | for lib in mikmod vorbisfile; do |
147 | for lib in mikmod vorbisfile; do |
251 | cp -p $SYSLIB/lib$lib.$LIB0 . |
148 | cp -p $SYSLIB/lib$lib.$LIB0 . |
252 | chmod 755 lib$lib.$LIB0 |
149 | chmod 755 lib$lib.$LIB0 |
253 | done |
150 | done |
254 | fi |
151 | fi |
255 | |
|
|
256 | cp -p "$PERL" . |
|
|
257 | |
152 | |
258 | for so in $(find . -name "*.$SO" -o -name "*.$LIBEXT" -o -name "*.$LIB0") perl; do |
153 | for so in $(find . -name "*.$SO" -o -name "*.$LIBEXT" -o -name "*.$LIB0") perl; do |
259 | add_deps "$so" |
154 | add_deps "$so" |
260 | done |
155 | done |
261 | |
156 | |
… | |
… | |
264 | for lib in \ |
159 | for lib in \ |
265 | dl c m rt pthread nsl crypt \ |
160 | dl c m rt pthread nsl crypt \ |
266 | X11 Xext Xau Xdmcp ICE SM Xrandr Xrender Xxf86vm drm GL \ |
161 | X11 Xext Xau Xdmcp ICE SM Xrandr Xrender Xxf86vm drm GL \ |
267 | z |
162 | z |
268 | do |
163 | do |
269 | rm -f lib"$lib".$SO0 |
164 | rm -f lib"$lib".$LIB0 |
270 | done |
165 | done |
|
|
166 | |
|
|
167 | if [ "$OS" != windows ]; then |
|
|
168 | # patch braindamaged pango |
|
|
169 | |
|
|
170 | if [ "$OS" != darwin ]; then |
|
|
171 | set libpango-1.0.$LIB0 |
|
|
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 |
|
|
177 | chmod 755 "$1" |
|
|
178 | fi |
271 | |
179 | |
272 | if [ "$OS" = darwin ]; then |
180 | if [ "$OS" = darwin ]; then |
273 | # "dll hell" is most severe on os x, because apple |
181 | # "dll hell" is most severe on os x, because apple |
274 | # does not generally give a shit for backwards compatibility, |
182 | # does not generally give a shit for backwards compatibility, |
275 | # alwayss ships outdated libraries and often provides libraries |
183 | # alwayss ships outdated libraries and often provides libraries |
… | |
… | |
307 | patchlibs "$lib" |
215 | patchlibs "$lib" |
308 | mv "$lib" "libdeliantra-$stem.dylib" |
216 | mv "$lib" "libdeliantra-$stem.dylib" |
309 | done |
217 | done |
310 | fi |
218 | fi |
311 | |
219 | |
312 | [ "$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 |
313 | $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 |
314 | ) |
224 | ) |
315 | |
225 | |
316 | printf -- urlader$URLADER >"$DIST".urlader |
226 | cat >"$DIST".vars <<EOF |
|
|
227 | G_URLADER="$URLADER" |
|
|
228 | G_OS="$OS" |
|
|
229 | G_ARCHNAME="$ARCHNAME" |
|
|
230 | G_ENVVARS="$GENPACK_ENVVARS" |
|
|
231 | G_COMMAND="./perl run" |
|
|
232 | EOF |
317 | |
233 | |
318 | echo >"$DIST".genpack genpack deliantra_S-$OS-"$ARCHNAME" '"$EXE_VER"' '"$1"' $GENPACK_ENVVARS./perl run |
|
|
319 | |
|
|
320 | exit |
|
|
321 | |
|
|
322 | |
|
|
323 | tar cf deliantra-gnu-linux-$ARCHNAME.tar deliantra-gnu-linux-$ARCHNAME |
|
|
324 | gzip -9vf deliantra-gnu-linux-$ARCHNAME.tar |
|
|
325 | todata deliantra-gnu-linux-$ARCHNAME.tar.gz |
|
|
326 | |
|
|