workbench/c/shellcommands/Getenv.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Getenv CLI command
   6     Lang: English
   7 */
   8
   9 /*****************************************************************************
  10
  11     NAME
  12
  13         Getenv
  14
  15     SYNOPSIS
  16
  17         NAME/A
  18
  19     LOCATION
  20
  21         C:
  22
  23     FUNCTION
  24
  25         Retrieves the information stored in the given global variable.
  26
  27     INPUTS
  28
  29         NAME - The name of the global variable.
  30
  31     RESULT
  32
  33         Standard DOS error codes.
  34
  35     NOTES
  36
  37     EXAMPLE
  38
  39         Getenv Kickstart
  40
  41             This will retrieve the version of the Kickstart ROM.
  42
  43     BUGS
  44
  45     SEE ALSO
  46
  47         Setenv, Unsetenv
  48
  49     INTERNALS
  50
  51     HISTORY
  52
  53         30-Jul-1997     laguest     Corrected a few things in the source
  54         27-Jul-1997     laguest     Initial inclusion into the AROS tree
  55
  56 ******************************************************************************/
  57
  58 #include <proto/dos.h>
  59
  60 #include <dos/dos.h>
  61 #include <dos/rdargs.h>
  62 #include <dos/var.h>
  63 #include <exec/types.h>
  64
  65 #include <aros/shcommands.h>
  66
  67 #define BUFFER_SIZE     256
  68
  69 AROS_SH1(Getenv, 41.1,
  70 AROS_SHA(STRPTR, ,NAME,/A,NULL))
  71 {
  72     AROS_SHCOMMAND_INIT
  73
  74     LONG            Var_Length;
  75     char            Var_Value[BUFFER_SIZE];
  76     IPTR            Display_Args[1];
  77
  78
  79     Var_Length = GetVar(SHArg(NAME),
  80            &Var_Value[0],
  81            BUFFER_SIZE,
  82            GVF_GLOBAL_ONLY | LV_VAR
  83     );
  84
  85     if (Var_Length != -1)
  86     {
  87         Display_Args[0] = (IPTR)Var_Value;
  88         VPrintf("%s\n", Display_Args);
  89
  90         return RETURN_OK;
  91     }
  92
  93     SetIoErr(ERROR_OBJECT_NOT_FOUND);
  94     PrintFault(IoErr(), "Getenv");
  95
  96     return RETURN_WARN;
  97
  98     AROS_SHCOMMAND_EXIT
  99 } /* main */