1: /*$Id: view.c,v 1.44 2001/04/10 19:34:10 bsmith Exp $*/

  3: #include "src/sys/src/viewer/viewerimpl.h"  /*I "petsc.h" I*/  

  5: int PETSC_VIEWER_COOKIE;

  7: #undef __FUNCT__  
  9: /*@C
 10:    PetscViewerDestroy - Destroys a PetscViewer.

 12:    Collective on PetscViewer

 14:    Input Parameters:
 15: .  viewer - the PetscViewer to be destroyed.

 17:    Level: beginner

 19: .seealso: PetscViewerSocketOpen(), PetscViewerASCIIOpen(), PetscViewerCreate(), PetscViewerDrawOpen()

 21: @*/
 22: int PetscViewerDestroy(PetscViewer viewer)
 23: {
 24:   int         ierr;

 28:   if (--viewer->refct > 0) return(0);

 30:   /* if memory was published with AMS then destroy it */
 31:   PetscObjectDepublish(viewer);

 33:   if (viewer->ops->destroy) {
 34:     (*viewer->ops->destroy)(viewer);
 35:   }
 36:   PetscLogObjectDestroy((PetscObject)viewer);
 37:   PetscHeaderDestroy((PetscObject)viewer);
 38:   return(0);
 39: }

 41: #undef __FUNCT__  
 43: /*@C
 44:    PetscViewerGetType - Returns the type of a PetscViewer.

 46:    Not Collective

 48:    Input Parameter:
 49: .   viewer - the PetscViewer

 51:    Output Parameter:
 52: .  type - PetscViewer type (see below)

 54:    Available Types Include:
 55: .  PETSC_VIEWER_SOCKET - Socket PetscViewer
 56: .  PETSC_VIEWER_ASCII - ASCII PetscViewer
 57: .  PETSC_VIEWER_BINARY - binary file PetscViewer
 58: .  PETSC_VIEWER_STRING - string PetscViewer
 59: .  PETSC_VIEWER_DRAW - drawing PetscViewer

 61:    Level: intermediate

 63:    Note:
 64:    See include/petscviewer.h for a complete list of PetscViewers.

 66:    PetscViewerType is actually a string

 68: .seealso: PetscViewerCreate(), PetscViewerSetType()

 70: @*/
 71: int PetscViewerGetType(PetscViewer viewer,PetscViewerType *type)
 72: {
 75:   *type = (PetscViewerType) viewer->type_name;
 76:   return(0);
 77: }