From 1955b0772ddcb6601b1ed1184e2b05b034fc7f45 Mon Sep 17 00:00:00 2001 From: schnetter Date: Wed, 29 Aug 2007 15:04:59 +0000 Subject: 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 --- interface.ccl | 28 ----------- src/announce.cc | 146 -------------------------------------------------------- 2 files changed, 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 (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 (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 (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 (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 (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 -- cgit v1.2.3