#!/usr/bin/env perl
use strict;
use warnings;
no warnings 'syntax';  # if assignment

use List::Util 'first';
use File::Basename 'dirname';

chdir dirname $0;

my $convbin = './mkttfinfo';
my $outdir = '../ttfsupport';
my @ttfpath = '~/.fonts';  # local fallbacks

if (my $mspath = '/usr/share/fonts/truetype/msttcorefonts') {
	if (my $src = first { -e } map { glob "$_/Verdana.ttf" } $mspath, @ttfpath) {
		system $convbin, $src, "$outdir/verdana.inc.pl";
	}
	if (my $src = first { -e } map { glob "$_/Times_New_Roman.ttf" } $mspath, @ttfpath) {
		system $convbin, $src, "$outdir/times.inc.pl";
	}
	if (my $src = first { -e } map { glob "$_/Arial.ttf" } $mspath, @ttfpath) {
		system $convbin, $src, "$outdir/arial.inc.pl";
	}
	if (my $src = first { -e } map { glob "$_/Courier_New.ttf" } $mspath, @ttfpath) {
		system $convbin, $src, "$outdir/courier.inc.pl";
	}
	if (my $src = first { -e } map { glob "$_/Comic_Sans_MS.ttf" } $mspath, @ttfpath) {
		system $convbin, $src, "$outdir/comic.inc.pl";
	}
	if (my $src = first { -e } map { glob "$_/Georgia.ttf" } $mspath, @ttfpath) {
		system $convbin, $src, "$outdir/georgia.inc.pl";
	}
}

if (my $dvpath = '/usr/share/fonts/truetype/ttf-dejavu') {
	if (my $src = first { -e } map { glob "$_/DejaVuSans.ttf" } $dvpath, @ttfpath) {
		system $convbin, $src, "$outdir/dvsans.inc.pl";
	}
	if (my $src = first { -e } map { glob "$_/DejaVuSerif.ttf" } $dvpath, @ttfpath) {
		system $convbin, $src, "$outdir/dvserif.inc.pl";
	}
	if (my $src = first { -e } map { glob "$_/DejaVuSansMono.ttf" } $dvpath, @ttfpath) {
		system $convbin, $src, "$outdir/dvmono.inc.pl";
	}
}

if (my $gdpath = '/usr/share/fonts/truetype/droid') {
	if (my $src = first { -e } map { glob "$_/DroidSans.ttf" } $gdpath, @ttfpath) {
		system $convbin, $src, "$outdir/droidsans.inc.pl";
	}
	if (my $src = first { -e } map { glob "$_/DroidSerif.ttf" } $gdpath, @ttfpath) {
		system $convbin, $src, "$outdir/droidserif.inc.pl";
	}
	if (my $src = first { -e } map { glob "$_/DroidSansMono.ttf" } $gdpath, @ttfpath) {
		system $convbin, $src, "$outdir/droidmono.inc.pl";
	}
}

{
	if (my $src = first { -e } map { glob "$_/code2000.ttf" } @ttfpath) {
		system $convbin, $src, "$outdir/c2k.inc.pl";
	}
	if (my $src = first { -e } map { glob "$_/arial*uni*.ttf" } @ttfpath) {
		system $convbin, $src, "$outdir/ariuni.inc.pl";
	}
}

if (my $gupath = '/usr/share/fonts/truetype/unifont') {
	if (my $src = first { -e } map { glob "$_/unifont.ttf" } $gupath, @ttfpath) {
		system $convbin, $src, "$outdir/unifont.inc.pl";
	}
}