workbench/c/shellcommands/Get.c

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