mdiluz/ttrts-players
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update to 0.0.1 version system for main ttrts client and check versions

Browse source
This commit is contained in:
mdiluzio 2014-12-20 17:17:04 +00:00
parent 2d5f34559c
commit 63a8f61467
1 changed files with 33 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
perl/ttrts.pm
View file

@ -2,6 +2,9 @@
use strict;
use warnings;
our $ttrts_perlai_versioncompat_major = 0;
our $ttrts_perlai_versioncompat_minor = 0;
# Get information about a unit from it's descriptor
sub getUnit
{
@ -17,23 +20,41 @@ sub GetUnitsForTurn
open (my $TURNHANDLE, '<', $turnFile) or die "Could not open '$turnFile' $!";
# Skip the header information
my $headerLine = <$TURNHANDLE>;
my $sizeLine = <$TURNHANDLE>;
my $turnLine = <$TURNHANDLE>;
( <$TURNHANDLE> =~ /~~~~/ ) or die "Gamestate file did not match expected format";
my $num = 0;
while( !( <$TURNHANDLE> =~ /~~~~/ ) )
{
$num++;
$num > 20 and die "gamestate file did not reach ~~~~ line within 10 lines";
}
my @units;
while( my $unitLine = <$TURNHANDLE> )
{
chomp $unitLine;
if( !($unitLine eq "END") )
{
push(@units,$unitLine);
}
}
close $TURNHANDLE;
return @units;
}
# Check version numbers against ttrts.pm version
sub checkVersion
{
my $version_major = shift;
my $version_minor = shift;
if( ($version_major != $ttrts_perlai_versioncompat_major)
or ($version_minor != $ttrts_perlai_versioncompat_minor) )
{
printf "ttrts.pm version does not match with this ttrts version\n";
die "ttrts.pm = v$ttrts_perlai_versioncompat_minor.$ttrts_perlai_versioncompat_major ttrts = v$version_major.$version_minor";
}
}
# Get information from the header for this turn
sub GetHeaderForTurn
{
@ -45,15 +66,18 @@ sub GetHeaderForTurn
# Pull in the header information
my $headerLine = <$TURNHANDLE>;
chomp $headerLine;
my $nameLine = <$TURNHANDLE>;
chomp $nameLine;
my $sizeLine = <$TURNHANDLE>;
chomp $sizeLine;
my $turnLine = <$TURNHANDLE>;
chomp $turnLine;
my ($gameName) = ( $headerLine =~ /===== ([^ ]+) =====/ );
my ($gameX,$gameY) = ( $sizeLine =~ /SIZE:\[(\d+),(\d+)\]/ );
my ($version_major,$version_minor) = ( $headerLine =~ /==== ttrts v(\d+)\.(\d+)\.\d+ ====/ );
checkVersion $version_major,$version_minor;
( <$TURNHANDLE> =~ /~~~~/ ) or die "Gamestate file did not match expected format";
my ($gameName) = ( $nameLine =~ /NAME:(.+)/ );
my ($gameX,$gameY) = ( $sizeLine =~ /SIZE:\[(\d+),(\d+)\]/ );
close $TURNHANDLE;
@ -111,6 +135,7 @@ sub OutputCommandsFile
{
open(my $cmdFile, '>', $cmdFileName) or die "Couldn't open '$cmdFileName' $!";
print $cmdFile $commands;
print $cmdFile "END";
close $cmdFile;
printf "Outputted $cmdFileName\n";