v4.0/src/CMD/FDISK/INPUT.C

   1
   2 #include "dos.h"                                                        /* AN000 */
   3 #include "fdisk.h"                                                      /* AN000 */
   4 #include "subtype.h"                                                    /* AN000 */
   5 #include "extern.h"                                                     /* AN000 */
   6 #include "ctype.h"                                                      /* AN000 */
   7 #include "string.h"                                                     /* AN000 */
   8 #include "stdio.h"
   9 #include "fdiskmsg.h"                                                   /* AN000 */
  10 #include "doscall.h"                                                    /* AN000 */
  11
  12 /* \f */
  13 char get_num_input(input_default,max_num,row,col)
  14
  15 char   max_num;
  16 unsigned        row;
  17 unsigned        col;
  18 char            input_default;
  19
  20 BEGIN
  21
  22     char  input;
  23     char   default_used;
  24     char   input_value;
  25
  26     /* print default entry if there is one */
  27     if (input_default != c(NUL))                                        /* AC000 */
  28
  29         BEGIN
  30         default_used = TRUE;
  31         /* position the cursor */
  32         VIOSETCURPOS(row,col,u(0));                                     /* AC000 */
  33
  34         /* Display the default character */
  35         putch(((int)(input_default+'0')));
  36         END
  37
  38     /* Assume bad input */
  39     valid_input = FALSE;
  40
  41     /* Loop until we get good stuff */
  42     while (valid_input == FALSE)
  43         BEGIN
  44
  45         /* position the cursor */
  46         VIOSETCURPOS(row,col,u(0));                                     /* AC000 */
  47
  48         /* Flush the keyboard buffer and get the next pressed key */
  49         input = get_char_input();
  50
  51         /* Do world trade get country information */
  52         input = dos_upper(input);                                       /* AN000 */
  53
  54         /* Go handle different inputs */
  55         switch(input)
  56             BEGIN
  57             case ESC:
  58                 BEGIN
  59                 valid_input = TRUE;
  60                 break;
  61                 END
  62
  63             case  CR:
  64                 BEGIN
  65                 /* Set the input to the default if there is one there */
  66                 if (default_used)
  67                     BEGIN
  68                     if (input_default != c(NUL))
  69                         BEGIN
  70                         input_value = input_default+'0';
  71                         END
  72                     else
  73                         BEGIN
  74                         /* Make the enter look like a blank for error message */
  75                         input_value = c(' ');                           /* AC000 */
  76                         END
  77                     END
  78                 /* See if it is digit and less or equal to max */
  79                 if ( (isdigit(input_value))         &&
  80                      (input_value <= (max_num+'0')) &&
  81                      (input_value != c('0')) )
  82                     BEGIN
  83                     valid_input = TRUE;
  84                     input = input_value;
  85                     END
  86                 else
  87                     BEGIN
  88                     if (isdigit(input_value))
  89                         BEGIN
  90                         /* Setup error message */
  91                         insert[0] = input_value;
  92                         insert[1] = c('1');                    /* AC000 */
  93                         insert[2] = c('-');                    /* AC000 */
  94                         insert[3] = max_num+'0';
  95                         display(error_23);
  96                         END
  97                     else
  98                         BEGIN
  99                         insert[0] = c('1');                    /* AC000 */
 100                         insert[1] = c('-');                    /* AC000 */
 101                         insert[2] = max_num+'0';
 102                         display(error_31);
 103                         END
 104                     END
 105                 break;
 106                 END
 107
 108             default:
 109                 BEGIN
 110                 putch(((int)(input)));
 111                 default_used = FALSE;
 112                 input_value = input;
 113                 break;
 114                 END
 115             END
 116         END
 117      return(input);
 118 END
 119
 120
 121
 122 /* \f */
 123
 124 char get_yn_input(input_default,row,col)
 125
 126 unsigned        row;
 127 unsigned        col;
 128 char            input_default;
 129
 130 BEGIN
 131
 132     char   input;
 133     char   default_used;
 134     char   input_value;
 135
 136     /* print default entry if there is one */
 137     if (input_default != c(NUL))                                      /* AC000 */
 138
 139         BEGIN
 140         default_used = TRUE;
 141         /* position the cursor */
 142         VIOSETCURPOS(row,col,u(0));                                   /* AC000 */
 143
 144         /* Display the default character */
 145         putch(((int)(input_default)));
 146         END
 147
 148     /* Assume bad input */
 149     valid_input = FALSE;
 150
 151     /* Loop until we get good stuff */
 152     while (valid_input == FALSE)
 153         BEGIN
 154
 155         /* position the cursor */
 156         VIOSETCURPOS(row,col,u(0));                                   /* AC000 */
 157
 158         /* Flush the keyboard buffer and get the next pressed key */
 159         input = get_char_input();
 160         input = dos_upper(input);
 161
 162         /* Go handle different inputs */
 163         switch(input)
 164             BEGIN
 165             case ESC:
 166                 BEGIN
 167                 valid_input = TRUE;
 168                 break;
 169                 END
 170
 171             case  CR:
 172                 BEGIN
 173                 /* Set the input to the default if there is one there */
 174                 if (default_used)
 175                     BEGIN
 176                     if (input_default != c(NUL))                        /* AC000 */
 177                         BEGIN
 178                         input_value = input_default;
 179                         END
 180                     else
 181                         BEGIN
 182                         internal_program_error();
 183                         END
 184                     END
 185                 /* See if YES or NO */
 186
 187                 /* Do world trade get country information */
 188                 input = check_yn_input(input_value);                    /* AN000 */
 189
 190                 if ((input == c(1)) || (input == c(0)))                 /* AC000 */
 191                     BEGIN
 192                     valid_input = TRUE;
 193                     END
 194                 else
 195                     BEGIN
 196                     /* Setup error message */
 197                     insert[0] = c(Yes);                        /* AC000 AC011 */
 198                     insert[1] = c('-');                        /* AC000 */
 199                     insert[2] = c(No);                         /* AC000 AC011 */
 200                     display(error_31);
 201                     END
 202                 break;
 203                 END
 204
 205             default:
 206                 BEGIN
 207                 putch(((int)(input)));
 208                 default_used = FALSE;
 209                 input_value = input;
 210                 break;
 211                 END
 212             END
 213          END
 214      return(input);
 215 END
 216
 217
 218 /* \f */
 219 char wait_for_ESC()
 220
 221 BEGIN
 222     char  input;
 223
 224     while (input != c(ESC))                                             /* AC000 */
 225         BEGIN
 226         /* position the cursor at the end of the ESC prompt */
 227         VIOSETCURPOS(u(24),u(39),u(0));                                 /* AC000 */
 228
 229         /* Get input */
 230         input = get_char_input();
 231
 232         END
 233     return(c(ESC));                                                     /* AC000 */
 234 END
 235
 236
 237
 238
 239 XFLOAT get_large_num_input(input_default,max_num,max_percent,input_message,prompt_location,error_message)
 240
 241 unsigned    input_default;                                              /* AC000 */
 242 unsigned    max_num;
 243 unsigned    max_percent;
 244 char far   *input_message;
 245 char far   *error_message;
 246 unsigned   prompt_location;
 247
 248 BEGIN
 249
 250 char           input;
 251 XFLOAT         large_input;                                             /* AC000 */
 252 char           default_used;
 253 unsigned long  very_big_input;
 254
 255     /* Assume bad input */
 256     valid_input = FALSE;
 257
 258     /* Assume no input, and use default */
 259     default_used = TRUE;
 260
 261     /* Initialize the input value */
 262     large_input = u(0);                                                 /* AC000 */
 263
 264     /* Loop until we get good stuff */
 265     while (valid_input == FALSE)
 266
 267             BEGIN
 268             /* position the cursor */
 269             VIOSETCURPOS(input_row,input_col,u(0));                     /* AC000 */
 270
 271             /* Flush the keyboard buffer and get the next pressed key */
 272
 273             input = get_char_input();
 274
 275             /* Go handle different inputs */
 276             switch(input)
 277                 BEGIN
 278                 case ESC:
 279                     valid_input = TRUE;
 280                     large_input = ((unsigned)(ESC_FLAG));
 281                     break;
 282
 283                 case CR:
 284                     BEGIN
 285                     if (PercentFlag)
 286                         BEGIN
 287                         /* Set the input to the default if there is one there and nothing else entered */
 288                         if ((input_default != u(NUL)) && (default_used))  /* AC000 */
 289                             large_input = input_default;
 290                         /* See if input is less or equal to max_value */
 291                         if (large_input <= max_percent)
 292                             BEGIN
 293                             if (large_input != u(0))
 294                                 valid_input = TRUE;
 295                             else
 296                                 display(error_28);
 297                             END
 298                         else
 299                             display(error_message);
 300                         END
 301                     else
 302                         BEGIN
 303                         /* Set the input to the default if there is one there and nothing else entered */
 304                         if ((input_default != u(NUL)) && (default_used))  /* AC000 */
 305                             large_input = input_default;
 306                         /* See if input is less or equal to max_value */
 307                         if (large_input <= max_num)
 308                             BEGIN
 309                             if (large_input != u(0))
 310                                 valid_input = TRUE;
 311                             else
 312                                 display(error_28);
 313                             END
 314                         else
 315                             display(error_message);
 316                         END
 317                     break;
 318                     END
 319
 320                 case BACKSPACE:
 321                     if (PercentFlag)
 322                         PercentFlag = (FLAG)FALSE;                      /* AN000 */
 323                     else
 324                         large_input = large_input / 10;
 325
 326                     /* Indicate that we are not using the default */
 327                     default_used = FALSE;
 328                     sprintf(&insert[prompt_location],"%4.0d",large_input);  /* AN000 */
 329                     display(input_message);
 330                     break;
 331
 332                 case PERCENT:                                           /* AN000 */
 333
 334                     if (PercentFlag == (FLAG)FALSE)
 335                         BEGIN                                           /* AN000 */
 336                         PercentFlag = (FLAG)TRUE;                       /* AN000 */
 337                         /* Round down if > 999.9 */
 338                         if (large_input > u(999))                       /* AN000 */
 339                             large_input = (large_input%1000);           /* AN000 */
 340                         sprintf(&insert[prompt_location],"%3.0d%%",large_input);  /* AN000 */
 341                         /* Indicate that we are not using the default */
 342                         default_used = FALSE;                           /* AN000 */
 343                         display(input_message);                         /* AN000 */
 344                         END                                             /* AN000 */
 345                     else
 346                         display(error_33);                              /* AN000 */
 347
 348                     break;                                              /* AN000 */
 349
 350
 351                 default:
 352                     BEGIN
 353
 354                     /* Make sure it is numerical input */
 355
 356                     if ( (isdigit(input)) && ((!PercentFlag) || (default_used)) )     /* AN000 */
 357                         BEGIN
 358                         /* Add this digit in */
 359                         very_big_input= (((unsigned long)(large_input)) * 10) + ((unsigned long)input - '0');   /* AC000 */
 360
 361                         /* Round down if > 9999.9 */
 362                         large_input = ((unsigned)(very_big_input%10000));
 363
 364                         /* Put it in the message */
 365                         number_in_msg((XFLOAT)large_input,prompt_location);  /* AN000 */
 366                         display(input_message);
 367
 368                         /* Indicate that we are not using the default */
 369                         default_used = FALSE;
 370                         PercentFlag = (FLAG)FALSE;                      /* AN000 */
 371                         END
 372                     else
 373                         BEGIN
 374                         if (!PercentFlag)                               /* AN000 */
 375                             BEGIN                                       /* AN000 */
 376                             /* Setup error message */
 377                             insert[0] = c('0');                         /* AC000 */
 378                             insert[1] = c('-');                         /* AC000 */
 379                             insert[2] = c('9');                         /* AC000 */
 380                             display(error_31);
 381                             END                                         /* AN000 */
 382                         else                                            /* AN000 */
 383                             BEGIN                                       /* AN000 */
 384                             display(error_33);                          /* AN000 */
 385                             END                                         /* AN000 */
 386                         END
 387                     END
 388                 END
 389             END
 390
 391         return(large_input);
 392 END
 393
 394
 395 /* \f */
 396 char get_alpha_input(low_letter,high_letter,row,col,error_low_letter,error_high_letter)
 397
 398 unsigned     row;
 399 unsigned     col;
 400 char         low_letter;
 401 char         high_letter;
 402 char         error_low_letter;
 403 char         error_high_letter;
 404
 405 BEGIN
 406
 407     char   input;
 408     char   default_used;
 409     char   input_value;
 410
 411
 412     /* Assume bad input */
 413     valid_input = FALSE;
 414
 415     /* Init input_value to something non-alpha */
 416     input_value = c(0);                                                 /* AC000 */
 417
 418     /* Loop until we get good stuff */
 419     while (valid_input == FALSE)
 420         BEGIN
 421
 422         /* position the cursor */
 423         VIOSETCURPOS(row,col,u(0));                                     /* AC000 */
 424
 425         /* Flush the keyboard buffer and get the next pressed key */
 426         input = get_char_input();
 427         input = dos_upper(input);
 428
 429         /* Go handle different inputs */
 430         switch(input)
 431             BEGIN
 432             case ESC:
 433                 BEGIN
 434                 valid_input = TRUE;
 435                 break;
 436                 END
 437
 438             case  CR:
 439                 BEGIN
 440                 /* See if it is digit and between given letters*/
 441                 /* Do world trade get country information */
 442                 input = dos_upper(input_value);                         /* AN000 */
 443                 if ((isalpha(input))       &&
 444                     (input >= low_letter)  &&
 445                     (input <= high_letter) &&
 446                     (isalpha(input_value)))
 447                     BEGIN
 448                     valid_input = TRUE;
 449                     END
 450                 else
 451                     BEGIN
 452                     if (isalpha(input_value))
 453                         BEGIN
 454                         /* Setup error message */
 455                         insert[0] = input;
 456                         insert[1] = error_low_letter;
 457                         insert[2] = c('-');                             /* AC000 */
 458                         insert[3] = error_high_letter;
 459                         display(error_23);
 460                         END
 461                     else
 462                         BEGIN
 463                         insert[0] = error_low_letter;
 464                         insert[1] = c('-');                             /* AC000 */
 465                         insert[2] = error_high_letter;
 466                         display(error_31);
 467                         END
 468                     END
 469                 break;
 470                 END
 471
 472             default:
 473                 BEGIN
 474                 putch(((int)(input)));
 475                 default_used = FALSE;
 476                 input_value = input;
 477                 break;
 478                 END
 479             END
 480         END
 481     return(input);
 482 END
 483
 484
 485 /* \f */
 486 char    get_char_input()
 487
 488 BEGIN
 489         regs.h.ah = uc(0x0C);                                           /* AC000 */
 490         regs.h.al = uc(0x08);                                           /* AC000 */
 491         intdos(&regs,&regs);
 492         if (regs.h.al == uc(0))                                         /* AC000 */
 493                 BEGIN
 494                 DOSBEEP(u(900),u(400));                                 /* AC000 */
 495                 END
 496         return(((char)(regs.h.al)));
 497
 498 END
 499
 500
 501
 502 /* \f */                                                                 /* AN000 */
 503                                                                         /* AN000 */
 504 void get_string_input(StartRow,StartCol,string_ptr)                     /* AN000 */
 505                                                                         /* AN000 */
 506 unsigned        StartRow;                                               /* AN000 */
 507 unsigned        StartCol;                                               /* AN000 */
 508 char far        *string_ptr;                                            /* AN000 */
 509                                                                         /* AN000 */
 510 BEGIN                                                                   /* AN000 */
 511
 512 #define MAX_STRING_INPUT_LENGTH 11
 513                                                                         /* AN000 */
 514 unsigned char   input;                                                  /* AN000 */
 515 char   input_value;                                                     /* AN000 */
 516 char   far *WorkingPtr;                                                 /* AN000 */
 517 char   far *DeletePtr;                                                  /* AN000 */
 518 char   Done;                                                            /* AN000 */
 519 unsigned        Row;                                                    /* AN000 */
 520 unsigned        Col;                                                    /* AN000 */
 521 int             i;                                                      /* AN000 */
 522                                                                         /* AN000 */
 523                                                                         /* AN000 */
 524     WorkingPtr = string_ptr;                                            /* AN000 */
 525
 526     Row = StartRow;                                                     /* AN000 */
 527     Col = StartCol;                                                     /* AN000 */
 528     VIOSETCURPOS(Row,Col,u(0));                                         /* AN000 */
 529
 530     while(*WorkingPtr != c(NUL))                                        /* AN000 */
 531             BEGIN                                                       /* AN000 */
 532             putch((int)(*WorkingPtr++));                                /* AN000 */
 533             Col++;                                                      /* AN000 */
 534             VIOSETCURPOS(Row,Col,u(0));                                 /* AN000 */
 535             END                                                         /* AN000 */
 536
 537     regs.h.ah = uc(12);                                                 /* AN000 */
 538     regs.h.al = uc(8);                                                  /* AN000 */
 539     intdos(&regs,&regs);                                                /* AN000 */
 540     input = regs.h.al;                                                  /* AN000 */
 541
 542     /* Loop until we get good stuff */                                  /* AN000 */
 543     Done = FALSE;                                                       /* AN000 */
 544     while (!Done)                                                       /* AN000 */
 545         BEGIN                                                           /* AN000 */
 546
 547         /* Go handle different inputs */
 548
 549         if (input < 32)                                                 /* AN000 */
 550             BEGIN                                                       /* AN000 */
 551             switch(input)                                               /* AN000 */
 552                 BEGIN                                                   /* AN000 */
 553                 case ESC:                                               /* AN000 */
 554                     Done=TRUE;                                          /* AN000 */
 555                     *string_ptr++ = c(ESC);                             /* AN000 */
 556                     *string_ptr++ = c('\0');                            /* AN000 */
 557                     break;                                              /* AN000 */
 558
 559                 case  CR:                                               /* AN000 */
 560                     Done=TRUE;                                          /* AN000 */
 561                     break;                                              /* AN000 */
 562
 563                 case 8: /* backspace */                                 /* AN000 */
 564                     if (Col > StartCol)                                 /* AN000 */
 565                         BEGIN                                           /* AN000 */
 566                         WorkingPtr--;                                   /* AN000 */
 567                         Col--;                                          /* AN000 */
 568                         VIOSETCURPOS(Row,Col,u(0));                     /* AN000 */
 569                         putch(' ');                                     /* AN000 */
 570                         VIOSETCURPOS(Row,Col,u(0));                     /* AN000 */
 571                         DeletePtr = WorkingPtr;                         /* AN000 */
 572                         while ( *(DeletePtr+1) != c('\0')  )            /* AN000 */
 573                             BEGIN                                       /* AN000 */
 574                             *DeletePtr = *(DeletePtr+1);                /* AN000 */
 575                             putch(*DeletePtr);                          /* AN000 */
 576                             DeletePtr++;                                /* AN000 */
 577                             END                                         /* AN000 */
 578                         *DeletePtr = c('\0');                           /* AN000 */
 579                         putch(' ');                                     /* AN000 */
 580                         VIOSETCURPOS(Row,Col,u(0));                     /* AN000 */
 581                         END                                             /* AN000 */
 582                     else DOSBEEP(u(900),u(400));                        /* AN000 */
 583                 break;                                                  /* AN000 */
 584
 585                 case  0:                                                /* AN000 */
 586                     regs.h.ah = uc(0x08);                               /* AN000 */
 587                     intdos(&regs,&regs);                                /* AN000 */
 588                     input = regs.h.al;                                  /* AN000 */
 589                     switch(input)                                       /* AN000 */
 590                         BEGIN                                           /* AN000 */
 591                         case 71: /* HOME */                             /* AN000 */
 592                             WorkingPtr = string_ptr;                    /* AN000 */
 593                             Row = StartRow;                             /* AN000 */
 594                             Col = StartCol;                             /* AN000 */
 595                             VIOSETCURPOS(Row,Col,u(0));                 /* AN000 */
 596                             break;                                      /* AN000 */
 597
 598                         case 79: /* END  */                             /* AN000 */
 599                             while (*WorkingPtr != c('\0') )             /* AN000 */
 600                                 BEGIN                                   /* AN000 */
 601                                 WorkingPtr++;                           /* AN000 */
 602                                 Col++;                                  /* AN000 */
 603                                 VIOSETCURPOS(Row,Col,u(0));             /* AN000 */
 604                                 END                                     /* AN000 */
 605                             break;                                      /* AN000 */
 606
 607
 608                         case 75: /* Cursor Left */                      /* AN000 */
 609                             if (Col > StartCol)                         /* AN000 */
 610                                 BEGIN                                   /* AN000 */
 611                                 WorkingPtr--;                           /* AN000 */
 612                                 Col--;                                  /* AN000 */
 613                                 VIOSETCURPOS(Row,Col,u(0));             /* AN000 */
 614                                 END                                     /* AN000 */
 615                             else DOSBEEP(u(900),u(400));                /* AN000 */
 616                             break;                                      /* AN000 */
 617
 618
 619                         case 77: /* Cursor Right */                     /* AN000 */
 620                             if ( *WorkingPtr != c('\0') )               /* AN000 */
 621                                 BEGIN                                   /* AN000 */
 622                                 WorkingPtr++;                           /* AN000 */
 623                                 Col++;                                  /* AN000 */
 624                                 VIOSETCURPOS(Row,Col,u(0));             /* AN000 */
 625                                 END                                     /* AN000 */
 626                             else DOSBEEP(u(900),u(400));                /* AN000 */
 627                             break;                                      /* AN000 */
 628
 629
 630                         default:                                        /* AN000 */
 631                             DOSBEEP(u(900),u(400));                     /* AN000 */
 632                             break;                                      /* AN000 */
 633
 634                         END                                             /* AN000 */
 635                     break;                                              /* AN000 */
 636
 637                 default:                                                /* AN000 */
 638                         DOSBEEP(u(900),u(400));                         /* AN000 */
 639                         break;                                          /* AN000 */
 640                 END                                                     /* AN000 */
 641
 642             END                                                         /* AN000 */
 643          else     /* input is >= 32 */                                  /* AN000 */
 644             BEGIN                                                       /* AN000 */
 645             input = dos_upper(input);                                   /* AN000 */
 646             if ( (strchr(".\"/\\[]:|<>+=;,",input) == NULL) &&
 647                  (Col < StartCol + MAX_STRING_INPUT_LENGTH)    )        /* AN000 */
 648                 BEGIN                                                   /* AN000 */
 649                 putch(((int)(input)));                                  /* AN000 */
 650                 *WorkingPtr = input;                                    /* AN000 */
 651                 *(WorkingPtr+1) = c('\0');                              /* AN000 */
 652                 if (Col < (StartCol + MAX_STRING_INPUT_LENGTH - 1) )    /* AN000 */
 653                     BEGIN                                               /* AN000 */
 654                     Col++;                                              /* AN000 */
 655                     WorkingPtr++;                                       /* AN000 */
 656                     END                                                 /* AN000 */
 657                 VIOSETCURPOS(Row,Col,u(0));                             /* AN000 */
 658                 END                                                     /* AN000 */
 659             else DOSBEEP(u(900),u(400));                                /* AN000 */
 660             END                                                         /* AN000 */
 661
 662         if (!Done)                                                      /* AN000 */
 663             BEGIN                                                       /* AN000 */
 664             /* Get a character */                                       /* AN000 */
 665             regs.h.ah = uc(0x08);                                       /* AN000 */
 666             intdos(&regs,&regs);                                        /* AN000 */
 667             input = regs.h.al;                                          /* AN000 */
 668             END                                                         /* AN000 */
 669         END                                                             /* AN000 */
 670
 671     return;                                                             /* AN000 */
 672 END                                                                     /* AN000 */
 673