#pragma once

#include <petsc/private/viewerimpl.h> /*I     "petscsys.h"   I*/
#include <../src/sys/fileio/mprint.h> /* defines the queue datastructures and variables */

typedef struct {
  FILE         *fd;
  PetscFileMode mode;      /* The mode in which to open the file */
  PetscInt      tab;       /* how many times text is tabbed in from left */
  PetscInt      tab_store; /* store tabs value while tabs are turned off */
  PetscViewer   bviewer;   /* if PetscViewer is a singleton, this points to mother */
  PetscViewer   sviewer;   /* if PetscViewer has a singleton, this points to singleton */
  PetscViewer   subviewer; /* used with PetscViewerGetSubViewer() */
  char         *filename;
  PetscBool     storecompressed;
  PetscBool     closefile;
  PetscInt      allowsynchronized; /* allow synchronized writes from any process to the viewer */

  PrintfQueue petsc_printfqueue, petsc_printfqueuebase;
  int         petsc_printfqueuelength;

  int fileunit; /* indicates the output is printed with Fortran IO */
} PetscViewer_ASCII;

typedef struct PetscViewerLink_t PetscViewerLink;
struct PetscViewerLink_t {
  PetscViewer               viewer;
  struct PetscViewerLink_t *next;
};

PETSC_INTERN PetscMPIInt MPIAPI Petsc_DelViewer(MPI_Comm, PetscMPIInt, void *, void *);