ACE/bin/PerlACE/TestTarget_VxWorks.pm

   1 #!/usr/bin/env perl
   2
   3 package PerlACE::TestTarget_VxWorks;
   4
   5 # ******************************************************************
   6 # Description : Creates a PerlACE::ProcessVX
   7 # Author      : Chad Elliott
   8 # Create Date : 6/20/2008
   9 # ******************************************************************
  10
  11 # ******************************************************************
  12 # Pragma Section
  13 # ******************************************************************
  14 use PerlACE::TestTarget;
  15
  16 use strict;
  17
  18 use PerlACE::ProcessVX;
  19 use Cwd;
  20 use English;
  21
  22 our @ISA = qw(PerlACE::TestTarget);
  23
  24 # ******************************************************************
  25 # Subroutine Section
  26 # ******************************************************************
  27
  28 sub LocalFile {
  29     my($self, $file) = @_;
  30     if (defined $ENV{'ACE_TEST_VERBOSE'}) {
  31         print STDERR "LocalFile is $file\n";
  32     }
  33     return $file;
  34 }
  35
  36 sub AddLibPath ($) {
  37     my $self = shift;
  38     my $dir = shift;
  39     if (defined $ENV{'ACE_TEST_VERBOSE'}) {
  40         print STDERR "Adding libpath $dir\n";
  41     }
  42     PerlACE::add_lib_path ($dir);
  43 }
  44
  45 sub CreateProcess {
  46     my $self = shift;
  47     my $process = new PerlACE::ProcessVX (@_);
  48     $process->{TARGET} = $self;
  49     return $process;
  50 }
  51
  52 # Need a reboot when this target is destroyed.
  53 sub NeedReboot ($)
  54 {
  55     my $self = shift;
  56     $self->{REBOOT_NEEDED} = 1;
  57 }
  58
  59 # Reboot target
  60 sub RebootNow ($)
  61 {
  62     my $self = shift;
  63     $self->{REBOOT_NEEDED} = undef;
  64     print STDERR "Attempting to reboot target...\n";
  65     reboot ();
  66 }
  67
  68 sub WaitForFileTimed ($)
  69 {
  70     my $self = shift;
  71     my $file = shift;
  72     my $timeout = shift;
  73     my $cwdrel = $file;
  74     my $prjroot = defined $ENV{'ACE_RUN_VX_PRJ_ROOT'} ? $ENV{'ACE_RUN_VX_PRJ_ROOT'}  : $ENV{'ACE_ROOT'};
  75     if (length ($cwdrel) > 0) {
  76         $cwdrel = File::Spec->abs2rel( cwd(), $prjroot );
  77     }
  78     else {
  79         $cwdrel = File::Spec->abs2rel( $cwdrel, $prjroot );
  80     }
  81     my $newfile = $self->{HOST_ROOT} . "/" . $cwdrel . "/" . $file;
  82     return PerlACE::waitforfile_timed ($newfile, $timeout);
  83 }
  84
  85 sub KillAll ($)
  86 {
  87     my $self = shift;
  88     my $procmask = shift;
  89     PerlACE::ProcessVX::kill_all ($procmask, $self);
  90 }
  91
  92 1;