debian/upstream-version


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

#!/usr/bin/perl -w

use strict;
use English;

open(my $config_file, '<', 'configure.ac')
    or die "cannot open configure.ac: $!";

my $version = '';
my $found_init = 0;
while (<$config_file>)
{
  if(/^AC_INIT\(GNU Emacs,\s*(\d+\.\d+(\.\d+)?)\s*\,.*/o)
  {
    $found_init and die 'found duplicate AC_INIT() in configure.ac';
    $version = $1;
    $found_init = 1;
  }
}

$found_init or die 'no AC_INIT() found in configure.ac';
print "$version\n";