src/contrib/addquote.c

   1 /*
   2  * $Id$
   3  *
   4  *                This source code is part of
   5  *
   6  *                 G   R   O   M   A   C   S
   7  *
   8  *          GROningen MAchine for Chemical Simulations
   9  *
  10  *                        VERSION 3.0
  11  *
  12  * Copyright (c) 1991-2001
  13  * BIOSON Research Institute, Dept. of Biophysical Chemistry
  14  * University of Groningen, The Netherlands
  15  *
  16  * This program is free software; you can redistribute it and/or
  17  * modify it under the terms of the GNU General Public License
  18  * as published by the Free Software Foundation; either version 2
  19  * of the License, or (at your option) any later version.
  20  *
  21  * If you want to redistribute modifications, please consider that
  22  * scientific software is very special. Version control is crucial -
  23  * bugs must be traceable. We will be happy to consider code for
  24  * inclusion in the official distribution, but derived work must not
  25  * be called official GROMACS. Details are found in the README & COPYING
  26  * files - if they are missing, get the official version at www.gromacs.org.
  27  *
  28  * To help us fund GROMACS development, we humbly ask that you cite
  29  * the papers on the package - you can find them in the top README file.
  30  *
  31  * Do check out http://www.gromacs.org , or mail us at gromacs@gromacs.org .
  32  *
  33  * And Hey:
  34  * GROup of MAchos and Cynical Suckers
  35  */
  36 static char *SRCID_addquote_c = "$Id$";
  37 #include <ctype.h>
  38 #include "strdb.h"
  39 #include "copyrite.h"
  40 #include "smalloc.h"
  41
  42 void add_quote(char *q)
  43 {
  44   FILE *fp;
  45   int  i,n;
  46   char **str = NULL;
  47   char *db   = "gurgle.dat";
  48
  49   n = get_strings(db,&str);
  50   srenew(str,n+1);
  51   snew(str[n],strlen(q)+1);
  52   for(i=0; (i<strlen(q)); i++)
  53     str[n][i] = ~q[i];
  54   str[n][i] = '\0';
  55   n++;
  56   fp = fopen(db,"w");
  57   fprintf(fp,"%d\n",n);
  58   for(i=0; (i<n); i++)
  59     fprintf(fp,"%s\n",str[i]);
  60   fclose(fp);
  61 }
  62
  63 int main(int argc,char *argv[])
  64 {
  65   int  i;
  66   char c;
  67
  68   for(i=1; (i<argc); i++) {
  69     do {
  70       fprintf(stderr,"Add quote '%s' (y/n)? ",argv[i]);
  71       c = toupper(fgetc(stdin));
  72     } while ((c != 'Y') && (c != 'N'));
  73     if (c == 'Y') {
  74       add_quote(argv[i]);
  75     }
  76   }
  77   thanx(stdout);
  78
  79   return 0;
  80 }