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

   1
   2 #include        <doscall.h>
   3 #include        <profile.h>
   4 #include        <fdiskc.msg>
   5 #include        <subtype.h>
   6 #include        <ctype.h>
   7
   8
   9 void    main()
  10
  11 BEGIN
  12
  13 unsigned i;
  14
  15         /* Main Menu */
  16         clear_screen(0,0,24,79);
  17         display(menu_1);
  18         display(menu_2);
  19         display(menu_3);
  20         display(menu_4);
  21         insert[0] = 'C';
  22         display(menu_5);
  23         display(menu_6);
  24         display(menu_7);
  25
  26         wait_for_ESC();
  27
  28
  29         /* Type of DOS partition for create */
  30         clear_screen(0,0,24,39);
  31         display(menu_3);
  32         insert[0] = 'C';
  33         display(menu_5);
  34         display(menu_7);
  35         display(menu_8);
  36         display(menu_9);
  37         display(menu_10);
  38         display(menu_11);
  39         wait_for_ESC();
  40
  41         /* Shortcut screen C:*/
  42         clear_screen(0,0,24,39);
  43         display(menu_12);
  44         insert[0] = 'C';
  45         display(menu_5);
  46         display(menu_11);
  47         display(menu_12);
  48         display(menu_13);
  49         wait_for_ESC();
  50
  51         /* Shortcut screen D:*/
  52         clear_screen(0,0,24,39);
  53         display(menu_12);
  54         insert[0] = 'C';
  55         display(menu_5);
  56         display(menu_11);
  57         display(menu_12);
  58         display(menu_41);
  59         wait_for_ESC();
  60
  61
  62 /* Create primary DOS partition screen */
  63         display(menu_12);
  64         insert[0] = 'C';
  65         display(menu_5);
  66         for (i=0;i < 92;i++)
  67            BEGIN
  68             insert[i] = 'x';
  69            END
  70         display(menu_14);
  71         insert[0] = 'x';
  72         insert[1] = 'x';
  73         insert[2] = 'x';
  74         insert[3] = 'x';
  75         display(menu_15);
  76         insert[0] = 'x';
  77         insert[1] = 'x';
  78         insert[2] = 'x';
  79         insert[3] = 'x';
  80         display(menu_16);
  81         insert[0] = 'x';
  82         insert[1] = 'x';
  83         insert[2] = 'x';
  84         insert[3] = 'x';
  85         display(menu_39);
  86         display(menu_11);
  87         wait_for_ESC();
  88
  89 /* Create Extended Partition */
  90         clear_screen(0,0,24,39);
  91         display(menu_17);
  92         insert[0] = 'C';
  93         display(menu_5);
  94         for (i=0;i < 92;i++)
  95            BEGIN
  96             insert[i] = 'x';
  97            END
  98         display(menu_14);
  99         insert[0] = 'x';
 100         insert[1] = 'x';
 101         insert[2] = 'x';
 102         insert[3] = 'x';
 103         display(menu_15);
 104         insert[0] = 'x';
 105         insert[1] = 'x';
 106         insert[2] = 'x';
 107         insert[3] = 'x';
 108         display(menu_16);
 109         display(menu_39);
 110         display(menu_11);
 111         wait_for_ESC();
 112
 113
 114 /* Create logical drive screen */
 115         clear_screen(0,0,24,39);
 116         display(menu_18);
 117         for (i=0;i < 168;i++)
 118            BEGIN
 119             insert[i]= 'x';
 120            END
 121         display(menu_19);
 122         for (i=0;i < 168;i++)
 123            BEGIN
 124             insert[i]= 'x';
 125            END
 126         display(menu_20);
 127         insert[0] = 'x';
 128         insert[1] = 'x';
 129         insert[2] = 'x';
 130         insert[3] = 'x';
 131         display(menu_21);
 132         insert[0] = 'x';
 133         insert[1] = 'x';
 134         insert[2] = 'x';
 135         insert[3] = 'x';
 136         display(menu_22);
 137         insert[0] = 'x';
 138         insert[1] = 'x';
 139         insert[2] = 'x';
 140         insert[3] = 'x';
 141         display(menu_40);
 142         display(menu_11);
 143         wait_for_ESC();
 144
 145
 146 /* Change active partition screen */
 147         clear_screen(0,0,24,39);
 148         display(menu_23);
 149         insert[0] = 'C';
 150         display(menu_5);
 151         for (i=0;i < 92;i++)
 152            BEGIN
 153             insert[i] = 'x';
 154            END
 155         display(menu_14);
 156         insert[0] = 'x';
 157         insert[1] = 'x';
 158         insert[2] = 'x';
 159         insert[3] = 'x';
 160         display(menu_15);
 161         display(menu_24);
 162         display(menu_11);
 163         wait_for_ESC();
 164
 165
 166 /* Delete Partition Screen */
 167         clear_screen(0,0,24,39);
 168         display(menu_25);
 169         insert[0] = 'C';
 170         display(menu_5);
 171         display(menu_3);
 172         display(menu_26);
 173         display(menu_27);
 174         display(menu_7);
 175         display(menu_11);
 176         wait_for_ESC();
 177
 178 /* Delete Primary Screen */
 179         clear_screen(0,0,24,39);
 180         display(menu_28);
 181         insert[0] = 'C';
 182         display(menu_5);
 183         for (i=0;i < 92;i++)
 184            BEGIN
 185             insert[i] = 'x';
 186            END
 187         display(menu_14);
 188         insert[0] = 'x';
 189         insert[1] = 'x';
 190         insert[2] = 'x';
 191         insert[3] = 'x';
 192         display(menu_15);
 193         display(menu_29);
 194         display(menu_11);
 195         wait_for_ESC();
 196
 197
 198 /* Delete Extended Screen */
 199         clear_screen(0,0,24,39);
 200         display(menu_30);
 201         insert[0] = 'C';
 202         display(menu_5);
 203         for (i=0;i<92;i++)
 204            BEGIN
 205             insert[i] = 'x';
 206            END
 207         display(menu_14);
 208         insert[0] = 'x';
 209         insert[1] = 'x';
 210         insert[2] = 'x';
 211         insert[3] = 'x';
 212         display(menu_15);
 213         display(menu_31);
 214         display(menu_11);
 215         wait_for_ESC();
 216
 217
 218 /* Delete Logical Drives */
 219         clear_screen(0,0,24,39);
 220         display(menu_32);
 221         display(menu_18);
 222         for (i=0;i<168;i++)
 223            BEGIN
 224             insert[i]='x';
 225            END
 226         display(menu_19);
 227         insert[0] = 'x';
 228         insert[1] = 'x';
 229         insert[2] = 'x';
 230         insert[3] = 'x';
 231         display(menu_21);
 232         display(menu_33);
 233         display(menu_11);
 234         wait_for_ESC();
 235
 236 /* Display Partition Information */
 237         clear_screen(0,0,24,39);
 238         display(menu_35);
 239         insert[0] = 'C';
 240         display(menu_5);
 241         for (i=0;i<92;i++)
 242            BEGIN
 243             insert[i] = 'x';
 244            END
 245         display(menu_14);
 246         insert[0] = 'x';
 247         insert[1] = 'x';
 248         insert[2] = 'x';
 249         insert[3] = 'x';
 250         display(menu_15);
 251         display(menu_36);
 252         display(menu_11);
 253         wait_for_ESC();
 254
 255 /* Display Logical Drive Info */
 256         clear_screen(0,0,24,39);
 257         display(menu_37);
 258         for (i=0;i<168;i++)
 259            BEGIN
 260             insert[i]='x';
 261            END
 262         display(menu_19);
 263         for (i=0;i<168;i++)
 264            BEGIN
 265             insert[i]='x';
 266            END
 267         display(menu_20);
 268         display(menu_11);
 269         wait_for_ESC();
 270
 271 /* Reboot Screen */
 272         clear_screen(0,0,24,39);
 273         display(menu_38);
 274         wait_for_ESC();
 275
 276         clear_screen(0,0,24,39);
 277         display(status_1);
 278         wait_for_ESC();
 279
 280         clear_screen(0,0,24,39);
 281         display(status_2);
 282         wait_for_ESC();
 283
 284         clear_screen(0,0,24,39);
 285         display(status_3);
 286         wait_for_ESC();
 287
 288         clear_screen(0,0,24,39);
 289         insert[0] = 'x';
 290         display(status_4);
 291         wait_for_ESC();
 292
 293         clear_screen(0,0,24,39);
 294         display(status_5);
 295         wait_for_ESC();
 296
 297         clear_screen(0,0,24,39);
 298         display(status_6);
 299         wait_for_ESC();
 300
 301         clear_screen(0,0,24,39);
 302         display(status_7);
 303         wait_for_ESC();
 304
 305         clear_screen(0,0,24,39);
 306         display(status_8);
 307         wait_for_ESC();
 308
 309         clear_screen(0,0,24,39);
 310         display(status_9);
 311         wait_for_ESC();
 312
 313         clear_screen(0,0,24,39);
 314         display(status_10);
 315         wait_for_ESC();
 316
 317         clear_screen(0,0,24,39);
 318         display(error_1);
 319         wait_for_ESC();
 320
 321         clear_screen(0,0,24,39);
 322         display(error_2);
 323         wait_for_ESC();
 324
 325         clear_screen(0,0,24,39);
 326         display(error_3);
 327         wait_for_ESC();
 328
 329         clear_screen(0,0,24,39);
 330         display(error_4);
 331         wait_for_ESC();
 332
 333         clear_screen(0,0,24,39);
 334         display(error_5);
 335         wait_for_ESC();
 336
 337         clear_screen(0,0,24,39);
 338         display(error_6);
 339         wait_for_ESC();
 340
 341         clear_screen(0,0,24,39);
 342         display(error_7);
 343         wait_for_ESC();
 344
 345         clear_screen(0,0,24,39);
 346         display(error_8);
 347         wait_for_ESC();
 348
 349         clear_screen(0,0,24,39);
 350         display(error_9);
 351         wait_for_ESC();
 352
 353         clear_screen(0,0,24,39);
 354         display(error_10);
 355         wait_for_ESC();
 356
 357         clear_screen(0,0,24,39);
 358         display(error_12);
 359         wait_for_ESC();
 360
 361         clear_screen(0,0,24,39);
 362         display(error_13);
 363         wait_for_ESC();
 364
 365         clear_screen(0,0,24,39);
 366         display(error_14);
 367         wait_for_ESC();
 368
 369         clear_screen(0,0,24,39);
 370         display(error_15);
 371         wait_for_ESC();
 372
 373         clear_screen(0,0,24,39);
 374         display(error_16);
 375         wait_for_ESC();
 376
 377         clear_screen(0,0,24,39);
 378         display(error_17);
 379         wait_for_ESC();
 380
 381         clear_screen(0,0,24,39);
 382         display(error_19);
 383         wait_for_ESC();
 384
 385         clear_screen(0,0,24,39);
 386         display(error_20);
 387         wait_for_ESC();
 388
 389         clear_screen(0,0,24,39);
 390         display(error_21);
 391         wait_for_ESC();
 392
 393         clear_screen(0,0,24,39);
 394         display(error_22);
 395         wait_for_ESC();
 396
 397         clear_screen(0,0,24,39);
 398         insert[0]='x';
 399         insert[1]='y';
 400         insert[2]='-';
 401         insert[3]='z';
 402         display(error_23);
 403         wait_for_ESC();
 404
 405         clear_screen(0,0,24,39);
 406         display(error_24);
 407         wait_for_ESC();
 408
 409         clear_screen(0,0,24,39);
 410         display(error_25);
 411         wait_for_ESC();
 412
 413         clear_screen(0,0,24,39);
 414         display(error_26);
 415         wait_for_ESC();
 416
 417         clear_screen(0,0,24,39);
 418         display(error_27);
 419         wait_for_ESC();
 420
 421         clear_screen(0,0,24,39);
 422         display(error_28);
 423         wait_for_ESC();
 424
 425         clear_screen(0,0,24,39);
 426         insert[0]='X';
 427         insert[1]=':';
 428         display(error_29);
 429         wait_for_ESC();
 430
 431         clear_screen(0,0,24,39);
 432         insert[0]='X';
 433         display(error_30);
 434         wait_for_ESC();
 435
 436         clear_screen(0,0,24,39);
 437         insert[0]='x';
 438         insert[1]='-';
 439         insert[2]='y';
 440         display(error_31);
 441         wait_for_ESC();
 442
 443         clear_screen(0,0,24,39);
 444         display(error_32);
 445         wait_for_ESC();
 446
 447         clear_screen(0,0,24,39);
 448         DOSEXIT(0,0);
 449
 450 END
 451
 452
 453 /******************* START OF SPECIFICATIONS *******************/
 454 /*                                                             */
 455 /* SUBROUTINE NAME: DISPLAY                                    */
 456 /*                                                             */
 457 /* DESCRIPTIVE NAME: Display full screen interface messages    */
 458 /*                                                             */
 459 /* FUNCTION: Displays messages and handles control characters  */
 460 /*                                                             */
 461 /* NOTES:                                                      */
 462 /*  FDISK MESSAGES                                             */
 463 /* Portions of the screen that are handled in the msg are      */
 464 /* indicated on the listing of the screen with the message     */
 465 /* name given.  If the text message is defined in another      */
 466 /* screen, then the name is followed by a "#" character        */
 467 /*                                                             */
 468 /* NOTE TO TRANSLATORS The characters inside the <> and the [] */
 469 /* are control characters and should not be translated.  The   */
 470 /* Control characters are defined as follows:                  */
 471 /*                                                             */
 472 /* <H> - Highlight the following text                          */
 473 /* <R> - Regular text                                          */
 474 /* <B> - Blink the following text                              */
 475 /* <O> - Turn blinking off                                     */
 476 /* <Y> - Print YES character, as set by define                 */
 477 /* <N> - Print NO character, as set by define                  */
 478 /* <W> - Sound the beep                                        */
 479 /* <S> - Save cursor position for later use                    */
 480 /* <I> - Insert character from insert[] string. This string    */
 481 /*       must be set up prior to displaying the message. The   */
 482 /*       first <I> will insert Insert[0], the second           */
 483 /*       insert[1], etc....This will move the cursor one       */
 484 /*       postition. The insert[] string will be initialized    */
 485 /*                                                             */
 486 /* Multiple control characters can be between the <>.          */
 487 /*                                                             */
 488 /* The %####%indicates Row and column for the text and has the */
 489 /* format of [rrcc] where the numbers are decimal and zero     */
 490 /* based (first row/col is 00.  The numbers are in decimal,    */
 491 /* and must be 2 characters, which means rows/cols 0-9 should  */
 492 /* be listed as 00-09.  For example, the 5th row, 3rd column   */
 493 /* on the screen would be listed as %0402%.                    */
 494 /*                                                             */
 495 /* The column number is always the column desired.  The row    */
 496 /* number is an offset from the previous row.  For example, if */
 497 /* the text just printed is on row 6, and the next text should */
 498 /* be printed 2 rows down in column 0, then the control strin  */
 499 /* would be %0201%.  The first row specified in the message is */
 500 /* assumed to be based off of row 0, it would actually specify */
 501 /* the actual row for the start of the msg to be printed.      */
 502 /*                                                             */
 503 /* ENTRY POINTS: display(*message_name);                       */
 504 /*      LINKAGE: Near call                                     */
 505 /*                                                             */
 506 /* INPUT: char *message_name                                   */
 507 /*                                                             */
 508 /* EXIT-NORMAL:                                                */
 509 /*                                                             */
 510 /* EXIT-ERROR:                                                 */
 511 /*                                                             */
 512 /* EFFECTS:                                                    */
 513 /* input_row changed if <S> control character in message       */
 514 /* input_col changed if <S> control character in message       */
 515 /*                                                             */
 516 /* INTERNAL REFERENCES:                                        */
 517 /*   ROUTINES:                                                 */
 518 /*                                                             */
 519 /* EXTERNAL REFERENCES:                                        */
 520 /*   ROUTINES:                                                 */
 521 /*                                                             */
 522 /* viowrtcharstratt();                                         */
 523 /******************** END OF SPECIFICATIONS ********************/
 524 void display(s)
 525
 526 char far *s;
 527
 528 BEGIN
 529         unsigned      row;
 530         unsigned      col;
 531         char          attribute;
 532         char far      *attribute_ptr = &attribute;
 533         unsigned      insert_count;
 534
 535
 536         /* Initialize row and col, and index into array */
 537         row = 0;
 538         col = 0;
 539         insert_count = 0;
 540         /* check for a request to display a null string */
 541         if (*s == '\0')
 542            BEGIN
 543             /* Message string error */
 544             insert[0] = '1';
 545             display(debug_msg);
 546            END
 547         else
 548            BEGIN
 549             /* There is data there, lets go handle it */
 550
 551             attribute = 0x00;
 552             /* Go until end of string */
 553             while (*s != '\0')
 554                BEGIN
 555
 556                 /* Check for any imbedded control strings */
 557                 switch (*s)
 558                    BEGIN
 559                     /* Check for control characters */
 560                     case '<':
 561                               BEGIN
 562                                s++;
 563                                while ( (*s != '>') && (*s != '\0') )
 564                                   BEGIN
 565                                    switch (*s++)
 566                                       BEGIN
 567                                        case 'H': attribute = (attribute & 0x80) | 0x0F;
 568                                                  break;
 569
 570
 571                                        case 'R': attribute = (attribute & 0x80) | 0x07;
 572                                                  break;
 573
 574                                        case 'B': attribute |= 0x80;
 575                                                  break;
 576
 577                                        case 'O': attribute &= 0x7F;
 578                                                  break;
 579
 580                                        case 'W': DOSBEEP(900,400);
 581                                                  break;
 582
 583                                        case 'I':
 584                                                  BEGIN
 585                                                    /* display next element in the array */
 586                                                   if (attribute == 0x00)
 587                                                       attribute = 0x07;
 588                                                   VIOWRTCHARSTRATT(pinsert+insert_count++,1,row,col++,attribute_ptr,0);
 589                                                   break;
 590                                                  END
 591
 592
 593                                        case 'Y':
 594                                                  BEGIN
 595                                                   /* display YES character in next location */
 596                                                   *--s = YES;
 597                                                   if (attribute == 0x00)
 598                                                       attribute = 0x07;
 599                                                   VIOWRTCHARSTRATT(s++,1,row,col++,attribute_ptr,0);
 600                                                   break;
 601                                                  END
 602
 603                                        case 'N':
 604                                                  BEGIN
 605                                                   /* display NO character in next location */
 606                                                   *--s = NO;
 607                                                   if (attribute == 0x00)
 608                                                       attribute = 0x07;
 609                                                   VIOWRTCHARSTRATT(s++,1,row,col++,attribute_ptr,0);
 610                                                   break;
 611                                                  END
 612
 613
 614                                        case 'S':
 615                                                  BEGIN
 616                                                   input_row = row;
 617                                                   input_col = col;
 618                                                   break;
 619                                                  END
 620
 621                                        case 'C':
 622                                                  BEGIN
 623                                                   /* Clear from current position to end of line */
 624                                                   clear_screen(row,col,row,39);
 625                                                   break;
 626                                                  END
 627
 628                                        case '\0':
 629                                                  BEGIN
 630                                                   /* Message string error - string ended in the middle of control string*/
 631                                                   insert[0] = '7';
 632                                                   display(debug_msg);
 633                                                   break;
 634                                                  END
 635
 636                                        default:
 637                                                  BEGIN
 638                                                   /* Message string error - no valid control char found */
 639                                                   insert[0] = '6';
 640                                                   display(debug_msg);
 641                                                   break;
 642                                                  END
 643                                       END /* Switch */
 644                                   END /* While */
 645                                /* Get the pointer past the '>' */
 646                                s++;
 647                                break;
 648                               END /* control characters */
 649
 650                     /* Check for row,col */
 651                     case '%':
 652                               BEGIN
 653                                s++;
 654                                /* determine the row to put the message on */
 655                                if ( !isdigit(*s) )
 656                                   BEGIN
 657                                    /* Message string error */
 658                                    insert[0] = '2';
 659                                    display(debug_msg);
 660                                   END
 661                                else
 662                                   BEGIN
 663                                    row = row+((unsigned)(((*s++ - '0')*10)));
 664                                    if ( !isdigit(*s) )
 665                                      BEGIN
 666                                       /* Message string error */
 667                                       insert[0] = '2';
 668                                       display(debug_msg);
 669                                      END
 670                                    else
 671                                       BEGIN
 672                                        row = row+((unsigned)(*s++ - '0'));
 673                                        /* determine the col to put the message on */
 674                                        if ( !isdigit(*s) )
 675                                           BEGIN
 676                                            /* Message string error */
 677                                            insert[0] = '3';
 678                                            display(debug_msg);
 679                                           END
 680                                        else
 681                                           BEGIN
 682                                            col = ((unsigned)(*s++ - '0'));
 683                                            if ( !isdigit(*s) )
 684                                               BEGIN
 685                                                /* Message string error */
 686                                                insert[0] = '3';
 687                                                display(debug_msg);
 688                                               END
 689                                            else
 690                                               BEGIN
 691                                                col = ((unsigned)((col* 10) + (*s++ - '0')));
 692                                                if (*s++ != '%')
 693                                                   BEGIN
 694                                                    /* Message string error */
 695                                                    insert[0] = '4';
 696                                                    display(debug_msg);
 697                                                   END /* 2nd sq bracket */
 698                                               END /* 2nd digit col */
 699                                           END /* 1st digit col */
 700                                       END /* 2nd digit row */
 701                                   END /* 1st digit row */
 702                                break;
 703                               END
 704                     /* Handle anything else */
 705
 706
 707                     default:
 708                             BEGIN
 709                              /* See if attribute set to anything */
 710                              if (attribute == 0x00)
 711                                   attribute = 0x07;
 712                              VIOWRTCHARSTRATT(s++,1,row,col++,attribute_ptr,0);
 713                              break;
 714                             END
 715                    END
 716                END /* End of string check */
 717            END /* No characters in string check */
 718         return;
 719
 720 END
 721
 722 void number_in_msg(number,start)
 723
 724 unsigned    number;
 725 unsigned    start;
 726
 727 BEGIN
 728
 729 unsigned     i;
 730
 731         /* init the four spots to zero's */
 732         for (i = 0; i < 4;i++)
 733             BEGIN
 734              insert[start+i] = ' ';
 735             END
 736         /* Divide the space down and get it into decimal */
 737         if (number > 999)
 738            BEGIN
 739             insert[start] = ((char)(number/1000))+'0';
 740             insert[start+1] = '0';
 741             insert[start+2] = '0';
 742             insert[start+3] = '0';
 743             number = number%1000;
 744            END
 745         if (number > 99)
 746            BEGIN
 747             insert[start+1] = ((char)(number/100))+'0';
 748             insert[start+2] = '0';
 749             insert[start+3] = '0';
 750             number = number%100;
 751            END
 752         if (number > 9)
 753            BEGIN
 754             insert[start+2] = ((char)(number/10))+'0';
 755             insert[start+3] = '0';
 756             number = number%10;
 757            END
 758         insert[start+3] = ((char)(number +'0'));
 759         return;
 760 END
 761
 762
 763
 764 void clear_screen(TopRow,LeftCol,BotRow,RightCol)
 765
 766 unsigned     TopRow;
 767 unsigned     LeftCol;
 768 unsigned     BotRow;
 769 unsigned     RightCol;
 770
 771 BEGIN
 772
 773 char    attribute;
 774 char    *attribute_ptr = &attribute;
 775
 776    attribute = 0x07;
 777    VIOSCROLLUP(TopRow,LeftCol,BotRow,RightCol,0,attribute_ptr,0);
 778    return;
 779 END
 780
 781
 782
 783 char wait_for_ESC()
 784
 785 BEGIN
 786      char  input;
 787
 788     while (input != ESC)
 789        BEGIN
 790         /* position the cursor at the end of the ESC prompt */
 791         VIOSETCURPOS(24,39,0);
 792
 793         /* Get input */
 794         KBDFLUSHBUFFER(0);
 795       /*KBDCHARIN(input_data,0,0);*/
 796       /*input = input_data->char_code;*/
 797           input = ((char)(getch()));
 798        END
 799     return(ESC);
 800 END
 801
 802 \1a