Merge pull request #3 from mitza-oci/ghs-custom-cmd

ghs projects: create a .cmd file for all custom commands

Author: sonndinh

modules/GHSProjectCreator.pm

@@ -25,6 +25,11 @@ use vars qw(@ISA);
 # Data Section
 # ************************************************************
 
+my %templates = ('ghs' => '.gpj',
+                 'ghscmd' => '.cmd');
+my @tkeys = sort keys %templates;
+my $default_template = 'ghs';
+
 my $startre;
 
 # ************************************************************
@@ -67,6 +72,7 @@ sub post_file_creation {
   return undef;
 }
 
+
 sub compare_output {
   #my $self = shift;
   return 1;
@@ -79,6 +85,26 @@ sub project_file_extension {
 }
 
 
+sub get_template {
+  return @tkeys;
+}
+
+
+sub file_visible { # (self, template)
+  return $_[1] eq $default_template;
+}
+
+
+sub project_file_name {
+  my($self, $name, $template) = @_;
+  my $project_file_name = $self->SUPER::project_file_name($name, $template);
+  if (!$self->file_visible($template)) {
+    $project_file_name =~ s/\.gpj$/.cmd/;
+  }
+  return $project_file_name;
+}
+
+
 sub fill_value {
   my($self, $name) = @_;
   my $value;

templates/ghscmd.mpd

@@ -0,0 +1,20 @@
+pushd <%convert_slashes(reltop)%>
+<%foreach(custom_types)%>
+<%foreach(custom_type->input_files)%>
+<%if(flag_overrides(custom_type->input_file, gendir))%>
+<%mkdir%> <%flag_overrides(custom_type->input_file, gendir)%><%postmkdir%>
+<%endif%>
+<%translate_vars(custom_type->command, win32)%> ^
+<%if(flag_overrides(custom_type->input_file, commandflags))%>
+  <%translate_vars(flag_overrides(custom_type->input_file, commandflags), win32)%> ^
+<%else%>
+  <%translate_vars(custom_type->commandflags, win32)%> ^
+<%endif%>
+<%if(custom_type->output_option)%>
+  <%custom_type->input_file%> <%custom_type->output_option%> <%custom_type->input_file->output_file%>
+<%else%>
+  <%custom_type->input_file%>
+<%endif%>
+<%endfor%>
+<%endfor%>
+popd