pack/unarc/main.c

   1 /*
   2     Copyright © 2012, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #define MUIMASTER_YES_INLINE_STDARG
   7
   8 #include <proto/muimaster.h>
   9 #include <proto/intuition.h>
  10 #include <proto/utility.h>
  11 #include <proto/dos.h>
  12 #include <proto/icon.h>
  13 #include <proto/alib.h>
  14
  15 #include <libraries/mui.h>
  16 #include <workbench/startup.h>
  17
  18 #include "unarcgroup_class.h"
  19 #include "locale.h"
  20
  21 #define ARGTEMPLATE "ARCHIVE,DESTINATION,PUBSCREEN/K"
  22
  23
  24 enum
  25 {
  26     ARG_ARCHIVE,
  27     ARG_DESTINATION,
  28     ARG_PUBSCREEN,
  29     ARG_COUNT
  30 };
  31
  32 static void cleanup_exit(CONST_STRPTR str);
  33
  34 static Object *app, *win;
  35 static struct DiskObject *dobj;
  36 static struct RDArgs *rda;
  37 static IPTR args[ARG_COUNT];
  38 static BPTR olddir = (BPTR)-1;
  39
  40
  41 int main(int argc, char **argv)
  42 {
  43     Locale_Initialize();
  44
  45     STRPTR archive = NULL;
  46     STRPTR destination = NULL;
  47     STRPTR pubscreen = NULL;
  48
  49     if (argc) // started from CLI
  50     {
  51         rda = ReadArgs(ARGTEMPLATE, args, NULL);
  52         if (!rda)
  53         {
  54             cleanup_exit(_(MSG_ERR_READARGS));
  55         }
  56         archive = (STRPTR)args[ARG_ARCHIVE];
  57         destination = (STRPTR)args[ARG_DESTINATION];
  58         pubscreen = (STRPTR)args[ARG_PUBSCREEN];
  59     }
  60     else // started from Wanderer
  61     {
  62         struct WBStartup *wbmsg = (struct WBStartup *)argv;
  63         struct WBArg *wbarg = wbmsg->sm_ArgList;
  64         STRPTR *toolarray;
  65
  66         dobj = GetDiskObject(wbarg->wa_Name);
  67         if (dobj)
  68         {
  69             toolarray = dobj->do_ToolTypes;
  70             archive = FindToolType(toolarray, "ARCHIVE");
  71             destination = FindToolType(toolarray, "DESTINATION");
  72         }
  73         if (wbmsg->sm_NumArgs > 1 && wbarg[1].wa_Lock)
  74         {
  75             olddir = CurrentDir(wbarg[1].wa_Lock);
  76             archive = wbarg[1].wa_Name;
  77         }
  78     }
  79
  80     app = ApplicationObject,
  81         MUIA_Application_Author, (IPTR)"The AROS Development Team",
  82         MUIA_Application_Base, (IPTR)"UNARC",
  83         MUIA_Application_Title, (IPTR)"Unarc",
  84         MUIA_Application_Version, (IPTR)"$VER: Unarc 1.1 (11.02.2012)",
  85         MUIA_Application_Copyright, __(MSG_AppCopyright),
  86         MUIA_Application_Description, __(MSG_AppDescription),
  87         SubWindow, (IPTR)(win = WindowObject,
  88             MUIA_Window_Title, __(MSG_WI_TITLE),
  89             MUIA_Window_ID, MAKE_ID('U', 'N', 'W', 'I'),
  90             pubscreen ? MUIA_Window_PublicScreen : TAG_IGNORE, (IPTR)pubscreen,
  91             WindowContents, (IPTR)(UnarcGroupObject,
  92                 MUIA_UnarcGroup_Archive, (IPTR)archive,
  93                 MUIA_UnarcGroup_Destination, (IPTR)destination,
  94             End),
  95         End),
  96     End;
  97
  98     if (!app)
  99         cleanup_exit(_(MSG_ERR_NO_APPLICATION));
 100
 101     DoMethod
 102     (
 103         win, MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
 104         app, 2, MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit
 105     );
 106
 107     SET(win, MUIA_Window_Open, TRUE);
 108     DoMethod(app, MUIM_Application_Execute);
 109     cleanup_exit(NULL);
 110     return 0;
 111 }
 112
 113
 114 static void cleanup_exit(CONST_STRPTR str)
 115 {
 116     if (str)
 117     {
 118         struct EasyStruct es =
 119         {
 120             sizeof(struct EasyStruct), 0,
 121             _(MSG_ERR), str, _(MSG_OK)
 122         };
 123         EasyRequestArgs(NULL, &es, NULL, NULL);
 124     }
 125     MUI_DisposeObject(app);
 126     if (dobj) FreeDiskObject(dobj);
 127     if (rda) FreeArgs(rda);
 128     if (olddir != (BPTR)-1) CurrentDir(olddir);
 129     Locale_Deinitialize();
 130 }