/* 
   This is the definition of the Mathematica viewer structure.
*/

#include "src/sys/viewer/viewerimpl.h"   /*I  "petsc.h"  I*/
#include "petscsys.h" 
#ifdef PETSC_HAVE_MATHEMATICA
#include "mathlink.h"
#endif

typedef enum {MATHEMATICA_LINK_CREATE, MATHEMATICA_LINK_CONNECT, MATHEMATICA_LINK_LAUNCH} LinkMode;

typedef struct {
#ifdef PETSC_HAVE_MATHEMATICA
  MLINK        link;         /* The link to Mathematica */
#endif
  char        *linkname;     /* The name to link to Mathematica on (usually a port) */
  char        *linkhost;     /* The host to link to Mathematica on */
  LinkMode     linkmode;     /* The link mode */
  const char  *objName;      /* The name for the next object passed to Mathematica */
} PetscViewer_Mathematica;

EXTERN PetscErrorCode PetscViewerMathematicaSetFromOptions(PetscViewer);
EXTERN PetscErrorCode PetscViewerMathematicaSetLinkName(PetscViewer, const char *);
EXTERN PetscErrorCode PetscViewerMathematicaSetLinkPort(PetscViewer, int);
EXTERN PetscErrorCode PetscViewerMathematicaSetLinkHost(PetscViewer, const char *);
EXTERN PetscErrorCode PetscViewerMathematicaSetLinkMode(PetscViewer, LinkMode);