rom/dos/getprogramdir.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: GetProgramDir() - Get the lock for PROGDIR:
   6     Lang: english
   7 */
   8 #include "dos_intern.h"
   9 #include <proto/exec.h>
  10
  11 /*****************************************************************************
  12
  13     NAME */
  14 #include <proto/dos.h>
  15
  16         AROS_LH0(BPTR, GetProgramDir,
  17
  18 /*  SYNOPSIS */
  19         /* void */
  20
  21 /*  LOCATION */
  22         struct DosLibrary *, DOSBase, 100, Dos)
  23
  24 /*  FUNCTION
  25         This function will return the shared lock on the directory that
  26         the current process was loaded from. You can use this to help
  27         you find data files which were supplied with your program.
  28
  29         A NULL return is possible, which means that you may be running
  30         from the Resident list.
  31
  32         You should NOT under any circumstance UnLock() this lock.
  33
  34     INPUTS
  35
  36     RESULT
  37         A shared lock on the directory the program was started from.
  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     return ((struct Process *)FindTask(NULL))->pr_HomeDir;
  55
  56     AROS_LIBFUNC_EXIT
  57 } /* GetProgramDir */