brmlab/brmlife
4
0
Fork 0
mirror of https://github.com/brmlab/brmlife.git synced 2025-08-02 09:53:38 +02:00
Code Issues Projects Releases Packages Wiki Activity

client/example: More succint type testing

Browse source
This commit is contained in:
Petr Baudis 2011-12-03 19:56:37 +01:00
parent 3d0fd3ab94
commit 22b2408ba2
1 changed files with 3 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

18
client/example.pl
View file

@ -40,27 +40,15 @@ sub tick($) {
my ($type, $value) = ($1, $2);
if ($type eq 'tick') {
if ($value =~ /\D/) {
print "[ee] type tick wrong value\n";
print $value . "\n";
exit(-1);
}
$value =~ /^\d+$/ or die "[ee] type tick wrong value ($value)\n";
$state{tick} = $value;
} elsif ($type eq 'energy') {
if ($value =~ /\D/) {
print "[ee] type energy wrong value\n";
print $value . "\n";
exit(-1);
}
$value =~ /^\d+$/ or die "[ee] type energy wrong value ($value)\n";
$state{energy} = $value;
} elsif ($type eq 'visual') {
if ($value !~ /^([^ ][^ ] )+([^ ][^ ])$/) {
print "[ee] type visual wrong value\n";
print $value . "\n";
exit(-1);
}
$value =~ /^([^ ][^ ] )+([^ ][^ ])$/ or die "[ee] type visual wrong value ($value)\n";
$state{visual} = [ split(" ", $value) ];
}
}