workbench/system/CLI.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: CLI Command
   6     Lang: English
   7 */
   8
   9 /******************************************************************************
  10
  11
  12     NAME
  13
  14         CLI
  15
  16     SYNOPSIS
  17
  18         WINDOW,FROM,STACK
  19
  20     LOCATION
  21
  22         SYS:System/
  23
  24     FUNCTION
  25
  26         Create a new shell in a new console window. This window will become
  27         the active one.
  28
  29         The window belonging to the new shell may be specified by
  30         using the WINDOW tooltype.
  31
  32     INPUTS
  33
  34         The attributes are read as tooltypes from the Shell icon.
  35
  36         WINDOW  --  Specification of the shell window. It must be in the form
  37                     con:[X]/[Y]/[WIDTH]/[HEIGHT]...
  38
  39                     X         --  number of pixels from the left edge of
  40                                   the screen
  41                     Y         --  number of pixels from the top edge of
  42                                   the screen
  43                     WIDTH     --  width of the shell window in pixels
  44                     HEIGHT    --  height of the shell window in pixels
  45                     TITLE     --  text to appear in the shell window's
  46                                   title bar
  47                     AUTO      --  the window automatically appears when the
  48                                   program needs input or output
  49                     ALT       --  the window appears in the specified size
  50                                   and position when the zoom gadget is clicked
  51                     BACKDROP  --  the window is a backdrop window
  52                     CLOSE     --  include a close gadget
  53                     INACTIVE  --  the window is not made active when opened
  54                     NOBORDER  --  the window is borderless, only the size,
  55                                   depth and zoom gadgets are available
  56                     NOCLOSE   --  the window has no close gadget
  57                     NODEPTH   --  the window has no depth gadget
  58                     NODRAG    --  the window cannot be drag; implies NOCLOSE
  59                     NOSIZE    --  the window has no size gadget
  60                     SCREEN    --  name of a public screen to open the window on
  61                     SIMPLE    --  if the window is enlarged the text expands to
  62                                   fill the available space
  63                     SMART     --  if the window is enlarged the text will not
  64                                   expand
  65                     WAIT      --  the window can only be closed by selecting
  66                                   the close gadget or entering CTRL-\.
  67
  68
  69         FROM    --  File to execute before resorting to normal shell
  70                     operations. If nothing is specified S:Shell-Startup
  71                     is used.
  72
  73         STACK   --  Stack size in Bytes.
  74
  75     RESULT
  76
  77     NOTES
  78         As opposed to C:NewShell, this is a Workbench Tool.
  79
  80     EXAMPLE
  81
  82     BUGS
  83
  84     SEE ALSO
  85
  86     INTERNALS
  87
  88     HISTORY
  89
  90 ******************************************************************************/
  91
  92 #include <proto/dos.h>
  93 #include <proto/icon.h>
  94
  95 //#define DEBUG 1
  96 #include <aros/debug.h>
  97
  98 const TEXT ver[] = "$VER:CLI 1.1 (30.11.2013) © AROS Dev Team";
  99
 100 int main(void)
 101 {
 102     struct DiskObject *dobj;
 103     LONG rc = RETURN_FAIL;
 104
 105     dobj = GetDiskObject("PROGDIR:Shell");
 106     if (dobj)
 107     {
 108         ULONG stack;
 109         BPTR win, from;
 110         STRPTR result, winspec, fromspec;
 111         STRPTR *toolarray = dobj->do_ToolTypes;
 112
 113         result = FindToolType(toolarray, "STACK");
 114         if (result)
 115             StrToLong(result, &stack);
 116         else
 117             stack = AROS_STACKSIZE;
 118
 119         result = FindToolType(toolarray, "FROM");
 120         if (result)
 121             fromspec = result;
 122         else
 123             fromspec = "S:Shell-Startup";
 124
 125         result = FindToolType(toolarray, "WINDOW");
 126         if (result)
 127             winspec = result;
 128         else
 129             winspec = "CON:0/50//130/AROS-Shell/CLOSE";
 130
 131         from  = Open(fromspec, MODE_OLDFILE);
 132         win   = Open(winspec, MODE_NEWFILE);
 133
 134         if (stack < AROS_STACKSIZE)
 135             stack = AROS_STACKSIZE;
 136
 137         D(bug("[CLI] stack %d from %s window %s\n", stack, fromspec, winspec));
 138
 139         if (win)
 140         {
 141             struct TagItem tags[] =
 142             {
 143                 { SYS_Asynch,      TRUE       },
 144                 { SYS_Background,  FALSE      },
 145                 { SYS_Input,       (IPTR)win  },
 146                 { SYS_Output,      (IPTR)NULL },
 147                 { SYS_Error,       (IPTR)NULL },
 148                 { SYS_ScriptInput, (IPTR)from },
 149                 { SYS_UserShell,   TRUE       },
 150                 { NP_StackSize,    stack      },
 151                 { TAG_DONE,        0          }
 152             };
 153
 154             rc = SystemTagList("", tags);
 155             if (rc != -1)
 156             {
 157                 win  = BNULL;
 158                 from = BNULL;
 159             }
 160             else
 161                 rc = RETURN_FAIL;
 162         }
 163
 164         Close(win);
 165         Close(from);
 166
 167         FreeDiskObject(dobj);
 168     }
 169
 170     return rc;
 171 }