1#! /usr/bin/perl
2
3use strict;
4use warnings;
5
6my $prog = $0;
7$prog =~ s/\.t$// or die "invalid prog name";
8
9my $src = "$prog.c";
10
11$prog =~ /\// or $prog = "./$prog";
12
13my $cc      = 'gcc';
14my $cflags  = '-I. -I..';
15my $ldflags = '-L. -L..';
16my $ldlibs  = '-lunijp';
17
18my $cmd = "$cc $cflags $ldflags $src $ldlibs -o $prog && $prog";
19my $r = system($cmd);
20if( $r!=0 )
21{
22  my $signo = $? & 127;
23  my $xval  = $? >> 8;
24  $signo and die "system: signal $signo <<$cmd>>";
25  $xval  and die "system: exit $xval <<$cmd>>";
26}
27