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.9 by root, Wed Jan 4 11:23:23 2012 UTC vs.
Revision 1.13 by root, Fri Jan 27 01:43:03 2012 UTC

… …
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" 64DISTf="dist/$OS-$ARCHNAME"
65export DIST="$(pwd)/$DISTf"
65 66
66rm -rf "$DIST" 67eval $("$PERL" -V:sitebinexp:)
67mkdir -p "$DIST"
68 68
69#PERL=/opt/perl 69"$PERL" "$sitebinexp"/perl-libextractor --exedir . --dlldir . --bindir pm/bin --libdir pm \
70#PANGO=1.6.0 70 --perl --core-support --script deliantra \
71 71 --runtime-only --strip \
72export EV_EVENTFD=0 72 --copy "$DISTf"
73export EV_INOTIFY=0
74export EV_SIGNALFD=0
75 73
76cat <<EOF >"$DIST"/pango.rc 74cat <<EOF >"$DIST"/pango.rc
77[Pango] 75[Pango]
78ModuleFiles = pango.modules 76ModuleFiles = pango.modules
79EOF 77EOF
… …
95eval $($PERL -V:sitebinexp -V:sitearchexp -V:sitelib -V:vendorarchexp -V:vendorlibexp -V:archlibexp -V:privlibexp) 93eval $($PERL -V:sitebinexp -V:sitearchexp -V:sitelib -V:vendorarchexp -V:vendorlibexp -V:archlibexp -V:privlibexp)
96 94
97mkdir -p "$DIST"/pm/bin 95mkdir -p "$DIST"/pm/bin
98cp "$sitebinexp"/deliantra "$DIST"/pm/bin/ 96cp "$sitebinexp"/deliantra "$DIST"/pm/bin/
99cp -p util/run "$DIST" 97cp -p util/run "$DIST"
100
101(
102 exec <util/modules.dep
103
104# while read type name; do
105# if [ "$type" = d ]; then
106# # not implemented
107# dir=$(echo "$name" | sed -e s%::%/%g)
108# for lib in "$sitearchexp" "$sitelib" "$vendorarchexp" "$vendorlibexp" "$archlibexp" "$privlibexp"; do
109# if [ -e "$lib/auto/$dir/.packlist" ]; then
110# cat "$lib/auto/$dir/.packlist"
111# fi
112# echo "x $lib $dir"
113# done
114# elif [ $type = m ]; then
115# :
116# else
117# echo "unknown type $type ($name)"
118# exit 1
119# fi
120# done
121 mkdir -p "$DIST"/pm
122
123 export OSDIST="$DIST"
124 [ "$OS" = windows ] && OSDIST=$(cygpath -w "$OSDIST")
125
126 $PERL -e '
127 use Config;
128 use File::Glob qw(:glob);
129 use File::Copy;
130 use File::Path;
131 use File::Basename;
132
133 my @path = do {
134 my %seen;
135 grep !$seen{$_}++, grep length, map $Config{$_}, qw(
136 sitearchexp
137 sitelib
138 vendorarchexp
139 vendorlibexp
140 archlibexp
141 privlibexp
142 )
143 };
144
145 while (<>) {
146 s/\015?\012$//;
147 next if /^(#|$)/;
148 s/\.dynob$/.'$SO'/;
149
150 my $found;
151 for my $lib (@path) {
152 chdir $lib || next;
153
154 my @glob = File::Glob::bsd_glob $_, 0; # explicit 0 needed
155
156 if (@glob) {
157 ++$found;
158
159 for (@glob) {
160 if (-d $_) {
161 system "rsync", "-aR", $_, "$ENV{DIST}/pm/.";
162 } else {
163 File::Path::mkpath "$ENV{OSDIST}/pm/" . dirname $_;
164 File::Copy::syscopy "$_", "$ENV{OSDIST}/pm/$_"
165 or die "$ENV{OSDIST}/pm/$_: $!";
166
167 if (s/\.pm$//) {
168 $auto = "auto/$_";
169
170 for my $glob ("*.'$SO'", "autosplit.ix", "*.al") {
171 for (bsd_glob "$auto/$glob", 0) {
172 File::Path::mkpath "$ENV{OSDIST}/pm/" . dirname $_;
173 File::Copy::syscopy "$_", "$ENV{OSDIST}/pm/$_";
174 }
175 }
176 }
177 }
178 }
179
180 last;
181 }
182 }
183
184 warn "$_: not found\n"
185 unless $found;
186 }
187 '
188) || exit
189 98
190############################################################################# 99#############################################################################
191 100
192if [ "$OS" = windows ]; then 101if [ "$OS" = windows ]; then
193 libdeps() { 102 libdeps() {
… …
225} 134}
226 135
227( 136(
228 cd "$DIST" 137 cd "$DIST"
229 138
230 cp -p "$PERL" .
231
232 if [ "$OS" = windows ]; then 139 if [ "$OS" = windows ]; then
233 cp -p $SYSLIB/libvorbisfile-3.dll $SYSLIB/mikmod.dll $SYSLIB/libpng12-0.dll . 140 cp -p $SYSLIB/libvorbisfile-3.dll $SYSLIB/mikmod.dll $SYSLIB/libpng12-0.dll .
234 cp /root/src/CFPlus/util/splash.bmp . 141 cp /root/src/CFPlus/util/splash.bmp .
235 chmod -R u+rwX pm/auto 142 chmod -R u+rwX pm/auto
236 143
… …
259 done 166 done
260 167
261 if [ "$OS" != windows ]; then 168 if [ "$OS" != windows ]; then
262 # patch braindamaged pango 169 # patch braindamaged pango
263 170
264 if [ "$OS" = darwin ]; then 171 if [ "$OS" != darwin ]; then
265 set libdeliantra-pango-1.0.0.dylib 172 set libpango-1.0.$LIB0
266 perl -pe 's{/o(?opt/local/.../pango)}{.\x00}g; s{\Q'$PANGO'\E\x00}{y.t.u\x00}g' <"$1" >"$1~" && mv "$1~" "$1" 173 perl -pe 's{/u(?=sr/lib(32)?/pango)}{.\x00}g;' <"$1" >"$1~" && mv "$1~" "$1"
267 else 174 else
268 set libpango-1.0.$LIB0 175 set lib*pango-1.0.0.dylib
269 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" 176 perl -pe 's{/o(?=pt/local/.../pango)}{.\x00}g;' <"$1" >"$1~" && mv "$1~" "$1"
270 fi 177 fi
271 chmod 755 "$1" 178 chmod 755 "$1"
272 fi 179 fi
273 180
274 if [ "$OS" = darwin ]; then 181 if [ "$OS" = darwin ]; then

Diff Legend

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