cleanup, add manual page

[unix-history] / usr / src / games / monop / getinp.c

/*
* Copyright (c) 1980 Regents of the University of California.
* All rights reserved.
*
* Redistribution and use in source and binary forms are permitted
* provided that the above copyright notice and this paragraph are
* duplicated in all such forms and that any documentation,
* advertising materials, and other materials related to such
* distribution and use acknowledge that the software was developed
* by the University of California, Berkeley.  The name of the
* University may not be used to endorse or promote products derived
* from this software without specific prior written permission.
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
* WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
*/

#ifndef lint
static char sccsid[] = "@(#)getinp.c    5.2 (Berkeley) %G%";
#endif /* not lint */

# include       <stdio.h>
# include       <ctype.h>

# define        reg     register

# define        LINE    70

static char     buf[257];

getinp(prompt, list)
char    *prompt, *list[]; {

       reg int i, n_match, match;
       char    *sp;
       int     plen;


       for (;;) {
inter:
               printf(prompt);
               for (sp = buf; (*sp=getchar()) != '\n'; )
                       if (*sp == -1)  /* check for interupted system call */
                               goto inter;
                       else if (sp != buf || *sp != ' ')
                               sp++;
               if (buf[0] == '?' && buf[1] == '\n') {
                       printf("Valid inputs are: ");
                       for (i = 0, match = 18; list[i]; i++) {
                               if ((match+=(n_match=strlen(list[i]))) > LINE) {
                                       printf("\n\t");
                                       match = n_match + 8;
                               }
                               if (*list[i] == '\0') {
                                       match += 8;
                                       printf("<RETURN>");
                               }
                               else
                                       printf(list[i]);
                               if (list[i+1])
                                       printf(", ");
                               else
                                       putchar('\n');
                               match += 2;
                       }
                       continue;
               }
               *sp = '\0';
               for (sp = buf; *sp; sp++)
                       if (isupper(*sp))
                               *sp = tolower(*sp);
               for (i = n_match = 0; list[i]; i++)
                       if (comp(list[i])) {
                               n_match++;
                               match = i;
                       }
               if (n_match == 1)
                       return match;
               else if (buf[0] != '\0')
                       printf("Illegal response: \"%s\".  Use '?' to get list of valid answers\n", buf);
       }
}

static
comp(s1)
char    *s1; {

       reg char        *sp, *tsp, c;

       if (buf[0] != '\0')
               for (sp = buf, tsp = s1; *sp; ) {
                       c = isupper(*tsp) ? tolower(*tsp) : *tsp;
                       tsp++;
                       if (c != *sp++)
                               return 0;
               }
       else if (*s1 != '\0')
               return 0;
       return 1;
}