src/gmxlib/viewit.c

   1 /*
   2  * This file is part of the GROMACS molecular simulation package.
   3  *
   4  * Copyright (c) 1991-2000, University of Groningen, The Netherlands.
   5  * Copyright (c) 2001-2004, The GROMACS development team,
   6  * check out http://www.gromacs.org for more information.
   7  * Copyright (c) 2012, by the GROMACS development team, led by
   8  * David van der Spoel, Berk Hess, Erik Lindahl, and including many
   9  * others, as listed in the AUTHORS file in the top-level source
  10  * directory and at http://www.gromacs.org.
  11  *
  12  * GROMACS is free software; you can redistribute it and/or
  13  * modify it under the terms of the GNU Lesser General Public License
  14  * as published by the Free Software Foundation; either version 2.1
  15  * of the License, or (at your option) any later version.
  16  *
  17  * GROMACS is distributed in the hope that it will be useful,
  18  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  19  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  20  * Lesser General Public License for more details.
  21  *
  22  * You should have received a copy of the GNU Lesser General Public
  23  * License along with GROMACS; if not, see
  24  * http://www.gnu.org/licenses, or write to the Free Software Foundation,
  25  * Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA.
  26  *
  27  * If you want to redistribute modifications to GROMACS, please
  28  * consider that scientific software is very special. Version
  29  * control is crucial - bugs must be traceable. We will be happy to
  30  * consider code for inclusion in the official distribution, but
  31  * derived work must not be called official GROMACS. Details are found
  32  * in the README & COPYING files - if they are missing, get the
  33  * official version at http://www.gromacs.org.
  34  *
  35  * To help us fund GROMACS development, we humbly ask that you cite
  36  * the research papers on the package. Check out http://www.gromacs.org.
  37  */
  38 /* This file is completely threadsafe - keep it that way! */
  39 #ifdef HAVE_CONFIG_H
  40 #include <config.h>
  41 #endif
  42
  43 #include <string.h>
  44 #include "statutil.h"
  45 #include "viewit.h"
  46 #include "string2.h"
  47 #include "filenm.h"
  48 #include "macros.h"
  49 #include "gmx_fatal.h"
  50
  51 static const int can_view_ftp[] = { 0,
  52   efEPS,           efXPM,         efXVG,          efPDB };
  53 #define NVIEW asize(can_view_ftp)
  54 static const char* view_program[] = { NULL,
  55   "ghostview",    "display",      NULL,           "xterm -e rasmol" };
  56
  57 int can_view(int ftp)
  58 {
  59   int i;
  60
  61   for(i=1; i<NVIEW; i++)
  62     if ( ftp == can_view_ftp[i] )
  63       return i;
  64
  65   return 0;
  66 }
  67
  68 void do_view(const output_env_t oenv,const char *fn, const char *opts)
  69 {
  70   char buf[STRLEN], env[STRLEN];
  71   const char *cmd;
  72   int ftp, n;
  73
  74   if (output_env_get_view(oenv) && fn) {
  75     if (getenv("DISPLAY") == NULL) {
  76       fprintf(stderr,"Can not view %s, no DISPLAY environment variable.\n",fn);
  77     } else {
  78       ftp=fn2ftp(fn);
  79       sprintf(env, "GMX_VIEW_%s", ftp2ext(ftp));
  80       upstring(env);
  81       switch(ftp) {
  82       case efXVG:
  83         if ( ! (cmd=getenv(env)) ) {
  84           if ( getenv("XMGR") )
  85             cmd="xmgr";
  86           else
  87             cmd="xmgrace";
  88         }
  89         break;
  90       default:
  91       if ( (n=can_view(ftp)) ) {
  92         if ( ! (cmd=getenv(env)) )
  93           cmd=view_program[n];
  94       } else {
  95         fprintf(stderr,"Don't know how to view file %s",fn);
  96         return;
  97       }
  98       }
  99       if ( strlen(cmd) ) {
 100         sprintf(buf,"%s %s %s &",cmd,opts ? opts : "",fn);
 101         fprintf(stderr,"Executing '%s'\n",buf);
 102 #ifdef GMX_NO_SYSTEM
 103         printf("Warning-- No calls to system(3) supported on this platform.");
 104         printf("Warning-- Skipping execution of 'system(\"%s\")'.", buf);
 105 #else
 106         if( 0 != system(buf) )
 107         {
 108           gmx_fatal(FARGS,"Failed executing command: %s",buf);
 109         }
 110 #endif
 111       }
 112     }
 113   }
 114 }
 115
 116 void view_all(const output_env_t oenv,int nf, t_filenm fnm[])
 117 {
 118   int i;
 119
 120   for(i=0; i<nf; i++)
 121     if ( can_view(fnm[i].ftp) && is_output(&(fnm[i])) &&
 122          ( ! is_optional(&(fnm[i])) || is_set(&(fnm[i])) ) )
 123       do_view(oenv,fnm[i].fns[0], NULL);
 124 }