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: }