Home | History | Annotate | Line # | Download | only in traceroute 
      1 #!/usr/local/bin/perl
      2 #
      3 #	$NetBSD: trrt2netbsd,v 1.4 1999/06/16 20:47:57 is Exp $
      4 #
      5 #  Perl script to convert a standard distribution directory for traceroute into
      6 #	a NetBSD source tree.
      7 #
      8 #  This is done as a script so that as each distribution is released,
      9 #	only changes from the previous one need to be dealt with as
     10 #	modifications to this script and related files.  This should
     11 #	reduce the cost of updating from a new release of traceroute by an
     12 #	order of magnitude (or more?)
     13 #
     14 #  This script requires two environment variables set:
     15 #	SRCDIR - traceroute source directory
     16 #	TARGETDIR - name of the high level directory to make
     17 #
     18 #  Written by Christos Zoulas Oct 2nd, 1997 for traceroute-1.4a5
     19 #
     20 
     21 $version = "1.4a5";
     22 
     23 # definitions ...
     24 
     25 @subdirs = ("usr.sbin/traceroute");
     26 
     27 @trrtf = ("ifaddrlist.c", "savestr.c", "traceroute.c");
     28 
     29 @trrthf = ("gnuc.h", "ifaddrlist.h", "savestr.h");
     30 
     31 @trrtmf = ("traceroute.8");
     32 @trrtdf = ("CHANGES", "README");
     33 @trrtaf = ("mean.awk", "median.awk");
     34 
     35 
     36 # sed edit list: file, sed-program
     37 %sedlist = ();
     38 
     39 #
     40 # Utility Subroutines
     41 #
     42 
     43 sub makedir {
     44     system("mkdir -p @_");
     45 }
     46 
     47 # &fixrcs (fromfile, tofile);
     48 sub fixrcs
     49 {
     50     my ($f, $t) = @_;
     51     my @keywords = ("Author", "Date", "Header", "Id", "Locker", "Log",
     52 		    "Name", "RCSfile", "Revision", "Source", "State");
     53     my $state = 0;
     54     my $hdr = 0;
     55 
     56     open(IFILE, "<$f") || die "Cannot open $f";
     57     open(OFILE, ">$t") || die "Cannot create $t";
     58 
     59     if ($t =~ /.*\.[0-9]/) {
     60 	print OFILE '.\\" $', 'NetBSD',  '$', "\n.\\\"", "\n";
     61     }
     62     elsif ($t =~ /.*\.[ch]/) {
     63 	print OFILE "/*\t", '$', 'NetBSD', '$', "\t*/\n\n";
     64     }
     65     elsif ($t =~ /.*\.[yl]/) {
     66 	$hdr = 1;
     67     }
     68     else {
     69 	print OFILE '$', 'NetBSD', '$', "\n";
     70     }
     71     while (<IFILE>) {
     72 	if ($hdr == 1) {
     73 	    if (/%{/) {
     74 		print OFILE "%{\n/*\t", '$', 'NetBSD', '$', "\t*/\n\n";
     75 		$hdr = 0;
     76 		next;
     77 	    }
     78 	}
     79 	if ($state == 2) {
     80 	    if (/#endif/) {
     81 		print OFILE "#else\n__RCSID(", '"$', 'NetBSD', '$"',
     82 		    ");\n#endif\n";
     83 		$state = 0;
     84 	    }
     85 	}
     86 	if ($state == 1) {
     87 	    print OFILE "#if 0\n";
     88 	    $state = 2;
     89 	}
     90 	if (/#ifndef lint/) {
     91 	    print OFILE "#include <sys/cdefs.h>\n";
     92 	    $state = 1;
     93 	}
     94 	foreach $key (@keywords) {
     95 	    s/\$$key\$/$key/g;
     96 	    s/\$$key:(.*)\$/$key:$1/g;
     97 	}
     98 	print OFILE $_;
     99     }
    100     close(IFILE) || die "closing input file";
    101     close(OFILE) || die "closing output file";
    102 }
    103 
    104 # &copyfiles (fromdir, todir, list of files);
    105 sub copyfiles {
    106     local ($fdir, $tdir, @list) = @_;
    107     local ($f);
    108 
    109     foreach $f (@list) {
    110 	print "  $fdir/$f --> $tdir/$f\n";
    111 	&fixrcs("$fdir/$f", "$tdir/$f");
    112     }
    113 }
    114 
    115 # &copyfile (fromfile, tofile);
    116 sub copyfile {
    117     local ($f, $t) = @_;
    118 
    119     print "  $f --> $t\n";
    120     system ("cp $f $t");
    121 }
    122 
    123 sub uniq {
    124     local (@inlist) = @_;
    125     local (@outlist);
    126 
    127     @outlist = ($inlist[0]);
    128     for ( $i=1; $i < @inlist; $i++ ) {
    129 	if ($inlist[$i] ne $inlist[$i-1]) {
    130 	    push (@outlist, $inlist[$i]);
    131 	}
    132     }
    133 
    134     @outlist;
    135 }
    136 
    137 sub dumpsrcs {
    138     local (@names) = @_;
    139     local ($count);
    140 
    141     $count = 0;
    142     while ($f = pop(@names)) {
    143         print ODATA "$f ";
    144 	if ($count == 5 && @names > 0) {
    145 	    print ODATA "\\\n";
    146 	    $count = 0;
    147 	} else {
    148 	    $count += 1;
    149 	}
    150     }
    151     if ($count != 0) {
    152 	print ODATA "\n";
    153     }
    154 }
    155 
    156 #
    157 # Main program.
    158 # 
    159 
    160 $srcdir = $ENV{'SRCDIR'};
    161 $targetdir = $ENV{'TARGETDIR'};
    162 $incdirs = "-I. -I$srcdir/config -I$srcdir";
    163 
    164 if (!$srcdir | !targetdir) {
    165     die "You must define the environment variables SRCDIR and TARGETDIR.\n"
    166 } 
    167 print "Making the NetBSD directory tree.\n";
    168 foreach $f (@subdirs) { 
    169     print "   -->$f\n";
    170     makedir ("$targetdir/$f");
    171 }
    172 
    173 print "Populating the usr.sbin/traceroute directory.\n";
    174 &copyfiles ("$srcdir", "$targetdir/usr.sbin/traceroute", @trrtf, @trrthf, @trrtdf,
    175 	    @trrtmf, @trrtaf);
    176 
    177 #
    178 # Build makefiles
    179 #
    180 
    181 $first = "True";
    182 while ($line = <DATA>) {
    183     chop ($line);
    184     if (substr($line,0,2) eq "%%") {
    185 	@cmd = split (/ /,$line);
    186 	if ($cmd[1] eq "file") {
    187 	    print "Building $targetdir/$cmd[2]\n";
    188 	    if ($first eq "") {
    189 		close (ODATA);
    190 	    } else {
    191 		$first = "";
    192 	    }
    193 	    open (ODATA, ">$targetdir/$cmd[2]") ||
    194 		die "Could not create $targetdir/$cmd[2]";
    195 	} elsif ($cmd[1] eq "awks") {
    196 	    print "  Defining AWKS\n";
    197 	    if ($first) {
    198 		die "Data file must start with a %% file!";
    199 	    }
    200 	    print ODATA "AWKS=\t";
    201 	    &dumpsrcs (@trrtaf);
    202 	} elsif ($cmd[1] eq "srcs") {
    203 	    print "  Defining SRCS\n";
    204 	    if ($first) {
    205 		die "Data file must start with a %% file!";
    206 	    }
    207 	    print ODATA "SRCS=\t";
    208 	    &dumpsrcs (@trrtf);
    209 	} elsif ($cmd[1] eq "man") {
    210 	    print "  Defining MAN\n";
    211 	    if ($first) {
    212 		die "Data file must start with a %% file!";
    213 	    }
    214 	    print ODATA "MAN=\t";
    215 	    &dumpsrcs (@trrtmf);
    216 	} elsif ($cmd[1] eq "version") {
    217 	    print "  Defining VERSION\n";
    218 	    print ODATA "char version[] = \"$version\";";
    219 	} elsif ($cmd[1] eq "NetBSD") {
    220 	    if ($first) {
    221 		die "Data section must start with a %% file!";
    222 	    }
    223 	    print ODATA "$cmd[2]	\$"."NetBSD".": \$	$cmd[3]\n";
    224 	}
    225     } else {
    226 	if ($first) {
    227 	    die "Data file must start with a %% file!";
    228 	}
    229 	print ODATA "$line\n";
    230     }
    231 }    
    232 close (ODATA);
    233 
    234 #
    235 # Sed transformations of files
    236 #
    237 foreach $n (keys(%sedlist)) {
    238     print "Modifying $n\n";
    239     system ("cd $targetdir; sed $sedlist{$n} $n > tmp;  mv -f tmp $n");
    240 }
    241 
    242 #
    243 # end of the script
    244 #
    245 
    246 # what follows is the data for makefiles and other special files
    247 # that need to be created.
    248 
    249 __END__
    250 %% file usr.sbin/traceroute/Makefile
    251 %% NetBSD #
    252 
    253 WARNS?=	1
    254 PROG=	traceroute
    255 %% man
    256 
    257 CPPFLAGS+=-DHAVE_MALLOC_H=1 -DHAVE_SYS_SELECT_H=1 -DHAVE_SYS_SOCKIO_H=1
    258 CPPFLAGS+=-DHAVE_STRERROR=1 -DHAVE_SETLINEBUF=1 -DHAVE_SOCKADDR_SA_LEN=1 
    259 CPPFLAGS+=-DHAVE_RAW_OPTIONS=1
    260 
    261 BINOWN= root
    262 BINMODE=4555
    263 
    264 %% srcs
    265 SRCS+= version.c
    266 
    267 %% awks 
    268 
    269 .include <bsd.prog.mk>
    270 %% file usr.sbin/traceroute/version.c
    271 %% NetBSD /* */
    272 %% version
    273