rom/dos/getcurrentdirname.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Get the name of the current directory.
   6     Lang: english
   7 */
   8 #include <proto/exec.h>
   9 #include <dos/dos.h>
  10 #include "dos_intern.h"
  11 #include <string.h>
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16 #include <proto/dos.h>
  17
  18         AROS_LH2(BOOL, GetCurrentDirName,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(STRPTR, buf, D1),
  22         AROS_LHA(LONG  , len, D2),
  23
  24 /*  LOCATION */
  25         struct DosLibrary *, DOSBase, 94, Dos)
  26
  27 /*  FUNCTION
  28         Copies the name of the current directory from the CLI structure
  29         into the buffer. If the buffer is too small the name is truncated,
  30         and a failure is returned. If the current process doesn't have
  31         a CLI structure, a 0 length string is put into the buffer and a
  32         failure is returned.
  33
  34     INPUTS
  35         buf - Buffer for the name.
  36         len - Size of the buffer in bytes.
  37
  38     RESULT
  39         !=0 on success, 0 on failure. IoErr() gives additional information
  40         in that case.
  41
  42     NOTES
  43         Documented as returning ERROR_OBJECT_WRONG_TYPE if CLI structure
  44         is not present but actually it fallbacks to NameFromLock().
  45
  46     EXAMPLE
  47
  48     BUGS
  49
  50     SEE ALSO
  51         SetCurrentDirName()
  52
  53     INTERNALS
  54
  55 *****************************************************************************/
  56 {
  57     AROS_LIBFUNC_INIT
  58
  59     struct Process *me = (struct Process *)FindTask(NULL);
  60     struct CommandLineInterface *cli = BADDR(me->pr_CLI);
  61     STRPTR cname;
  62     ULONG clen;
  63     BOOL ret = DOSTRUE;
  64
  65     if (cli == NULL)
  66         return NameFromLock(me->pr_CurrentDir, buf, len);
  67
  68     cname = AROS_BSTR_ADDR(cli->cli_SetName);
  69     clen = (ULONG)AROS_BSTR_strlen(cli->cli_SetName);
  70     if (clen >= (len-1))
  71     {
  72         clen = len-1;
  73         me->pr_Result2 = ERROR_LINE_TOO_LONG;
  74         ret = DOSFALSE;
  75     }
  76     CopyMem(cname, buf, clen);
  77     buf[clen] = '\0';
  78
  79     return ret;
  80     AROS_LIBFUNC_EXIT
  81 } /* GetCurrentDirName */