src/gromacs/gmxlib/viewit.c

   1 /*
   2  *
   3  *                This source code is part of
   4  *
   5  *                 G   R   O   M   A   C   S
   6  *
   7  *          GROningen MAchine for Chemical Simulations
   8  *
   9  *                        VERSION 3.2.0
  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.
  14
  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.
  19  *
  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.
  26  *
  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.
  29  *
  30  * For more info, check our website at http://www.gromacs.org
  31  *
  32  * And Hey:
  33  * GROningen Mixture of Alchemy and Childrens' Stories
  34  */
  35 /* This file is completely threadsafe - keep it that way! */
  36 #ifdef HAVE_CONFIG_H
  37 #include <config.h>
  38 #endif
  39
  40 #include <string.h>
  41 #include "statutil.h"
  42 #include "viewit.h"
  43 #include "string2.h"
  44 #include "filenm.h"
  45 #include "macros.h"
  46 #include "gmx_fatal.h"
  47
  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" };
  53
  54 int can_view(int ftp)
  55 {
  56   int i;
  57
  58   for(i=1; i<NVIEW; i++)
  59     if ( ftp == can_view_ftp[i] )
  60       return i;
  61
  62   return 0;
  63 }
  64
  65 void do_view(const output_env_t oenv,const char *fn, const char *opts)
  66 {
  67   char buf[STRLEN], env[STRLEN];
  68   const char *cmd;
  69   int ftp, n;
  70
  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);
  74     } else {
  75       ftp=fn2ftp(fn);
  76       sprintf(env, "GMX_VIEW_%s", ftp2ext(ftp));
  77       upstring(env);
  78       switch(ftp) {
  79       case efXVG:
  80         if ( ! (cmd=getenv(env)) ) {
  81           if ( getenv("XMGR") )
  82             cmd="xmgr";
  83           else
  84             cmd="xmgrace";
  85         }
  86         break;
  87       default:
  88       if ( (n=can_view(ftp)) ) {
  89         if ( ! (cmd=getenv(env)) )
  90           cmd=view_program[n];
  91       } else {
  92         fprintf(stderr,"Don't know how to view file %s",fn);
  93         return;
  94       }
  95       }
  96       if ( strlen(cmd) ) {
  97         sprintf(buf,"%s %s %s &",cmd,opts ? opts : "",fn);
  98         fprintf(stderr,"Executing '%s'\n",buf);
  99 #ifdef GMX_NO_SYSTEM
 100         printf("Warning-- No calls to system(3) supported on this platform.");
 101         printf("Warning-- Skipping execution of 'system(\"%s\")'.", buf);
 102 #else
 103         if( 0 != system(buf) )
 104         {
 105           gmx_fatal(FARGS,"Failed executing command: %s",buf);
 106         }
 107 #endif
 108       }
 109     }
 110   }
 111 }
 112
 113 void view_all(const output_env_t oenv,int nf, t_filenm fnm[])
 114 {
 115   int i;
 116
 117   for(i=0; i<nf; i++)
 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);
 121 }