rom/dos/setprogramdir.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Set the home directory for a program (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_LH1(BPTR, SetProgramDir,
  17
  18 /*  SYNOPSIS */
  19         AROS_LHA(BPTR, lock, D1),
  20
  21 /*  LOCATION */
  22         struct DosLibrary *, DOSBase, 99, Dos)
  23
  24 /*  FUNCTION
  25         This function will set a shared lock on the directory that the
  26         current program was loaded from. This can be accessed through
  27         the path PROGDIR:. The use of this path is to allow the program
  28         to easily access files which are supplied with the program.
  29
  30     INPUTS
  31         lock    -   The lock to set as the new program directory. NULL
  32                     is a valid value.
  33
  34     RESULT
  35         This function will return the old program directory lock.
  36
  37     NOTES
  38         This function will not duplicate the lock, so you should not
  39         free the lock.
  40
  41     EXAMPLE
  42
  43     BUGS
  44
  45     SEE ALSO
  46         GetProgramDir()
  47
  48     INTERNALS
  49
  50 *****************************************************************************/
  51 {
  52     AROS_LIBFUNC_INIT
  53
  54     struct Process *pr;
  55     BPTR oldLock;
  56
  57     pr = (struct Process *)FindTask(NULL);
  58     oldLock = pr->pr_HomeDir;
  59     pr->pr_HomeDir = lock;
  60
  61     return oldLock;
  62
  63     AROS_LIBFUNC_EXIT
  64 } /* SetProgramDir */