home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / utils / asmutl / smmaclnk.ark / REQ.C < prev    next >
Text File  |  1987-09-10  |  1KB  |  43 lines
  1. /*
  2. ** req.c -- request user input
  3. */
  4. #include <stdio.h>
  5.  
  6. reqnbr(prompt, nbr) char prompt[]; int *nbr; {    /* request number */
  7.   char str[20];
  8.   int sz;
  9.   if(iscons(stdin)) {
  10.     puts(" ");
  11.     fputs(prompt, stdout);
  12.     }
  13.   getstr(str, 20);
  14.   if((sz = utoi(str, nbr)) < 0 || str[sz]) return (NO);
  15.   return (YES);
  16.   }
  17.  
  18. reqstr(prompt, str, sz) char prompt[], *str; int sz; { /* request string */
  19.   if(iscons(stdin)) {
  20.     puts(" ");
  21.     fputs(prompt, stdout);
  22.     }
  23.   getstr(str, sz);
  24.   return (*str);        /* null name returns false */
  25.   }
  26.  
  27. getstr(str, sz) char *str; int sz; {    /* get string from user */
  28.   char *cp;
  29.   fgets(str, sz, stdin);
  30.   if(iscons(stdin) && !iscons(stdout))
  31.     fputs(str, stdout);        /* echo */
  32.   cp = str;
  33.   while(*cp) {            /* trim ctl chars & make uc */
  34.     if(*cp == '\n') break;
  35.     if(isprint(*str = toupper(*cp++))) ++str;
  36.     }
  37.   *str = NULL;
  38.   }
  39. ctl chars & make uc */
  40.     if(*cp == '\n') break;
  41.     if(isprint(*str = toupper(*cp++))) ++str;
  42.     }
  43.   *str = N