source: issm/trunk-jpl/src/c/io/PrintfFunction.cpp@ 11843

/*\file PrintfFunction.c
 *\brief: this function is used by the _printf_ macro, to take into account the 
 *fact we may be running on a cluster. 
 */

#include <stdarg.h>
#include <stdio.h>
#include "../shared/shared.h"
#include "../include/include.h"

#ifdef _HAVE_MATLAB_
#include "mex.h"
#endif

int PrintfFunction(const char* format,...){
        /*http://linux.die.net/man/3/vsnprintf*/

        /*string to be printed: */
        char *buffer = NULL;
        int   n,size = 100;
        int         string_size;
        extern int  my_rank;
        extern int  num_procs;
                                                                                                                                                                                                     
        //variable list of arguments
        va_list args;

        while(true){

                /*allocate buffer for given string size*/
                buffer=(char*)xmalloc(size*sizeof(char));

                /* Try to print in the allocated space. */
                va_start(args, format);
#ifndef WIN32
                n=vsnprintf(buffer,size,format,args);
#else
                n=vsnprintf(buffer,size,format,args);
#endif
                va_end(args);

                /* If that worked, return the string. */
                if(n>-1 && n<size) break;

                /* Else try again with more space. */
                if(n>-1)   /* glibc 2.1 */
                 size=n+1; /* precisely what is needed */
                else       /* glibc 2.0 */
                 size*=2;  /* twice the old size */

                xfree((void**)&buffer);
        }

        /*Ok, if we are running in parallel, get node 0 to print*/
#ifdef _HAVE_MATLAB_
        mexPrintf(buffer);
#else
        if(my_rank==0)printf(buffer);
#endif

        /*Clean up and return*/
        xfree((void**)&buffer);
        return 1;
}