workbench/c/shellcommands/Unsetenv.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Unsetenv CLI command
   6     Lang: English
   7 */
   8
   9 /*****************************************************************************
  10
  11     NAME
  12
  13         Unsetenv
  14
  15     SYNOPSIS
  16
  17         NAME
  18
  19     LOCATION
  20
  21         Sys:c
  22
  23     FUNCTION
  24
  25     INPUTS
  26
  27         NAME    - The name of the global variable to unset.
  28
  29     RESULT
  30
  31         Standard DOS error codes.
  32
  33     NOTES
  34
  35     EXAMPLE
  36
  37     BUGS
  38
  39     SEE ALSO
  40
  41     INTERNALS
  42
  43     HISTORY
  44
  45 ******************************************************************************/
  46
  47 #include <proto/dos.h>
  48 #include <proto/exec.h>
  49
  50 #include <dos/dos.h>
  51 #include <dos/exall.h>
  52 #include <dos/rdargs.h>
  53 #include <dos/var.h>
  54 #include <exec/memory.h>
  55 #include <exec/types.h>
  56 #include <utility/tagitem.h>
  57 #include <aros/shcommands.h>
  58
  59 AROS_SH1(Unsetenv, 41.0,
  60 AROS_SHA(STRPTR, ,NAME, ,NULL))
  61 {
  62     AROS_SHCOMMAND_INIT
  63
  64
  65     if (SHArg(NAME) != NULL)
  66     {
  67             /* Delete the global variable from the list.
  68              */
  69         if (!DeleteVar(SHArg(NAME), GVF_GLOBAL_ONLY))
  70             return RETURN_FAIL;
  71     }
  72     else
  73     {
  74         /* Display a list of global variables.
  75          */
  76         BPTR lock                 = NULL;
  77         struct FileInfoBlock *FIB = NULL;
  78
  79         if
  80         (
  81             !(lock = Lock("ENV:", ACCESS_READ))    ||
  82             !(FIB = AllocDosObject(DOS_FIB, NULL)) ||
  83             (Examine(lock, FIB) == DOSFALSE)
  84         )
  85         {
  86             if (FIB) FreeDosObject(DOS_FIB, FIB);
  87             if (lock) UnLock(lock);
  88
  89             return RETURN_FAIL;
  90         }
  91
  92         while (ExNext(lock, FIB))
  93         {
  94             /* don't show dirs */
  95             if (FIB->fib_DirEntryType < 0)
  96             {
  97                 FPuts(Output(),FIB->fib_FileName);
  98                 FPuts(Output(),"\n");
  99             }
 100         }
 101
 102         FreeDosObject(DOS_FIB, FIB);
 103         UnLock(lock);
 104     }
 105
 106     return RETURN_OK;
 107
 108     AROS_SHCOMMAND_EXIT
 109 } /* main */