workbench/c/Open/main.c

   1 /*
   2     Copyright © 1995-2012, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Open CLI command
   6     Lang: English
   7 */
   8
   9
  10 #include <exec/types.h>
  11 #include <dos/dos.h>
  12
  13 #include <proto/dos.h>
  14 #include <proto/workbench.h>
  15 #include <proto/utility.h>
  16
  17 #define DEBUG 0
  18 #include <aros/debug.h>
  19
  20 #define SH_GLOBAL_DOSBASE TRUE
  21 #include <aros/shcommands.h>
  22
  23 AROS_SH2H
  24 (
  25     Open, 0.3,                              "Open/launch a workbench object as if its icon was double-clicked",
  26     AROS_SHAH(STRPTR  , , NAME     , /A, "","\tName of the object to be opened"),
  27     AROS_SHAH(STRPTR *, , ARGUMENTS, /M, NULL,"List of parameters (Workbench arguments)\n"
  28                                       "\t\t\t\tto pass to the tool/project to be launched")
  29 )
  30 {
  31     AROS_SHCOMMAND_INIT
  32
  33     struct Library *WorkbenchBase = OpenLibrary("workbench.library", 44L);
  34     struct Library *UtilityBase   = OpenLibrary("utility.library", 41L);
  35     struct TagItem *argsTagList   = NULL;
  36     BOOL            success       = FALSE;
  37     int             nbArgs        = 0, i = 0;
  38     STRPTR         *wbArg;
  39
  40     if (WorkbenchBase != NULL)
  41     {
  42         if (SHArg(ARGUMENTS) != NULL)
  43         {
  44             if (UtilityBase != NULL)
  45             {
  46                 for ( wbArg = SHArg(ARGUMENTS) ; *wbArg ; wbArg++, nbArgs++ )
  47                 {
  48                     D(bug("[Open] wbArg[%d] %s\n", nbArgs, *wbArg));
  49                 }
  50                 argsTagList = AllocateTagItems(nbArgs + 1);
  51                 for ( wbArg = SHArg(ARGUMENTS) ; *wbArg ; wbArg++, i++ )
  52                 {
  53                     argsTagList[i].ti_Tag  = WBOPENA_ArgName;
  54                     argsTagList[i].ti_Data = (IPTR) *wbArg;
  55                     D(bug("[Open] argsTagList[%d]: %s\n", i, argsTagList[i].ti_Data));
  56                 }
  57                 argsTagList[i].ti_Tag = TAG_DONE;
  58                 D(bug("[Open] i = %d, nbArgs = %d\n", i, nbArgs));
  59                 success = OpenWorkbenchObjectA(SHArg(NAME), argsTagList);
  60                 FreeTagItems(argsTagList);
  61             }
  62             else
  63             {
  64                 PutStr("ERROR: Could not open utility.library v41+.\n");
  65             }
  66         }
  67         else
  68         {
  69             D(bug("[Open] SHArg(ARGUMENTS) == NULL\n"));
  70             success = OpenWorkbenchObject(SHArg(NAME), TAG_DONE);
  71         }
  72         if (UtilityBase != NULL)
  73             CloseLibrary(UtilityBase);
  74         CloseLibrary(WorkbenchBase);
  75     }
  76     else
  77     {
  78         PutStr("ERROR: Could not open workbench.library v44+.\n");
  79     }
  80
  81     return success ? RETURN_OK : RETURN_FAIL;
  82
  83     AROS_SHCOMMAND_EXIT
  84 }