rom/dos/relabel.c

   1 /*
   2     Copyright © 1995-2006, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8 #include <proto/exec.h>
   9
  10 #include "dos_intern.h"
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15 #include <proto/dos.h>
  16
  17         AROS_LH2(LONG, Relabel,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(CONST_STRPTR, drive, D1),
  21         AROS_LHA(CONST_STRPTR, newname, D2),
  22
  23 /*  LOCATION */
  24         struct DosLibrary *, DOSBase, 120, Dos)
  25
  26 /*  FUNCTION
  27
  28     Change names of a volume.
  29
  30     INPUTS
  31
  32     drive    --  The name of the device to rename (including the ':').
  33     newname  --  The new name for the device (without the ':').
  34
  35     RESULT
  36
  37     A boolean telling whether the name change was successful or not.
  38
  39     NOTES
  40
  41     EXAMPLE
  42
  43     BUGS
  44
  45     SEE ALSO
  46
  47     INTERNALS
  48
  49 *****************************************************************************/
  50 {
  51     AROS_LIBFUNC_INIT
  52     AROS_LIBBASE_EXT_DECL(struct DosLibrary *,DOSBase)
  53
  54     struct IOFileSys iofs;
  55
  56     /* Prepare I/O request. */
  57     InitIOFS(&iofs, FSA_RELABEL, DOSBase);
  58
  59     iofs.IOFS.io_Device = GetDevice(drive, &iofs.IOFS.io_Unit, DOSBase);
  60
  61     if(iofs.IOFS.io_Device == NULL)
  62     {
  63         return DOSFALSE;
  64     }
  65
  66     iofs.io_Union.io_RELABEL.io_NewName = newname;
  67     iofs.io_Union.io_RELABEL.io_Result  = FALSE;
  68
  69     DosDoIO(&iofs.IOFS);
  70
  71     SetIoErr(iofs.io_DosError);
  72
  73     if(iofs.io_DosError != 0)
  74     {
  75         return DOSFALSE;
  76     }
  77
  78     return iofs.io_Union.io_RELABEL.io_Result ? DOSTRUE : DOSFALSE;
  79
  80     AROS_LIBFUNC_EXIT
  81 } /* Relabel */