rom/dos/setprogramname.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Sets the name of the current program.
   6     Lang: English
   7 */
   8 #include <proto/exec.h>
   9 #include <proto/dos.h>
  10 #include <dos/dos.h>
  11 #include <dos/dosextens.h>
  12 #include "dos_intern.h"
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17
  18 #include <proto/dos.h>
  19
  20         AROS_LH1(BOOL, SetProgramName,
  21
  22 /*  SYNOPSIS */
  23         AROS_LHA(STRPTR, name, D1),
  24
  25 /*  LOCATION */
  26         struct DosLibrary *, DOSBase, 95, Dos)
  27
  28 /*  FUNCTION
  29         Sets the name for the current program in the CLI structure. If the
  30         name doesn't fit the old name is kept and a failure is returned.
  31         If the current process doesn't have a CLI structure this function
  32         does nothing.
  33
  34     INPUTS
  35         name  --  Name for the current program.
  36
  37     RESULT
  38         != 0 on success, 0 on failure.
  39
  40     NOTES
  41
  42     EXAMPLE
  43
  44     BUGS
  45         Never copies more than 255 bytes.
  46
  47     SEE ALSO
  48         GetProgramName()
  49
  50     INTERNALS
  51
  52 *****************************************************************************/
  53 {
  54     AROS_LIBFUNC_INIT
  55
  56     return internal_SetProgramName(Cli(), name, DOSBase) ? DOSTRUE : DOSFALSE;
  57
  58     AROS_LIBFUNC_EXIT
  59 } /* SetProgramName */
  60
  61
  62 BOOL internal_SetProgramName(struct CommandLineInterface *cli, STRPTR name,
  63                              struct DosLibrary *DOSBase)
  64 {
  65     STRPTR  s;
  66     ULONG   namelen;
  67
  68     if (cli == NULL)
  69     {
  70         return FALSE;
  71     }
  72
  73     s = name;
  74
  75     while(*s++)
  76         ;
  77
  78     namelen = s - name - 1;
  79
  80     if (namelen > 255)
  81     {
  82         return FALSE;
  83     }
  84
  85     s = AROS_BSTR_ADDR(cli->cli_CommandName);
  86
  87     AROS_BSTR_setstrlen(cli->cli_CommandName, namelen);
  88     CopyMem((APTR)name, s, namelen);
  89
  90     return TRUE;
  91 }