Actual source code: dlregis.h

  1: /* $Id: dlregis.h,v 1.8 2001/03/23 23:20:45 balay Exp $ */
  2: /*
  3:    This file is included by all the dlregis.c files to provide common information
  4:    on the PETSC team.
  5: */

  7: static char version[256];

  9: EXTERN_C_BEGIN
 10: /* --------------------------------------------------------------------------*/
 13: int PetscDLLibraryInfo(char *path,char *type,const char *mess[])
 14: {
 15:   PetscTruth iscon,isaut,isver;
 16:   int        ierr;


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

 28:   return(0);
 29: }
 30: EXTERN_C_END