ACE/bin/MakeProjectCreator/modules/VXTestProjectCreator.pm

   1 package VXTestProjectCreator;
   2
   3 # ************************************************************
   4 # Description   : A Project Creator for VxWorks testing
   5 # Author        : Johnny Willemsen
   6 # Create Date   : 3/27/2008
   7 # ************************************************************
   8
   9 # ************************************************************
  10 # Pragmas
  11 # ************************************************************
  12
  13 use strict;
  14
  15 use ProjectCreator;
  16
  17 use vars qw(@ISA);
  18 @ISA = qw(ProjectCreator);
  19
  20 # ************************************************************
  21 # Subroutine Section
  22 # ************************************************************
  23
  24 sub project_file_name {
  25   my($self) = shift;
  26   my($name) = shift;
  27
  28   if (!defined $name) {
  29     $name = $self->project_name();
  30   }
  31
  32   my($value) = $self->get_assignment('exename');
  33   if (!defined $value) {
  34     $value = $self->get_assignment('staticname');
  35   }
  36   if (!defined $value) {
  37     $value = $self->get_assignment('sharedname');
  38   }
  39   return $self->get_modified_project_file_name($value, '.vxtest');
  40 }
  41
  42 sub get_template {
  43   #my($self) = shift;
  44   return 'vxtest';
  45 }
  46
  47 sub need_to_write_project {
  48   my $self = shift;
  49
  50   ## We only want to return 1 if the project has source files and isn't a
  51   ## custom-only project.  We have to check for custom_only because
  52   ## non-custom related project settings are only removed after calling
  53   ## need_to_write_project().
  54   if (!$self->get_assignment('custom_only') &&
  55       $self->SUPER::need_to_write_project() == 1) {
  56     ## We only want to return 1 if this is an executable or library project
  57     return 1 if ($self->exe_target() || $self->lib_target());
  58   }
  59
  60   return 0;
  61 }
  62
  63 sub warn_useless_project {
  64   return 0;
  65 }
  66
  67 1;