Rename Mage to mgear, a less common and thus less confusable name.

[mgear/mgear.git] / experiments / genrecord

#!/usr/bin/perl
# FIX: Should use perl from path
# genrecord: make an mgear genfile
# { gcc prog.c -o prog.tmp; echo $?; } 2>&1 | genrecord prog 'gcc prog.c -o prog.tmp'

sub mqas($) {
	my $s = $_[0];
	$s =~ s/\$/\$\$/g;
	$s =~ s/\n/\$(nl)/g;
	return $s;
}
sub fmtMakeAssignment($$) {
	my ($n, $v) = @_;
	$v = mqas($v);
	return "$n:=\$(empty)$v";
}

my ($target, $cmd) = @ARGV;

my @errorLines = <STDIN>;
my $exitCode = 0;
if ($errorLines[$#errorLines] =~ /^(\d+)$/) {
	chomp($exitCode = pop @errorLines);
}
my $errorText = join '', @errorLines;

my $genfileText = fmtMakeAssignment("cmd-$target", $cmd) . "\n";
	. fmtMakeAssignment("errors-$target", $errorText) . "\n"
	. fmtMakeAssignment("exitcode-$target", $exitCode) . "\n";

open GENFILE, '>', "$target.g.tmp" and print GENFILE $genfileText and close GENFILE or die;