Actual source code: dlregis.h

  1: /*
  2:    This file is included by all the dlregis.c files to provide common information
  3:    on the PETSC team.
  4: */

  6: static char version[256];

  9: /* --------------------------------------------------------------------------*/
 12: PetscErrorCode PetscDLLibraryInfo(char *path,char *type,const char *mess[])
 13: {
 14:   PetscTruth iscon,isaut,isver;


 19:   PetscStrcmp(type,"Contents",&iscon);
 20:   PetscStrcmp(type,"Authors",&isaut);
 21:   PetscStrcmp(type,"Version",&isver);
 22:   if (iscon)      *mess = contents;
 23:   else if (isaut) *mess = authors;
 24:   else if (isver) {PetscGetVersion(&version);*mess=version;}
 25:   else            *mess = 0;

 27:   return(0);
 28: }