head	1.1;
access;
symbols
	rpm-4_4_8-release:1.1
	rpm-4_4_7-release:1.1
	rpm-4_4_6-release:1.1
	rpm-4_4_5-release:1.1
	rpm-4_4_4-release:1.1
	rpm-4_4_3-release:1.1
	jbj_before_tklcpatches:1.1
	rpm-4_4_2-release:1.1
	pjones-sparse-experiment:1.1.0.12
	rpm-4_4_1-release:1.1
	rpm-4_4-release:1.1
	rpm-4_4:1.1.0.10
	rpm-4_3_1-start:1.1
	rpm-4_3:1.1.0.8
	rpm-4_2_1-release:1.1
	rpm-4_1_1-release:1.1
	rpm-4_2-release:1.1
	rpm-4_2:1.1.0.6
	rpm-4_1-release:1.1
	rpm-4_1:1.1.0.4
	rpm-4_0_4-release:1.1.2.1
	jbj-before-beecrypt:1.1.2.1
	rpm-4_0_3-release:1.1.2.1
	jbj_b4_rollback:1.1.2.1
	rpm-4_0:1.1.0.2;
locks; strict;
comment	@# @;


1.1
date	2001.03.15.13.58.16;	author jbj;	state Exp;
branches
	1.1.2.1;
next	;

1.1.2.1
date	2001.03.15.18.33.22;	author jbj;	state Exp;
branches;
next	;


desc
@@


1.1
log
@Updated dependency scripts (#20295).
@
text
@#!/usr/bin/perl

# a glue program for print out dependencies based on filenames
# by Ken Estes kestes@@staff.mail.com

use File::Basename;
use Getopt::Long;


GetOptions (	
	    qw( identifier=s 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($_);
  }
}

sub process_file {
  my ($str) = @@_;
  chomp $str;

  if ($opt_basename) {
    $str = basename($str);
  }

  if ($opt_identifier) {
    print "${opt_identifier}(${str})\n";
  } else {
    print "$str\n";
  }

  return ;
}

@


1.1.2.1
log
@Orphans.
@
text
@@

