4 * This source code is part of
8 * GROningen MAchine for Chemical Simulations
12 * Copyright (c) 1991-1999
13 * BIOSON Research Institute, Dept. of Biophysical Chemistry
14 * University of Groningen, The Netherlands
17 * GROMACS: A message-passing parallel molecular dynamics implementation
18 * H.J.C. Berendsen, D. van der Spoel and R. van Drunen
19 * Comp. Phys. Comm. 91, 43-56 (1995)
21 * Also check out our WWW page:
22 * http://md.chem.rug.nl/~gmx
27 * Green Red Orange Magenta Azure Cyan Skyblue
33 static char *SRCID_readinp_h = "$Id$";
48 extern t_inpfile *read_inpfile(char *fn,int *ninp);
50 extern void write_inpfile(char *fn,int ninp,t_inpfile inp[]);
52 extern int get_eint(int *ninp,t_inpfile **inp,char *name,int def);
54 extern real get_ereal(int *ninp,t_inpfile **inp,char *name,real def);
56 extern char *get_estr(int *ninp,t_inpfile **inp,char *name,char *def);
58 extern int get_eeenum(int *ninp,t_inpfile **inp,char *name,char **defs,
59 int *nerror,bool bPrintError);
60 /* defs must be NULL terminated,
61 * Add errors to nerror
62 * When bPrintError=TRUE and invalid enum: print "ERROR: ..."
65 extern int get_eenum(int *ninp,t_inpfile **inp,char *name,char **defs);
66 /* defs must be NULL terminated */
68 /* Here are some macros to extract data from the inp structures.
69 * Elements that are removed from the list after reading
71 #define STYPE(name,var,def) if ((tmp=get_estr(&ninp,&inp,name,def)) != NULL) strcpy(var,tmp)
72 #define ITYPE(name,var,def) var=get_eint(&ninp,&inp,name,def)
73 #define RTYPE(name,var,def) var=get_ereal(&ninp,&inp,name,def)
74 #define ETYPE(name,var,defs) var=get_eenum(&ninp,&inp,name,defs)
75 #define EETYPE(name,var,defs,nerr,bErr) var=get_eeenum(&ninp,&inp,name,defs,nerr,bErr)
76 #define CCTYPE(s) STYPE("\n; "s,dummy,NULL)
77 #define CTYPE(s) STYPE("; "s,dummy,NULL)
78 /* This last one prints a comment line where you can add some explanation */
80 /* This structure is used for parsing arguments off the comand line */
82 etINT, etREAL, etTIME, etSTR, etBOOL, etRVEC, etENUM, etNR
84 /* names to print in help info */
85 static char *argtp[etNR] = {
86 "int", "real", "time", "string", "bool", "vector", "enum"
94 void *v; /* This is a nasty workaround, to be able to use initialized */
97 char **c; /* Must be pointer to string (when type == etSTR) */
98 /* or null terminated list of enums (when type == etENUM) */
105 extern void get_pargs(int *argc,char *argv[],int nparg,t_pargs pa[],
107 /* Read a number of arguments from the command line.
108 * For etINT, etREAL and etCHAR an extra argument is read (when present)
109 * for etBOOL the boolean option is changed to the negate value
110 * If !bKeepArgs, the command line arguments are removed from the command line
113 extern bool is_hidden(t_pargs *pa);
114 /* Return TRUE when the option is a secret one */
116 extern char *pa_val(t_pargs *pa);
117 /* Return a pointer to a static buffer containing the value of pa */
119 extern int opt2parg_int(char *option,int nparg,t_pargs pa[]);
121 extern bool opt2parg_bool(char *option,int nparg,t_pargs pa[]);
123 extern real opt2parg_real(char *option,int nparg,t_pargs pa[]);
125 extern char *opt2parg_str(char *option,int nparg,t_pargs pa[]);
127 extern char *opt2parg_enum(char *option,int nparg,t_pargs pa[]);
129 extern bool opt2parg_bSet(char *option,int nparg,t_pargs pa[]);
131 extern void print_pargs(FILE *fp, int npargs,t_pargs pa[]);
133 extern void pr_enums(FILE *fp, int npargs,t_pargs pa[]);