Actual source code: dlregisdm.c


  2: #include <../src/vec/is/ao/aoimpl.h>

  4: static PetscBool AOPackageInitialized = PETSC_FALSE;

  6: /*@C
  7:   AOFinalizePackage - This function finalizes everything in the `AO` package. It is called
  8:   from `PetscFinalize()`.

 10:   Level: developer

 12: .seealso: `AOInitializePackage()`, `PetscInitialize()`
 13: @*/
 14: PetscErrorCode AOFinalizePackage(void)
 15: {
 16:   PetscFunctionBegin;
 17:   PetscCall(PetscFunctionListDestroy(&AOList));
 18:   AOPackageInitialized = PETSC_FALSE;
 19:   AORegisterAllCalled  = PETSC_FALSE;
 20:   PetscFunctionReturn(PETSC_SUCCESS);
 21: }

 23: /*@C
 24:   AOInitializePackage - This function initializes everything in the `AO` package. It is called
 25:   from `PetscDLLibraryRegister_petscvec()` when using dynamic libraries, and on the first call to `AOCreate()`
 26:   when using static or shared libraries.

 28:   Level: developer

 30: .seealso: `AOFinalizePackage()`, `PetscInitialize()`
 31: @*/
 32: PetscErrorCode AOInitializePackage(void)
 33: {
 34:   char      logList[256];
 35:   PetscBool opt, pkg;

 37:   PetscFunctionBegin;
 38:   if (AOPackageInitialized) PetscFunctionReturn(PETSC_SUCCESS);
 39:   AOPackageInitialized = PETSC_TRUE;
 40:   /* Register Classes */
 41:   PetscCall(PetscClassIdRegister("Application Order", &AO_CLASSID));
 42:   /* Register Constructors */
 43:   PetscCall(AORegisterAll());
 44:   /* Register Events */
 45:   PetscCall(PetscLogEventRegister("AOPetscToApplication", AO_CLASSID, &AO_PetscToApplication));
 46:   PetscCall(PetscLogEventRegister("AOApplicationToPetsc", AO_CLASSID, &AO_ApplicationToPetsc));
 47:   /* Process Info */
 48:   {
 49:     PetscClassId classids[1];

 51:     classids[0] = AO_CLASSID;
 52:     PetscCall(PetscInfoProcessClass("ao", 1, classids));
 53:   }
 54:   /* Process summary exclusions */
 55:   PetscCall(PetscOptionsGetString(NULL, NULL, "-log_exclude", logList, sizeof(logList), &opt));
 56:   if (opt) {
 57:     PetscCall(PetscStrInList("ao", logList, ',', &pkg));
 58:     if (pkg) PetscCall(PetscLogEventExcludeClass(AO_CLASSID));
 59:   }
 60:   /* Register package finalizer */
 61:   PetscCall(PetscRegisterFinalize(AOFinalizePackage));
 62:   PetscFunctionReturn(PETSC_SUCCESS);
 63: }