trek/getpar.c

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