workbench/classes/zune/prefseditor/prefseditor.c

   1 /*
   2     Copyright © 2004-2013, The AROS Development Team. All rights reserved.
   3     This file is part of the PrefsEditor class, which is distributed under
   4     the terms of version 2.1 of the GNU Lesser General Public License.
   5
   6     $Id$
   7 */
   8
   9 #define MUIMASTER_YES_INLINE_STDARG
  10
  11 #include <utility/tagitem.h>
  12 #include <libraries/mui.h>
  13 #include <dos/dos.h>
  14
  15 #include <proto/exec.h>
  16 #include <proto/muimaster.h>
  17 #include <proto/intuition.h>
  18 #include <proto/utility.h>
  19 #include <proto/locale.h>
  20 #include <proto/dos.h>
  21 #include <proto/alib.h>
  22
  23 #include "support.h"
  24 #include "prefseditor.h"
  25 #include "prefseditor_private.h"
  26
  27 #include <aros/debug.h>
  28
  29 /*** Macros and defines *****************************************************/
  30 #define SETUP_INST_DATA struct PrefsEditor_DATA *data = INST_DATA(CLASS, self)
  31
  32 #define ENV    ((IPTR) "ENV:")
  33 #define ENVARC ((IPTR) "ENVARC:")
  34
  35 /*** Methods ****************************************************************/
  36 Object *PrefsEditor__OM_NEW
  37 (
  38     Class *CLASS, Object *self, struct opSet *message
  39 )
  40 {
  41     self = (Object *) DoSuperMethodA(CLASS, self, (Msg)message);
  42
  43     if (self != NULL)
  44     {
  45         SETUP_INST_DATA;
  46
  47         /*-- Set defaults --------------------------------------------------*/
  48         data->ped_CanSave = TRUE;
  49         data->ped_CanTest = TRUE;
  50         data->ped_CanUse = TRUE;
  51
  52         /*-- Handle initial attribute values -------------------------------*/
  53         SetAttrsA(self, message->ops_AttrList);
  54
  55     }
  56
  57     return self;
  58 }
  59
  60 IPTR PrefsEditor__MUIM_Setup
  61 (
  62     Class *CLASS, Object *self, struct MUIP_Setup *message
  63 )
  64 {
  65     SETUP_INST_DATA;
  66     BPTR lock;
  67
  68     if (!DoSuperMethodA(CLASS, self, (Msg) message)) return FALSE;
  69
  70     /*-- Load preferences --------------------------------------------------*/
  71     if (!DoMethod(self, MUIM_PrefsEditor_ImportFromDirectory, ENV))
  72     {
  73         if (!DoMethod(self, MUIM_PrefsEditor_ImportFromDirectory, ENVARC))
  74         {
  75             if (DoMethod(self, MUIM_PrefsEditor_SetDefaults))
  76             {
  77                 SET(self, MUIA_PrefsEditor_Changed, TRUE);
  78             }
  79         }
  80     }
  81
  82     /*-- Store backup of initial preferences -------------------------------*/
  83     data->ped_BackupFH = CreateTemporary(data->ped_BackupPath, BACKUP_PREFIX);
  84     if (data->ped_BackupFH != BNULL)
  85     {
  86         if
  87         (
  88             !DoMethod
  89             (
  90                 self, MUIM_PrefsEditor_ExportFH, (IPTR) data->ped_BackupFH
  91             )
  92         )
  93         {
  94             /* Remove the incomplete backup file */
  95             Close(data->ped_BackupFH);
  96             DeleteFile(data->ped_BackupPath);
  97             data->ped_BackupFH = BNULL;
  98         }
  99     }
 100
 101     if (data->ped_BackupFH == BNULL)
 102     {
 103         data->ped_CanTest = FALSE;
 104     }
 105
 106     /*-- Completely disable save if ENVARC: is write-protected -------------*/
 107     lock = Lock("ENVARC:", SHARED_LOCK);
 108     if (lock != BNULL)
 109     {
 110         struct InfoData id;
 111
 112         if (Info(lock, &id))
 113         {
 114             if (id.id_DiskState == ID_WRITE_PROTECTED)
 115             {
 116                 data->ped_CanSave = FALSE;
 117             }
 118         }
 119
 120         UnLock(lock);
 121     }
 122     else
 123     {
 124         data->ped_CanSave = FALSE;
 125     }
 126
 127     return TRUE;
 128 }
 129
 130 IPTR PrefsEditor__MUIM_Cleanup
 131 (
 132     Class *CLASS, Object *self, struct MUIP_Cleanup *message
 133 )
 134 {
 135     SETUP_INST_DATA;
 136
 137     if (data->ped_BackupFH != BNULL)
 138     {
 139         Close(data->ped_BackupFH);
 140         DeleteFile(data->ped_BackupPath);
 141     }
 142
 143     return DoSuperMethodA(CLASS, self, (Msg) message);
 144 }
 145
 146 IPTR PrefsEditor__OM_DISPOSE
 147 (
 148     Class *CLASS, Object *self, Msg message
 149 )
 150 {
 151     SETUP_INST_DATA;
 152
 153     if (data->ped_Name != NULL) FreeVec(data->ped_Name);
 154     if (data->ped_Path != NULL) FreeVec(data->ped_Path);
 155
 156     return DoSuperMethodA(CLASS, self, message);
 157 }
 158
 159 IPTR PrefsEditor__OM_SET
 160 (
 161     Class *CLASS, Object *self, struct opSet *message
 162 )
 163 {
 164     SETUP_INST_DATA;
 165     struct TagItem *tstate = message->ops_AttrList;
 166     struct TagItem *tag,
 167                     noforward_attrs[] =
 168                     {
 169                         { MUIA_Group_Forward, FALSE        },
 170                         { TAG_MORE,           (IPTR)tstate }
 171                     };
 172     struct opSet noforward_message = *message;
 173     noforward_message.ops_AttrList = noforward_attrs;
 174
 175     while ((tag = NextTagItem(&tstate)) != NULL)
 176     {
 177         switch (tag->ti_Tag)
 178         {
 179             case MUIA_PrefsEditor_Changed:
 180                 data->ped_Changed = tag->ti_Data;
 181                 break;
 182
 183             case MUIA_PrefsEditor_Testing:
 184                 data->ped_Testing = tag->ti_Data;
 185                 break;
 186
 187             case MUIA_PrefsEditor_CanTest:
 188                 data->ped_CanTest = tag->ti_Data;
 189                 break;
 190
 191             case MUIA_PrefsEditor_Name:
 192                 if (data->ped_Name != NULL) FreeVec(data->ped_Name);
 193                 data->ped_Name = StrDup((CONST_STRPTR) tag->ti_Data);
 194                 break;
 195
 196             case MUIA_PrefsEditor_Path:
 197                 if (data->ped_Path != NULL) FreeVec(data->ped_Path);
 198                 data->ped_Path = StrDup((CONST_STRPTR) tag->ti_Data);
 199                 break;
 200
 201             case MUIA_PrefsEditor_IconTool:
 202                 if (data->ped_IconTool != NULL) FreeVec(data->ped_IconTool);
 203                 data->ped_IconTool = StrDup((CONST_STRPTR) tag->ti_Data);
 204                 break;
 205
 206             case MUIA_PrefsEditor_CanUse:
 207                 data->ped_CanUse = tag->ti_Data;
 208                 break;
 209         }
 210     }
 211
 212     return DoSuperMethodA(CLASS, self, (Msg) &noforward_message);
 213 }
 214
 215 IPTR PrefsEditor__OM_GET
 216 (
 217     Class *CLASS, Object *self, struct opGet *message
 218 )
 219 {
 220     SETUP_INST_DATA;
 221     IPTR *store = message->opg_Storage;
 222     IPTR  rv    = TRUE;
 223
 224     switch (message->opg_AttrID)
 225     {
 226         case MUIA_PrefsEditor_Changed:
 227             *store = data->ped_Changed;
 228             break;
 229
 230         case MUIA_PrefsEditor_Testing:
 231             *store = data->ped_Testing;
 232             break;
 233
 234         case MUIA_PrefsEditor_CanSave:
 235             *store = data->ped_CanSave;
 236             break;
 237
 238         case MUIA_PrefsEditor_CanTest:
 239             *store = data->ped_CanTest;
 240             break;
 241
 242         case MUIA_PrefsEditor_Name:
 243             *store = (IPTR) data->ped_Name;
 244             break;
 245
 246         case MUIA_PrefsEditor_Path:
 247             *store = (IPTR) data->ped_Path;
 248             break;
 249
 250         case MUIA_PrefsEditor_IconTool:
 251             *store = (IPTR) data->ped_IconTool;
 252             break;
 253
 254         case MUIA_PrefsEditor_CanUse:
 255             *store = data->ped_CanUse;
 256             break;
 257
 258         default:
 259             rv = DoSuperMethodA(CLASS, self, (Msg) message);
 260     }
 261
 262     return rv;
 263 }
 264
 265 IPTR PrefsEditor__MUIM_PrefsEditor_ExportToDirectory
 266 (
 267     Class *CLASS, Object *self,
 268     struct MUIP_PrefsEditor_ExportToDirectory *message
 269 )
 270 {
 271     SETUP_INST_DATA;
 272     BOOL success = FALSE;
 273     BPTR lock    = Lock(message->directory, ACCESS_READ);
 274
 275     if (lock != BNULL)
 276     {
 277         BPTR oldcd = CurrentDir(lock);
 278
 279         success = DoMethod
 280         (
 281             self, MUIM_PrefsEditor_Export, (IPTR) data->ped_Path
 282         );
 283
 284         CurrentDir(oldcd);
 285
 286         UnLock(lock);
 287     }
 288
 289     return success;
 290 }
 291
 292 IPTR PrefsEditor__MUIM_PrefsEditor_ImportFromDirectory
 293 (
 294     Class *CLASS, Object *self,
 295     struct MUIP_PrefsEditor_ImportFromDirectory *message
 296 )
 297 {
 298     SETUP_INST_DATA;
 299     BOOL success = FALSE;
 300     BPTR lock    = Lock(message->directory, ACCESS_READ);
 301
 302     if (lock != BNULL)
 303     {
 304         BPTR oldcd = CurrentDir(lock);
 305
 306         success = DoMethod
 307         (
 308             self, MUIM_PrefsEditor_Import, (IPTR) data->ped_Path
 309         );
 310
 311         CurrentDir(oldcd);
 312
 313         UnLock(lock);
 314
 315     }
 316
 317     return success;
 318 }
 319
 320 IPTR PrefsEditor__MUIM_PrefsEditor_Import
 321 (
 322     Class *CLASS, Object *self, struct MUIP_PrefsEditor_Import *message
 323 )
 324 {
 325     BOOL success = FALSE;
 326     BPTR fh;
 327
 328     if ((fh = Open(message->filename, MODE_OLDFILE)) != BNULL)
 329     {
 330         success = DoMethod(self, MUIM_PrefsEditor_ImportFH, (IPTR) fh);
 331         Close(fh);
 332     }
 333
 334     return success;
 335 }
 336
 337 IPTR PrefsEditor__MUIM_PrefsEditor_Export
 338 (
 339     Class *CLASS, Object *self, struct MUIP_PrefsEditor_Export *message
 340 )
 341 {
 342     BOOL success = FALSE;
 343     BPTR fh;
 344
 345     fh = Open(message->filename, MODE_NEWFILE);
 346
 347     if (fh == BNULL && IoErr() == ERROR_OBJECT_NOT_FOUND)
 348     {
 349         /* Attempt to create missing directories */
 350         /* MakeDirs() will modify the string in-place */
 351         STRPTR tmp = StrDup(message->filename);
 352         if (tmp != NULL)
 353         {
 354             MakeDirs(tmp);
 355             fh = Open(message->filename, MODE_NEWFILE);
 356             FreeVec(tmp);
 357         }
 358     }
 359
 360     if (fh != BNULL)
 361     {
 362         success = DoMethod(self, MUIM_PrefsEditor_ExportFH, (IPTR) fh);
 363         Close(fh);
 364     }
 365
 366     return success;
 367 }
 368
 369 IPTR PrefsEditor__MUIM_PrefsEditor_Test
 370 (
 371     Class *CLASS, Object *self, Msg message
 372 )
 373 {
 374     if (DoMethod(self, MUIM_PrefsEditor_ExportToDirectory, ENV))
 375     {
 376         SET(self, MUIA_PrefsEditor_Changed, FALSE);
 377         SET(self, MUIA_PrefsEditor_Testing, TRUE);
 378
 379         return TRUE;
 380     }
 381
 382     return FALSE;
 383 }
 384
 385 IPTR PrefsEditor__MUIM_PrefsEditor_Revert
 386 (
 387     Class *CLASS, Object *self, Msg message
 388 )
 389 {
 390     SETUP_INST_DATA;
 391
 392     if (Seek(data->ped_BackupFH, 0, OFFSET_BEGINNING) == -1)
 393                  return FALSE;//error
 394
 395     if
 396     (
 397            DoMethod(self, MUIM_PrefsEditor_ImportFH, (IPTR) data->ped_BackupFH)
 398         && DoMethod(self, MUIM_PrefsEditor_ExportToDirectory, ENV)
 399     )
 400     {
 401         SET(self, MUIA_PrefsEditor_Changed, FALSE);
 402         SET(self, MUIA_PrefsEditor_Testing, FALSE);
 403
 404         return TRUE;
 405     }
 406
 407      return FALSE;//error
 408
 409 }
 410
 411 IPTR PrefsEditor__MUIM_PrefsEditor_Save
 412 (
 413     Class *CLASS, Object *self, Msg message
 414 )
 415 {
 416     if
 417     (
 418            DoMethod(self, MUIM_PrefsEditor_Use)
 419         && DoMethod(self, MUIM_PrefsEditor_ExportToDirectory, ENVARC)
 420     )
 421     {
 422         return TRUE;
 423     }
 424
 425     return FALSE;
 426 }
 427
 428 IPTR PrefsEditor__MUIM_PrefsEditor_Use
 429 (
 430     Class *CLASS, Object *self, Msg message
 431 )
 432 {
 433     if (DoMethod(self, MUIM_PrefsEditor_ExportToDirectory, ENV))
 434     {
 435         SET(self, MUIA_PrefsEditor_Changed, FALSE);
 436         SET(self, MUIA_PrefsEditor_Testing, FALSE);
 437
 438         return TRUE;
 439     }
 440
 441     return FALSE;
 442 }
 443
 444 IPTR PrefsEditor__MUIM_PrefsEditor_Cancel
 445 (
 446     Class *CLASS, Object *self, Msg message
 447 )
 448 {
 449     if (XGET(self, MUIA_PrefsEditor_Testing))
 450     {
 451         return DoMethod(self, MUIM_PrefsEditor_Revert);
 452     }
 453
 454     return TRUE;
 455 }