readom/io.c

   1 /*
   2  * This file has been modified for the cdrkit suite.
   3  *
   4  * The behaviour and appearence of the program code below can differ to a major
   5  * extent from the version distributed by the original author(s).
   6  *
   7  * For details, see Changelog file distributed with the cdrkit package. If you
   8  * received this file from another source then ask the distributing person for
   9  * a log of modifications.
  10  *
  11  */
  12
  13 /* @(#)io.c     1.19 98/10/10 Copyright 1988 J. Schilling */
  14 /*
  15  *      Copyright (c) 1988 J. Schilling
  16  */
  17 /*
  18  * This program is free software; you can redistribute it and/or modify
  19  * it under the terms of the GNU General Public License version 2
  20  * as published by the Free Software Foundation.
  21  *
  22  * This program is distributed in the hope that it will be useful,
  23  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  24  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  25  * GNU General Public License for more details.
  26  *
  27  * You should have received a copy of the GNU General Public License along with
  28  * this program; see the file COPYING.  If not, write to the Free Software
  29  * Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  30  */
  31
  32 #include <mconfig.h>
  33 #include <stdio.h>
  34 #include <standard.h>
  35 #include <vadefs.h>
  36 #include <stdxlib.h>
  37 #include <strdefs.h>
  38 #include <utypes.h>
  39 #include <schily.h>
  40 #include <ctype.h>
  41
  42 struct disk {
  43         int     dummy;
  44 };
  45
  46 static  char    *skipwhite(const char *);
  47 static  void    prt_std(char *, long, long, long, struct disk *);
  48 BOOL    cvt_std(char *, long *, long, long, struct disk *);
  49 extern  BOOL    getvalue(char *, long *, long, long,
  50                                                                 void (*)(char *, long, long, long, struct disk *),
  51                                                                 BOOL (*)(char *, long *, long, long, struct disk *),
  52                                                                 struct disk *);
  53 extern  BOOL    getlong(char *, long *, long, long);
  54 extern  BOOL    getint(char *, int *, int, int);
  55 extern  BOOL    yes(char *, ...);
  56
  57 static
  58 char *skipwhite(const char *s)
  59 {
  60         register const Uchar    *p = (const Uchar *)s;
  61
  62         while (*p) {
  63                 if (!isspace(*p))
  64                         break;
  65                 p++;
  66         }
  67         return ((char *)p);
  68 }
  69
  70 /* ARGSUSED */
  71
  72 BOOL
  73 cvt_std(char *linep, long *lp, long mini, long maxi, struct disk *dp)
  74 {
  75         long    l       = -1L;
  76
  77 /*      printf("cvt_std(\"%s\", %d, %d, %d);\n", linep, *lp, mini, maxi);*/
  78
  79         if (linep[0] == '?') {
  80                 printf("Enter a number in the range from %ld to %ld\n",
  81                                                                 mini, maxi);
  82                 printf("The default radix is 10\n");
  83                 printf("Precede number with '0x' for hexadecimal or with '0' for octal\n");
  84                 printf("Shorthands are:\n");
  85                 printf("\t'^' for minimum value (%ld)\n", mini);
  86                 printf("\t'$' for maximum value (%ld)\n", maxi);
  87                 printf("\t'+' for incrementing value to %ld\n", *lp + 1);
  88                 printf("\t'-' for decrementing value to %ld\n", *lp - 1);
  89                 return (FALSE);
  90         }
  91         if (linep[0] == '^' && *skipwhite(&linep[1]) == '\0') {
  92                 l = mini;
  93         } else if (linep[0] == '$' && *skipwhite(&linep[1]) == '\0') {
  94                 l = maxi;
  95         } else if (linep[0] == '+' && *skipwhite(&linep[1]) == '\0') {
  96                 if (*lp < maxi)
  97                         l = *lp + 1;
  98         } else if (linep[0] == '-' && *skipwhite(&linep[1]) == '\0') {
  99                 if (*lp > mini)
 100                         l = *lp - 1;
 101         } else if (*astol(linep, &l)) {
 102                 printf("Not a number: '%s'.\n", linep);
 103                 return (FALSE);
 104         }
 105         if (l < mini || l > maxi) {
 106                 printf("'%s' is out of range.\n", linep);
 107                 return (FALSE);
 108         }
 109         *lp = l;
 110         return (TRUE);
 111 }
 112
 113 /* ARGSUSED */
 114 static void
 115 prt_std(char *s, long l, long mini, long maxi, struct disk *dp)
 116 {
 117         printf("%s %ld (%ld - %ld)/<cr>:", s, l, mini, maxi);
 118 }
 119
 120
 121 BOOL getvalue(char *s, long *lp, long mini, long maxi,
 122                                   void  (*prt)(char *, long, long, long, struct disk *),
 123                                   BOOL  (*cvt)(char *, long *, long, long, struct disk *),
 124                                   struct disk *dp)
 125 {
 126         char    line[128];
 127         char    *linep;
 128
 129         for(;;) {
 130                 (*prt)(s, *lp, mini, maxi, dp);
 131                 flush();
 132                 line[0] = '\0';
 133                 if (rols_getline(line, 80) == EOF)
 134                         exit(EX_BAD);
 135
 136                 linep = skipwhite(line);
 137                 /*
 138                  * Nicht initialisierte Variablen
 139                  * duerfen nicht uebernommen werden
 140                  */
 141                 if (linep[0] == '\0' && *lp != -1L)
 142                         return (FALSE);
 143
 144                 if (strlen(linep) == 0) {
 145                         /* Leere Eingabe */
 146                         /* EMPTY */
 147                 } else if ((*cvt)(linep, lp, mini, maxi, dp))
 148                         return (TRUE);
 149         }
 150         /* NOTREACHED */
 151 }
 152
 153
 154 BOOL getlong(char *s, long *lp, long mini, long maxi)
 155 {
 156         return (getvalue(s, lp, mini, maxi, prt_std, cvt_std, (void *)0));
 157 }
 158
 159
 160 BOOL getint(char *s, int *ip, int mini, int maxi)
 161 {
 162         long    l = *ip;
 163         BOOL    ret;
 164
 165         ret = getlong(s, &l, (long)mini, (long)maxi);
 166         *ip = l;
 167         return (ret);
 168 }
 169
 170 /* VARARGS1 */
 171 BOOL yes(char *form, ...)
 172 {
 173         va_list args;
 174         char okbuf[10];
 175
 176 again:
 177         va_start(args, form);
 178         vprintf(form, args);
 179         va_end(args);
 180         flush();
 181         if (rols_getline(okbuf, sizeof(okbuf)) == EOF)
 182                 exit(EX_BAD);
 183         if (okbuf[0] == '?') {
 184                 printf("Enter 'y', 'Y', 'yes' or 'YES' if you agree with the previous asked question.\n");
 185                 printf("All other input will be handled as if the question has beed answered with 'no'.\n");
 186                 goto again;
 187         }
 188         if(streql(okbuf, "y") || streql(okbuf, "yes") ||
 189            streql(okbuf, "Y") || streql(okbuf, "YES"))
 190                 return(TRUE);
 191         else
 192                 return(FALSE);
 193 }