From e888edd46d420786c41a918f2111cbdab296a93d Mon Sep 17 00:00:00 2001
From: tradke <tradke@b589c3ab-70e8-4b4d-a09f-cba2dd200880>
Date: Wed, 17 Nov 2004 18:44:04 +0000
Subject: Use aliased function IO_TruncateOutputFiles() to check whether or not
 to truncate existing output files. You must also update CactusBase/IOUtil
 now.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/IOBasic/trunk@160 b589c3ab-70e8-4b4d-a09f-cba2dd200880
---
 interface.ccl     | 6 ++++++
 src/WriteScalar.c | 7 ++-----
 2 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/interface.ccl b/interface.ccl
index fef1518..e702430 100644
--- a/interface.ccl
+++ b/interface.ccl
@@ -6,3 +6,9 @@ inherits:   IO
 
 real next_info_output_time type=scalar
 real next_scalar_output_time type=scalar
+
+
+CCTK_INT FUNCTION IO_TruncateOutputFiles \
+  (CCTK_POINTER_TO_CONST IN GH)
+
+REQUIRES FUNCTION IO_TruncateOutputFiles
diff --git a/src/WriteScalar.c b/src/WriteScalar.c
index 02e64b8..f0ad792 100644
--- a/src/WriteScalar.c
+++ b/src/WriteScalar.c
@@ -16,7 +16,6 @@
 
 #include "cctk.h"
 #include "cctk_Parameters.h"
-#include "CactusBase/IOUtil/src/ioGH.h"
 #include "CactusBase/IOUtil/src/ioutil_AdvertisedFiles.h"
 #include "iobasicGH.h"
 
@@ -367,16 +366,14 @@ static FILE *OpenScalarFile (const cGH *GH,
   int first_time_through;
   FILE *file;
   iobasicGH *myGH;
-  const ioGH *ioUtilGH;
   char *fullname;
   char comment_char, buffer[128];
   ioAdvertisedFileDesc advertised_file;
   DECLARE_CCTK_PARAMETERS
 
 
-  /* get the GH extension handles for IOUtil and IOBasic */
+  /* get the GH extension handle for IOBasic */
   myGH = CCTK_GHExtension (GH, "IOBasic");
-  ioUtilGH = CCTK_GHExtension (GH, "IO");
 
   /* get the variable's full name */
   fullname = CCTK_FullName (vindex);
@@ -385,7 +382,7 @@ static FILE *OpenScalarFile (const cGH *GH,
      If restart from recovery, existing files are opened in append mode. */
   first_time_through = GetNamedData (myGH->filenameListScalar, filename)==NULL;
   file = fopen (filename,
-                ioUtilGH->recovered || ! first_time_through ?  "a" : "w");
+                IO_TruncateOutputFiles (GH) && first_time_through ? "w" : "a");
   if (! file)
   {
     CCTK_VWarn (1, __LINE__, __FILE__, CCTK_THORNSTRING,
-- 
cgit v1.2.3