From bea2868e3ab0934c56a3c27b473426a5135ad966 Mon Sep 17 00:00:00 2001
From: goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac>
Date: Sun, 23 Jan 2000 18:16:33 +0000
Subject: Removing Functions.c and related files.  This is probably the wrong
 approach for what I wanted to do, but may be resurrected at some point.

Tom


git-svn-id: http://svn.cactuscode.org/flesh/trunk@1281 17b73243-c579-4c4c-a9d2-2d5706c11dac
---
 lib/sbin/Create_cctki_Functions_h.pl | 122 -----------------------------------
 1 file changed, 122 deletions(-)
 delete mode 100644 lib/sbin/Create_cctki_Functions_h.pl

(limited to 'lib')

diff --git a/lib/sbin/Create_cctki_Functions_h.pl b/lib/sbin/Create_cctki_Functions_h.pl
deleted file mode 100644
index 9a8f14d2..00000000
--- a/lib/sbin/Create_cctki_Functions_h.pl
+++ /dev/null
@@ -1,122 +0,0 @@
-#! /usr/bin/perl -s
-# /*@@
-#   @header    Create_cctki_Functions_h.pl
-#   @date      Sat Dec  4 14:11:35 1999
-#   @author    Tom Goodale
-#   @desc 
-#   Perl script to generate cctki_Functions.h
-#   Takes one argument
-#      -max_args
-#   which is the maximum number of arguments a function may take.
-#   @enddesc
-#   @version $Header$
-# @@*/
-
-# Set the default number of arguments if it isn't defined.
-if(!defined $max_args)
-{
-  $max_args = 255;
-}
-
-# Make a copy of the STDOUT file descriptor (allows us to change things later).
-*OUTSTREAM = STDOUT;
-
-# Print the GRDOC header.
-print OUTSTREAM " /*\@\@
-   \@header    cctki_Functions.h
-   \@date      Sat Dec  4 14:11:35 1999
-   \@author    Tom Goodale
-   \@desc 
-   Header file for calling functions.
-   This was generated by a perl script - please don't edit by hand !
-   \@enddesc
-   \@version \$Header\$
- \@\@*/
-";
-
-print OUTSTREAM "\n";
-
-print OUTSTREAM "#define CCTK_MAX_ARGS $max_args\n";
-
-print OUTSTREAM "\n";
-
-# Define the types of functions.
-for($i = 0; $i <= $max_args; $i++)
-{
-  print OUTSTREAM "#define CCTK_FUNCTION_$i(xtype) xtype (*)(";
-
-  if($i == 0)
-  {
-    print OUTSTREAM "void";
-  }
-  else
-  {
-    $sep = "";
-    for($arg = 0 ; $arg < $i; $arg++)
-    {
-      print OUTSTREAM "$sep void *";
-
-      $sep = ",";
-    }
-  }
-
-  print OUTSTREAM ")\n";
-}
-
-print OUTSTREAM "\n";
-
-# switch/case statement for functions which return nothing. 
-print OUTSTREAM "#define CCTK_CALLVOIDFUNC(xcount, xarray, xfunction) \\\n";
-print OUTSTREAM "  switch(xcount)                 \\\n";
-print OUTSTREAM "  {                              \\\n";
-
-for($i = 0; $i <= $max_args; $i++)
-{
-  print OUTSTREAM "     case $i: ((CCTK_FUNCTION_$i(void))(xfunction))(";
-
-  if($i > 0)
-  {
-    $sep = "";
-    for($arg = 0 ; $arg < $i; $arg++)
-    {
-      print OUTSTREAM "$sep"."(xarray)[$arg]";
-    
-      $sep = ", ";
-    }
-  }
-
-  print OUTSTREAM "); break; \\\n";
-}
-
-print OUTSTREAM "     default: fprintf(stderr, \"Internal error:  %d functions unsupported\\n\", xcount);\\\n";
-
-print OUTSTREAM "  }\n";
-
-print OUTSTREAM "\n";
-
-# switch/case statement for functions which return xtype
-print OUTSTREAM "#define CCTK_CALLRETFUNC(xret, xtype, xcount, xarray, xfunction) \\\n";
-print OUTSTREAM "  switch(xcount)                 \\\n";
-print OUTSTREAM "  {                              \\\n";
-
-for($i = 0; $i <= $max_args; $i++)
-{
-  print OUTSTREAM "     case $i: xret = ((CCTK_FUNCTION_$i(xtype))(xfunction))(";
-
-  if($i > 0)
-  {
-    $sep = "";
-    for($arg = 0 ; $arg < $i; $arg++)
-    {
-      print OUTSTREAM "$sep"."(xarray)[$arg]";
-    
-      $sep = ", ";
-    }
-  }
-
-  print OUTSTREAM "); break; \\\n";
-}
-
-print OUTSTREAM "     default: fprintf(stderr, \"Internal error:  %d functions unsupported\\n\", xcount);\\\n";
-
-print OUTSTREAM "  }\n";
-- 
cgit v1.2.3