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: /* --------------------------------------------------------------------------*/
 11: int PetscDLLibraryInfo(char *path,char *type,char **mess)
 12: {
 13:   PetscTruth iscon,isaut,isver;
 14:   int        ierr;


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

 26:   return(0);
 27: }
 28: EXTERN_C_END