Radix cross Linux Build System

Index: _kxLab.pm
===================================================================
--- _kxLab.pm	(nonexistent)
+++ _kxLab.pm	(revision 5)
@@ -0,0 +1,72 @@
+
+use File::Basename;
+
+use strict;
+use warnings FATAL => 'all';
+
+my $path = dirname( __FILE__ );
+
+package _kxLab;
+
+
+sub distro_name
+{
+  my $name = "kxLab";
+
+  open( FILE, "< $path/constants.mk" );
+
+  while( <FILE> )
+  {
+    if( /^DISTRO_NAME(.+= +)(.+)/ )
+    {
+      $name = $2;
+    }
+  }
+  close( FILE );
+
+  return $name;
+}
+
+sub build_system_tmpdir
+{
+  return $path . "/var/tmp";
+}
+
+sub build_system_path
+{
+  return $path;
+}
+
+sub error
+{
+  my $message = shift;
+  my $func = shift;
+
+  print STDERR "Error: $message\n";
+  if( defined( $func ) )
+  {
+    &$func();
+  }
+  exit 1;
+}
+
+sub command_error
+{
+  my $command = shift;
+  my $context = shift;
+
+  error( "$command failed at @{$context}[1] line @{$context}[2]" );
+}
+
+sub system
+{
+  my $command = shift;
+
+  if( system( $command ) )
+  {
+    my @context = caller;
+    command_error($command, \@context);
+  }
+}
+
+1;