#!@PERL@ -w
# -*- perl -*-
# @configure_input@


use strict;

my $major;
my $majorn = -1;
my $minor;
my $desc;
my $simple_ver = 0;
my $perl_ver = 0;

if (@ARGV && $ARGV[0] eq '-v') {
  $simple_ver = 1;
  shift;
} elsif (@ARGV && $ARGV[0] eq '-p') {
  $perl_ver = 1;
  shift;
}

while (<>) {
    
    /^\s*\(Project-Description\s+"(.*)"\s*\)\s*/ and
	$desc = $1;
    /^\s*\(Project-Version\s+@PACKAGE@\s+(.+)\s+(\d+)\s*\)\s*/ and
	($major, $minor) = ($1, $2);
    /^\s*\(Project-Version\s+@PACKAGE@\s+(\d+)\s+(\d+)\s*\)\s*/ and
	$majorn = $1;

    last if defined $major && defined $minor && defined $desc;
}

if ($simple_ver) {
  print "$major.$minor";
} elsif ($perl_ver) {
  print "sub get_version() {\n",
        "  return \"$major.$minor\";\n",
        "}\n";
} else {
  print 
    "#ifndef _VERSION_CC\n",
    "#error Do not include version.h directly - use extern decls in aux-code.h instead\n",
    "#endif\n",
    "#define TC_VERSION_MAJOR_STR \"$major\"\n",
    "#define TC_VERSION_MINOR_STR \"$minor\"\n",
    "#define TC_VERSION_MAJOR $majorn\n",
    "#define TC_VERSION_MINOR $minor\n",
    "#define TC_DESCRIPTION_STR \"$desc\"\n";
}