Commit | Line | Data |
---|---|---|
2d35020a SN |
1 | #!/bin/sh |
2 | # | |
3 | # dllar - a tool to build both a .dll and an .a file | |
4 | # from a set of object (.o) files for EMX/OS2. | |
5 | # | |
6 | # Written by Andrew Zabolotny, bit@freya.etu.ru | |
7 | # Ported to Unix like shell by Stefan Neis, Stefan.Neis@t-online.de | |
8 | # | |
9 | # This script will accept a set of files on the command line. | |
10 | # All the public symbols from the .o files will be exported into | |
11 | # a .DEF file, then linker will be run (through gcc) against them to | |
12 | # build a shared library consisting of all given .o files. All libraries | |
13 | # (.a) will be first decompressed into component .o files then act as | |
14 | # described above. You can optionally give a description (-d "description") | |
15 | # which will be put into .DLL. To see the list of accepted options (as well | |
16 | # as command-line format) simply run this program without options. The .DLL | |
17 | # is built to be imported by name (there is no guarantee that new versions | |
18 | # of the library you build will have same ordinals for same symbols). | |
19 | # | |
20 | # dllar is free software; you can redistribute it and/or modify | |
21 | # it under the terms of the GNU General Public License as published by | |
22 | # the Free Software Foundation; either version 2, or (at your option) | |
23 | # any later version. | |
24 | # | |
25 | # dllar is distributed in the hope that it will be useful, | |
26 | # but WITHOUT ANY WARRANTY; without even the implied warranty of | |
27 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
28 | # GNU General Public License for more details. | |
29 | # | |
30 | # You should have received a copy of the GNU General Public License | |
31 | # along with dllar; see the file COPYING. If not, write to the Free | |
32 | # Software Foundation, 59 Temple Place - Suite 330, Boston, MA | |
33 | # 02111-1307, USA. | |
34 | ||
35 | # To successfuly run this program you will need: | |
36 | # - Current drive should have LFN support (HPFS, ext2, network, etc) | |
37 | # (Sometimes dllar generates filenames which won't fit 8.3 scheme) | |
38 | # - gcc | |
39 | # (used to build the .dll) | |
40 | # - emxexp | |
41 | # (used to create .def file from .o files) | |
42 | # - emximp | |
43 | # (used to create .a file from .def file) | |
44 | # - GNU text utilites (cat, sort, uniq) | |
45 | # used to process emxexp output | |
46 | # - GNU file utilities (mv, rm) | |
47 | # - GNU sed | |
48 | # - lxlite (optional, see flag below) | |
49 | # (used for general .dll cleanup) | |
50 | # | |
51 | ||
52 | flag_USE_LXLITE=1; | |
53 | ||
54 | # | |
55 | # helper functions | |
56 | # basnam, variant of basename, which does _not_ remove the path, _iff_ | |
57 | # second argument (suffix to remove) is given | |
58 | basnam(){ | |
59 | case $# in | |
60 | 1) | |
61 | echo $1 | sed 's/.*\///' | sed 's/.*\\//' | |
62 | ;; | |
63 | 2) | |
64 | echo $1 | sed 's/'$2'$//' | |
65 | ;; | |
66 | *) | |
67 | echo "error in basnam $*" | |
68 | exit 8 | |
69 | ;; | |
70 | esac | |
71 | } | |
72 | ||
73 | # Cleanup temporary files and output | |
74 | CleanUp() { | |
75 | cd $curDir | |
76 | for i in $inputFiles ; do | |
77 | case $i in | |
78 | *!) | |
79 | rm -rf `basnam $i !` | |
80 | ;; | |
81 | *) | |
82 | ;; | |
83 | esac | |
84 | done | |
85 | ||
86 | # Kill result in case of failure as there is just to many stupid make/nmake | |
87 | # things out there which doesn't do this. | |
88 | if [ $# -eq 0 ]; then | |
60848fcf | 89 | rm -f $arcFile $arcFile2 $defFile $dllFile |
2d35020a SN |
90 | fi |
91 | } | |
92 | ||
93 | # Print usage and exit script with rc=1. | |
94 | PrintHelp() { | |
d5a547f3 SN |
95 | echo 'Usage: dllar.sh [-o[utput] output_file] [-i[mport] importlib_name]' |
96 | echo ' [-name-mangler-script script.sh]' | |
a9c0e559 SN |
97 | echo ' [-d[escription] "dll descrption"] [-cc "CC"] [-f[lags] "CFLAGS"]' |
98 | echo ' [-ord[inals]] -ex[clude] "symbol(s)"' | |
2d35020a SN |
99 | echo ' [-libf[lags] "{INIT|TERM}{GLOBAL|INSTANCE}"] [-nocrt[dll]] [-nolxl[ite]]' |
100 | echo ' [*.o] [*.a]' | |
101 | echo '*> "output_file" should have no extension.' | |
102 | echo ' If it has the .o, .a or .dll extension, it is automatically removed.' | |
a9c0e559 SN |
103 | echo ' The import library name is derived from this and is set to "name".a,' |
104 | echo ' unless overridden by -import' | |
105 | echo '*> "importlib_name" should have no extension.' | |
106 | echo ' If it has the .o, or .a extension, it is automatically removed.' | |
107 | echo ' This name is used as the import library name and may be longer and' | |
108 | echo ' more descriptive than the DLL name which has to follow the old ' | |
109 | echo ' 8.3 convention of FAT.' | |
d5a547f3 SN |
110 | echo '*> "script.sh may be given to override the output_file name by a' |
111 | echo ' different name. It is mainly useful if the regular make process' | |
112 | echo ' of some package does not take into account OS/2 restriction of' | |
113 | echo ' DLL name lengths. It takes the importlib name as input and is' | |
114 | echo ' supposed to procude a shorter name as output. The script should' | |
115 | echo ' expect to get importlib_name without extension and should produce' | |
116 | echo ' a (max.) 8 letter name without extension.' | |
2d35020a SN |
117 | echo '*> "cc" is used to use another GCC executable. (default: gcc.exe)' |
118 | echo '*> "flags" should be any set of valid GCC flags. (default: -s -Zcrtdll)' | |
119 | echo ' These flags will be put at the start of GCC command line.' | |
120 | echo '*> -ord[inals] tells dllar to export entries by ordinals. Be careful.' | |
121 | echo '*> -ex[clude] defines symbols which will not be exported. You can define' | |
122 | echo ' multiple symbols, for example -ex "myfunc yourfunc _GLOBAL*".' | |
123 | echo ' If the last character of a symbol is "*", all symbols beginning' | |
124 | echo ' with the prefix before "*" will be exclude, (see _GLOBAL* above).' | |
125 | echo '*> -libf[lags] can be used to add INITGLOBAL/INITINSTANCE and/or' | |
126 | echo ' TERMGLOBAL/TERMINSTANCE flags to the dynamically-linked library.' | |
127 | echo '*> -nocrt[dll] switch will disable linking the library against emx''s' | |
128 | echo ' C runtime DLLs.' | |
129 | echo '*> -nolxl[ite] switch will disable running lxlite on the resulting DLL.' | |
130 | echo '*> All other switches (for example -L./ or -lmylib) will be passed' | |
131 | echo ' unchanged to GCC at the end of command line.' | |
132 | echo '*> If you create a DLL from a library and you do not specify -o,' | |
133 | echo ' the basename for DLL and import library will be set to library name,' | |
134 | echo ' the initial library will be renamed to 'name'_s.a (_s for static)' | |
135 | echo ' i.e. "dllar gcc.a" will create gcc.dll and gcc.a, and the initial' | |
136 | echo ' library will be renamed into gcc_s.a.' | |
137 | echo '--------' | |
138 | echo 'Example:' | |
139 | echo ' dllar -o gcc290.dll libgcc.a -d "GNU C runtime library" -ord' | |
140 | echo ' -ex "__main __ctordtor*" -libf "INITINSTANCE TERMINSTANCE"' | |
141 | CleanUp | |
142 | exit 1 | |
143 | } | |
144 | ||
145 | # Execute a command. | |
146 | # If exit code of the commnad <> 0 CleanUp() is called and we'll exit the script. | |
147 | # @Uses Whatever CleanUp() uses. | |
148 | doCommand() { | |
149 | echo "$*" | |
150 | eval $* | |
151 | rcCmd=$? | |
152 | ||
153 | if [ $rcCmd -ne 0 ]; then | |
154 | echo "command failed, exit code="$rcCmd | |
155 | CleanUp | |
156 | exit $rcCmd | |
157 | fi | |
158 | } | |
159 | ||
160 | # main routine | |
161 | # setup globals | |
162 | cmdLine=$* | |
163 | outFile="" | |
a9c0e559 | 164 | outimpFile="" |
2d35020a | 165 | inputFiles="" |
d5a547f3 | 166 | renameScript="" |
2d35020a SN |
167 | description="" |
168 | CC=gcc.exe | |
169 | CFLAGS="-s -Zcrtdll" | |
170 | EXTRA_CFLAGS="" | |
171 | EXPORT_BY_ORDINALS=0 | |
172 | exclude_symbols="" | |
173 | library_flags="" | |
174 | curDir=`pwd` | |
175 | curDirS=curDir | |
176 | case $curDirS in | |
177 | */) | |
178 | ;; | |
179 | *) | |
180 | curDirS=${curDirS}"/" | |
181 | ;; | |
182 | esac | |
183 | # Parse commandline | |
184 | libsToLink=0 | |
c6e801d3 | 185 | omfLinking=0 |
2d35020a SN |
186 | while [ $1 ]; do |
187 | case $1 in | |
188 | -ord*) | |
189 | EXPORT_BY_ORDINALS=1; | |
190 | ;; | |
191 | -o*) | |
192 | shift | |
193 | outFile=$1 | |
194 | ;; | |
a9c0e559 SN |
195 | -i*) |
196 | shift | |
197 | outimpFile=$1 | |
198 | ;; | |
d5a547f3 SN |
199 | -name-mangler-script) |
200 | shift | |
201 | renameScript=$1 | |
202 | ;; | |
2d35020a SN |
203 | -d*) |
204 | shift | |
205 | description=$1 | |
206 | ;; | |
207 | -f*) | |
208 | shift | |
209 | CFLAGS=$1 | |
210 | ;; | |
211 | -c*) | |
212 | shift | |
213 | CC=$1 | |
214 | ;; | |
215 | -h*) | |
216 | PrintHelp | |
217 | ;; | |
218 | -ex*) | |
219 | shift | |
220 | exclude_symbols=${exclude_symbols}$1" " | |
221 | ;; | |
222 | -libf*) | |
223 | shift | |
224 | library_flags=${library_flags}$1" " | |
225 | ;; | |
226 | -nocrt*) | |
227 | CFLAGS="-s" | |
228 | ;; | |
229 | -nolxl*) | |
230 | flag_USE_LXLITE=0 | |
231 | ;; | |
c6e801d3 | 232 | -* | /*) |
2d35020a SN |
233 | case $1 in |
234 | -L* | -l*) | |
235 | libsToLink=1 | |
236 | ;; | |
c6e801d3 SN |
237 | -Zomf) |
238 | omfLinking=1 | |
239 | ;; | |
2d35020a SN |
240 | *) |
241 | ;; | |
242 | esac | |
243 | EXTRA_CFLAGS=${EXTRA_CFLAGS}" "$1 | |
244 | ;; | |
c6e801d3 SN |
245 | *.dll) |
246 | EXTRA_CFLAGS="${EXTRA_CFLAGS} `basnam $1 .dll`" | |
247 | if [ $omfLinking -eq 1 ]; then | |
248 | EXTRA_CFLAGS="${EXTRA_CFLAGS}.lib" | |
249 | else | |
250 | EXTRA_CFLAGS="${EXTRA_CFLAGS}.a" | |
251 | fi | |
252 | ;; | |
2d35020a SN |
253 | *) |
254 | found=0; | |
255 | if [ $libsToLink -ne 0 ]; then | |
256 | EXTRA_CFLAGS=${EXTRA_CFLAGS}" "$1 | |
257 | else | |
258 | for file in $1 ; do | |
259 | if [ -f $file ]; then | |
260 | inputFiles="${inputFiles} $file" | |
261 | found=1 | |
262 | fi | |
263 | done | |
264 | if [ $found -eq 0 ]; then | |
265 | echo "ERROR: No file(s) found: "$1 | |
266 | exit 8 | |
267 | fi | |
268 | fi | |
269 | ;; | |
270 | esac | |
271 | shift | |
272 | done # iterate cmdline words | |
273 | ||
274 | # | |
275 | if [ -z "$inputFiles" ]; then | |
276 | echo "dllar: no input files" | |
277 | PrintHelp | |
278 | fi | |
279 | ||
280 | # Now extract all .o files from .a files | |
281 | newInputFiles="" | |
282 | for file in $inputFiles ; do | |
283 | case $file in | |
284 | *.a | *.lib) | |
285 | case $file in | |
286 | *.a) | |
287 | suffix=".a" | |
288 | AR="ar" | |
289 | ;; | |
290 | *.lib) | |
291 | suffix=".lib" | |
292 | AR="emxomfar" | |
60848fcf | 293 | EXTRA_CFLAGS="$EXTRA_CFLAGS -Zomf" |
2d35020a SN |
294 | ;; |
295 | *) | |
296 | ;; | |
297 | esac | |
298 | dirname=`basnam $file $suffix`"_%" | |
299 | mkdir $dirname | |
300 | if [ $? -ne 0 ]; then | |
301 | echo "Failed to create subdirectory ./$dirname" | |
302 | CleanUp | |
303 | exit 8; | |
304 | fi | |
305 | # Append '!' to indicate archive | |
306 | newInputFiles="$newInputFiles ${dirname}!" | |
307 | doCommand "cd $dirname; $AR x ../$file" | |
308 | cd $curDir | |
309 | found=0; | |
60848fcf | 310 | for subfile in $dirname/*.o* ; do |
2d35020a SN |
311 | if [ -f $subfile ]; then |
312 | found=1 | |
313 | if [ -s $subfile ]; then | |
314 | # FIXME: This should be: is file size > 32 byte, _not_ > 0! | |
60848fcf | 315 | newInputFiles="$newInputFiles $subfile" |
2d35020a SN |
316 | fi |
317 | fi | |
318 | done | |
319 | if [ $found -eq 0 ]; then | |
320 | echo "WARNING: there are no files in archive \'$file\'" | |
321 | fi | |
322 | ;; | |
323 | *) | |
324 | newInputFiles="${newInputFiles} $file" | |
325 | ;; | |
326 | esac | |
327 | done | |
328 | inputFiles="$newInputFiles" | |
329 | ||
330 | # Output filename(s). | |
331 | do_backup=0; | |
332 | if [ -z $outFile ]; then | |
333 | do_backup=1; | |
334 | set outFile $inputFiles; outFile=$2 | |
335 | fi | |
336 | ||
337 | # If it is an archive, remove the '!' and the '_%' suffixes | |
338 | case $outFile in | |
339 | *_%!) | |
340 | outFile=`basnam $outFile _%!` | |
341 | ;; | |
342 | *) | |
343 | ;; | |
344 | esac | |
345 | case $outFile in | |
346 | *.dll) | |
347 | outFile=`basnam $outFile .dll` | |
348 | ;; | |
349 | *.DLL) | |
350 | outFile=`basnam $outFile .DLL` | |
351 | ;; | |
352 | *.o) | |
353 | outFile=`basnam $outFile .o` | |
354 | ;; | |
355 | *.obj) | |
356 | outFile=`basnam $outFile .obj` | |
357 | ;; | |
358 | *.a) | |
359 | outFile=`basnam $outFile .a` | |
360 | ;; | |
361 | *.lib) | |
362 | outFile=`basnam $outFile .lib` | |
363 | ;; | |
364 | *) | |
365 | ;; | |
366 | esac | |
a9c0e559 SN |
367 | case $outimpFile in |
368 | *.a) | |
45c6f724 | 369 | outimpFile=`basnam $outimpFile .a` |
a9c0e559 SN |
370 | ;; |
371 | *.lib) | |
45c6f724 | 372 | outimpFile=`basnam $outimpFile .lib` |
a9c0e559 SN |
373 | ;; |
374 | *) | |
375 | ;; | |
376 | esac | |
377 | if [ -z $outimpFile ]; then | |
378 | outimpFile=$outFile | |
379 | fi | |
2d35020a | 380 | defFile="${outFile}.def" |
a9c0e559 SN |
381 | arcFile="${outimpFile}.a" |
382 | arcFile2="${outimpFile}.lib" | |
2d35020a | 383 | |
c6e801d3 | 384 | #create $dllFile as something matching 8.3 restrictions, |
d5a547f3 SN |
385 | if [ -z $renameScript ] ; then |
386 | dllFile="$outFile" | |
d5a547f3 SN |
387 | else |
388 | dllFile=`$renameScript $outimpFile` | |
d5a547f3 | 389 | fi |
c6e801d3 | 390 | |
60848fcf SN |
391 | if [ $do_backup -ne 0 ] ; then |
392 | if [ -f $arcFile ] ; then | |
393 | doCommand "mv $arcFile ${outFile}_s.a" | |
394 | fi | |
395 | if [ -f $arcFile2 ] ; then | |
396 | doCommand "mv $arcFile2 ${outFile}_s.lib" | |
397 | fi | |
2d35020a SN |
398 | fi |
399 | ||
400 | # Extract public symbols from all the object files. | |
401 | tmpdefFile=${defFile}_% | |
402 | rm -f $tmpdefFile | |
403 | for file in $inputFiles ; do | |
404 | case $file in | |
405 | *!) | |
406 | ;; | |
407 | *) | |
1cffa15b SN |
408 | # we do not want to export weak symbols in general, so we filter |
409 | # those out using grep. | |
f6a9b35e | 410 | doCommand "emxexp -u $file >> $tmpdefFile || true" |
2d35020a SN |
411 | ;; |
412 | esac | |
413 | done | |
414 | ||
415 | # Create the def file. | |
416 | rm -f $defFile | |
c6e801d3 | 417 | echo "LIBRARY `basnam $dllFile` $library_flags" >> $defFile |
d5a547f3 | 418 | dllFile="${dllFile}.dll" |
ed165c67 | 419 | if [ ! -z $description ]; then |
2d35020a SN |
420 | echo "DESCRIPTION \"${description}\"" >> $defFile |
421 | fi | |
422 | echo "EXPORTS" >> $defFile | |
423 | ||
424 | doCommand "cat $tmpdefFile | sort.exe | uniq.exe > ${tmpdefFile}%" | |
425 | grep -v "^ *;" < ${tmpdefFile}% | grep -v "^ *$" >$tmpdefFile | |
426 | ||
427 | # Checks if the export is ok or not. | |
428 | for word in $exclude_symbols; do | |
429 | grep -v $word < $tmpdefFile >${tmpdefFile}% | |
430 | mv ${tmpdefFile}% $tmpdefFile | |
431 | done | |
432 | ||
433 | ||
434 | if [ $EXPORT_BY_ORDINALS -ne 0 ]; then | |
435 | sed "=" < $tmpdefFile | \ | |
436 | sed ' | |
437 | N | |
438 | : loop | |
439 | s/^\([0-9]\+\)\([^;]*\)\(;.*\)\?/\2 @\1 NONAME/ | |
440 | t loop | |
441 | ' > ${tmpdefFile}% | |
442 | grep -v "^ *$" < ${tmpdefFile}% > $tmpdefFile | |
443 | else | |
444 | rm -f ${tmpdefFile}% | |
445 | fi | |
446 | cat $tmpdefFile >> $defFile | |
447 | rm -f $tmpdefFile | |
448 | ||
449 | # Do linking, create implib, and apply lxlite. | |
450 | gccCmdl=""; | |
451 | for file in $inputFiles ; do | |
452 | case $file in | |
453 | *!) | |
454 | ;; | |
455 | *) | |
456 | gccCmdl="$gccCmdl $file" | |
457 | ;; | |
458 | esac | |
459 | done | |
460 | doCommand "$CC $CFLAGS -Zdll -o $dllFile $defFile $gccCmdl $EXTRA_CFLAGS" | |
c6e801d3 | 461 | touch "${outFile}.dll" |
2d35020a SN |
462 | |
463 | doCommand "emximp -o $arcFile $defFile" | |
464 | if [ $flag_USE_LXLITE -ne 0 ]; then | |
465 | add_flags=""; | |
466 | if [ $EXPORT_BY_ORDINALS -ne 0 ]; then | |
467 | add_flags="-ynd" | |
468 | fi | |
fd29f9ad | 469 | doCommand "lxlite -cs -t: $add_flags `echo $dllFile | sed 's/\//\\\\/g'`" |
2d35020a | 470 | fi |
1cffa15b SN |
471 | |
472 | #New version of emxomf do no longer want the "-l" flag | |
473 | case `emxomf` in | |
474 | emxomf\ 0.6*) | |
475 | omflibflag="" | |
476 | ;; | |
477 | *) | |
478 | omflibflag=" -l" | |
479 | ;; | |
480 | esac | |
481 | doCommand "emxomf -s$omflibflag $arcFile" | |
2d35020a SN |
482 | |
483 | # Successful exit. | |
484 | CleanUp 1 | |
485 | exit 0 |