workbench/devs/diskimage/prefs/writeprefs.c

   1 /* Copyright 2007-2012 Fredrik Wikstrom. All rights reserved.
   2 **
   3 ** Redistribution and use in source and binary forms, with or without
   4 ** modification, are permitted provided that the following conditions
   5 ** are met:
   6 **
   7 ** 1. Redistributions of source code must retain the above copyright
   8 **    notice, this list of conditions and the following disclaimer.
   9 **
  10 ** 2. Redistributions in binary form must reproduce the above copyright
  11 **    notice, this list of conditions and the following disclaimer in the
  12 **    documentation and/or other materials provided with the distribution.
  13 **
  14 ** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS `AS IS'
  15 ** AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  16 ** IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  17 ** ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
  18 ** LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  19 ** CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  20 ** SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  21 ** INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  22 ** CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  23 ** ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  24 ** POSSIBILITY OF SUCH DAMAGE.
  25 */
  26
  27 #include "prefs.h"
  28 #include <proto/exec.h>
  29 #include <proto/dos.h>
  30 #include "support.h"
  31
  32 static void Indent (BPTR file, LONG level);
  33 static void WritePrefsObject (PrefsObject *obj, BPTR file, LONG level);
  34
  35 BOOL WritePrefs (PrefsObject *dict, CONST_STRPTR filename) {
  36         BOOL res = FALSE;
  37         if (dict && dict->type == PREFS_DICTIONARY) {
  38                 BPTR file;
  39                 file = Open(filename, MODE_NEWFILE);
  40                 if (file) {
  41                         FPrintf(file, "<pobjects version=\"1.0\">\n");
  42                         WritePrefsObject(dict, file, 0);
  43                         FPrintf(file, "</pobjects>\n");
  44                         res = TRUE;
  45                         Close(file);
  46                 }
  47         }
  48         return res;
  49 }
  50
  51 static void Indent (BPTR file, LONG level) {
  52         while (level--) FPutC(file, '\t');
  53 }
  54
  55 static void WritePrefsObject (PrefsObject *obj, BPTR file, LONG level) {
  56         PrefsObject *child;
  57         if (obj) {
  58                 switch (obj->type) {
  59                         case PREFS_DICTIONARY:
  60                                 Indent(file, level);
  61                                 FPrintf(file, "<dict>\n");
  62                                 child = (PrefsObject *)GetHead(obj->value.list);
  63                                 while (child) {
  64                                         Indent(file, level + 1);
  65                                         FPrintf(file, "<key>%s</key>\n", child->key);
  66                                         WritePrefsObject(child, file, level + 1);
  67                                         child = (PrefsObject *)GetSucc((struct Node *)child);
  68                                 }
  69                                 Indent(file, level);
  70                                 FPrintf(file, "</dict>\n");
  71                                 break;
  72                         case PREFS_BOOL:
  73                                 Indent(file, level);
  74                                 FPrintf(file, "<bool>%s</bool>\n", obj->value.bool ? "TRUE" : "FALSE");
  75                                 break;
  76                         case PREFS_INTEGER:
  77                                 Indent(file, level);
  78                                 FPrintf(file, "<integer>%ld</integer>\n", obj->value.integer);
  79                                 break;
  80                         case PREFS_STRING:
  81                                 Indent(file, level);
  82                                 FPrintf(file, "<string>%s</string>\n", obj->value.string);
  83                                 break;
  84                 }
  85         }
  86 }