1 #define PETSC_DLL 2 /* 3 Provides utility routines for manulating any type of PETSc object. 4 */ 5 #include "petsc.h" /*I "petsc.h" I*/ 6 7 struct _p_Object { 8 PETSCHEADER(int); 9 }; 10 11 PetscErrorCode PetscObjectDestroy_PetscObject(PetscObject obj) 12 { 13 PetscErrorCode ierr; 14 PetscFunctionBegin; 15 PetscValidHeader(obj,1); 16 if (--obj->refct > 0) PetscFunctionReturn(0); 17 ierr = PetscHeaderDestroy(obj);CHKERRQ(ierr); 18 PetscFunctionReturn(0); 19 } 20 21 #undef __FUNCT__ 22 #define __FUNCT__ "PetscObjectCreate" 23 /*@C 24 PetscObjectCreate - Creates a PetscObject 25 26 Collective on PetscObject 27 28 Input Parameter: 29 . comm - An MPI communicator 30 31 Output Parameter: 32 . obj - The object 33 34 Level: developer 35 36 Notes: This is a template intended as a starting point to cut and paste with PetscObjectDestroy_PetscObject() 37 to make new object classes. 38 39 Concepts: destroying object 40 Concepts: freeing object 41 Concepts: deleting object 42 43 @*/ 44 PetscErrorCode PETSC_DLLEXPORT PetscObjectCreate(MPI_Comm comm, PetscObject *obj) 45 { 46 PetscObject o; 47 PetscErrorCode ierr; 48 49 PetscFunctionBegin; 50 PetscValidPointer(obj,2); 51 52 #if !defined(PETSC_USE_DYNAMIC_LIBRARIES) 53 ierr = PetscInitializePackage(PETSC_NULL);CHKERRQ(ierr); 54 #endif 55 ierr = PetscHeaderCreate(o,_p_PetscObject,-1,PETSC_OBJECT_COOKIE,0,"PetscObject",comm,PetscObjectDestroy_PetscObject,0);CHKERRQ(ierr); 56 /* records not yet defined in PetscObject 57 o->data = 0; 58 o->setupcalled = 0; 59 */ 60 *obj = o; 61 PetscFunctionReturn(0); 62 } 63 64 #undef __FUNCT__ 65 #define __FUNCT__ "PetscObjectCreateGeneric" 66 /*@C 67 PetscObjectCreateGeneric - Creates a PetscObject 68 69 Collective on PetscObject 70 71 Input Parameter: 72 + comm - An MPI communicator 73 . cookie - The class cookie 74 - name - The class name 75 76 Output Parameter: 77 . obj - The object 78 79 Level: developer 80 81 Notes: This is a template intended as a starting point to cut and paste with PetscObjectDestroy_PetscObject() 82 to make new object classes. 83 84 Concepts: destroying object 85 Concepts: freeing object 86 Concepts: deleting object 87 88 @*/ 89 PetscErrorCode PETSC_DLLEXPORT PetscObjectCreateGeneric(MPI_Comm comm, PetscCookie cookie, const char name[], PetscObject *obj) 90 { 91 PetscObject o; 92 PetscErrorCode ierr; 93 94 PetscFunctionBegin; 95 PetscValidPointer(obj,2); 96 97 #if !defined(PETSC_USE_DYNAMIC_LIBRARIES) 98 ierr = PetscInitializePackage(PETSC_NULL);CHKERRQ(ierr); 99 #endif 100 ierr = PetscHeaderCreate(o,_p_PetscObject,-1,cookie,0,name,comm,PetscObjectDestroy_PetscObject,0);CHKERRQ(ierr); 101 /* records not yet defined in PetscObject 102 o->data = 0; 103 o->setupcalled = 0; 104 */ 105 *obj = o; 106 PetscFunctionReturn(0); 107 } 108 109 #undef __FUNCT__ 110 #define __FUNCT__ "PetscObjectDestroy" 111 /*@ 112 PetscObjectDestroy - Destroys any PetscObject, regardless of the type. 113 114 Collective on PetscObject 115 116 Input Parameter: 117 . obj - any PETSc object, for example a Vec, Mat or KSP. 118 This must be cast with a (PetscObject), for example, 119 PetscObjectDestroy((PetscObject)mat); 120 121 Level: beginner 122 123 Concepts: destroying object 124 Concepts: freeing object 125 Concepts: deleting object 126 127 @*/ 128 PetscErrorCode PETSC_DLLEXPORT PetscObjectDestroy(PetscObject obj) 129 { 130 PetscErrorCode ierr; 131 132 PetscFunctionBegin; 133 PetscValidHeader(obj,1); 134 135 if (obj->bops->destroy) { 136 ierr = (*obj->bops->destroy)(obj);CHKERRQ(ierr); 137 } else { 138 SETERRQ1(PETSC_ERR_PLIB,"This PETSc object of class %s does not have a generic destroy routine",obj->class_name); 139 } 140 PetscFunctionReturn(0); 141 } 142 143 #undef __FUNCT__ 144 #define __FUNCT__ "PetscObjectView" 145 /*@C 146 PetscObjectView - Views any PetscObject, regardless of the type. 147 148 Collective on PetscObject 149 150 Input Parameters: 151 + obj - any PETSc object, for example a Vec, Mat or KSP. 152 This must be cast with a (PetscObject), for example, 153 PetscObjectView((PetscObject)mat,viewer); 154 - viewer - any PETSc viewer 155 156 Level: intermediate 157 158 @*/ 159 PetscErrorCode PETSC_DLLEXPORT PetscObjectView(PetscObject obj,PetscViewer viewer) 160 { 161 PetscErrorCode ierr; 162 163 PetscFunctionBegin; 164 PetscValidHeader(obj,1); 165 if (!viewer) viewer = PETSC_VIEWER_STDOUT_(obj->comm); 166 PetscValidHeaderSpecific(viewer,PETSC_VIEWER_COOKIE,2); 167 168 if (obj->bops->view) { 169 ierr = (*obj->bops->view)(obj,viewer);CHKERRQ(ierr); 170 } else { 171 SETERRQ(PETSC_ERR_SUP,"This PETSc object does not have a generic viewer routine"); 172 } 173 PetscFunctionReturn(0); 174 } 175 176 #undef __FUNCT__ 177 #define __FUNCT__ "PetscTypeCompare" 178 /*@C 179 PetscTypeCompare - Determines whether a PETSc object is of a particular type. 180 181 Not Collective 182 183 Input Parameters: 184 + obj - any PETSc object, for example a Vec, Mat or KSP. 185 This must be cast with a (PetscObject), for example, 186 PetscObjectDestroy((PetscObject)mat); 187 - type_name - string containing a type name 188 189 Output Parameter: 190 . same - PETSC_TRUE if they are the same, else PETSC_FALSE 191 192 Level: intermediate 193 194 .seealso: VecGetType(), KSPGetType(), PCGetType(), SNESGetType() 195 196 Concepts: comparing^object types 197 Concepts: types^comparing 198 Concepts: object type^comparing 199 200 @*/ 201 PetscErrorCode PETSC_DLLEXPORT PetscTypeCompare(PetscObject obj,const char type_name[],PetscTruth *same) 202 { 203 PetscErrorCode ierr; 204 205 PetscFunctionBegin; 206 if (!obj) { 207 *same = PETSC_FALSE; 208 } else if (!type_name && !obj->type_name) { 209 *same = PETSC_TRUE; 210 } else if (!type_name || !obj->type_name) { 211 *same = PETSC_FALSE; 212 } else { 213 PetscValidHeader(obj,1); 214 PetscValidCharPointer(type_name,2); 215 PetscValidPointer(same,3); 216 ierr = PetscStrcmp((char*)(obj->type_name),type_name,same);CHKERRQ(ierr); 217 } 218 PetscFunctionReturn(0); 219 } 220 221 static int PetscObjectRegisterDestroy_Count = 0; 222 static PetscObject PetscObjectRegisterDestroy_Objects[256]; 223 224 #undef __FUNCT__ 225 #define __FUNCT__ "PetscObjectRegisterDestroy" 226 /*@C 227 PetscObjectRegisterDestroy - Registers a PETSc object to be destroyed when 228 PetscFinalize() is called. 229 230 Collective on PetscObject 231 232 Input Parameter: 233 . obj - any PETSc object, for example a Vec, Mat or KSP. 234 This must be cast with a (PetscObject), for example, 235 PetscObjectRegisterDestroy((PetscObject)mat); 236 237 Level: developer 238 239 Notes: 240 This is used by, for example, PETSC_VIEWER_XXX_() routines to free the viewer 241 when PETSc ends. 242 243 .seealso: PetscObjectRegisterDestroyAll() 244 @*/ 245 PetscErrorCode PETSC_DLLEXPORT PetscObjectRegisterDestroy(PetscObject obj) 246 { 247 PetscFunctionBegin; 248 PetscValidHeader(obj,1); 249 PetscObjectRegisterDestroy_Objects[PetscObjectRegisterDestroy_Count++] = obj; 250 PetscFunctionReturn(0); 251 } 252 253 #undef __FUNCT__ 254 #define __FUNCT__ "PetscObjectRegisterDestroyAll" 255 /*@C 256 PetscObjectRegisterDestroyAll - Frees all the PETSc objects that have been registered 257 with PetscObjectRegisterDestroy(). Called by PetscFinalize() 258 PetscFinalize() is called. 259 260 Collective on individual PetscObjects 261 262 Level: developer 263 264 .seealso: PetscObjectRegisterDestroy() 265 @*/ 266 PetscErrorCode PETSC_DLLEXPORT PetscObjectRegisterDestroyAll(void) 267 { 268 PetscErrorCode ierr; 269 int i; 270 271 PetscFunctionBegin; 272 for (i=0; i<PetscObjectRegisterDestroy_Count; i++) { 273 ierr = PetscObjectDestroy(PetscObjectRegisterDestroy_Objects[i]);CHKERRQ(ierr); 274 } 275 PetscFunctionReturn(0); 276 } 277 278 279