#! /usr/bin/perl -w

my $glibc_triplet = $ARGV[0];

if(!defined($glibc_triplet))
{
	die "Missing triplet as argument";
}

my $uclibc_triplet = $glibc_triplet;
$uclibc_triplet =~ s/([[:alnum:]]*)-([[:alnum:]]*)-gnu(.*)/$1-$2-uclibc$3/;

if($glibc_triplet eq $uclibc_triplet)
{
	die "Input triplet could not be translated";
}

print $uclibc_triplet;
