revert between 56095 -> 55830 in arch
[AROS.git] / workbench / devs / diskimage / prefs / writeprefs.c
blob5bfc7f4e762dbb76eda25f95e4b98a32529f4f0b
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.
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.
27 #include "prefs.h"
28 #include <proto/exec.h>
29 #include <proto/dos.h>
30 #include "support.h"
32 static void Indent (BPTR file, LONG level);
33 static void WritePrefsObject (PrefsObject *obj, BPTR file, LONG level);
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);
48 return res;
51 static void Indent (BPTR file, LONG level) {
52 while (level--) FPutC(file, '\t');
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);
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;