trek/getpar.c

   1 /*
   2  * Copyright (c) 1980 Regents of the University of California.
   3  * All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without
   6  * modification, are permitted provided that the following conditions
   7  * are met:
   8  * 1. Redistributions of source code must retain the above copyright
   9  *    notice, this list of conditions and the following disclaimer.
  10  * 2. Redistributions in binary form must reproduce the above copyright
  11  *    notice, this list of conditions and the following disclaimer in the
  12  *    documentation and/or other materials provided with the distribution.
  13  * 3. All advertising materials mentioning features or use of this software
  14  *    must display the following acknowledgement:
  15  *      This product includes software developed by the University of
  16  *      California, Berkeley and its contributors.
  17  * 4. Neither the name of the University nor the names of its contributors
  18  *    may be used to endorse or promote products derived from this software
  19  *    without specific prior written permission.
  20  *
  21  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  31  * SUCH DAMAGE.
  32  */
  33
  34 #ifndef lint
  35 /*static char sccsid[] = "from: @(#)getpar.c    4.8 (Berkeley) 6/1/90";*/
  36 static char rcsid[] = "$Id: getpar.c,v 1.2 1993/08/01 18:50:28 mycroft Exp $";
  37 #endif /* not lint */
  38
  39 # include       <stdio.h>
  40 # include       "getpar.h"
  41
  42 /**
  43  **     get integer parameter
  44  **/
  45
  46 getintpar(s)
  47 char    *s;
  48 {
  49         register int    i;
  50         int             n;
  51
  52         while (1)
  53         {
  54                 if (testnl() && s)
  55                         printf("%s: ", s);
  56                 i = scanf("%d", &n);
  57                 if (i < 0)
  58                         exit(1);
  59                 if (i > 0 && testterm())
  60                         return (n);
  61                 printf("invalid input; please enter an integer\n");
  62                 skiptonl(0);
  63         }
  64 }
  65
  66 /**
  67  **     get floating parameter
  68  **/
  69
  70 double getfltpar(s)
  71 char    *s;
  72 {
  73         register int            i;
  74         double                  d;
  75
  76         while (1)
  77         {
  78                 if (testnl() && s)
  79                         printf("%s: ", s);
  80                 i = scanf("%lf", &d);
  81                 if (i < 0)
  82                         exit(1);
  83                 if (i > 0 && testterm())
  84                         return (d);
  85                 printf("invalid input; please enter a double\n");
  86                 skiptonl(0);
  87         }
  88 }
  89
  90 /**
  91  **     get yes/no parameter
  92  **/
  93
  94 struct cvntab   Yntab[] =
  95 {
  96         "y",    "es",   (int (*)())1,   0,
  97         "n",    "o",    (int (*)())0,   0,
  98         0
  99 };
 100
 101 getynpar(s)
 102 char    *s;
 103 {
 104         struct cvntab           *r;
 105
 106         r = getcodpar(s, Yntab);
 107         return ((int) r->value);
 108 }
 109
 110
 111 /**
 112  **     get coded parameter
 113  **/
 114
 115 struct cvntab *getcodpar(s, tab)
 116 char            *s;
 117 struct cvntab   tab[];
 118 {
 119         char                            input[100];
 120         register struct cvntab          *r;
 121         int                             flag;
 122         register char                   *p, *q;
 123         int                             c;
 124         int                             f;
 125
 126         flag = 0;
 127         while (1)
 128         {
 129                 flag |= (f = testnl());
 130                 if (flag)
 131                         printf("%s: ", s);
 132                 if (f)
 133                         cgetc(0);               /* throw out the newline */
 134                 scanf("%*[ \t;]");
 135                 if ((c = scanf("%[^ \t;\n]", input)) < 0)
 136                         exit(1);
 137                 if (c == 0)
 138                         continue;
 139                 flag = 1;
 140
 141                 /* if command list, print four per line */
 142                 if (input[0] == '?' && input[1] == 0)
 143                 {
 144                         c = 4;
 145                         for (r = tab; r->abrev; r++)
 146                         {
 147                                 concat(r->abrev, r->full, input);
 148                                 printf("%14.14s", input);
 149                                 if (--c > 0)
 150                                         continue;
 151                                 c = 4;
 152                                 printf("\n");
 153                         }
 154                         if (c != 4)
 155                                 printf("\n");
 156                         continue;
 157                 }
 158
 159                 /* search for in table */
 160                 for (r = tab; r->abrev; r++)
 161                 {
 162                         p = input;
 163                         for (q = r->abrev; *q; q++)
 164                                 if (*p++ != *q)
 165                                         break;
 166                         if (!*q)
 167                         {
 168                                 for (q = r->full; *p && *q; q++, p++)
 169                                         if (*p != *q)
 170                                                 break;
 171                                 if (!*p || !*q)
 172                                         break;
 173                         }
 174                 }
 175
 176                 /* check for not found */
 177                 if (!r->abrev)
 178                 {
 179                         printf("invalid input; ? for valid inputs\n");
 180                         skiptonl(0);
 181                 }
 182                 else
 183                         return (r);
 184         }
 185 }
 186
 187
 188 /**
 189  **     get string parameter
 190  **/
 191
 192 getstrpar(s, r, l, t)
 193 char    *s;
 194 char    *r;
 195 int     l;
 196 char    *t;
 197 {
 198         register int    i;
 199         char            format[20];
 200         register int    f;
 201
 202         if (t == 0)
 203                 t = " \t\n;";
 204         (void)sprintf(format, "%%%d[^%s]", l, t);
 205         while (1)
 206         {
 207                 if ((f = testnl()) && s)
 208                         printf("%s: ", s);
 209                 if (f)
 210                         cgetc(0);
 211                 scanf("%*[\t ;]");
 212                 i = scanf(format, r);
 213                 if (i < 0)
 214                         exit(1);
 215                 if (i != 0)
 216                         return;
 217         }
 218 }
 219
 220
 221 /**
 222  **     test if newline is next valid character
 223  **/
 224
 225 testnl()
 226 {
 227         register char           c;
 228
 229         while ((c = cgetc(0)) != '\n')
 230                 if ((c >= '0' && c <= '9') || c == '.' || c == '!' ||
 231                                 (c >= 'A' && c <= 'Z') ||
 232                                 (c >= 'a' && c <= 'z') || c == '-')
 233                 {
 234                         ungetc(c, stdin);
 235                         return(0);
 236                 }
 237         ungetc(c, stdin);
 238         return (1);
 239 }
 240
 241
 242 /**
 243  **     scan for newline
 244  **/
 245
 246 skiptonl(c)
 247 char    c;
 248 {
 249         while (c != '\n')
 250                 if (!(c = cgetc(0)))
 251                         return;
 252         ungetc('\n', stdin);
 253         return;
 254 }
 255
 256
 257 /**
 258  **     test for valid terminator
 259  **/
 260
 261 testterm()
 262 {
 263         register char           c;
 264
 265         if (!(c = cgetc(0)))
 266                 return (1);
 267         if (c == '.')
 268                 return (0);
 269         if (c == '\n' || c == ';')
 270                 ungetc(c, stdin);
 271         return (1);
 272 }
 273
 274
 275 /*
 276 **  TEST FOR SPECIFIED DELIMETER
 277 **
 278 **      The standard input is scanned for the parameter.  If found,
 279 **      it is thrown away and non-zero is returned.  If not found,
 280 **      zero is returned.
 281 */
 282
 283 readdelim(d)
 284 char    d;
 285 {
 286         register char   c;
 287
 288         while (c = cgetc(0))
 289         {
 290                 if (c == d)
 291                         return (1);
 292                 if (c == ' ')
 293                         continue;
 294                 ungetc(c, stdin);
 295                 break;
 296         }
 297         return (0);
 298 }