cargo-template.pl

#!/usr/bin/env perl
use strict;
use warnings;

my $red = `tput setaf 1` . `tput bold`;
my $gold = `tput setaf 3`;
my $green = `tput setaf 2`;
my $bold = `tput bold`;
my $sgr0 = `tput sgr0`;
my $type;

if ( scalar(@ARGV) < 2 ) {
	printf "${red}error:${sgr0} the following required arguments were not provided:\n";
	printf "  ${green}<path>${sgr0}\n";
	printf "\nUSAGE:\n  cargo template [options] <path>\n";
	exit 1;
}

my $arg = $ARGV[1];
my $project = "";

if ( $arg eq "--lib" ) {
	$type = "lib";
} elsif ( $arg eq "--bin" ) {
	$type = "bin";
} elsif ( $arg eq "--help" ) {
	printf "\nUSAGE:
  cargo template [options] <path>
";
	printf "\nOPTIONS:
  --bin   use a binary executable template [default]
  --lib   use a library project template
  --help  print this help message and exit
";
	exit;
} else {
	if ( substr($arg, 0, 1) eq '-' ) {
		printf "${red}error:${sgr0} argument ${gold}${arg}${sgr0} isn't valid in this context\n";
		printf "did you mean: ${green}--lib${sgr0} or ${green}--bin${sgr0}\n";
		exit 1;
	}

	$project = $arg;
	$type = "bin";
}

$project = $ARGV[2] if $project eq "";

my $status = mkdir $project;
if ( $status != 1 ) {
	printf "${red}error:${sgr0} folder ${gold}${project}${sgr0} already exists\n";
	printf "$!";
	exit $!;
}

open(my $ctoml, ">", $project . "/Cargo.toml")
	or die "failed to open a file";

printf $ctoml "cargo-features = [\"edition2021\"]

[package]
name = \"${project}\"
version = \"0.1.0\"
edition = \"2021\"
authors = [\"Aodhnait Étaín <aodhneine\@pm.me>\"]
license = \"0BSD\"

[profile.dev]
debug = 0
";

close $ctoml;

mkdir $project . "/src"
	or die "failed to create folder";

if ( $type eq "lib" ) {
	open(my $librs, ">", $project . "/src/lib.rs")
		or die "failed to open file";
	# Please don't replace the tabs below in the string with spaces.
	printf $librs "#[cfg(test)]
mod tests {
	#[test]
	fn it_works() {
	}
}
";
	close $librs;

	printf "     ${green}${bold}Created${sgr0} library `$project` package\n";
} elsif ( $type eq "bin" ) {
	open(my $mainrs, ">", $project . "/src/main.rs")
		or die "failed to open file";
	printf $mainrs "pub fn main() {\n}\n";
	close $mainrs;

	printf "     ${green}${bold}Created${sgr0} binary `$project` package\n";
}