// -*- mode: c++; c-indent-level: 4; c++-member-init-indent: 8; comment-column: 35; -*-

// "peo_debug.cpp"

// (c) OPAC Team, LIFL, August 2005

/* This library is free software; you can redistribute it and/or
   modify it under the terms of the GNU Lesser General Public
   License as published by the Free Software Foundation; either
   version 2 of the License, or (at your option) any later version.
   
   This library 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
   Lesser General Public License for more details.
   
   You should have received a copy of the GNU Lesser General Public
   License along with this library; if not, write to the Free Software
   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
   
   Contact: cahon@lifl.fr
*/

#include "peo_debug.h"

#include <stdio.h>
#include <time.h>
#include <unistd.h>
#include <string.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <vector>

#include "peo_debug.h"

#define MAX_BUFF_SIZE 1000

#define DEBUG_PATH "./log/"

static bool debug = true;

static char host [MAX_BUFF_SIZE];

std :: vector <FILE *> files;

void setDebugMode (bool __dbg) {

  debug = __dbg;
  gethostname (host, MAX_BUFF_SIZE);
}

extern int getNodeRank ();

void initDebugging () {
  
  mkdir (DEBUG_PATH, S_IRWXU);
  //  files.push_back (stdout);
  char buff [MAX_BUFF_SIZE];
  sprintf (buff, "%s/%d", DEBUG_PATH, getNodeRank ());
  files.push_back (fopen (buff, "w"));
}

void endDebugging () {

  for (unsigned i = 0; i < files.size (); i ++)
    if (files [i] != stdout)
      fclose (files [i]);
}

void printDebugMessage (const char * __mess) {

  if (debug) {

    char buff [MAX_BUFF_SIZE];
    time_t t = time (0);

    /* Date */
    sprintf (buff, "[%s][%s: ", host, ctime (& t));
    * strchr (buff, '\n') = ']';
    for (unsigned i = 0; i < files.size (); i ++)
      fprintf (files [i], buff);

    /* Message */
    sprintf (buff, "%s", __mess);
    
    for (unsigned i = 0; i < files.size (); i ++) {
      fputs (buff, files [i]);
      fputs ("\n", files [i]);
      fflush (files [i]);
    }
  }
}