Kaleidoscope/bin/build-arduino-package

#!/usr/bin/env perl

###################
################### This tool is horribly written.
################### It is a bloody hack.
################### It should be refactored. But it seems to kind of work
###################
###################

my $executed_as = join(' ', @ARGV);

use warnings;
use strict;
use File::Temp qw/tempdir/;
use Cwd qw/abs_path cwd/;
use JSON;
      use Getopt::Long;

my $sha256 = 0;
my $size   = 0;

my $version = '';
my $tag              =  'master';
my $kaleidoscope_tag =  'master';
my $temp_dir         = tempdir( CLEANUP => 0 );
my $index_filename_slug  ='keyboardio';

my $only_latest_platform = 0;

my $bundle_repo = 'https://github.com/keyboardio/Kaleidoscope-Bundle-Keyboardio';
my $boards_repo = 'https://github.com/keyboardio/boardsmanager';




      GetOptions ("bundle-tag=s" => \$tag,
		  "kaleidoscope-tag=s" => \$kaleidoscope_tag,
		  "bundle-repo=s" => \$bundle_repo,
		  "output-repo=s" => \$boards_repo,
		  "index-filename-slug=s" => \$index_filename_slug,
		  "version=s" => \$version,
		  "only-one-platform-revision" => \$only_latest_platform		
)
      or die("Error in command line arguments\n");

my $index_filename = 'package_'.$index_filename_slug.'_index.json';

if ( $version eq '' && $tag =~ /^v(\d.*)$/ ) {
    $version = $1;
}

my $checkout_dir     = "Kaleidoscope-$tag";
my $filename         = $checkout_dir . ".tar.bz2";

my $build_base_url = $boards_repo."/master/builds/";
$build_base_url =~ s/github.com/raw.githubusercontent.com/;


my @bundle_dirs_to_remove = qw|toolchain etc doc avr/build-tools|;

chdir($temp_dir);

`git clone --depth=1 --quiet --recurse-submodules --branch $tag $bundle_repo $checkout_dir`;
`git clone $boards_repo boardsmanager`;


chdir($checkout_dir);
foreach my $dir_to_remove (@bundle_dirs_to_remove) {
    `rm -rf $dir_to_remove`;
}

chdir("avr/libraries/Kaleidoscope");
`git checkout --quiet $kaleidoscope_tag`;

if ( -d 'plugins') { 
chdir("plugins");
# move the plugins to where they should live
`mv * ../../`;
}

set_plugin_versions();


chdir($temp_dir);
`mv $checkout_dir/avr $checkout_dir/$checkout_dir`
  ;    # A hack to get consistent naming with the old setup
`find $checkout_dir -name .git |xargs rm -rf`;
`tar cjvf $filename -C $checkout_dir/ $checkout_dir `;

$sha256 = `sha256sum $filename | cut -d' ' -f 1 `;
chomp($sha256);
die "There was a problem generating the sha256" unless ($sha256);

$size = -s $filename;
`mkdir -p boardsmanager/builds`;
if ($only_latest_platform) {
`rm -rf boardsmanager/builds/*`;
}
`cp $filename boardsmanager/builds/`;

my $platform_template = {
    'archiveFileName'   => $filename,
    'toolsDependencies' => [
        {
            "packager" => "arduino",
            "name"     => "avr-gcc",
            "version"  => "7.3.0-atmel3.6.1-arduino7"
        },
        {
            "packager" => "arduino",
            "name"     => "avrdude",
            "version"  => "6.3.0-arduino17"
        }
    ],
    'url'      => $build_base_url . '/' . $filename,
    'name'     => "Kaleidoscope keyboards - nightly builds",
    'version'  => $version,
    'checksum' => 'SHA-256:' . $sha256,
    'size'     => $size,
    'boards'   => [
        { 'name' => 'Keyboardio Model 01' }, { 'name' => 'Keyboardio Atreus' }
    ],
    'architecture' => 'avr',
    'category'     => 'Contributed',
    'help'         => {
        'online' => 'https://community.keyboard.io'
    }
};

my $json = JSON->new->allow_nonref;
local $/;
open( my $fh, '<', 'boardsmanager/'.$index_filename) || die "Could not open boardsmanager/$index_filename $!";
my $json_text = <$fh>;
my $data      = from_json($json_text);
if ($only_latest_platform) {
@{ $data->{'packages'}->[0]->{'platforms'} } = ( $platform_template);
} else {
push @{ $data->{'packages'}->[0]->{'platforms'} }, $platform_template;
}
my $json_out = $json->canonical->pretty->encode($data);
open( my $out_fh, '>',  'boardsmanager/'.$index_filename);
print $out_fh $json_out;
close($out_fh);
chdir('boardsmanager');
`git add $index_filename`;
`git add builds`;
`git commit -a -m 'Built by $executed_as'`;
print
"Now, you need to cd to $temp_dir/boardsmanager check the content and push it\n";



sub set_plugin_versions {
	chdir("$temp_dir/$checkout_dir/avr/libraries");
	`perl -pi -e's/version=0.0.0/version=$version/' */library.properties`
}