#!/usr/bin/perl
# SPDX-License-Identifier: Apache-2.0
# Copyright (c) 2012-2024 Scott Penrose <scottp@dd.com.au> and WII5 Buoy contributors
#
# This file is part of WII5 Buoy firmware.
# See LICENSE for full terms.


my $ver = $ARGV[0];
@BITS = split(/\./, $ver);
$BITS[0] = substr($BITS[0],1);
#print join("\n", @BITS) . "\n";

my $newval = (65536 * $BITS[0]);
$newval = $newval + (256 * $BITS[1]);
$newval = $newval + $BITS[2];
print $newval . "\n";

__END__
if ($ver =~ /(\d+)\.(\d+)\.(\d+)/) {
  my $p1 = $1+0; my $p2 = $2+0; my $p3 = $3+0;
  print "$p1 $p2 $p3\n";
  my $F1 = $p1*(2^16);
  print $F1 . "\n";
  my $F2 = $p2*(2^8);
  print "$F1 $F2 $F3\n";
  my $F3 = $p3;
  print "$F1 $F2 $F3\n";
  print "$F1 $F2 $F3\n";
  my $ver = $F1 + $F2 + $F3;

  $ver = ($p1*(2^16))+($p2*(2^8))+$p3;
  print $ver . "\n";
}
else {
  $ver = 0;
}