]> wirehaze git hosting - MS-DOS.git/blob - v4.0/src/CMD/FDISK/D_MENUS.C

wirehaze git hosting

projects / MS-DOS.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
MZ is back!
[MS-DOS.git] / v4.0 / src / CMD / FDISK / D_MENUS.C
1
2 #include "dos.h" /* AN000 */
3 #include "fdisk.h" /* AN000 */
4 #include "extern.h" /* AN000 */
5 #include "subtype.h" /* AN000 */
6 #include "fdiskmsg.h" /* AN000 */
7 #include "string.h" /* AN000 */
8 #include "ctype.h" /* AN000 */
9 #include "stdio.h" /* AN000 */
10
11 /* \f */
12 /******************* START OF SPECIFICATIONS *******************/
13 /* */
14 /* SUBROUTINE NAME: DELETE_PARTITION */
15 /* */
16 /* DESCRIPTIVE NAME: Delete partition selection menu */
17 /* */
18 /* FUNCTION: User is prompted as to what type of DOS partition */
19 /* he wishes to delete. */
20 /* */
21 /* NOTES: The delete volume option is only displayed if some */
22 /* disk volumes exist */
23 /* */
24 /* The following screen is managed */
25 /* */
26 /* ³0000000000111111111122222222223333333333³ */
27 /* ³0123456789012345678901234567890123456789³ */
28 /* ÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ */
29 /* 00³ ³ */
30 /* 01³ ³ */
31 /* 02³ ³ */
32 /* 03³ ³ */
33 /* 04³Delete DOS Partition ³ */
34 /* 05³ ³ */
35 /* 06³Current Fixed Disk Drive: # ³ */
36 /* 07³ ³ */
37 /* 08³Enter the type of DOS partition you ³ */
38 /* 09³wish to delete..............? ³ */
39 /* 10³ ³ */
40 /* 11³ 1. Normal DOS partition ³ */
41 /* 12³ 2. EXTENDED DOS Partition ³ */
42 /* 13³ 3. Disk volume in the EXTENDED ³ */
43 /* 14³ DOS Partition ³ */
44 /* 15³ ³ */
45 /* 16³ ³ */
46 /* 17³ ³ */
47 /* 18³Enter choice: [#] ³ */
48 /* 19³ ³ */
49 /* 20³ ³ */
50 /* 21³ ³ */
51 /* 22³ ³ */
52 /* 23³Press ESC to return to FDISK Options ³ */
53 /* ÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ */
54 /* */
55 /* ENTRY POINTS: Delete_Partition */
56 /* LINKAGE: delete_partition() */
57 /* NEAR CALL */
58 /* */
59 /* INPUT: None */
60 /* */
61 /* EXIT-NORMAL: ERROR=FALSE */
62 /* */
63 /* EXIT-ERROR: ERROR=TRUE */
64 /* GOTO internal_program_error if case statement */
65 /* failure when branching to requested function */
66 /* */
67 /* EFFECTS: No data directly modified by this routine, but */
68 /* child routines will modify data. */
69 /* */
70 /* INTERNAL REFERENCES: */
71 /* ROUTINES: */
72 /* clear_screen */
73 /* wait_for_ESC */
74 /* get_num_input */
75 /* internal_program_error */
76 /* dos_delete */
77 /* ext_delete */
78 /* vol_delete */
79 /* */
80 /* EXTERNAL REFERENCES: */
81 /* ROUTINES: */
82 /* */
83 /******************** END OF SPECIFICATIONS ********************/
84
85 /* \f */
86 void delete_partition()
87
88 BEGIN
89
90 unsigned i;
91 char input;
92 char temp;
93 char max_input;
94
95
96 input = c(NUL); /* AC000 */
97 /* clear_screen */
98 clear_screen(u(0),u(0),u(24),u(79)); /* AC000 */
99
100 /* Display header */
101 display(menu_25);
102
103 /* Setup and print current disk */
104 insert[0] = cur_disk+1+'0';
105 display(menu_5);
106
107 /* print ESC prompt */
108 display(menu_11);
109
110 /* check to see if there is an avail partition */
111 temp = c(0); /* AC000 */
112 for (i = u(0); i < u(4);i++) /* AC000 */
113 BEGIN
114
115 /* See if any non - zero system id bytes */
116 temp = temp | part_table[cur_disk][i].sys_id ;
117 END
118 /* Any entry that isn't zero means */
119 if (temp != c(0)) /* AC000 */
120 BEGIN
121 /* ############# ADD CODE HERE FOR THIS FUNCTION ############## */
122 /* Do something about defaults and highlighting */
123 /* */
124 /* ############################################################ */
125
126 /* Display enter prompts */
127 /* display dos delete menu without input prompt */
128 display(menu_3);
129 display(menu_25);
130 display(menu_26);
131 display(menu_7);
132
133 display(menu_27); /* AC000 */
134 max_input = c(3); /* AC000 */
135
136 input = get_num_input(c(NUL),max_input,input_row,input_col); /* AC000 */
137 /* Go branch to the requested function */
138 switch(input)
139 BEGIN
140 case '1':
141 if (find_partition_type(uc(DOS12)) || /* AN016 AC016 */
142 find_partition_type(uc(DOS16)) || /* AN016 AC016 */
143 find_partition_type(uc(DOSNEW))) /* AN016 AC016 */
144 dos_delete();
145 else /* AN000 */
146 BEGIN /* AN000 */
147 /* No Pri partition to delete */
148 clear_screen(u(17),u(0),u(17),u(79)); /* AN000 */
149 display(error_6); /* AN000 */
150 wait_for_ESC(); /* AN000 */
151 END /* AN000 */
152 break;
153
154 case '2':
155 if (find_partition_type(uc(EXTENDED))) /* AN000 */
156 ext_delete();
157 else /* AN000 */
158 BEGIN /* AN000 */
159 /* No Ext partition to delete */
160 clear_screen(u(17),u(0),u(17),u(79)); /* AN000 */
161 display(error_7); /* AN000 */
162 wait_for_ESC(); /* AN000 */
163 END /* AN000 */
164 break;
165
166 case '3':
167 if ((find_partition_type(uc(EXTENDED))) && (find_logical_drive())) /* AC000 */
168 volume_delete();
169 else
170 BEGIN
171 clear_screen(u(17),u(0),u(17),u(79)); /* AN000 */
172 display(error_36); /* AN000 */
173 wait_for_ESC(); /* AN000 */
174 END /* AN000 */
175 break;
176
177 case ESC: break;
178
179 default : internal_program_error();
180 break;
181 END
182 END
183 else
184 BEGIN
185 display(error_14);
186 wait_for_ESC();
187 END
188 /* clear the screen before going back to main menu */
189 clear_screen(u(0),u(0),u(24),u(79)); /* AC000 */
190 return;
191 END
192
193
194 /* \f */
195 /******************* START OF SPECIFICATIONS *******************/
196 /* */
197 /* SUBROUTINE NAME: DOS_DELETE */
198 /* */
199 /* DESCRIPTIVE NAME: Delete DOS partition */
200 /* */
201 /* FUNCTION: Delete the DOS partition. Prompt user with dire */
202 /* warning first. Default entry on prompt is (N) */
203 /* */
204 /* NOTES: Screen can be exited via the ESC command before */
205 /* partition is deleted and nothing will change */
206 /* */
207 /* The following screen is managed */
208 /* */
209 /* ³0000000000111111111122222222223333333333³ */
210 /* ³0123456789012345678901234567890123456789³ */
211 /* ÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ */
212 /* 00³ ³ */
213 /* 01³ ³ */
214 /* 02³ ³ */
215 /* 03³ ³ */
216 /* 04³Delete DOS Partition ³ */
217 /* 05³ ³ */
218 /* 06³Current Fixed Disk Drive: # ³ */
219 /* 07³ ³ */
220 /* 08³Partition Status Type Start End Size³ */
221 /* 09³ # # ####### #### #### ####³ */
222 /* 10³ ³ */
223 /* 11³ ³ */
224 /* 12³ ³ */
225 /* 13³ ³ */
226 /* 14³Total disk space is #### cylinders. ³ */
227 /* 15³ ³ */
228 /* 16³ ³ */
229 /* 17³ ³ */
230 /* 18³Warning! Data in the DOS partition ³ */
231 /* 19³will be lost. Do you wish to ³ */
232 /* 20³continue..........................? [N] ³ */
233 /* 21³ ³ */
234 /* 22³ ³ */
235 /* 23³Press ESC to return to FDISK Options ³ */
236 /* ÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ */
237 /* */
238 /* ENTRY POINTS: DOS_Delete */
239 /* LINKAGE: dos_delete */
240 /* NEAR CALL */
241 /* */
242 /* INPUT: None */
243 /* */
244 /* EXIT-NORMAL: ERROR=FALSE */
245 /* */
246 /* EXIT-ERROR: ERROR=TRUE */
247 /* GOTO internal_program_error if invalid input */
248 /* returned to this level */
249 /* */
250 /* EFFECTS: No data directly modified by this routine, but */
251 /* child routines will modify data. */
252 /* */
253 /* INTERNAL REFERENCES: */
254 /* ROUTINES */
255 /* table_display */
256 /* clear_screen */
257 /* wait_for_ESC */
258 /* get_yn_input */
259 /* display */
260 /* Write_Boot_Record */
261 /* find_part_free_space */
262 /* */
263 /* EXTERNAL REFERENCES: */
264 /* ROUTINES: */
265 /* */
266 /******************** END OF SPECIFICATIONS ********************/
267
268 /* \f */
269 void dos_delete()
270
271 BEGIN
272
273 char input;
274 unsigned i;
275
276
277 input = c(NUL); /* AC000 */
278 /* clear screen */
279 clear_screen(u(0),u(0),u(24),u(79)); /* AC000 */
280
281 /* Display header */
282 display(menu_28);
283
284 /* Setup and print current disk */
285 insert[0] = cur_disk+1+'0';
286 display(menu_5);
287
288 /* print ESC prompt */
289 display(menu_11);
290
291 /* Display partition data and double check if partition exists*/
292 if (table_display())
293 BEGIN
294
295 sprintf(insert,"%4.0d",total_mbytes[cur_disk]);
296 display(menu_15);
297
298 /* See if drive 1 and extended partition exists */
299
300 if (!(find_partition_type(uc(EXTENDED)) && (cur_disk == c(0)))) /* AC000 */
301 BEGIN
302
303 /* Nope, we can keep going */
304 /* Display Y/N prompt */
305 display(menu_29);
306
307 /* Get yes/no prompt */
308 input = get_yn_input(c(No),input_row,input_col); /* AC000 AC011 */
309 switch(input)
310 BEGIN
311 case 1: /* AC000 */
312 BEGIN
313 for (i=u(0); i < u(4); i++) /* AC000 */
314 BEGIN
315
316 if ( (part_table[cur_disk][i].sys_id==uc(DOS12)) ||
317 (part_table[cur_disk][i].sys_id==uc(DOS16)) ||
318 (part_table[cur_disk][i].sys_id==uc(DOSNEW)) ) /* AC000 */
319
320 BEGIN
321 /* Set Partition entry to zero */
322 part_table[cur_disk][i].boot_ind = uc(0); /* AC000 */
323 part_table[cur_disk][i].start_head = uc(0); /* AC000 */
324 part_table[cur_disk][i].start_sector = uc(0); /* AC000 */
325 part_table[cur_disk][i].start_cyl = u(0); /* AC000 */
326 part_table[cur_disk][i].sys_id = uc(0); /* AC000 */
327 part_table[cur_disk][i].end_head = uc(0); /* AC000 */
328 part_table[cur_disk][i].end_sector = uc(0); /* AC000 */
329 part_table[cur_disk][i].end_cyl = u(0); /* AC000 */
330 part_table[cur_disk][i].rel_sec = ul(0); /* AC000 */
331 part_table[cur_disk][i].num_sec = ul(0); /* AC000 */
332 part_table[cur_disk][i].changed = (FLAG)TRUE; /* AC000 */
333 part_table[cur_disk][i].mbytes_used = f(0); /* AN000 */
334 part_table[cur_disk][i].percent_used = u(0); /* AN000 */
335
336 strcpy(part_table[cur_disk][i].system,c(NUL)); /* AN000 */
337 strcpy(part_table[cur_disk][i].vol_label,c(NUL)); /* AN000 */
338
339 /* Redisplay the partition info */
340 table_display();
341
342 /* clear the prompt off */
343 clear_screen(u(16),u(0),u(23),u(79)); /* AC000 */
344
345 /* Set the reboot flag */
346 reboot_flag = (FLAG)TRUE; /* AC000 */
347
348 /* Say that you deleted it */
349 display(status_1);
350
351 wait_for_ESC();
352 break;
353 END
354 END
355 END
356 break;
357
358 case 0: break; /* AC000 */
359
360 case ESC: break;
361
362 default:
363 BEGIN
364 internal_program_error();
365 break;
366 END
367 END
368 END
369 else
370 BEGIN
371 /* Tell user he can't do it while extended exists on drive 1 */
372 display(error_32);
373 wait_for_ESC();
374 END
375 END
376
377 else
378 BEGIN
379 internal_program_error();
380 END
381 clear_screen(u(0),u(0),u(24),u(79)); /* AC000 */
382 return;
383 END
384
385
386 /* \f */
387 /******************* START OF SPECIFICATIONS *******************/
388 /* */
389 /* SUBROUTINE NAME: EXT_DELETE */
390 /* */
391 /* DESCRIPTIVE NAME: Delete EXTENDED DOS partition */
392 /* */
393 /* FUNCTION: Delete the EXTENDED DOS partition. Prompt with */
394 /* warning first. Default entry on prompt is (N) */
395 /* */
396 /* NOTES: Screen can be exited via the ESC command before */
397 /* partition is deleted and nothing will change */
398 /* */
399 /* The following screen is managed */
400 /* */
401 /* ³0000000000111111111122222222223333333333³ */
402 /* ³0123456789012345678901234567890123456789³ */
403 /* ÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ */
404 /* 00³ ³ */
405 /* 01³ ³ */
406 /* 02³ ³ */
407 /* 03³ ³ */
408 /* 04³Delete EXTENDED DOS Partition ³ */
409 /* 05³ ³ */
410 /* 06³Current Fixed Disk Drive: # ³ */
411 /* 07³ ³ */
412 /* 08³Partition Status Type Start End Size³ */
413 /* 09³ # # ####### #### #### ####³ */
414 /* 10³ ³ */
415 /* 11³ ³ */
416 /* 12³ ³ */
417 /* 13³ ³ */
418 /* 14³Total disk space is #### cylinders. ³ */
419 /* 15³ ³ */
420 /* 16³ ³ */
421 /* 17³ ³ */
422 /* 18³Warning! Data in the EXTENDED DOS ³ */
423 /* 19³partition will be lost. Do you wish ³ */
424 /* 20³to continue.......................? [N] ³ */
425 /* 21³ ³ */
426 /* 22³ ³ */
427 /* 23³Press ESC to return to FDISK Options ³ */
428 /* ÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ */
429 /* */
430 /* ENTRY POINTS: Ext_Delete */
431 /* LINKAGE: ext_delete () */
432 /* NEAR CALL */
433 /* */
434 /* INPUT: None */
435 /* */
436 /* EXIT-NORMAL: ERROR=FALSE */
437 /* */
438 /* EXIT-ERROR: ERROR=TRUE */
439 /* GOTO internal_program_error if invalid input */
440 /* returned to this routine */
441 /* */
442 /* EFFECTS: No data directly modified by this routine, but */
443 /* child routines will modify data. */
444 /* */
445 /* INTERNAL REFERENCES: */
446 /* ROUTINES: */
447 /* table_display */
448 /* clear_screen */
449 /* wait_for_ESC */
450 /* get_yn_input */
451 /* display */
452 /* Write_Boot_Record */
453 /* Internal_Program_Error */
454 /* Find_Free_Space */
455 /* */
456 /* EXTERNAL REFERENCES: */
457 /* ROUTINES: */
458 /* */
459 /******************** END OF SPECIFICATIONS ********************/
460
461 /* \f */
462 void ext_delete()
463
464
465 BEGIN
466
467 char input;
468 unsigned i;
469 unsigned j; /* AN000 */
470
471
472 input = c(NUL); /* AC000 */
473 /* Clear the screen */
474 clear_screen(u(0),u(0),u(24),u(79)); /* AC000 */
475
476 /* Display header */
477 display(menu_30);
478
479 /* Setup and print current disk */
480 insert[0] = cur_disk+1+'0';
481 display(menu_5);
482
483 /* print ESC prompt */
484 display(menu_11);
485
486 /* Display partition data and double check if partition exists*/
487 table_display(); /* AC000 */
488 sprintf(insert,"%4.0d",total_mbytes[cur_disk]);
489 display(menu_15);
490
491 BEGIN
492 /* See if there are still volumes */
493 if (!find_logical_drive())
494 BEGIN
495 /* Display Y/N prompt */
496 display(menu_31);
497
498 /* Get yes/no prompt */
499 input = get_yn_input(c(No),input_row,input_col); /* AC000 AC011 */
500 switch(input)
501 BEGIN
502 case 1: /* AC000 */
503 BEGIN
504 for (i=u(0); i < u(4); i++) /* AC000 */
505 /* Note: This will delete all occurances of EXTENDED DOS partitions found */
506 BEGIN
507 if (part_table[cur_disk][i].sys_id == uc(EXTENDED)) /* AC000 */
508 BEGIN
509 /* Set Partition entry to zero */
510 part_table[cur_disk][i].boot_ind = uc(0); /* AC000 */
511 part_table[cur_disk][i].start_head = uc(0); /* AC000 */
512 part_table[cur_disk][i].start_sector = uc(0); /* AC000 */
513 part_table[cur_disk][i].start_cyl = u(0); /* AC000 */
514 part_table[cur_disk][i].sys_id = uc(0); /* AC000 */
515 part_table[cur_disk][i].end_head = uc(0); /* AC000 */
516 part_table[cur_disk][i].end_sector = uc(0); /* AC000 */
517 part_table[cur_disk][i].end_cyl = u(0); /* AC000 */
518 part_table[cur_disk][i].rel_sec = ul(0); /* AC000 */
519 part_table[cur_disk][i].num_sec = ul(0); /* AC000 */
520 part_table[cur_disk][i].changed = (FLAG)TRUE; /* AC000 */
521 part_table[cur_disk][i].mbytes_used = f(0); /* AN000 */
522 part_table[cur_disk][i].percent_used = u(0); /* AN000 */
523
524 strcpy(part_table[cur_disk][i].system,c(NUL)); /* AN000 */
525 strcpy(part_table[cur_disk][i].vol_label,c(NUL)); /* AN000 */
526
527 /* Redisplay the partition info */
528 table_display();
529
530 /* clear the prompt off */
531 clear_screen(u(17),u(0),u(23),u(79)); /* AC000 */
532
533 /* Say that you deleted it */
534 display(status_2);
535
536 /* Set the reboot flag */
537 reboot_flag = (FLAG)TRUE; /* AC000 */
538 END
539 END
540 wait_for_ESC();
541 break;
542 END
543
544 case 0: break; /* AC000 */
545
546 case ESC: break;
547
548 default: internal_program_error();
549 break;
550 END
551 END
552 else
553 BEGIN
554 /* Logical drives still exist, can't delete partition */
555 display(error_21);
556 wait_for_ESC();
557 END
558 END
559 clear_screen(u(0),u(0),u(24),u(79)); /* AC000 */
560 return;
561 END
562
563
564 /* \f */
565 /******************* START OF SPECIFICATIONS *******************/
566 /* */
567 /* SUBROUTINE NAME: VOL_DELETE */
568 /* */
569 /* DESCRIPTIVE NAME: Delete DOS disk Volume */
570 /* */
571 /* FUNCTION: Prompts user to delete a DOS disk volume */
572 /* */
573 /* NOTES: Screen can be exited via the ESC command before */
574 /* partition is deleted and nothing will change */
575 /* */
576 /* The following screen is managed */
577 /* */
578 /* ³0000000000111111111122222222223333333333³ */
579 /* ³0123456789012345678901234567890123456789³ */
580 /* ÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ */
581 /* 00³Delete DOS Disk Volume ³ */
582 /* 01³ ³ */
583 /* 02³Vol Start End Size ³ */
584 /* 03³ # #### #### #### ³ */
585 /* 04³ ³ */
586 /* 05³ ³ */
587 /* 06³ ³ */
588 /* 07³ ³ */
589 /* 08³ ³ */
590 /* 09³ ³ */
591 /* 10³ ³ */
592 /* 11³ ³ */
593 /* 12³ ³ */
594 /* 13³ ³ */
595 /* 14³ ³ */
596 /* 15³ ³ */
597 /* 16³Total partition size is #### cylinders. ³ */
598 /* 17³ ³ */
599 /* 18³Warning! Data in the DOS disk volume ³ */
600 /* 19³will be lost. What volume do you wish ³ */
601 /* 20³to delete.........................? [#] ³ */
602 /* 21³ ³ */
603 /* 22³Are you sure......................? [N] ³ */
604 /* 23³Press ESC to return to FDISK Options ³ */
605 /* ÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ */
606 /* */
607 /* ENTRY POINTS: Vol_Delete */
608 /* LINKAGE: vol_delete () */
609 /* NEAR CALL */
610 /* */
611 /* INPUT: None */
612 /* */
613 /* EXIT-NORMAL: ERROR=FALSE */
614 /* */
615 /* EXIT-ERROR: ERROR=TRUE */
616 /* GOTO internal_program_error if invalid input */
617 /* returned to this routine */
618 /* */
619 /* EFFECTS: No data directly modified by this routine, but */
620 /* child routines will modify data. */
621 /* */
622 /* INTERNAL REFERENCES: */
623 /* ROUTINES: */
624 /* clear_screen */
625 /* display */
626 /* volume_display */
627 /* get_num_input */
628 /* wait_for_ESC */
629 /* get_yn_input */
630 /* Write_Boot_Record */
631 /* Find_Free_Space */
632 /* Internal_Program_Error */
633 /* */
634 /* EXTERNAL REFERENCES: */
635 /* ROUTINES: */
636 /* */
637 /******************** END OF SPECIFICATIONS ********************/
638
639 /* \f */
640 void volume_delete()
641
642 BEGIN
643
644 char input;
645 char drive_input;
646 char high_drive;
647 char low_drive;
648 char error_low_drive;
649 char error_high_drive;
650 char drives_reassigned;
651 int list_index;
652 int i;
653 int j; /* AN011 */
654 int point;
655 FLAG delete_drive;
656 unsigned char drive_list[23][2];
657 int column;
658 int row;
659 FLAG drives_exist;
660 FLAG vol_matches;
661 char temp;
662 unsigned char drive_temp;
663 char far *s;
664 unsigned char string_input[12]; /* AN000 */
665
666 input = c(NUL);
667 string_input[0] = uc(NUL); /* AN000 */
668
669 /* Clear screen */
670 clear_screen(u(0),u(0),u(24),u(79)); /* AC000 */
671
672 /* Display header */
673 display(menu_32);
674
675 /* print ESC prompt */
676 display(menu_11);
677
678 /* Display logical drives and get the highest drive letter assigned*/
679 high_drive = volume_display();
680
681 /* Get the first avail drive letter to be deleted */
682 low_drive = (high_drive - get_num_logical_dos_drives()+1);
683 temp = low_drive;
684
685 /* Initialize array of drive letters that exist at this point */
686 for (i=(int)0; i < (int)23; i++) /* AC000 */
687 BEGIN
688 /* See if we've exceeded the drive letter range */
689 if (temp <= high_drive)
690 BEGIN
691 /* Put in drive letter */
692 drive_list[i][0] = ((unsigned char)(temp));
693 /* Initialize the offsets into the array to something harmless */
694 drive_list[i][1] = uc(INVALID); /* AC000 */
695 END
696 else
697 BEGIN
698 /* No drive there, put in NUL */
699 drive_list[i][0] = uc(NUL); /* AC000 */
700 drive_list[i][1] = uc(INVALID); /* AC000 */
701 END
702
703 /* Check for next drive */
704 temp++;
705 END
706
707 /* Set up partition size message */
708 sprintf(insert,"%4.0d",get_partition_size( uc(EXTENDED) ) );
709 display(menu_21);
710
711 /* Assume no drives deleted */
712 drives_reassigned = (FLAG)FALSE; /* AC000 */
713
714 /* Loop until ESC or all deleted */
715 while (input != c(ESC)) /* AC000 */
716 BEGIN
717
718 /* Are there any drives left?*/
719 drives_exist = (FLAG)FALSE; /* AC000 */
720 error_low_drive = ((char)(NUL));
721 error_high_drive = ((char)(NUL));
722
723 for (i=(int)0;i < (int)23; i++) /* AC000 */
724 BEGIN
725 drive_temp = drive_list[i][0];
726 if ((drive_temp != uc(NUL)) && (drive_list[i][1] != uc(DELETED))) /* AC011 */
727 BEGIN
728 drives_exist = (FLAG)TRUE; /* AC000 */
729
730 /* Find last existing drive letter */
731 error_high_drive = ((char)(drive_temp));
732
733 /* See if we've found the first drive yet */
734 if (error_low_drive == ((char)(NUL)))
735 error_low_drive = ((char)(drive_temp));
736 END
737 END
738
739 /* If there are drives, go let user try to delete them */
740 if (drives_exist)
741 BEGIN
742
743 /* Get input until given a correct drive */
744 valid_input = (FLAG)FALSE; /* AC000 */
745 while ( (!valid_input) && (input != c(ESC)) )
746 BEGIN
747
748 /* Prompt for input */
749 display(menu_33);
750
751 /* Get input between first and highest drive letters */
752 clear_screen( u(21), u(0), u(21), u(79) );
753 input = get_alpha_input(low_drive,high_drive,input_row,input_col,error_low_drive,error_high_drive);
754 drive_input = input;
755
756 /* See if it has been deleted already or ESC pressed */
757 drives_exist = FALSE;
758 for (i=(int)0;i < (int)23; i++) /* AC000 */
759 BEGIN
760 if (drive_list[i][0] == ((unsigned char)(drive_input)) &&
761 (drive_list[i][1] != ((unsigned char) DELETED))) /* AC013 */
762 BEGIN
763 drives_exist = TRUE;
764 list_index = i;
765 END
766 if (ext_table[cur_disk][i].drive_letter == c(drive_input) )
767 point = i;
768 END
769 END
770
771 /* Input volume string to confirm delete */
772 vol_matches = FALSE;
773 if (input != c(ESC))
774 BEGIN
775 if (drives_exist)
776 BEGIN
777 /* delete privious volume mismatch message */
778 string_input[0] = uc(NUL); /* AN000 */
779 clear_screen( u(22), u(0), u(23), u(79) );
780 /* Get input volume label */
781 display(menu_41); /* AN000 */
782 get_string_input(input_row,input_col,string_input); /* AN000 */
783 if (string_input[0] == uc(ESC)) input = c(ESC);
784
785 /* See if the volume id matches the selected drive */ /* AN000 */
786 if (strcmp(ext_table[cur_disk][point].vol_label,string_input) == (int)ZERO)
787 vol_matches = TRUE; /* AN000 */
788 else if (input != c(ESC)) display(error_34);
789 END
790 else
791 BEGIN
792 /* Tell user the drive has already been deleted */
793 insert[0] = dos_upper(drive_input); /* AC000 */
794 insert[1] = c(DRIVE_INDICATOR); /* AC000 */
795 clear_screen( u(21), u(0), u(22), u(79) ); /* AN000 */
796 display(error_29);
797 END
798
799 END
800
801 /* If it is a valid drive indicate that the input was ok */
802 if ( (input != c(ESC)) && (drives_exist) && (vol_matches) ) /* AC000 */
803 BEGIN
804 valid_input = TRUE;
805
806 /* At this point we have a valid drive letter to delete */
807
808 /* Get the offset into the array for the drive to be deleted */
809 delete_drive = find_ext_drive(drive_input - low_drive);
810
811 /* Got a drive letter - prompt are you sure */
812 display(menu_34);
813
814 /* Get Y/N input, default is NO */
815 input = get_yn_input(c(No),input_row,input_col); /* AC000 AC011 */
816
817 /* Clear everything out on screen in prompt area */
818 clear_screen(u(23),u(0),u(23),u(79)); /* AC000 */
819
820 /* Go handle the delete */
821 switch(input)
822 BEGIN
823 case 1: /* AC000 */
824 BEGIN
825 /* Go ahead and mark it deleted in list array */
826
827 /* Throw up a flag to indicate we need to delete this one for real later */
828 /* This is because if we change the ext_table array now, we lose the ability */
829 /* to match up drive letters with locations, or at least it become more */
830 /* complicated than I felt like figuring out, so mark it now and do it later */
831 drive_list[list_index][1] = (unsigned char)DELETED; /* AC011 */
832
833 drives_reassigned = TRUE;
834
835 /* Put prompt up on screen */
836 for (i=(int)0; i < (int)23; i++) /* AC000 */
837 BEGIN
838 /* See if drive deleted */
839 if (drive_list[i][1] == uc(DELETED)) /* AC011 */
840 BEGIN
841 /* Wipe out the drive info and print deleted message */
842 /* See what column it is in */
843 if (i < (int)12) /* AC000 */
844 BEGIN
845 column = (int)4; /* AC000 */
846 row = (int)(4 + i - (int)0);
847 clear_screen( (unsigned)row, (unsigned)column,
848 (unsigned)row, (unsigned)39 );
849 END
850 else
851 BEGIN
852 column = (int)45; /* AC000 */
853 row = (int)(4 + i - (int)12);
854 clear_screen( (unsigned)row, (unsigned)column,
855 (unsigned)row, (unsigned)79 );
856 END
857
858 /* Put the start row,col of message in the message string */
859 s=status_3;
860 s++;
861 *s++ = ((char)(row/10))+'0';
862 *s++ = ((char)(row%10))+'0';
863 *s++ = ((char)(column/10))+'0';
864 *s = ((char)(column%10))+'0';
865 display(status_3);
866 END
867 END
868 /* Set the reboot flag */
869 reboot_flag = TRUE;
870 clear_screen( u(21), u(0), u(23), u(79) ); /* AN000 */
871 break;
872 END
873
874 case ESC:
875 case 0:
876 clear_screen( u(21), u(0), u(23), u(79) ); /* AN000 */
877 break; /* AC000 */
878
879 default:
880 internal_program_error();
881 break;
882 END
883 END
884
885 END
886 else /* drives do not exist! */
887 BEGIN
888 /* No more logical drives to delete */
889 clear_screen(u(16),u(0),u(21),u(79)); /* AC000 */
890 display(error_22);
891 input = wait_for_ESC();
892 END
893 END /* while input != esc */
894
895 if (drives_reassigned)
896 BEGIN
897 /* If anything got deleted, lets go do it for real */
898 for (i=(int)0; i < (int)23;i++) /* AC000 */
899 BEGIN
900 if (drive_list[i][1] == uc(DELETED)) /* AC011 */
901 BEGIN /* AN011 */
902 for (j=(int)0; j < (int)23;j++) /* AN011 */
903 BEGIN /* AN011 */
904 if (drive_list[i][0] == ext_table[cur_disk][j].drive_letter) /* AN011 */
905 BEGIN
906 /* Zero sys id and show it changed */
907 ext_table[cur_disk][j].boot_ind = uc(0); /* AC000 */
908 ext_table[cur_disk][j].start_head = uc(0); /* AC000 */
909 ext_table[cur_disk][j].start_sector = uc(0); /* AC000 */
910 ext_table[cur_disk][j].start_cyl = u(0); /* AC000 */
911 ext_table[cur_disk][j].sys_id = uc(0); /* AC000 */
912 ext_table[cur_disk][j].end_head = uc(0); /* AC000 */
913 ext_table[cur_disk][j].end_sector = uc(0); /* AC000 */
914 ext_table[cur_disk][j].end_cyl = u(0); /* AC000 */
915 ext_table[cur_disk][j].rel_sec = ul(0); /* AC000 */
916 ext_table[cur_disk][j].num_sec = ul(0); /* AC000 */
917 ext_table[cur_disk][j].mbytes_used = f(0); /* AN000 */
918 ext_table[cur_disk][j].percent_used = u(0); /* AN000 */
919 ext_table[cur_disk][j].changed = TRUE; /* AN000 */
920 ext_table[cur_disk][j].drive_letter = NUL; /* AN000 */
921 strcpy(ext_table[cur_disk][j].system,c(NUL)); /* AN000 */
922 strcpy(ext_table[cur_disk][j].vol_label,c(NUL)); /* AN000 */
923 END /* AN011 */
924 END /* AN011 */
925 END
926 END
927
928 /* Show new drive letters */
929 volume_display();
930
931 /* Say that drive letters changed */
932 clear_screen(u(16),u(0),u(23),u(79)); /* AC000 */
933 display(status_10);
934 wait_for_ESC();
935 END
936 clear_screen(u(0),u(0),u(24),u(79)); /* AC000 */
937
938 return;
939
940 END
941
The original sources of MS-DOS 1.25, 2.0, and 4.0 for reference purposes