rom/dos/setcurrentdirname.c

   1 /*
   2     Copyright © 1995-2008, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Set the name of the current directory.
   6     Lang: english
   7 */
   8 #include <proto/exec.h>
   9 #include <proto/dos.h>
  10 #include <dos/dos.h>
  11 #include <dos/dosextens.h>
  12 #include "dos_intern.h"
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17 #include <proto/dos.h>
  18
  19         AROS_LH1(BOOL, SetCurrentDirName,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(CONST_STRPTR, name, D1),
  23
  24 /*  LOCATION */
  25         struct DosLibrary *, DOSBase, 93, Dos)
  26
  27 /*  FUNCTION
  28         Sets the name of the current directory in the CLI structure.
  29         If the name doesn't fit the old name is kept and a failure
  30         returned. If the current process doesn't have a CLI structure
  31         this function does nothing.
  32
  33     INPUTS
  34         name - Name for the current directory.
  35
  36     RESULT
  37         !=0 on success, 0 on failure.
  38
  39     NOTES
  40
  41     EXAMPLE
  42
  43     BUGS
  44         Never copies more than 255 bytes.
  45
  46     SEE ALSO
  47         GetCurrentDirName()
  48
  49     INTERNALS
  50
  51 *****************************************************************************/
  52 {
  53     AROS_LIBFUNC_INIT
  54
  55     struct CommandLineInterface *cli = NULL;
  56     CONST_STRPTR s;
  57     STRPTR bs;
  58     ULONG namelen;
  59
  60     if ((cli = Cli()) == NULL)
  61         return DOSFALSE;
  62
  63     s = name;
  64     while(*s++)
  65         ;
  66     namelen = s - name - 1;
  67
  68     if (namelen > 255)
  69         return DOSFALSE;
  70
  71     bs = AROS_BSTR_ADDR(cli->cli_SetName);
  72
  73     AROS_BSTR_setstrlen(cli->cli_SetName, namelen);
  74     CopyMem((APTR)name, bs, namelen);
  75
  76     return DOSTRUE;
  77     AROS_LIBFUNC_EXIT
  78 } /* SetCurrentDirName */