rom/dos/setargstr.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #include "dos_intern.h"
   9 #include <dos/dosextens.h>
  10 #include <proto/exec.h>
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15 #include <proto/dos.h>
  16
  17         AROS_LH1(STRPTR, SetArgStr,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(STRPTR, string, D1),
  21
  22 /*  LOCATION */
  23         struct DosLibrary *, DOSBase, 90, Dos)
  24
  25 /*  FUNCTION
  26         Sets the arguments to the current process. The arguments must be
  27         reset to the original value before process exit.
  28
  29     INPUTS
  30         string  -   The new argument string. (A C string).
  31
  32     RESULT
  33         The address of the previous argument string. May be NULL.
  34
  35     NOTES
  36
  37     EXAMPLE
  38
  39     BUGS
  40
  41     SEE ALSO
  42         GetArgStr(), RunCommand()
  43
  44     INTERNALS
  45
  46 *****************************************************************************/
  47 {
  48     AROS_LIBFUNC_INIT
  49     AROS_LIBBASE_EXT_DECL(struct DosLibrary *,DOSBase)
  50
  51     STRPTR oldStr;
  52     struct Process *pr = (struct Process *)FindTask(NULL);
  53     oldStr = pr->pr_Arguments;
  54     pr->pr_Arguments = string;
  55
  56     return oldStr;
  57
  58     AROS_LIBFUNC_EXIT
  59 } /* SetArgStr */