modules/WB26ProjectCreator.pm

   1 package WB26ProjectCreator;
   2
   3 # ************************************************************
   4 # Description   : Workbench 2.6 / VxWorks 6.4 generator
   5 # Author        : Johnny Willemsen
   6 # Create Date   : 07/01/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 # Data Section
  22 # ************************************************************
  23
  24 my %templates = ('wb26'           => '.project',
  25                  'wb26wrproject'  => '.wrproject',
  26                  'wb26wrmakefile' => '.wrmakefile');
  27 my @tkeys = sort keys %templates;
  28
  29 # ************************************************************
  30 # Subroutine Section
  31 # ************************************************************
  32
  33 sub crlf {
  34   #my $self = shift;
  35   return "\n";
  36 }
  37
  38 sub project_file_name {
  39   my($self, $name, $template) = @_;
  40
  41   ## Fill in the name and template if they weren't provided
  42   $name = $self->project_name() if (!defined $name);
  43   $template = 'wb26' if (!defined $template || !defined $templates{$template});
  44
  45   if ($self->{'make_coexistence'}) {
  46     return $self->get_modified_project_file_name($name,
  47                                                  '/' . $templates{$template});
  48   }
  49   else {
  50     return $templates{$template};
  51   }
  52 }
  53
  54 sub get_template {
  55   #my $self = shift;
  56   return @tkeys;
  57 }
  58
  59 sub dependency_is_filename {
  60   #my $self = shift;
  61   return 0;
  62 }
  63
  64 sub requires_forward_slashes {
  65   return 1;
  66 }
  67
  68 sub file_visible {
  69   ## We only want the project file visible to the workspace creator.
  70   ## There can only be one and this is it.
  71   #my($self, $template) = @_;
  72   return $_[1] eq 'wb26';
  73 }
  74
  75 sub get_dll_exe_template_input_file {
  76   #my $self = shift;
  77   return 'wb26exe';
  78 }
  79
  80 sub get_dll_template_input_file {
  81   #my $self = shift;
  82   return 'wb26dll';
  83 }
  84
  85 1;