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: int PETSC_VIEWER_COOKIE;

  7: /*@C
  8:    PetscViewerDestroy - Destroys a PetscViewer.

 10:    Collective on PetscViewer

 12:    Input Parameters:
 13: .  viewer - the PetscViewer to be destroyed.

 15:    Level: beginner

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

 19: @*/
 20: int PetscViewerDestroy(PetscViewer viewer)
 21: {
 22:   int         ierr;

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

 28:   /* if memory was published with AMS then destroy it */
 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: }

 39: /*@C
 40:    PetscViewerGetType - Returns the type of a PetscViewer.

 42:    Not Collective

 44:    Input Parameter:
 45: .   viewer - the PetscViewer

 47:    Output Parameter:
 48: .  type - PetscViewer type (see below)

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

 57:    Level: intermediate

 59:    Note:
 60:    See include/petscviewer.h for a complete list of PetscViewers.

 62:    PetscViewerType is actually a string

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

 66: @*/
 67: int PetscViewerGetType(PetscViewer viewer,PetscViewerType *type)
 68: {
 71:   *type = (PetscViewerType) viewer->type_name;
 72:   return(0);
 73: }