Actual source code: view.c

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