modules/IARWorkspaceCreator.pm

   1 package IARWorkspaceCreator;
   2
   3 # ************************************************************
   4 # Description   : The IAR Embedded Workbench IDE Workspace Creator
   5 # Author        : Chad Elliott
   6 # Create Date   : 4/18/2019
   7 # ************************************************************
   8
   9 # ************************************************************
  10 # Pragmas
  11 # ************************************************************
  12
  13 use strict;
  14
  15 use IARProjectCreator;
  16 use WinWorkspaceBase;
  17 use WorkspaceCreator;
  18
  19 use vars qw(@ISA);
  20 @ISA = qw(WinWorkspaceBase WorkspaceCreator);
  21
  22 # ************************************************************
  23 # Subroutine Section
  24 # ************************************************************
  25
  26
  27 sub compare_output {
  28   #my $self = shift;
  29   return 1;
  30 }
  31
  32
  33 sub workspace_file_extension {
  34   #my $self = shift;
  35   return '.eww';
  36 }
  37
  38
  39 sub pre_workspace {
  40   my($self, $fh) = @_;
  41   my $crlf = $self->crlf();
  42
  43   print $fh "<?xml version=\"1.0\" encoding=\"UTF-8\"?>$crlf",
  44             "<workspace>$crlf";
  45 }
  46
  47
  48 sub write_comps {
  49   my($self, $fh) = @_;
  50   my $crlf = $self->crlf();
  51
  52   print $fh '  <!-- ', $self->get_workspace_name(), ' - ',
  53             $self->create_command_line_string($0, @ARGV),
  54             ' -->', $crlf;
  55   foreach my $project ($self->sort_dependencies($self->get_projects(), 0)) {
  56     ## Only emit the prefix if the path is relative.  IAR requires it unless
  57     ## the path is fully qualified.
  58     print $fh "  <project>$crlf",
  59               "    <path>";
  60     print $fh '$WS_DIR$\\' if ($self->path_is_relative($project));
  61     print $fh $self->slash_to_backslash($project), "</path>$crlf",
  62               "  </project>$crlf";
  63   }
  64 }
  65
  66
  67 sub post_workspace {
  68   my($self, $fh) = @_;
  69   print $fh '</workspace>' . $self->crlf();
  70 }
  71
  72
  73 sub aggressive_relative_replacement {
  74   #my $self = shift;
  75   return 1;
  76 }
  77
  78
  79 1;