src/xbt/xbt_log_appender_file.c

   1 /* file_appender - a dumb log appender which simply prints to a file        */
   2
   3 /* Copyright (c) 2007-2012. The SimGrid Team.
   4  * All rights reserved.                                                     */
   5
   6 /* This program is free software; you can redistribute it and/or modify it
   7  * under the terms of the license (GNU LGPL) which comes with this package. */
   8
   9 #include "xbt/sysdep.h"
  10 #include "xbt/log_private.h"
  11 #ifdef HAVE_SMPI
  12 #include "smpi/private.h" // to access bench_begin/end. Not ultraclean, I confess
  13 #endif
  14 #include <stdio.h>
  15
  16 static void append_file(xbt_log_appender_t this_, char *str) {
  17   fputs(str, (FILE *) this_->data);
  18 }
  19
  20 static void smpi_append_file(xbt_log_appender_t this_, char *str) {
  21   fputs(str, (FILE *) this_->data);
  22 }
  23
  24 static void free_(xbt_log_appender_t this_) {
  25   if (this_->data != stderr)
  26     fclose(this_->data);
  27 }
  28
  29 #ifdef HAVE_SMPI
  30 void __smpi_bench_dont (void); // Stupid prototype
  31 void __smpi_bench_dont (void) { /* I'm only a place-holder in case we link without SMPI */; }
  32 void smpi_bench_begin(void) __attribute__ ((weak, alias ("__smpi_bench_dont")));
  33 void smpi_bench_end(void)   __attribute__ ((weak, alias ("__smpi_bench_dont")));
  34 #endif
  35
  36 XBT_LOG_EXTERNAL_CATEGORY(smpi); // To detect if SMPI is inited
  37
  38 xbt_log_appender_t xbt_log_appender_file_new(char *arg) {
  39
  40   xbt_log_appender_t res = xbt_new0(s_xbt_log_appender_t, 1);
  41   if (_XBT_LOGV(smpi).initialized) // HACK to detect if we run in SMPI mode. Relies on MAIN__ source disposition
  42     res->do_append = smpi_append_file;
  43   else
  44     res->do_append = append_file;
  45   res->free_ = free_;
  46   if (arg)
  47     res->data = (void *) fopen(arg, "w");
  48   else
  49     res->data = (void *) stderr;
  50   return res;
  51 }