rom/dos/getprogramdir.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: GetProgramDir() - Get the lock for PROGDIR:
   6     Lang: english
   7 */
   8 #include <aros/debug.h>
   9
  10 #include "dos_intern.h"
  11 #include <proto/exec.h>
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16 #include <proto/dos.h>
  17
  18         AROS_LH0(BPTR, GetProgramDir,
  19
  20 /*  SYNOPSIS */
  21         /* void */
  22
  23 /*  LOCATION */
  24         struct DosLibrary *, DOSBase, 100, Dos)
  25
  26 /*  FUNCTION
  27         This function will return the shared lock on the directory that
  28         the current process was loaded from. You can use this to help
  29         you find data files which were supplied with your program.
  30
  31         A NULL return is possible, which means that you may be running
  32         from the Resident list.
  33
  34         You should NOT under any circumstance UnLock() this lock.
  35
  36     INPUTS
  37
  38     RESULT
  39         A shared lock on the directory the program was started from.
  40
  41     NOTES
  42
  43     EXAMPLE
  44
  45     BUGS
  46
  47     SEE ALSO
  48
  49     INTERNALS
  50
  51 *****************************************************************************/
  52 {
  53     AROS_LIBFUNC_INIT
  54
  55     struct Process *me = (struct Process *)FindTask(NULL);
  56     ASSERT_VALID_PROCESS(me);
  57     return me->pr_HomeDir;
  58
  59     AROS_LIBFUNC_EXIT
  60 } /* GetProgramDir */