#!/usr/bin/env perl

use warnings;

# Incoming arguments
my $sourceFile	= $ARGV[0];
my $destFile	= $ARGV[1];
my $varName		= $ARGV[2];

# Read in the source file
open INPUT, "$destFile"
	or die "Could not open output file \"$destFile\": $!";
print OUTPUT "alignas(16) unsigned char ${varName}[] = \n{\n\t$cArray\n};\n";
print OUTPUT "unsigned int ${varName}_length = $length;\n";
close OUTPUT;