workbench/libs/datatypes/launchtoola.c

   1 /*
   2     Copyright © 1995-2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include "datatypes_intern.h"
   7 #include <datatypes/datatypesclass.h>
   8 #include <utility/tagitem.h>
   9 #include <dos/dostags.h>
  10 #include <proto/alib.h>
  11 #include <proto/dos.h>
  12 #include <proto/exec.h>
  13 #include <proto/utility.h>
  14 #include <proto/workbench.h>
  15
  16 /* Putchar procedure needed by RawDoFmt() */
  17
  18 AROS_UFH2(void, dt_putchr,
  19           AROS_UFHA(UBYTE,    chr, D0),
  20           AROS_UFHA(STRPTR *, p,   A3))
  21 {
  22     AROS_USERFUNC_INIT
  23     *(*p)++ = chr;
  24     AROS_USERFUNC_EXIT
  25 }
  26
  27 void dt__sprintf(struct Library *DataTypesBase, UBYTE *buffer,
  28                  UBYTE *format, ...)
  29 {
  30     RawDoFmt(format, &format+1, (VOID_FUNC)dt_putchr, &buffer);
  31 }
  32
  33
  34 /*****************************************************************************
  35
  36     NAME */
  37 #include <proto/datatypes.h>
  38
  39         AROS_LH3(ULONG, LaunchToolA,
  40
  41 /*  SYNOPSIS */
  42         AROS_LHA(struct Tool *   , tool,    A0),
  43         AROS_LHA(STRPTR          , project, A1),
  44         AROS_LHA(struct TagItem *, attrs,   A2),
  45
  46 /*  LOCATION */
  47         struct Library *, DataTypesBase, 42, DataTypes)
  48
  49 /*  FUNCTION
  50
  51     Launch an application with a particular project.
  52
  53     INPUTS
  54
  55     tool     --  tool to use (may be NULL in which case this function
  56                  returns 0)
  57     project  --  name of the project to execute or NULL
  58     attrs    --  additional attributes
  59
  60     TAGS
  61
  62     NP_Priority (BYTE) -- priority of the launched tool (default is the
  63                           priority of the currect process except for
  64                           Workbench applications where the default priority
  65                           is 0 if not overridden by the TOOLPRI tooltype).
  66
  67     NP_Synchronous (BOOL) -- don't return until lauched application process
  68                              finishes (defaults to FALSE).
  69
  70     RESULT
  71
  72     Zero for failure, non-zero otherwise.
  73
  74     NOTES
  75
  76     EXAMPLE
  77
  78     BUGS
  79
  80     SEE ALSO
  81
  82     NewDTObjectA()
  83
  84     INTERNALS
  85
  86 *****************************************************************************/
  87 {
  88     AROS_LIBFUNC_INIT
  89
  90     BOOL isSynchronous;
  91     BPTR output;
  92
  93     if (tool == NULL)
  94     {
  95         SetIoErr(ERROR_REQUIRED_ARG_MISSING);
  96
  97         return 0;
  98     }
  99
 100     isSynchronous = (BOOL)GetTagData(NP_Synchronous, (IPTR)FALSE, attrs);
 101
 102     switch (tool->tn_Flags & TF_LAUNCH_MASK)
 103     {
 104     case TF_SHELL:
 105         {
 106             char tBuffer[512];
 107             LONG ret;
 108
 109             dt__sprintf
 110             (
 111                 DataTypesBase, tBuffer,
 112                 "\"%s\" \"%s\"", tool->tn_Program, project
 113             );
 114
 115             output = Open("CON:////Output window/AUTO/WAIT/CLOSE/INACTIVE",
 116                           MODE_NEWFILE);
 117
 118             if (output != NULL)
 119             {
 120                 struct TagItem tags[] = { { SYS_Asynch, !isSynchronous },
 121                                           { SYS_Input , NULL           },
 122                                           { SYS_Output, (IPTR)output   },
 123                                           { TAG_DONE, NULL             } };
 124
 125
 126                 ret = SystemTagList(tBuffer, tags);
 127
 128                 /* Error? */
 129                 if (ret == -1)
 130                 {
 131                     return 0;
 132                 }
 133
 134                 Close(output);
 135             }
 136             else
 137             {
 138                 return 0;
 139             }
 140         }
 141
 142         break;
 143
 144     case TF_WORKBENCH:
 145         {
 146             BOOL            success       = FALSE;
 147             struct Library *WorkbenchBase = OpenLibrary("workbench.library", 39L);
 148
 149             if (WorkbenchBase != NULL)
 150             {
 151                 BPTR lock = Lock(project, ACCESS_READ);
 152
 153                 if (lock != NULL)
 154                 {
 155                     BPTR parent = ParentDir(lock);
 156
 157                     success = OpenWorkbenchObject
 158                     (
 159                         tool->tn_Program,
 160                         WBOPENA_ArgLock, (IPTR) parent,
 161                         WBOPENA_ArgName, (IPTR) FilePart(project),
 162                         TAG_DONE
 163                     );
 164
 165                     UnLock(lock);
 166                 }
 167
 168                 CloseLibrary(WorkbenchBase);
 169             }
 170
 171             if (!success) return 0;
 172         }
 173         break;
 174
 175     case TF_RX:
 176         /* Sorry, no Arexx in AROS yet. */
 177 #warning No Arexx compatibility yet
 178
 179         /* Do some "RX command" here */
 180         return 0;
 181         break;
 182
 183     default:
 184         return 0;
 185         break;
 186     }
 187
 188     return 1;
 189
 190     AROS_LIBFUNC_EXIT
 191 } /* LaunchToolA */
 192