blob: 060b7b1feec335e9df1fddd331db5d914b0db910 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
#! /usr/bin/env perl
# alias-macro
# Alias an autoconf-archive macro
# Usage: alias-macro FROM TO
use strict;
use warnings;
my ($old_file, $new_file) = @ARGV;
# Extract names from file names
my $old_name = $old_file;
$old_name =~ s/\..*$//;
my $uc_old_name = uc($old_name);
$old_name = lc($old_name);
my $new_name = $new_file;
$new_name =~ s/\..*$//;
my $uc_new_name = uc($new_name);
$new_name = lc($new_name);
# Check old name exists
die "could not find `$old_file'\n" unless -e $old_file;
# Read new file
open IN, $new_file or die "could not read `$new_file'\n";
my $text = do { local $/, <IN> };
# Alias the macro
my $new_text = $text;
$new_text =~ s/^AC_DEFUN\(\[$uc_new_name/AU_ALIAS([$uc_old_name], [$uc_new_name])\nAC_DEFUN([$uc_new_name/m;
open OUTFILE, ">$new_file" or die "could not write `$new_file'";
print OUTFILE $new_text;
|
