workbench/c/IconX.c

   1 /*
   2     Copyright © 2006-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: IconX WB script starter
   6     Lang: English
   7 */
   8
   9 /******************************************************************************
  10
  11
  12     NAME
  13
  14         IconX
  15
  16     SYNOPSIS
  17
  18         FILE/A
  19
  20     LOCATION
  21
  22         Sys:C
  23
  24     FUNCTION
  25
  26         Starts DOS scripts from Workbench. In order to use it you need an icon for
  27         your script. Set 'IconX' as default tool.
  28
  29     INPUTS
  30
  31         FILE - The script filename to execute.
  32
  33         Tooltypes for script icon:
  34             WINDOW            -- Specification of the shell window
  35                                  default: con:0/50//80/IconX/Auto
  36             STACK=n           -- default: 40960
  37             USERSHELL=YES|NO  -- default: YES
  38             WAIT=n            -- Wait n seconds before closing window (default 2)
  39             DELAY=n           -- Wait n/50 seconds before closing window
  40
  41     RESULT
  42
  43     NOTES
  44
  45     EXAMPLE
  46
  47     BUGS
  48
  49     SEE ALSO
  50
  51         Execute
  52
  53     INTERNALS
  54
  55     HISTORY
  56
  57 ******************************************************************************/
  58
  59 //#define DEBUG 1
  60
  61 #include <aros/debug.h>
  62 #include <proto/exec.h>
  63 #include <proto/dos.h>
  64 #include <proto/intuition.h>
  65 #include <proto/icon.h>
  66
  67 #include <workbench/startup.h>
  68
  69 #include <string.h>
  70 #include <stdlib.h>
  71
  72 /* some default values */
  73 #define DEFWINDOW "con:0/50//80/IconX/Auto"
  74 #define DEFSTACK  (40960)
  75 #define DEFWAIT   (2 * 50) // two seconds
  76 #define DEFUSHELL (TRUE)
  77
  78 const TEXT version[] = "\0$VER: IconX 41.1 (8.12.2007)";
  79 int __forceerrorrequester = 1;
  80 static TEXT errbuffer[255];
  81
  82
  83 void displayMsg(LONG code)
  84 {
  85     if (code)
  86     {
  87         Fault(code, "IconX", errbuffer, sizeof(errbuffer));
  88         struct EasyStruct es = {sizeof(struct EasyStruct), 0,
  89             "Error", errbuffer, "OK"};
  90         EasyRequest(0, &es, 0);
  91     }
  92 }
  93
  94
  95 int main(int argc, char **argv)
  96 {
  97     LONG rc = RETURN_FAIL;
  98     STRPTR filename;
  99     BPTR oldlock = (BPTR)-1;
 100     BPTR dirlock = (BPTR)-1;
 101     struct DiskObject *dobj = NULL;
 102
 103     STRPTR ixWindow = DEFWINDOW;
 104     LONG ixWait = 0;
 105     LONG ixStack = DEFSTACK;
 106     BOOL ixUShell = DEFUSHELL;
 107
 108     BPTR from = NULL;
 109     BPTR window = NULL;
 110
 111     D(bug("IconX argc %d\n", argc));
 112
 113     if (argc != 0)
 114     {
 115         displayMsg(ERROR_REQUIRED_ARG_MISSING);
 116         goto exit;
 117     }
 118
 119     struct WBStartup *startup = (struct WBStartup *) argv;
 120     if (startup->sm_NumArgs != 2)
 121     {
 122         displayMsg(ERROR_REQUIRED_ARG_MISSING);
 123         goto exit;
 124     }
 125
 126     dirlock  = startup->sm_ArgList[1].wa_Lock;
 127     filename = startup->sm_ArgList[1].wa_Name;
 128
 129     oldlock = CurrentDir(dirlock);
 130
 131     /* query diskobject for tooltypes */
 132     dobj = GetDiskObject(filename);
 133     if (dobj == NULL)
 134     {
 135         struct EasyStruct es = {sizeof(struct EasyStruct), 0,
 136             "Error", "IconX\nGetDiskObject failed for:\n%s", "OK"};
 137         EasyRequest(0, &es, 0, filename);
 138         goto exit;
 139     }
 140
 141     if (dobj->do_Type == WBPROJECT)
 142     {
 143         const STRPTR *toolarray = (const STRPTR *)dobj->do_ToolTypes;
 144         STRPTR s;
 145         if ((s = FindToolType(toolarray, "WINDOW")))
 146         {
 147             ixWindow = s;
 148         }
 149         if ((s = FindToolType(toolarray, "STACK")))
 150         {
 151             ixStack = atol(s);
 152         }
 153         if ((s = FindToolType(toolarray, "USERSHELL")))
 154         {
 155             if (MatchToolValue(s, "NO"))
 156             {
 157                 ixUShell = FALSE;
 158             }
 159         }
 160         if ((s = FindToolType(toolarray, "WAIT")))
 161         {
 162             ixWait += atol(s) * 50;
 163         }
 164         if ((s = FindToolType(toolarray, "DELAY")))
 165         {
 166             ixWait += atol(s);
 167         }
 168     }
 169     else
 170     {
 171         displayMsg(ERROR_OBJECT_WRONG_TYPE);
 172         goto exit;
 173     }
 174
 175     if (ixWait <= 0)
 176         ixWait = DEFWAIT;
 177
 178     if (ixStack <= 4096)
 179         ixStack = DEFSTACK;
 180
 181     D(bug("wait %d stack %d usershell %d window %s\n", ixWait, ixStack, ixUShell, ixWindow));
 182
 183     from = Open(filename, MODE_OLDFILE);
 184     if (from == NULL)
 185     {
 186         displayMsg(IoErr());
 187         goto exit;
 188     }
 189
 190     window  = Open(ixWindow, MODE_OLDFILE);
 191     if (window == NULL)
 192     {
 193         /* try to open default window */
 194         window = Open(DEFWINDOW, MODE_OLDFILE);
 195     }
 196
 197     if (window)
 198     {
 199         struct TagItem tags[] =
 200         {
 201             { SYS_Asynch,      FALSE        },
 202             { SYS_Background,  TRUE         },
 203             { SYS_Input,       (IPTR)window },
 204             { SYS_Output,      (IPTR)NULL   },
 205             { SYS_Error,       (IPTR)NULL   },
 206             { SYS_ScriptInput, (IPTR)from   },
 207             { SYS_UserShell,   ixUShell     },
 208             { NP_StackSize,    ixStack      },
 209             { TAG_DONE,        0            }
 210         };
 211
 212         rc = SystemTagList("", tags);
 213         if (rc == -1)
 214         {
 215             displayMsg(IoErr());
 216             rc = RETURN_FAIL;
 217         }
 218     }
 219     else
 220     {
 221         displayMsg(IoErr());
 222         goto exit;
 223     }
 224
 225     Delay(ixWait);
 226     rc = RETURN_OK;
 227
 228 exit:
 229     Close(window);
 230     FreeDiskObject(dobj);
 231
 232     if (oldlock != (BPTR)-1)
 233         CurrentDir(oldlock);
 234
 235     return rc;
 236 }
 237