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