workbench/c/shellcommands/Why.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Why CLI command
   6     Lang: English
   7 */
   8
   9 /******************************************************************************
  10
  11
  12     NAME
  13
  14         Why
  15
  16     SYNOPSIS
  17
  18     LOCATION
  19
  20         Workbench:C
  21
  22     FUNCTION
  23
  24         Print additional information why an operation failed. Ordinarily
  25         when a command fails a breif message is printed that typically
  26         includes the name of the command that failed but provides few
  27         details. Why fills in details related to the failed operation.
  28
  29     INPUTS
  30
  31     RESULT
  32
  33     NOTES
  34
  35     EXAMPLE
  36
  37     BUGS
  38
  39     SEE ALSO
  40
  41     INTERNALS
  42
  43     HISTORY
  44
  45 ******************************************************************************/
  46
  47
  48 #include <stdio.h>
  49 #include <proto/exec.h>
  50 #include <proto/dos.h>
  51 #include <dos/dos.h>
  52 #include <dos/dosextens.h>
  53
  54 #include <aros/shcommands.h>
  55
  56 AROS_SH0(Why, 41.3)
  57 {
  58     AROS_SHCOMMAND_INIT
  59
  60     struct CommandLineInterface *cli;
  61     LONG  lasterror;
  62     int   error = RETURN_OK;
  63
  64
  65     if ((cli = Cli()) != NULL)
  66     {
  67         lasterror = cli->cli_Result2;
  68
  69         if (cli->cli_ReturnCode == 0 || lasterror == 0)
  70         {
  71             VPrintf("The last command did not set a return-value\n", NULL);
  72         }
  73         else
  74         {
  75             PrintFault(lasterror, "The last command failed, reason");
  76             SetIoErr(0);
  77         }
  78     }
  79     else
  80     {
  81         error = RETURN_FAIL;
  82     }
  83
  84     return error;
  85
  86     AROS_SHCOMMAND_EXIT
  87 }