Added option gmake newthorn .

Tom


git-svn-id: http://svn.cactuscode.org/flesh/trunk@199 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 227 insertions, 0 deletions

diff --git a/lib/make/new_thorn.pl b/lib/make/new_thorn.pl
new file mode 100755
index 00000000..5829d7a9
--- /dev/null
+++ b/lib/make/new_thorn.pl
@@ -0,0 +1,227 @@
+#!/usr/bin/perl -s
+#/*@@
+#  @file      new_thorn.pl
+#  @date      Wed Feb  3 16:28:43 1999
+#  @author    Tom Goodale
+#  @desc 
+#  Script to make a new thorn
+#  @enddesc
+#  @version $Id$ 
+#@@*/
+
+$toolkit_dir = "toolkits";
+
+$thorn_name = shift(@ARGV);
+
+if(!$thorn_name)
+{
+  $thorn_name = &prompt("Thorn name");
+}
+
+if(!$toolkit)
+{
+  @toolkits = &GetToolkits($toolkit_dir);
+  
+  print "The following toolkits are available:\n";
+  foreach $toolkit (@toolkits)
+  {
+    print "$toolkit\n";
+  }
+  print "Pick one, or create a new one.\n";
+  $toolkit = &prompt("Toolkit");
+}
+
+chdir $toolkit_dir;
+
+if(! -d "$toolkit")
+{
+  print "Creating new toolkit $toolkit\n";
+  
+  mkdir($toolkit, 0755);
+
+}
+
+chdir $toolkit;
+
+if( -e $thorn_name)
+{
+  die "Thorn $thorn_name already exists !";
+}
+
+print "Creating thorn $thorn_name in $toolkit\n";
+mkdir($thorn_name, 0755);
+
+chdir $thorn_name;
+
+mkdir("src", 0755);
+mkdir("doc", 0755);
+mkdir("par", 0755);
+mkdir("test", 0755);
+
+open(OUT, ">interface.ccl") || die "Cannot create interface.ccl";
+
+print OUT "# Interface definition for thorn $thorn_name\n";
+print OUT "# $Header$\n";
+
+close OUT;
+
+open(OUT, ">param.ccl") || die "Cannot create param.ccl";
+
+print OUT "# Parameter definitions for thorn $thorn_name\n";
+print OUT "# $Header$\n";
+
+close OUT;
+
+open(OUT, ">schedule.ccl") || die "Cannot create schedule.ccl";
+
+print OUT "# Schedule definitions for thorn $thorn_name\n";
+print OUT "# $Header$\n";
+
+close OUT;
+
+open(OUT, ">README") || die "Cannot create README";
+
+print OUT "Cactus Code Thorn $thorn_name\n";
+print OUT "Authors    : ...\n";
+print OUT "Managed by : ... <...\@...........>\n";
+print OUT "Version    : ...  \n";
+print OUT "CVS info   : $Header$\n";
+print OUT "--------------------------------------------------------------------------\n";
+print OUT "\n";
+print OUT "1. Purpose of the thorn\n";
+print OUT "\n";
+print OUT "This thorn does ...\n";
+print OUT "\n";
+print OUT "2. Dependencies of the thorn\n";
+print OUT "\n";
+print OUT "This thorn additionally requires thorns ...\n";
+print OUT "\n";
+print OUT "3. Thorn distribution\n";
+print OUT "\n";
+print OUT "This thorn is available to ...\n";
+print OUT "\n";
+print OUT "4. Additional information\n";
+
+close OUT;
+
+chdir("src");
+
+open(OUT, ">make.code.defn") || die "Cannot create make.code.defn";
+
+print OUT "# Main make.code.defn file for thorn $thorn_name\n";
+print OUT "# $Header$\n";
+print OUT "\n";
+print OUT "# Source files in this directory\n";
+print OUT "SRCS = \n";
+print OUT "\n";
+print OUT "# Subdirectories containing source files\n";
+print OUT "SUBDIRS = \n";
+print OUT "\n";
+
+close OUT;
+
+print "All done.  Please remember to fill out the README.\n";
+
+exit;
+
+#/*@@
+#  @routine    prompt
+#  @date       Wed Feb  3 16:37:12 1999
+#  @author     Tom Goodale
+#  @desc 
+#  Prompts for something, with an optional default.
+#  Based on defprompt in Cactus 3.0 Runtest
+#  @enddesc 
+#  @calls     
+#  @calledby   
+#  @history 
+#
+#  @endhistory 
+#
+#@@*/
+
+sub prompt {
+    local ($prompt, $default) = @_;
+    local ($result);
+    local ($response);
+
+    while(!$result)
+    {
+      if($default)
+      {
+	print "$prompt [$default] \n";
+      }
+      else
+      {
+	print "$prompt \n";
+      }
+
+      print "   --> ";
+
+      $response = <STDIN>;
+
+      if ($response =~ m/^\s*$/ && $default) 
+      {
+        $result = $default;
+      }
+      elsif ($response !~ m/^\s*$/)
+      {
+	$result = $response;
+      }
+    }
+
+    $result =~ s/\n//;
+    print "\n";
+    return $result;
+}
+
+
+
+#/*@@
+#  @routine    GetToolkits
+#  @date       Wed Feb  3 16:45:22 1999
+#  @author     Tom Goodale
+#  @desc 
+#  Gets a list of the current toolkits.
+#  @enddesc 
+#  @calls     
+#  @calledby   
+#  @history 
+#
+#  @endhistory 
+#@@*/
+
+sub GetToolkits
+{
+  local($toolkit_dir) = @_;
+  local($start_dir);
+  local(@toolkits);
+
+  $start_dir = `pwd`;
+
+  chdir $toolkit_dir;
+
+  open(TOOLKITS, "ls|");
+
+  while(<TOOLKITS>)
+  {
+    chop;
+
+    # Ignore CVS and backup stuff
+    next if (m:^CVS$:);
+    next if (m:^\#:);
+    next if (m:~$:);
+
+    # Just pick directories
+    if( -d $_)
+    {
+      push (@toolkits, $_);
+    }
+  }
+
+  close TOOLKITS;
+
+  chdir $start_dir;
+
+  return @toolkits;
+}