3 * This source code is part of
7 * GROningen MAchine for Chemical Simulations
10 * Written by David van der Spoel, Erik Lindahl, Berk Hess, and others.
11 * Copyright (c) 1991-2000, University of Groningen, The Netherlands.
12 * Copyright (c) 2001-2004, The GROMACS development team,
13 * check out http://www.gromacs.org for more information.
15 * This program is free software; you can redistribute it and/or
16 * modify it under the terms of the GNU General Public License
17 * as published by the Free Software Foundation; either version 2
18 * of the License, or (at your option) any later version.
20 * If you want to redistribute modifications, please consider that
21 * scientific software is very special. Version control is crucial -
22 * bugs must be traceable. We will be happy to consider code for
23 * inclusion in the official distribution, but derived work must not
24 * be called official GROMACS. Details are found in the README & COPYING
25 * files - if they are missing, get the official version at www.gromacs.org.
27 * To help us fund GROMACS development, we humbly ask that you cite
28 * the papers on the package - you can find them in the top README file.
30 * For more info, check our website at http://www.gromacs.org
33 * GROningen Mixture of Alchemy and Childrens' Stories
35 /* This file is completely threadsafe - keep it that way! */
46 #include "gmx_fatal.h"
48 static const int can_view_ftp[] = { 0,
49 efEPS, efXPM, efXVG, efPDB };
50 #define NVIEW asize(can_view_ftp)
51 static const char* view_program[] = { NULL,
52 "ghostview", "display", NULL, "xterm -e rasmol" };
58 for(i=1; i<NVIEW; i++)
59 if ( ftp == can_view_ftp[i] )
65 void do_view(const output_env_t oenv,const char *fn, const char *opts)
67 char buf[STRLEN], env[STRLEN];
71 if (output_env_get_view(oenv) && fn) {
72 if (getenv("DISPLAY") == NULL) {
73 fprintf(stderr,"Can not view %s, no DISPLAY environment variable.\n",fn);
76 sprintf(env, "GMX_VIEW_%s", ftp2ext(ftp));
80 if ( ! (cmd=getenv(env)) ) {
88 if ( (n=can_view(ftp)) ) {
89 if ( ! (cmd=getenv(env)) )
92 fprintf(stderr,"Don't know how to view file %s",fn);
97 sprintf(buf,"%s %s %s &",cmd,opts ? opts : "",fn);
98 fprintf(stderr,"Executing '%s'\n",buf);
100 printf("Warning-- No calls to system(3) supported on this platform.");
101 printf("Warning-- Skipping execution of 'system(\"%s\")'.", buf);
103 if( 0 != system(buf) )
105 gmx_fatal(FARGS,"Failed executing command: %s",buf);
113 void view_all(const output_env_t oenv,int nf, t_filenm fnm[])
118 if ( can_view(fnm[i].ftp) && is_output(&(fnm[i])) &&
119 ( ! is_optional(&(fnm[i])) || is_set(&(fnm[i])) ) )
120 do_view(oenv,fnm[i].fns[0], NULL);