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