/*@C
PetscViewerSetFromOptions - Sets the graphics type from the options database.
Defaults to a PETSc X windows graphics.
Collective on PetscViewer
Input Parameter:
. PetscViewer - the graphics context
Level: intermediate
Notes:
Must be called after PetscViewerCreate() before the PetscViewer is used.
Concepts: PetscViewer^setting options
.seealso: PetscViewerCreate(), PetscViewerSetType(), PetscViewerType
@*/
PetscErrorCode PetscViewerSetFromOptions(PetscViewer viewer)
{
PetscErrorCode ierr;
char vtype[256];
PetscBool flg;
PetscFunctionBegin;
PetscValidHeaderSpecific(viewer,PETSC_VIEWER_CLASSID,1);
if (!PetscViewerList) {
ierr = PetscViewerRegisterAll();CHKERRQ(ierr);
}
ierr = PetscObjectOptionsBegin((PetscObject)viewer);CHKERRQ(ierr);
ierr = PetscOptionsFList("-viewer_type","Type of PetscViewer","None",PetscViewerList,(char*)(((PetscObject)viewer)->type_name ? ((PetscObject)viewer)->type_name : PETSCVIEWERASCII),vtype,256,&flg);CHKERRQ(ierr);
if (flg) {
ierr = PetscViewerSetType(viewer,vtype);CHKERRQ(ierr);
}
/* type has not been set? */
if (!((PetscObject)viewer)->type_name) {
ierr = PetscViewerSetType(viewer,PETSCVIEWERASCII);CHKERRQ(ierr);
}
if (viewer->ops->setfromoptions) {
ierr = (*viewer->ops->setfromoptions)(PetscOptionsObject,viewer);CHKERRQ(ierr);
}
/* process any options handlers added with PetscObjectAddOptionsHandler() */
ierr = PetscObjectProcessOptionsHandlers((PetscObject)viewer);CHKERRQ(ierr);
ierr = PetscViewerViewFromOptions(viewer,NULL,"-viewer_view");CHKERRQ(ierr);
ierr = PetscOptionsEnd();CHKERRQ(ierr);
PetscFunctionReturn(0);
}
/*@C
PetscViewerInitializePackage - This function initializes everything in the main PetscViewer package.
Level: developer
.keywords: Petsc, initialize, package
.seealso: PetscInitialize()
@*/
PetscErrorCode PetscViewerInitializePackage(void)
{
char logList[256];
char *className;
PetscBool opt;
PetscErrorCode ierr;
PetscFunctionBegin;
if (PetscViewerPackageInitialized) PetscFunctionReturn(0);
PetscViewerPackageInitialized = PETSC_TRUE;
/* Register Classes */
ierr = PetscClassIdRegister("Viewer",&PETSC_VIEWER_CLASSID);CHKERRQ(ierr);
/* Register Constructors */
ierr = PetscViewerRegisterAll();CHKERRQ(ierr);
/* Process info exclusions */
ierr = PetscOptionsGetString(NULL,NULL, "-info_exclude", logList, 256, &opt);CHKERRQ(ierr);
if (opt) {
ierr = PetscStrstr(logList, "viewer", &className);CHKERRQ(ierr);
if (className) {
ierr = PetscInfoDeactivateClass(0);CHKERRQ(ierr);
}
}
/* Process summary exclusions */
ierr = PetscOptionsGetString(NULL,NULL, "-log_exclude", logList, 256, &opt);CHKERRQ(ierr);
if (opt) {
ierr = PetscStrstr(logList, "viewer", &className);CHKERRQ(ierr);
if (className) {
ierr = PetscLogEventDeactivateClass(0);CHKERRQ(ierr);
}
}
#if defined(PETSC_HAVE_MATHEMATICA)
ierr = PetscViewerMathematicaInitializePackage();CHKERRQ(ierr);
#endif
ierr = PetscRegisterFinalize(PetscViewerFinalizePackage);CHKERRQ(ierr);
PetscFunctionReturn(0);
}
