diff options
| -rw-r--r-- | interface.ccl | 28 | ||||
| -rw-r--r-- | src/announce.cc | 146 |
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 |