workbench/c/Format/main.c

   1 #include <proto/dos.h>
   2
   3 #include <exec/types.h>
   4 #include <dos/dos.h>
   5
   6 #define SH_GLOBAL_DOSBASE TRUE
   7 #include <aros/shcommands.h>
   8
   9 AROS_SH4
  10 (
  11     Format, 0.1,
  12     AROS_SHA(STRPTR, , DRIVE, /K/A, NULL),
  13     AROS_SHA(STRPTR, , NAME,  /K/A, NULL),
  14     AROS_SHA(BOOL, ,   FORCE, /S,   FALSE),
  15     AROS_SHA(BOOL, ,   QUIET, /S,   FALSE)
  16 )
  17 {
  18     AROS_SHCOMMAND_INIT
  19
  20     TEXT choice = 'N';
  21
  22     if (SHArg(QUIET) && !SHArg(FORCE))
  23     {
  24         PutStr("ERROR: Cannot specify QUIET without FORCE.\n");
  25         return RETURN_FAIL;
  26     }
  27
  28     if (!SHArg(FORCE))
  29     {
  30         Printf("About to format drive %s. ", SHArg(DRIVE));
  31         Printf("This will destroy all data on the drive!\n");
  32         Printf("Are you sure? (y/N)"); Flush(Output());
  33
  34         Read(Input(), &choice, 1);
  35     }
  36     else
  37     {
  38         choice = 'y';
  39     }
  40
  41     if (choice == 'y' || choice == 'Y')
  42     {
  43         if (!SHArg(QUIET))
  44         {
  45             Printf("Formatting...");
  46             Flush(Output());
  47         }
  48
  49         if (Inhibit(SHArg(DRIVE), DOSTRUE))
  50         {
  51             if (Format(SHArg(DRIVE), SHArg(NAME), ID_FFS_DISK))
  52             {
  53                 if (!SHArg(QUIET)) Printf("done\n");
  54             }
  55             else
  56             {
  57                 goto error;
  58             }
  59             Inhibit(SHArg(DRIVE), DOSFALSE);
  60         }
  61         else
  62         {
  63             goto error;
  64         }
  65     }
  66
  67     return RETURN_OK;
  68
  69 error:
  70     if (!SHArg(QUIET)) Printf("ERROR!\n");
  71
  72     return RETURN_FAIL;
  73
  74     AROS_SHCOMMAND_EXIT
  75 }