Remove old API to announce data to thorn Formaline.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusUtils/Formaline/trunk@133 83718e91-0e4f-0410-abf4-91180603181f

2 files changed, 0 insertions, 174 deletions

diff --git a/interface.ccl b/interface.ccl
index 71e356e..b504273 100644
--- a/interface.ccl
+++ b/interface.ccl
@@ -142,31 +142,3 @@ FUNCTION UniqueRunID (CCTK_POINTER_TO_CONST IN cctkGH)
 PROVIDES FUNCTION UniqueRunID \
     WITH Formaline_UniqueRunID \
     LANGUAGE C
-
-
-
-# Announce some information
-# Note the order (value, key);
-# this is necessary because string arguments have to be at the end
-# of the argument list.
-void \
-FUNCTION AnnounceBoolean (CCTK_POINTER_TO_CONST IN cctkGH, \
-                          CCTK_INT              IN value, \
-                          CCTK_STRING           IN key)
-void \
-FUNCTION AnnounceInt     (CCTK_POINTER_TO_CONST IN cctkGH, \
-                          CCTK_INT              IN value, \
-                          CCTK_STRING           IN key)
-void \
-FUNCTION AnnounceReal    (CCTK_POINTER_TO_CONST IN cctkGH, \
-                          CCTK_REAL             IN value, \
-                          CCTK_STRING           IN key)
-void \
-FUNCTION AnnounceString  (CCTK_POINTER_TO_CONST IN cctkGH, \
-                          CCTK_STRING           IN value, \
-                          CCTK_STRING           IN key)
-
-PROVIDES FUNCTION AnnounceBoolean WITH Formaline_AnnounceBoolean LANGUAGE C
-PROVIDES FUNCTION AnnounceInt     WITH Formaline_AnnounceInt     LANGUAGE C
-PROVIDES FUNCTION AnnounceReal    WITH Formaline_AnnounceReal    LANGUAGE C
-PROVIDES FUNCTION AnnounceString  WITH Formaline_AnnounceString  LANGUAGE C
diff --git a/src/announce.cc b/src/announce.cc
index 9935201..6371627 100644
--- a/src/announce.cc
+++ b/src/announce.cc
@@ -1153,150 +1153,4 @@ namespace Formaline
 
 
 
-  extern "C"
-  void
-  Formaline_AnnounceBoolean (CCTK_POINTER_TO_CONST const cctkGH_,
-                             CCTK_INT              const value,
-                             CCTK_STRING           const key)
-  {
-    cGH const * const cctkGH = static_cast<cGH const *> (cctkGH_);
-    DECLARE_CCTK_PARAMETERS;
-    
-    // Only store from the root processor
-    if (CCTK_MyProc (cctkGH) != 0) return;
-    
-    // Announce
-    multistorage stores;
-    
-    if (announce_to_portal)
-    {
-      stores.add_storage (new portal (get_run_id (cctkGH), storage::update));
-    }
-    
-    if (send_as_rdf)
-    {
-      stores.add_storage
-        (new rdf (get_run_id (cctkGH), storage::update, cctkGH));
-    }
-    
-    if (store_into_file)
-    {
-      stores.add_storage (new file (get_run_id (cctkGH), storage::update));
-    }
-    
-    if (stores.num_storages() == 0) return;
-    
-    stores.store (key, static_cast <bool> (value));
-  }
-
-  extern "C"
-  void
-  Formaline_AnnounceInt (CCTK_POINTER_TO_CONST const cctkGH_,
-                         CCTK_INT              const value,
-                         CCTK_STRING           const key)
-  {
-    cGH const * const cctkGH = static_cast<cGH const *> (cctkGH_);
-    DECLARE_CCTK_PARAMETERS;
-    
-    // Only store from the root processor
-    if (CCTK_MyProc (cctkGH) != 0) return;
-    
-    // Announce
-    multistorage stores;
-    
-    if (announce_to_portal)
-    {
-      stores.add_storage (new portal (get_run_id (cctkGH), storage::update));
-    }
-    
-    if (send_as_rdf)
-    {
-      stores.add_storage
-        (new rdf (get_run_id (cctkGH), storage::update, cctkGH));
-    }
-    
-    if (store_into_file)
-    {
-      stores.add_storage (new file (get_run_id (cctkGH), storage::update));
-    }
-    
-    if (stores.num_storages() == 0) return;
-    
-    stores.store (key, value);
-  }
-
-  extern "C"
-  void
-  Formaline_AnnounceReal (CCTK_POINTER_TO_CONST const cctkGH_,
-                          CCTK_REAL             const value,
-                          CCTK_STRING           const key)
-  {
-    cGH const * const cctkGH = static_cast<cGH const *> (cctkGH_);
-    DECLARE_CCTK_PARAMETERS;
-    
-    // Only store from the root processor
-    if (CCTK_MyProc (cctkGH) != 0) return;
-    
-    // Announce
-    multistorage stores;
-    
-    if (announce_to_portal)
-    {
-      stores.add_storage (new portal (get_run_id (cctkGH), storage::update));
-    }
-    
-    if (send_as_rdf)
-    {
-      stores.add_storage
-        (new rdf (get_run_id (cctkGH), storage::update, cctkGH));
-    }
-    
-    if (store_into_file)
-    {
-      stores.add_storage (new file (get_run_id (cctkGH), storage::update));
-    }
-    
-    if (stores.num_storages() == 0) return;
-    
-    stores.store (key, value);
-  }
-
-  extern "C"
-  void
-  Formaline_AnnounceString (CCTK_POINTER_TO_CONST const cctkGH_,
-                            CCTK_STRING           const value,
-                            CCTK_STRING           const key)
-  {
-    cGH const * const cctkGH = static_cast<cGH const *> (cctkGH_);
-    DECLARE_CCTK_PARAMETERS;
-    
-    // Only store from the root processor
-    if (CCTK_MyProc (cctkGH) != 0) return;
-    
-    // Announce
-    multistorage stores;
-    
-    if (announce_to_portal)
-    {
-      stores.add_storage (new portal (get_run_id (cctkGH), storage::update));
-    }
-    
-    if (send_as_rdf)
-    {
-      stores.add_storage
-        (new rdf (get_run_id (cctkGH), storage::update, cctkGH));
-    }
-    
-    if (store_into_file)
-    {
-      stores.add_storage (new file (get_run_id (cctkGH), storage::update));
-    }
-    
-    if (stores.num_storages() == 0) return;
-    
-    stores.store (key, value);
-  }
-
-
-
 } // namespace Formaline