#!/usr/local/bin/perl
#
#	$NetBSD: tcpd2netbsd,v 1.2 1997/10/25 06:58:50 lukem Exp $
#
#  Perl script to convert a standard distribution directory for tcpdump into
#	a NetBSD source tree.
#
#  This is done as a script so that as each distribution is released,
#	only changes from the previous one need to be dealt with as
#	modifications to this script and related files.  This should
#	reduce the cost of updating from a new release of tcpdump by an
#	order of magnitude (or more?)
#
#  This script requires two environment variables set:
#	SRCDIR - tcpdump source directory
#	TARGETDIR - name of the high level directory to make
#
#  Written by Christos Zoulas Oct 2nd, 1997 for tcpdump-3.4a5
#

$version = "3.4a5";

# definitions ...

@subdirs = ("usr.sbin/tcpdump");



@tcpdf = ("addrtoname.c", "bpf_dump.c", "gmt2local.c", "machdep.c",
	  "parsenfsfh.c", "print-arp.c", "print-atalk.c", "print-atm.c",
	  "print-bootp.c", "print-decnet.c", "print-domain.c", "print-dvmrp.c",
	  "print-egp.c", "print-ether.c", "print-fddi.c", "print-gre.c",
	  "print-icmp.c", "print-igrp.c", "print-ip.c", "print-ipx.c",
	  "print-isoclns.c", "print-krb.c", "print-llc.c", "print-netbios.c",
	  "print-nfs.c", "print-ntp.c", "print-null.c", "print-ospf.c",
	  "print-pim.c", "print-ppp.c", "print-raw.c", "print-rip.c",
	  "print-sl.c", "print-snmp.c", "print-sunrpc.c", "print-tcp.c",
	  "print-tftp.c", "print-udp.c", "print-wb.c", "savestr.c",
	  "setsignal.c", "tcpdump.c", "util.c");

@tcpdhf = ("addrtoname.h", "appletalk.h", "bootp.h", "decnet.h",
	   "ethertype.h", "extract.h", "fddi.h", "gmt2local.h",
	   "gnuc.h", "igrp.h", "interface.h", "ipx.h", "llc.h",
	   "machdep.h", "mib.h", "netbios.h", "nfsfh.h", "nfsv2.h",
	   "ntp.h", "ospf.h", "ppp.h", "savestr.h", "setsignal.h");

@tcpdmf = ("tcpdump.8");
@tcpddf = ("CHANGES", "README", "makemib");
@tcpdaf = ("atime.awk", "send-ack.awk", "packetdat.awk", "stime.awk");


# sed edit list: file, sed-program
%sedlist = ();

#
# Utility Subroutines
#

sub makedir {
    system("mkdir -p @_");
}

# &fixrcs (fromfile, tofile);
sub fixrcs
{
    my ($f, $t) = @_;
    my @keywords = ("Author", "Date", "Header", "Id", "Locker", "Log",
		    "Name", "RCSfile", "Revision", "Source", "State");
    my $state = 0;
    my $hdr = 0;

    open(IFILE, "<$f") || die "Cannot open $f";
    open(OFILE, ">$t") || die "Cannot create $t";

    if ($t =~ /.*\.[0-9]/) {
	print OFILE '.\\" $', 'NetBSD',  '$', "\n.\\", "\n";
    }
    elsif ($t =~ /.*\.[ch]/) {
	print OFILE "/*\t", '$', 'NetBSD', '$', "\t*/\n\n";
    }
    elsif ($t =~ /.*\.[yl]/) {
	$hdr = 1;
    }
    else {
	print OFILE '$', 'NetBSD', '$', "\n";
    }
    while (<IFILE>) {
	if ($hdr == 1) {
	    if (/%{/) {
		print OFILE "%{\n/*\t", '$', 'NetBSD', '$', "\t*/\n\n";
		$hdr = 0;
		next;
	    }
	}
	if ($state == 2) {
	    if (/#endif/) {
		print OFILE "#else\n__RCSID(", '"$', 'NetBSD', '$"',
		    ");\n#endif\n";
		$state = 0;
	    }
	}
	if ($state == 1) {
	    print OFILE "#if 0\n";
	    $state = 2;
	}
	if (/#ifndef lint/) {
	    print OFILE "#include <sys/cdefs.h>\n";
	    $state = 1;
	}
	foreach $key (@keywords) {
	    s/\$$key\$/$key/g;
	    s/\$$key:(.*)\$/$key:$1/g;
	}
	print OFILE $_;
    }
    close(IFILE) || die "closing input file";
    close(OFILE) || die "closing output file";
}

# &copyfiles (fromdir, todir, list of files);
sub copyfiles {
    local ($fdir, $tdir, @list) = @_;
    local ($f);

    foreach $f (@list) {
	print "  $fdir/$f --> $tdir/$f\n";
	&fixrcs("$fdir/$f", "$tdir/$f");
    }
}

# &copyfile (fromfile, tofile);
sub copyfile {
    local ($f, $t) = @_;

    print "  $f --> $t\n";
    system ("cp $f $t");
}

sub uniq {
    local (@inlist) = @_;
    local (@outlist);

    @outlist = ($inlist[0]);
    for ( $i=1; $i < @inlist; $i++ ) {
	if ($inlist[$i] ne $inlist[$i-1]) {
	    push (@outlist, $inlist[$i]);
	}
    }

    @outlist;
}

sub dumpsrcs {
    local (@names) = @_;
    local ($count);

    $count = 0;
    while ($f = pop(@names)) {
        print ODATA "$f ";
	if ($count == 5 && @names > 0) {
	    print ODATA "\\\n";
	    $count = 0;
	} else {
	    $count += 1;
	}
    }
    if ($count != 0) {
	print ODATA "\n";
    }
}

#
# Main progarm.
# 

$srcdir = $ENV{'SRCDIR'};
$targetdir = $ENV{'TARGETDIR'};
$incdirs = "-I. -I$srcdir/config -I$srcdir";

if (!$srcdir | !targetdir) {
    die "You must define the environment variables SRCDIR and TARGETDIR.\n"
} 
print "Making the NetBSD directory tree.\n";
foreach $f (@subdirs) { 
    print "   -->$f\n";
    makedir ("$targetdir/$f");
}

print "Populating the usr.sbin/tcpdump directory.\n";
system("ln -s $srcdir/tcpdump.1 $srcdir/tcpdump.8");
&copyfiles ("$srcdir", "$targetdir/usr.sbin/tcpdump", @tcpdf, @tcpdhf, @tcpddf,
	    @tcpdmf, @tcpdaf);

#
# Build makefiles
#

$first = "True";
while ($line = <DATA>) {
    chop ($line);
    if (substr($line,0,2) eq "%%") {
	@cmd = split (/ /,$line);
	if ($cmd[1] eq "file") {
	    print "Building $targetdir/$cmd[2]\n";
	    if ($first eq "") {
		close (ODATA);
	    } else {
		$first = "";
	    }
	    open (ODATA, ">$targetdir/$cmd[2]") ||
		die "Could not create $targetdir/$cmd[2]";
	} elsif ($cmd[1] eq "awks") {
	    print "  Defining AWKS\n";
	    if ($first) {
		die "Data file must start with a %% file!";
	    }
	    print ODATA "AWKS=\t";
	    &dumpsrcs (@tcpdaf);
	} elsif ($cmd[1] eq "srcs") {
	    print "  Defining SRCS\n";
	    if ($first) {
		die "Data file must start with a %% file!";
	    }
	    print ODATA "SRCS=\t";
	    &dumpsrcs (@tcpdf);
	} elsif ($cmd[1] eq "man") {
	    print "  Defining MAN\n";
	    if ($first) {
		die "Data file must start with a %% file!";
	    }
	    print ODATA "MAN=\t";
	    &dumpsrcs (@tcpdmf);
	} elsif ($cmd[1] eq "version") {
	    print "  Defining VERSION\n";
	    print ODATA "char version[] = \"$version\";";
	} elsif ($cmd[1] eq "NetBSD") {
	    if ($first) {
		die "Data section must start with a %% file!";
	    }
	    print ODATA "$cmd[2]	\$"."NetBSD".": \$	$cmd[3]\n";
	}
    } else {
	if ($first) {
	    die "Data file must start with a %% file!";
	}
	print ODATA "$line\n";
    }
}    
close (ODATA);

#
# Sed transformations of files
#
foreach $n (keys(%sedlist)) {
    print "Modifying $n\n";
    system ("cd $targetdir; sed $sedlist{$n} $n > tmp;  mv -f tmp $n");
}

#
# end of the script
#

# what follows is the data for makefiles and other special files
# that need to be created.

__END__
%% file usr.sbin/tcpdump/Makefile
%% NetBSD #

WARNS?=	1
PROG=	tcpdump
%% man

CPPFLAGS+=-DHAVE_FCNTL_H=1 -DHAVE_MALLOC_H=1 -DHAVE_MEMORY_H=1
CPPFLAGS+=-DTIME_WITH_SYS_TIME=1 -DHAVE_NET_SLIP_H=1 -DHAVE_VFPRINTF=1
CPPFLAGS+=-DHAVE_STRCASECMP=1 -DHAVE_ETHER_NTOA=1 -DHAVE_SETLINEBUF=1
CPPFLAGS+=-DRETSIGTYPE=void -DRETSIGVAL= -DHAVE_SIGACTION=1
CPPFLAGS+=-DHAVE_SOCKADDR_SA_LEN=1 -DHAVE_FDDI

LDADD+=	-lpcap -ll
DPADD+=	${LIBPCAP} ${LIBL}

%% srcs
SRCS+= version.c

%% awks 

.include <bsd.prog.mk>
%% file usr.sbin/tcpdump/version.c
%% NetBSD /* */
%% version