.. _program_listing_file_src_t8.c:

Program Listing for File t8.c
=============================

|exhale_lsh| :ref:`Return to documentation for file <file_src_t8.c>` (``src/t8.c``)

.. |exhale_lsh| unicode:: U+021B0 .. UPWARDS ARROW WITH TIP LEFTWARDS

.. code-block:: cpp

   /*
     This file is part of t8code.
     t8code is a C library to manage a collection (a forest) of multiple
     connected adaptive space-trees of general element classes in parallel.
   
     Copyright (C) 2015 the developers
   
     t8code is free software; you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published by
     the Free Software Foundation; either version 2 of the License, or
     (at your option) any later version.
   
     t8code is distributed in the hope that it will be useful,
     but WITHOUT ANY WARRANTY; without even the implied warranty of
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     GNU General Public License for more details.
   
     You should have received a copy of the GNU General Public License
     along with t8code; if not, write to the Free Software Foundation, Inc.,
     51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
   */
   
   #include <t8.h>
   #include <t8_version.h>
   
   static int t8_package_id = -1;
   static void (*external_log_fcn) (int category, int priority, const char *msg) = NULL;
   
   int
   t8_get_package_id (void)
   {
     return t8_package_id;
   }
   
   void
   t8_logv (int category, int priority, const char *fmt, va_list ap)
   {
     char buffer[BUFSIZ];
   
     sc_package_lock (t8_package_id);
     vsnprintf (buffer, BUFSIZ, fmt, ap);
     sc_package_unlock (t8_package_id);
   
     if (external_log_fcn) {
       external_log_fcn (category, priority, buffer);
       return;
     }
     sc_log ("unknown", -1, t8_package_id, category, priority, buffer);
   }
   
   void
   t8_logf (int category, int priority, const char *fmt, ...)
   {
     va_list ap;
   
     va_start (ap, fmt);
     t8_logv (category, priority, fmt, ap);
     va_end (ap);
   }
   
   void
   t8_log_indent_push (void)
   {
     sc_log_indent_push_count (t8_get_package_id (), 1);
   }
   
   void
   t8_log_indent_pop (void)
   {
     sc_log_indent_pop_count (t8_get_package_id (), 1);
   }
   
   void
   t8_global_errorf (const char *fmt, ...)
   {
     va_list ap;
   
     va_start (ap, fmt);
     t8_logv (SC_LC_GLOBAL, SC_LP_ERROR, fmt, ap);
     va_end (ap);
   }
   
   void
   t8_global_essentialf (const char *fmt, ...)
   {
     va_list ap;
   
     va_start (ap, fmt);
     t8_logv (SC_LC_GLOBAL, SC_LP_ESSENTIAL, fmt, ap);
     va_end (ap);
   }
   
   void
   t8_global_productionf (const char *fmt, ...)
   {
     va_list ap;
   
     va_start (ap, fmt);
     t8_logv (SC_LC_GLOBAL, SC_LP_PRODUCTION, fmt, ap);
     va_end (ap);
   }
   
   void
   t8_global_infof (const char *fmt, ...)
   {
     va_list ap;
   
     va_start (ap, fmt);
     t8_logv (SC_LC_GLOBAL, SC_LP_INFO, fmt, ap);
     va_end (ap);
   }
   
   void
   t8_infof (const char *fmt, ...)
   {
     va_list ap;
   
     va_start (ap, fmt);
     t8_logv (SC_LC_NORMAL, SC_LP_INFO, fmt, ap);
     va_end (ap);
   }
   
   void
   t8_productionf (const char *fmt, ...)
   {
     va_list ap;
   
     va_start (ap, fmt);
     t8_logv (SC_LC_NORMAL, SC_LP_PRODUCTION, fmt, ap);
     va_end (ap);
   }
   
   void
   t8_debugf (__attribute__ ((unused)) const char *fmt, ...)
   {
   #if T8_ENABLE_DEBUG
     va_list ap;
   
     va_start (ap, fmt);
     t8_logv (SC_LC_NORMAL, SC_LP_DEBUG, fmt, ap);
     va_end (ap);
   #endif
   }
   
   void
   t8_errorf (const char *fmt, ...)
   {
     va_list ap;
   
     va_start (ap, fmt);
     t8_logv (SC_LC_NORMAL, SC_LP_ERROR, fmt, ap);
     va_end (ap);
   }
   
   void
   t8_set_external_log_fcn (void (*log_fcn) (int category, int priority, const char *msg))
   {
     external_log_fcn = log_fcn;
   }
   
   void
   t8_init (int log_threshold)
   {
     int w;
   
     t8_package_id = sc_package_register (NULL, log_threshold, "t8", "Adaptive discretizations");
   
     w = 24;
     t8_global_essentialf ("This is %s\n", t8_get_package_string ());
     t8_global_productionf ("%-*s %s\n", w, "CXX", T8_CXX);
     t8_global_productionf ("%-*s %s\n", w, "CXXFLAGS", T8_CXXFLAGS);
     t8_global_productionf ("%-*s %s\n", w, "CC", T8_CC);
     t8_global_productionf ("%-*s %s\n", w, "CFLAGS", T8_CFLAGS);
     t8_global_productionf ("%-*s %s\n", w, "LDFLAGS", T8_LDFLAGS);
     t8_global_productionf ("%-*s %s\n", w, "LIBS", T8_LIBS);
   }
   
   void *
   t8_sc_array_index_locidx (const sc_array_t *array, const t8_locidx_t it)
   {
     T8_ASSERT (it >= 0 && (size_t) it < array->elem_count);
   
     return array->array + array->elem_size * (size_t) it;
   }