2: #include "src/sys/src/viewer/viewerimpl.h" /*I "petsc.h" I*/ 4: PetscCookie PETSC_VIEWER_COOKIE = 0; 8: /*@C 9: PetscViewerDestroy - Destroys a PetscViewer. 11: Collective on PetscViewer 13: Input Parameters: 14: . viewer - the PetscViewer to be destroyed. 16: Level: beginner 18: .seealso: PetscViewerSocketOpen(), PetscViewerASCIIOpen(), PetscViewerCreate(), PetscViewerDrawOpen() 20: @*/ 21: PetscErrorCode PetscViewerDestroy(PetscViewer viewer) 22: { 27: if (--viewer->refct > 0) return(0); 29: PetscObjectDepublish(viewer); 31: if (viewer->ops->destroy) { 32: (*viewer->ops->destroy)(viewer); 33: } 34: PetscLogObjectDestroy((PetscObject)viewer); 35: PetscHeaderDestroy((PetscObject)viewer); 36: return(0); 37: } 41: /*@C 42: PetscViewerGetType - Returns the type of a PetscViewer. 44: Not Collective 46: Input Parameter: 47: . viewer - the PetscViewer 49: Output Parameter: 50: . type - PetscViewer type (see below) 52: Available Types Include: 53: . PETSC_VIEWER_SOCKET - Socket PetscViewer 54: . PETSC_VIEWER_ASCII - ASCII PetscViewer 55: . PETSC_VIEWER_BINARY - binary file PetscViewer 56: . PETSC_VIEWER_STRING - string PetscViewer 57: . PETSC_VIEWER_DRAW - drawing PetscViewer 59: Level: intermediate 61: Note: 62: See include/petscviewer.h for a complete list of PetscViewers. 64: PetscViewerType is actually a string 66: .seealso: PetscViewerCreate(), PetscViewerSetType() 68: @*/ 69: PetscErrorCode PetscViewerGetType(PetscViewer viewer,PetscViewerType *type) 70: { 73: *type = (PetscViewerType) viewer->type_name; 74: return(0); 75: }