Wed Nov 9 17:57:54 UTC 2016 Chad Elliott <[email protected]>

Author: ocielliottc

ChangeLog

@@ -1,3 +1,13 @@
+Wed Nov  9 17:57:54 UTC 2016  Chad Elliott  <[email protected]>
+
+        * docs/USAGE:
+        * modules/UVISProjectCreator.pm:
+        * modules/UVISWorkspaceCreator.pm:
+        * templates/uvis.mpd:
+        * templates/uvis.mpt:
+
+          Added support for the Keil uVision 5 IDE.
+
 Mon Oct 31 16:16:07 UTC 2016  Chad Elliott  <[email protected]>
 
         * templates/makedll.mpt:

docs/USAGE

@@ -25,8 +25,8 @@ Usage: mwc.pl [-global <file>] [-include <directory>] [-recurse]
               [-language <cplusplus | csharp | java | vb>]
               [-type <automake | bcb2007 | bcb2009 | bds4 | bmake | cc | cdt6 |
                       cdt7 | em3 | ghs | html | make | nmake | rpmspec | sle |
-                      vc6 | vc7 | vc8 | vc9 | vc10 | vc11 | vc12 | vc14 |
-                      vc71 | wb26 | wb30 | wix>]
+                      uvis | vc6 | vc7 | vc8 | vc9 | vc10 | vc11 | vc12 |
+                      vc14 | vc15 | vc71 | wb26 | wb30 | wix>]
               [files]
 
        -base           Add <project> as a base project to each generated

modules/UVISProjectCreator.pm

@@ -0,0 +1,78 @@
+package UVISProjectCreator;
+
+# ************************************************************
+# Description   : The Keil uVision Project Creator
+# Author        : Chad Elliott
+# Create Date   : 11/1/2016
+# ************************************************************
+
+# ************************************************************
+# Pragmas
+# ************************************************************
+
+use strict;
+
+use ProjectCreator;
+use XMLProjectBase;
+use WinProjectBase;
+
+use vars qw(@ISA);
+@ISA = qw(XMLProjectBase WinProjectBase ProjectCreator);
+
+# ************************************************************
+# Data Section
+# ************************************************************
+
+my $tmpl = 'uvis';
+
+# ************************************************************
+# Subroutine Section
+# ************************************************************
+
+sub compare_output {
+  #my $self = shift;
+  return 1;
+}
+
+sub dependency_is_filename {
+  #my $self = shift;
+  return 0;
+}
+
+sub project_file_extension {
+  return '.uvprojx';
+}
+
+
+sub get_lib_exe_template_input_file {
+  return $tmpl;
+}
+
+
+sub get_lib_template_input_file {
+  return $tmpl;
+}
+
+
+sub get_dll_exe_template_input_file {
+  return $tmpl;
+}
+
+
+sub get_dll_template_input_file {
+  return $tmpl;
+}
+
+
+sub get_template {
+  return 'uvis.mpd';
+}
+
+
+sub get_cmdsep_symbol {
+  #my $self = shift;
+  return '&';
+}
+
+
+1;

modules/UVISWorkspaceCreator.pm

@@ -0,0 +1,71 @@
+package UVISWorkspaceCreator;
+
+# ************************************************************
+# Description   : The Keil uVision Workspace Creator
+# Author        : Chad Elliott
+# Create Date   : 11/1/2016
+# ************************************************************
+
+# ************************************************************
+# Pragmas
+# ************************************************************
+
+use strict;
+
+use UVISProjectCreator;
+use WinWorkspaceBase;
+use WorkspaceCreator;
+
+use vars qw(@ISA);
+@ISA = qw(WinWorkspaceBase WorkspaceCreator);
+
+# ************************************************************
+# Subroutine Section
+# ************************************************************
+
+
+sub compare_output {
+  #my $self = shift;
+  return 1;
+}
+
+
+sub workspace_file_extension {
+  #my $self = shift;
+  return '.uvmpw';
+}
+
+
+sub pre_workspace {
+  my($self, $fh) = @_;
+  my $crlf = $self->crlf();
+
+  print $fh "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"no\" ?>$crlf",
+            "<ProjectWorkspace xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\" xsi:noNamespaceSchemaLocation=\"project_mpw.xsd\">$crlf$crlf",
+            "  <SchemaVersion>1.0</SchemaVersion>$crlf$crlf",
+            "  <Header>### uVision Project, (C) Keil Software</Header>$crlf$crlf";
+}
+
+
+sub write_comps {
+  my($self, $fh) = @_;
+  my $crlf = $self->crlf();
+
+  print $fh '  <WorkspaceName>', $self->get_workspace_name(), ' - ',
+            $self->create_command_line_string($0, @ARGV),
+            '</WorkspaceName>', $crlf;
+  foreach my $project ($self->sort_dependencies($self->get_projects(), 0)) {
+    print $fh "  <project>$crlf",
+              "    <PathAndName>$project</PathAndName>$crlf",
+              "  </project>$crlf$crlf";
+  }
+}
+
+
+sub post_workspace {
+  my($self, $fh) = @_;
+  print $fh '</ProjectWorkspace>' . $self->crlf();
+}
+
+
+1;