rom/dos/setprogramname.c

   1 /*
   2     Copyright © 1995-2013, 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(CONST_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,
  63     CONST_STRPTR name, struct DosLibrary *DOSBase)
  64 {
  65     CONST_STRPTR  s;
  66     STRPTR  bs;
  67     ULONG   namelen;
  68
  69     if (cli == NULL)
  70     {
  71         return FALSE;
  72     }
  73
  74     s = name;
  75
  76     while(*s++)
  77         ;
  78
  79     namelen = s - name - 1;
  80
  81     if (namelen > 255)
  82     {
  83         return FALSE;
  84     }
  85
  86     bs = AROS_BSTR_ADDR(cli->cli_CommandName);
  87
  88     AROS_BSTR_setstrlen(cli->cli_CommandName, namelen);
  89     CopyMem((APTR)name, bs, namelen);
  90
  91     return TRUE;
  92 }