workbench/c/shellcommands/EndCli.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         EndCli
  15
  16     SYNOPSIS
  17
  18     LOCATION
  19
  20         Workbench:C
  21
  22     FUNCTION
  23
  24         Exits a CLI
  25
  26     INPUTS
  27
  28     RESULT
  29
  30     NOTES
  31
  32     EXAMPLE
  33
  34     BUGS
  35
  36     SEE ALSO
  37
  38     INTERNALS
  39
  40     HISTORY
  41
  42 ******************************************************************************/
  43
  44
  45 #include <proto/dos.h>
  46 #include <dos/dos.h>
  47 #include <dos/dosextens.h>
  48
  49 #include <aros/shcommands.h>
  50
  51 AROS_SH0(EndCli, 41.3)
  52 {
  53     AROS_SHCOMMAND_INIT
  54
  55     struct CommandLineInterface *cli = Cli();
  56
  57
  58     if (cli)
  59     {
  60         struct FileHandle *fhin = BADDR(cli->cli_CurrentInput);
  61         struct FileHandle *fhout = BADDR(cli->cli_StandardOutput);
  62
  63         cli->cli_Background = TRUE;
  64
  65         fhin->fh_Pos  = fhin->fh_End + 1; /* Simulate an EOF */
  66         fhout->fh_Pos = fhout->fh_Buf; /* don't flush cli's standard output on close*/
  67     }
  68
  69     return RETURN_OK;
  70
  71     AROS_SHCOMMAND_EXIT
  72 }