Actual source code: view.c

  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: /*@C
  6:    PetscViewerDestroy - Destroys a PetscViewer.

  8:    Collective on PetscViewer

 10:    Input Parameters:
 11: .  viewer - the PetscViewer to be destroyed.

 13:    Level: beginner

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

 17: @*/
 18: int PetscViewerDestroy(PetscViewer viewer)
 19: {
 20:   int         ierr;

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

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

 29:   if (viewer->ops->destroy) {
 30:     (*viewer->ops->destroy)(viewer);
 31:   }
 32:   PetscLogObjectDestroy((PetscObject)viewer);
 33:   PetscHeaderDestroy((PetscObject)viewer);
 34:   return(0);
 35: }

 37: /*@C
 38:    PetscViewerGetType - Returns the type of a PetscViewer.

 40:    Not Collective

 42:    Input Parameter:
 43: .   viewer - the PetscViewer

 45:    Output Parameter:
 46: .  type - PetscViewer type (see below)

 48:    Available Types Include:
 49: .  PETSC_VIEWER_SOCKET - Socket PetscViewer
 50: .  PETSC_VIEWER_ASCII - ASCII PetscViewer
 51: .  PETSC_VIEWER_BINARY - binary file PetscViewer
 52: .  PETSC_VIEWER_STRING - string PetscViewer
 53: .  PETSC_VIEWER_DRAW - drawing PetscViewer

 55:    Level: intermediate

 57:    Note:
 58:    See include/petscviewer.h for a complete list of PetscViewers.

 60:    PetscViewerType is actually a string

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

 64: @*/
 65: int PetscViewerGetType(PetscViewer viewer,PetscViewerType *type)
 66: {
 69:   *type = (PetscViewerType) viewer->type_name;
 70:   return(0);
 71: }