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     print $fh "  <project>$crlf",
  57               "    <path>\$WS_DIR\$\\", $self->slash_to_backslash($project),
  58               "</path>$crlf",
  59               "  </project>$crlf";
  60   }
  61 }
  62
  63
  64 sub post_workspace {
  65   my($self, $fh) = @_;
  66   print $fh '</workspace>' . $self->crlf();
  67 }
  68
  69
  70 1;