#!/usr/bin/perl -w

unless ($#ARGV == 0)
{
   die "Syntax: $0 <Main Java file>\n";
}

my $file = $ARGV[0];
my $outfile = 'version.tex';

open FD, $file or die "Can't open '$file' $!\n";

my $version = '';

while (<FD>)
{
   if (/static\s+final\s+String\s+appversion\s*=\s*"(.*)"\s*;/i)
   {
      $version = $1;
      last;
   }
}

close FD;

unless ($version)
{
   warn "Couldn't find version number in '$file'\n";

   $version = "??";
}

open OUTFD, ">$outfile" or die "Can't open '$outfile'\n";

print OUTFD "\\version{$version}\n";

close OUTFD;

1;
