Commit f47353a6 authored by dnt's avatar dnt
Browse files

[project @ 1996-11-26 13:02:03 by dnt]

parent 334e7e63
#! /usr/local/bin/perl
#
# glue all the (e)TAGS files named on the command line
# into one big TAGS file here; main task: unrelativize the
# file names.
#
open (TAGS, "> TAGS") || die "can't open TAGS file for writing\n";
foreach $f (@ARGV) {
open(INF, "< $f") || die "can't open $f for reading\n";
$f =~ s/\/?TAGS$//;
while (<INF>) {
print TAGS $_;
next if ! /^\f$/;
# otherwise, next line is filename; de-relativise it
$_ = <INF>;
die "unexpected file line:$_" if /^\f/ || /\x7f/; # sanity check
if (/^\//) { # absolute already; do nothing...
print TAGS $_;
} else {
print TAGS "$f/$_";
}
}
close(INF);
}
close(TAGS);
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment