r1019: Fix crash in Ogg file handling.
[cinelerra/simeon] / admin / nasm
1 #! /usr/bin/perl -w
2 use strict;
3
4 my $command = "-felf";
5 my $f;
6
7 foreach (@ARGV) {
8         if (/\.S$/) {
9                 $command = "gcc " . join(' ', @ARGV);
10                 last;
11         } elsif (/\.s$/) {
12                 if ($command =~ s/(\w*)\.lo/\.libs\/\1\.o/)
13                 {
14                         $f = $1;
15                 }
16                 $command = "nasm $command $_";
17
18
19         } elsif (/^-o$/ || /\.lo$/ || /\.o$/) {
20                 $command = "$command $_";
21         } 
22 }
23 print "$command\n";
24 `$command`;
25 if ($f) {
26         open (FH, ">$f.lo");
27         print FH "# $f.lo - a libtool object file
28 # Generated by ltmain.sh - GNU libtool 1.5.0a (1.1220.2.25 2003/08/01 19:08:35)
29 # Debian: 49 $
30 #
31 # Please DO NOT delete this file!
32 # It is necessary for linking the library.
33
34 # Name of the PIC object.
35 ";
36
37         print FH "pic_object=";
38         print FH "'.libs/$f.o'\n\n";
39         print FH '# Name of the non-PIC object.
40 ';
41         print FH "non_pic_object=";
42         print FH "'$f.o'";
43         print FH "\n\n";
44         close (FH);
45
46 }
47