head	1.2;
access;
symbols
	RPM_4_2_1:1.1.1.1
	RPM_4_2:1.1.1.1
	RPM_4_1_1:1.1.1.1
	RPM_4_1:1.1.1.1
	RPM_4_0_5:1.1.1.1
	RPM_4_0_4:1.1.1.1
	RPM_4_0_3:1.1.1.1
	RPM_4_0_2:1.1.1.1
	RPM_4_0_1:1.1.1.1
	RPM_4_0:1.1.1.1
	RPM_3_0_6:1.1.1.1
	RPM_3_0_5:1.1.1.1
	RPM_3_0_4:1.1.1.1
	RPM:1.1.1;
locks; strict;
comment	@# @;


1.2
date	2008.01.02.10.04.10;	author rse;	state dead;
branches;
next	1.1;
commitid	z4cpSiAhOCXk5PLs;

1.1
date	99.11.12.21.26.04;	author rse;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	99.11.12.21.26.04;	author rse;	state Exp;
branches;
next	;


desc
@@


1.2
log
@remove the ancient RPM 4.2.1 source tree copy
@
text
@#!/usr/bin/perl

# Given a list of filenames on the command line or on stdin this
# script returns the interpreter that is required to run the
# filenames.  Usually this is extracted from the #! line of the file
# but we also handle the various 'exec' tricks that people use to
# start the interpreter via an intermediate shell.  

# Also we want to convert:
# 	/usr/local/bin/perl5.00404 
# 	/usr/local/bin/tclsh8.0 
# into dependencies with RPM version numbers.





# These have all been seen on our system or are "recommended" in
# various man pages.

# Examples:

#   #!/bin/sh
#   # the next line restarts using wish \
#   exec wish "$0" "$@@"


#   #!/bin/sh -- # -*- perl -*- -p
#     eval 'exec /usr/bin/perl -wS $0 ${1+"$@@"}'
#       if $running_under_some_shell;


#   #!/bin/sh -- # -*- perl -*- -p
#   eval '(exit $?0)' && eval 'exec /usr/bin/perl -wS $0 ${1+"$@@"}'


#   #!/bin/sh -- # -*- perl -*- -p
#   & eval 'exec /usr/bin/perl -wS $0 $argv:q'
#     if $running_under_some_shell;


#   #! /usr/bin/env python


use File::Basename;

if ("@@ARGV") {
  foreach (@@ARGV) {
    process_file($_);
  }
} else {
  
  # notice we are passed a list of filenames NOT as common in unix the
  # contents of the file.
  
  foreach (<>) {
    process_file($_);
  }
}


foreach $prog (sort keys %require) {


  # ignore variable interpolation and any program whose name is made
  # up only of non word characters ('<', '&&', etc).

  ( ( $prog != /\$/ ) || ( $prog =~ /^\W+$/ ) ) && 
    next;

  # filenames of the form './miniperl' will be reported in canonical
  # manner 'miniperl'

   $prog =~ s!^\./!!;

  if ( $prog !~ /\$/ ) {
    print "exectuable($prog)\n";
  }

  $prog=basename($prog);

  if ( $prog !~ /\$/ ) {
    print "exectuable($prog)\n";

    # get the correct version dependencies for magic numbers like:
    # 	/usr/local/bin/perl5.00404 
    # 	/usr/local/bin/tclsh8.0 
    # these are always PACKAGE versions since typical executables do not
    # have versions

    my $version = "";
    if ($module =~ s/([.0-9]+)$//) {
      $version = "$1";
      print "$prog>=$version\n";
    }

  }

}

exit 0;


sub process_file {
  
  my ($file) = @@_;
  chomp $file;
  
  my ($version, $magic) = ();
  
  (-f $file) || return ;  

  open(FILE, "<$file")||
    die("$0: Could not open file: '$file' : $!\n");
  
  my $rc = sysread(FILE,$line,1000);

  $rc =~ s/\#.*\n//g;

  # Ignore all parameter substitution.
  # I have no hope of parsing something like: 
  #  exec ${SHELL:-/bin/sh}
  $rc =~ s/\$\{.*\}//g;
  $rc =~ s/echo\s+.*[\n;]//g;
  
  if  ( ($rc > 1) && ($line =~ m/^\#\!\s*/) )  {
    
    if ($line =~ m/\b(exec|env)\s+([\'\"\`\\]+)?([^ \t\n\r]+)/) {
      $require{$3} = 1;
    }
    
    # strip off extra lines and any arguments
    if ($line =~ m/^\#\!\s*([^ \t\n\r]+)/) {
      $require{$1} = 1;
    }

  }

  close(FILE) ||
    die("$0: Could not close file: '$file' : $!\n");
  
  return ; 
}
@


1.1
log
@Initial revision
@
text
@@


1.1.1.1
log
@Import: RPM 3.0.4
@
text
@@