workbench/c/shellcommands/EndCLI.c

   1 /*
   2     Copyright © 1995-2008, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: EndCLI CLI command
   6     Lang: English
   7 */
   8
   9 /******************************************************************************
  10
  11
  12     NAME
  13
  14         EndCLI
  15
  16     SYNOPSIS
  17
  18     LOCATION
  19
  20         C:
  21
  22     FUNCTION
  23
  24         Exits a Shell/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_StandardInput);
  61
  62         if (cli->cli_CurrentInput && cli->cli_CurrentInput != cli->cli_StandardInput) {
  63             Close(cli->cli_CurrentInput);
  64             cli->cli_CurrentInput = cli->cli_StandardInput;
  65         }
  66
  67         cli->cli_Background = DOSTRUE;
  68
  69         fhin->fh_End = 0; /* Simulate an EOF */
  70
  71         if (cli->cli_Interactive)
  72             Printf("Task %ld ending\n", ((struct Process *)FindTask(NULL))->pr_TaskNum);
  73     }
  74
  75     return RETURN_OK;
  76
  77     AROS_SHCOMMAND_EXIT
  78 }