<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">package VXTestProjectCreator;

# ************************************************************
# Description   : A Project Creator for VxWorks testing
# Author        : Johnny Willemsen
# Create Date   : 3/27/2008
# $Id: VXTestProjectCreator.pm 94635 2011-10-06 12:59:23Z johnnyw $
# ************************************************************

# ************************************************************
# Pragmas
# ************************************************************

use strict;

use ProjectCreator;

use vars qw(@ISA);
@ISA = qw(ProjectCreator);

# ************************************************************
# Subroutine Section
# ************************************************************

sub project_file_name {
  my($self) = shift;
  my($name) = shift;

  if (!defined $name) {
    $name = $self-&gt;project_name();
  }

  my($value) = $self-&gt;get_assignment('exename');
  if (!defined $value) {
    $value = $self-&gt;get_assignment('staticname');
  }
  if (!defined $value) {
    $value = $self-&gt;get_assignment('sharedname');
  }
  return $self-&gt;get_modified_project_file_name($value, '.vxtest');
}

sub get_template {
  #my($self) = shift;
  return 'vxtest';
}

sub need_to_write_project {
  my $self = shift;

  ## We only want to return 1 if the project has source files and isn't a
  ## custom-only project.  We have to check for custom_only because
  ## non-custom related project settings are only removed after calling
  ## need_to_write_project().
  if (!$self-&gt;get_assignment('custom_only') &amp;&amp;
      $self-&gt;SUPER::need_to_write_project() == 1) {
    ## We only want to return 1 if this is an executable or library project
    return 1 if ($self-&gt;exe_target() || $self-&gt;lib_target());
  }

  return 0;
}

sub warn_useless_project {
  return 0;
}

1;
</pre></body></html>