workbench/system/Wanderer/Tools/ExecuteCommand/executecommand.c

   1 /*
   2     Copyright © 2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #define MUIMASTER_YES_INLINE_STDARG
   7
   8 #define DEBUG 1
   9 #include <aros/debug.h>
  10
  11 #include <exec/types.h>
  12 #include <utility/tagitem.h>
  13 #include <libraries/mui.h>
  14 #include <libraries/asl.h>
  15
  16 #include <proto/exec.h>
  17 #include <proto/dos.h>
  18 #include <proto/intuition.h>
  19 #include <proto/utility.h>
  20 #include <proto/muimaster.h>
  21 #include <proto/workbench.h>
  22
  23 #include <stdio.h>
  24
  25 #include "executecommand.h"
  26 #include "locale.h"
  27 #include "support.h"
  28
  29 #define VERSION "$VER: Execute 0.2 (13.01.2006) ©AROS Dev Team"
  30
  31 /*** Private methods ********************************************************/
  32 #define MUIM_ExecuteCommand_ExecuteCommand  (TAG_USER | 0x20000000)
  33 struct  MUIP_ExecuteCommand_ExecuteCommand  { STACKULONG MethodID; STACKULONG delayed; };
  34
  35 /*** Instance data **********************************************************/
  36 struct ExecuteCommand_DATA
  37 {
  38     Object *ecd_Window,
  39            *ecd_CommandString,
  40            *ecd_CommandPop;
  41     BPTR    ecd_Parent;
  42     BOOL    ecd_UnlockParent;
  43     BOOL    ecd_SaveCommand;
  44 };
  45
  46 /*** Methods ****************************************************************/
  47 Object *ExecuteCommand__OM_NEW
  48 (
  49     Class *CLASS, Object *self, struct opSet *message
  50 )
  51 {
  52     struct ExecuteCommand_DATA *data           = NULL;
  53     const struct TagItem       *tstate         = message->ops_AttrList,
  54                                *tag            = NULL;
  55     BPTR                        parent         = NULL;
  56     BOOL                        unlockParent   = FALSE;
  57     CONST_STRPTR                initial        = NULL;
  58     BOOL                        freeInitial    = FALSE;
  59     BOOL                        saveCommand    = FALSE;
  60     Object                     *window,
  61                                *commandString,
  62                                *commandPop,
  63                                *executeButton,
  64                                *cancelButton;
  65
  66     /* Parse initial taglist -----------------------------------------------*/
  67     while ((tag = NextTagItem(&tstate)) != NULL)
  68     {
  69         switch (tag->ti_Tag)
  70         {
  71             case MUIA_ExecuteCommand_Parent:
  72                 parent = (BPTR) tag->ti_Data;
  73                 break;
  74
  75             case MUIA_ExecuteCommand_Initial:
  76                 initial = (CONST_STRPTR) tag->ti_Data;
  77                 break;
  78         }
  79     }
  80
  81     /* Setup parameters ----------------------------------------------------*/
  82     if (parent == NULL)
  83     {
  84         if ((parent = Lock("RAM:", ACCESS_READ)) != NULL)
  85         {
  86             unlockParent = TRUE;
  87         }
  88     }
  89
  90     if (initial == NULL)
  91     {
  92         if ((initial = GetENV("LastExecutedCommand")) != NULL)
  93         {
  94             freeInitial = TRUE;
  95         }
  96         else
  97         {
  98             initial = "";
  99         }
 100
 101         saveCommand = TRUE;
 102     }
 103
 104     /* Create application and window objects -------------------------------*/
 105     self = (Object *) DoSuperNewTags
 106     (
 107         CLASS, self, NULL,
 108
 109         MUIA_Application_Title, __(MSG_TITLE),
 110         MUIA_Application_Version, (IPTR) VERSION,
 111         MUIA_Application_Copyright, (IPTR)"© 2006, The AROS Development Team",
 112         MUIA_Application_Description, __(MSG_DESCRIPTION),
 113         SubWindow, (IPTR) (window = (Object *)WindowObject,
 114             MUIA_Window_Title,       __(MSG_DESCRIPTION),
 115             MUIA_Window_Activate,    TRUE,
 116             MUIA_Window_NoMenus,     TRUE,
 117             MUIA_Window_CloseGadget, FALSE,
 118             MUIA_Window_ID, MAKE_ID('E','C','W','N'),
 119             WindowContents, (IPTR) VGroup,
 120                 Child, (IPTR) VGroup,
 121                     Child, (IPTR) LLabel(_(MSG_LABEL_COMMANDLINE)),
 122                     Child, (IPTR) (commandPop = (Object *)PopaslObject,
 123                         MUIA_Popstring_String, (IPTR) (commandString = (Object *)StringObject,
 124                             MUIA_String_Contents, (IPTR) initial,
 125                             MUIA_CycleChain,             1,
 126                             StringFrame,
 127                         End),
 128                         MUIA_Popstring_Button, (IPTR) PopButton(MUII_PopFile),
 129                     End),
 130                 End,
 131                 Child, (IPTR) HGroup,
 132                     InnerSpacing(0, 0),
 133                     GroupSpacing(0),
 134
 135                     Child, (IPTR) HVSpace,
 136                     Child, (IPTR) HGroup,
 137                         MUIA_Group_SameSize, TRUE,
 138                         MUIA_Weight,         0,
 139
 140                         Child, (IPTR)(executeButton = ImageButton(_(MSG_BUTTON_EXECUTE),"THEME:Images/Gadgets/Prefs/Save")),
 141                         Child, (IPTR)(cancelButton  = ImageButton(_(MSG_BUTTON_CANCEL),"THEME:Images/Gadgets/Prefs/Cancel")),
 142                     End,
 143                 End,
 144             End,
 145         End),
 146
 147         TAG_DONE
 148     );
 149
 150     /* Not needed anymore */
 151     if (freeInitial) FreeVec((APTR) initial);
 152
 153     /* Check if object creation succeeded */
 154     if (self == NULL)
 155     {
 156         if (unlockParent) UnLock(parent);
 157
 158         return NULL;
 159     }
 160
 161     /* Store instance data -------------------------------------------------*/
 162     data = INST_DATA(CLASS, self);
 163     data->ecd_Window        = window;
 164     data->ecd_CommandString = commandString;
 165     data->ecd_CommandPop    = commandPop;
 166     data->ecd_Parent        = parent;
 167     data->ecd_UnlockParent  = unlockParent;
 168     data->ecd_SaveCommand   = saveCommand;
 169
 170     /* Setup notifications -------------------------------------------------*/
 171     DoMethod
 172     (
 173         window, MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
 174         (IPTR) self, 2, MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit
 175     );
 176
 177     DoMethod
 178     (
 179         cancelButton, MUIM_Notify, MUIA_Pressed, FALSE,
 180         (IPTR) self, 2, MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit
 181     );
 182
 183     DoMethod
 184     (
 185         commandString, MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
 186         (IPTR) self, 2, MUIM_ExecuteCommand_ExecuteCommand, TRUE
 187     );
 188
 189     DoMethod
 190     (
 191         executeButton, MUIM_Notify, MUIA_Pressed, FALSE,
 192         (IPTR) self, 2, MUIM_ExecuteCommand_ExecuteCommand, TRUE
 193     );
 194
 195     DoMethod
 196     (
 197         commandPop, MUIM_Notify, MUIA_Popasl_Active, FALSE,
 198         (IPTR) window, 3, MUIM_Set, MUIA_Window_ActiveObject, (IPTR) commandString
 199     );
 200
 201     return self;
 202 }
 203
 204 IPTR ExecuteCommand__OM_DISPOSE(Class *CLASS, Object *self, Msg message)
 205 {
 206     struct ExecuteCommand_DATA *data = INST_DATA(CLASS, self);
 207
 208     if (data->ecd_UnlockParent && data->ecd_Parent != NULL)
 209     {
 210         UnLock(data->ecd_Parent);
 211     }
 212
 213     return DoSuperMethodA(CLASS, self, message);
 214 }
 215
 216 IPTR ExecuteCommand__MUIM_Application_Execute
 217 (
 218     Class *CLASS, Object *self, Msg message
 219 )
 220 {
 221     struct ExecuteCommand_DATA *data = INST_DATA(CLASS, self);
 222
 223     SET(data->ecd_Window, MUIA_Window_Open, TRUE);
 224     SET(data->ecd_Window, MUIA_Window_ActiveObject, (IPTR) data->ecd_CommandString);
 225
 226     DoSuperMethodA(CLASS, self, message);
 227
 228     SET(data->ecd_Window, MUIA_Window_Open, FALSE);
 229
 230     return 0;
 231 }
 232
 233 IPTR ExecuteCommand__MUIM_ExecuteCommand_ExecuteCommand
 234 (
 235     Class *CLASS, Object *self,
 236     struct MUIP_ExecuteCommand_ExecuteCommand *message
 237 )
 238 {
 239     struct ExecuteCommand_DATA *data = INST_DATA(CLASS, self);
 240
 241     if (message->delayed)
 242     {
 243         if (!XGET(data->ecd_CommandPop, MUIA_Popasl_Active))
 244         {
 245             SET(data->ecd_Window, MUIA_Window_Open, FALSE);
 246
 247             DoMethod
 248             (
 249                 self, MUIM_Application_PushMethod, (IPTR) self, 2,
 250                 MUIM_ExecuteCommand_ExecuteCommand, FALSE
 251             );
 252         }
 253     }
 254     else
 255     {
 256         BPTR   console, cd = NULL;
 257         STRPTR command;
 258
 259         GET(data->ecd_CommandString, MUIA_String_Contents, &command);
 260
 261         if (data->ecd_SaveCommand) SetENV("LastExecutedCommand", command);
 262
 263         /* Make sure that the commandline isn't just whitespace or NULL */
 264         if (command != NULL && command[strspn(command, " \t")] != '\0')
 265         {
 266             TEXT   buffer[1024];
 267
 268             if
 269             (
 270                 sizeof(buffer) > snprintf
 271                 (
 272                     buffer, sizeof(buffer),
 273                     "CON:////%s/CLOSE/AUTO/WAIT", _(MSG_CONSOLE_TITLE)
 274                 )
 275             )
 276             {
 277                 /* The string was not truncated */
 278                 console = Open(buffer, MODE_OLDFILE);
 279             }
 280             else
 281             {
 282                 /* The string was truncated; fallback to english title */
 283                 console = Open("CON:////Command Output/CLOSE/AUTO/WAIT", MODE_OLDFILE);
 284             }
 285
 286             if (console != NULL)
 287             {
 288                 BPTR searchPath = NULL;
 289
 290                 WorkbenchControl
 291                 (
 292                     NULL,
 293                     WBCTRLA_DuplicateSearchPath, (IPTR) &searchPath,
 294                     TAG_DONE
 295                 );
 296
 297                 if (data->ecd_Parent != NULL) cd = CurrentDir(data->ecd_Parent);
 298
 299                 if
 300                 (
 301                     SystemTags
 302                     (
 303                         command,
 304
 305                         SYS_Asynch,            TRUE,
 306                         SYS_Input,      (IPTR) console,
 307                         SYS_Output,     (IPTR) NULL,
 308                         SYS_Error,      (IPTR) NULL,
 309                         SYS_Background,        FALSE,
 310                         NP_Path,        (IPTR) searchPath,
 311
 312                         TAG_DONE
 313                     ) == -1
 314                 )
 315                 {
 316                     /*
 317                         An error occured, so we need to close the filehandle
 318                         and free the search path list (which are otherwise
 319                         automatically freed when the process exits).
 320                     */
 321
 322                     ShowError
 323                     (
 324                         self, data->ecd_Window,
 325                         _(MSG_ERROR_EXECUTE), TRUE
 326                     );
 327
 328                     WorkbenchControl
 329                     (
 330                         NULL,
 331                         WBCTRLA_FreeSearchPath, (IPTR) searchPath,
 332                         TAG_DONE
 333                     );
 334
 335                     Close(console);
 336                 }
 337
 338                 if (cd != NULL) CurrentDir(cd);
 339             }
 340             else
 341             {
 342                 ShowError
 343                 (
 344                     self, data->ecd_Window,
 345                     _(MSG_ERROR_OPEN_CONSOLE), TRUE
 346                 );
 347             }
 348         }
 349
 350         DoMethod(self, MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit);
 351     }
 352
 353     return 0;
 354 }
 355
 356
 357 /*** Dispatcher *************************************************************/
 358 BOOPSI_DISPATCHER(IPTR, ExecuteCommand_Dispatcher, CLASS, self, message)
 359 {
 360     switch (message->MethodID)
 361     {
 362         case OM_NEW:                             return (IPTR) ExecuteCommand__OM_NEW(CLASS, self, (struct opSet *) message);
 363         case OM_DISPOSE:                         return ExecuteCommand__OM_DISPOSE(CLASS, self, message);
 364         case MUIM_Application_Execute:           return ExecuteCommand__MUIM_Application_Execute(CLASS, self, message);
 365         case MUIM_ExecuteCommand_ExecuteCommand: return ExecuteCommand__MUIM_ExecuteCommand_ExecuteCommand(CLASS, self, (struct MUIP_ExecuteCommand_ExecuteCommand *) message);
 366         default:                                 return DoSuperMethodA(CLASS, self, message);
 367     }
 368
 369     return 0;
 370 }
 371 BOOPSI_DISPATCHER_END
 372
 373 /*** Setup ******************************************************************/
 374 struct MUI_CustomClass *ExecuteCommand_CLASS;
 375
 376 BOOL ExecuteCommand_Initialize()
 377 {
 378     ExecuteCommand_CLASS = MUI_CreateCustomClass
 379     (
 380         NULL, MUIC_Application, NULL,
 381         sizeof(struct ExecuteCommand_DATA), ExecuteCommand_Dispatcher
 382     );
 383
 384     return ExecuteCommand_CLASS != NULL ? TRUE : FALSE;
 385 }
 386
 387 VOID ExecuteCommand_Deinitialize()
 388 {
 389     if (ExecuteCommand_CLASS != NULL)
 390     {
 391         MUI_DeleteCustomClass(ExecuteCommand_CLASS);
 392     }
 393 }