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