#!/usr/pkg/bin/perl
# $Header: /home/makoto/perl/pkgsrc/RCS/depends,v 1.2 2002/01/07 09:28:39 makoto Exp $
use strict;

my $PKGSRC = '/export/pkgsrc';

open(PKG_INFO,"pkg_info|");
while(<PKG_INFO>) {
    my ($pkg,$comment) = split;
    my @pkg = split('-', $pkg);
    my $version = pop(@pkg);
    my $pkgname = join('-',@pkg);
    my $pkgsrc = $PKGSRC.'/*/'.$pkgname;
       $pkgsrc =~ s/\+$//;
       $pkgsrc =~ s/FreeWnn/freewnn/;
       $pkgsrc =~ s/Canna/canna/;
       $pkgsrc =~ s#/ja-#/#;
       $pkgsrc =~ s#/perl#/perl5#;
       $pkgsrc =~ s#/cross-#/#;
       $pkgsrc =~ s#/mgetty#/mgetty*#;
       $pkgsrc =~ s#/ap-php#/ap-php*#;
       $pkgsrc =~ s#/namazu#/namazu*#;
       $pkgsrc =~ s#/php/#/php?/#;
       $pkgsrc =~ s#/mpeg/#/mpeg_play/#;
    my $ok;
    my $lsdir = `ls -d $pkgsrc| grep -v /distfiles/`; 
    my @lsdir = split('\n',$lsdir);
    my $dir   = $lsdir[0];
    chomp($dir);
    my @cand = map { my @path = split('/',$_); 
                     my $path = '../../'. $path[3].'/'.$path[4].'/'."\n" } @lsdir;
    print 
	"DEPENDS += $pkgname" . '>=' .$version. ':';
    if     ( $#lsdir == 0  ) {
	print $cand[0]      ; } # just one
    else { ##  ( $#lsdir  > 0  ) {
	print "\n", @cand; }
}