]> git.tdb.fi Git - ext/subsurface.git/blob - save-xml.c
Label the temperature graph
[ext/subsurface.git] / save-xml.c
1 #include <stdio.h>
2 #include <ctype.h>
3 #include <string.h>
4 #include <stdlib.h>
5 #include <errno.h>
6 #include <time.h>
7
8 #include "dive.h"
9
10 #define FRACTION(n,x) ((unsigned)(n)/(x)),((unsigned)(n)%(x))
11
12 static void show_milli(FILE *f, const char *pre, int value, const char *unit, const char *post)
13 {
14         int i;
15         char buf[4];
16         unsigned v;
17
18         fputs(pre, f);
19         v = value;
20         if (value < 0) {
21                 putc('-', f);
22                 v = -value;
23         }
24         for (i = 2; i >= 0; i--) {
25                 buf[i] = (v % 10) + '0';
26                 v /= 10;
27         }
28         buf[3] = 0;
29         if (buf[2] == '0') {
30                 buf[2] = 0;
31                 if (buf[1] == '0')
32                         buf[1] = 0;
33         }
34
35         fprintf(f, "%u.%s%s%s", v, buf, unit, post);
36 }
37
38 static void show_temperature(FILE *f, temperature_t temp, const char *pre, const char *post)
39 {
40         if (temp.mkelvin)
41                 show_milli(f, pre, temp.mkelvin - 273150, " C", post);
42 }
43
44 static void show_depth(FILE *f, depth_t depth, const char *pre, const char *post)
45 {
46         if (depth.mm)
47                 show_milli(f, pre, depth.mm, " m", post);
48 }
49
50 static void show_duration(FILE *f, duration_t duration, const char *pre, const char *post)
51 {
52         if (duration.seconds)
53                 fprintf(f, "%s%u:%02u min%s", pre, FRACTION(duration.seconds, 60), post);
54 }
55
56 static void show_pressure(FILE *f, pressure_t pressure, const char *pre, const char *post)
57 {
58         if (pressure.mbar)
59                 show_milli(f, pre, pressure.mbar, " bar", post);
60 }
61
62 /*
63  * We're outputting utf8 in xml.
64  * We need to quote the characters <, >, &.
65  *
66  * Technically I don't think we'd necessarily need to quote the control
67  * characters, but at least libxml2 doesn't like them. It doesn't even
68  * allow them quoted. So we just skip them and replace them with '?'.
69  *
70  * Nothing else (and if we ever do this using attributes, we'd need to
71  * quote the quotes we use too).
72  */
73 static void quote(FILE *f, const char *text)
74 {
75         const char *p = text;
76
77         for (;;) {
78                 const char *escape;
79
80                 switch (*p++) {
81                 default:
82                         continue;
83                 case 0:
84                         escape = NULL;
85                         break;
86                 case 1 ... 8:
87                 case 11: case 12:
88                 case 14 ... 31:
89                         escape = "?";
90                         break;
91                 case '<':
92                         escape = "&lt;";
93                         break;
94                 case '>':
95                         escape = "&gt;";
96                         break;
97                 case '&':
98                         escape = "&amp;";
99                         break;
100                 }
101                 fwrite(text, (p - text - 1), 1, f);
102                 if (!escape)
103                         break;
104                 fputs(escape, f);
105                 text = p;
106         }
107 }
108
109 static void show_utf8(FILE *f, const char *text, const char *pre, const char *post)
110 {
111         int len;
112
113         if (!text)
114                 return;
115         while (isspace(*text))
116                 text++;
117         len = strlen(text);
118         if (!len)
119                 return;
120         while (len && isspace(text[len-1]))
121                 len--;
122         /* FIXME! Quoting! */
123         fputs(pre, f);
124         quote(f, text);
125         fputs(post, f);
126 }
127
128 static void save_depths(FILE *f, struct dive *dive)
129 {
130         /* What's the point of this dive entry again? */
131         if (!dive->maxdepth.mm && !dive->meandepth.mm)
132                 return;
133
134         fputs("  <depth", f);
135         show_depth(f, dive->maxdepth, " max='", "'");
136         show_depth(f, dive->meandepth, " mean='", "'");
137         fputs(" />\n", f);
138 }
139
140 static void save_temperatures(FILE *f, struct dive *dive)
141 {
142         if (!dive->airtemp.mkelvin && !dive->watertemp.mkelvin)
143                 return;
144         fputs("  <temperature", f);
145         show_temperature(f, dive->airtemp, " air='", "'");
146         show_temperature(f, dive->watertemp, " water='", "'");
147         fputs(" />\n", f);
148 }
149
150 static void save_overview(FILE *f, struct dive *dive)
151 {
152         save_depths(f, dive);
153         save_temperatures(f, dive);
154         show_duration(f, dive->surfacetime, "  <surfacetime>", "</surfacetime>\n");
155         show_utf8(f, dive->location, "  <location>","</location>\n");
156         show_utf8(f, dive->notes, "  <notes>","</notes>\n");
157 }
158
159 static void save_cylinder_info(FILE *f, struct dive *dive)
160 {
161         int i;
162
163         for (i = 0; i < MAX_CYLINDERS; i++) {
164                 cylinder_t *cylinder = dive->cylinder+i;
165                 int volume = cylinder->type.size.mliter;
166                 const char *description = cylinder->type.description;
167                 int o2 = cylinder->gasmix.o2.permille;
168                 int he = cylinder->gasmix.he.permille;
169                 int start = cylinder->start.mbar;
170                 int end = cylinder->end.mbar;
171
172                 /* No cylinder information at all? */
173                 if (!o2 && !volume && !start && !end)
174                         return;
175                 fprintf(f, "  <cylinder");
176                 if (o2) {
177                         fprintf(f, " o2='%u.%u%%'", FRACTION(o2, 10));
178                         if (he)
179                                 fprintf(f, " he='%u.%u%%'", FRACTION(he, 10));
180                 }
181                 if (volume)
182                         show_milli(f, " size='", volume, " l", "'");
183                 show_pressure(f, cylinder->type.workingpressure, " workpressure='", "'");
184                 if (description && *description)
185                         fprintf(f, " description='%s'", description);
186                 show_pressure(f, cylinder->start, " start='", "'");
187                 show_pressure(f, cylinder->end, " end='", "'");
188                 fprintf(f, " />\n");
189         }
190 }
191
192 static void save_sample(FILE *f, struct sample *sample)
193 {
194         fprintf(f, "  <sample time='%u:%02u min'", FRACTION(sample->time.seconds,60));
195         show_milli(f, " depth='", sample->depth.mm, " m", "'");
196         show_temperature(f, sample->temperature, " temp='", "'");
197         show_pressure(f, sample->cylinderpressure, " pressure='", "'");
198         if (sample->cylinderindex)
199                 fprintf(f, " cylinderindex='%d'", sample->cylinderindex);
200         fprintf(f, " />\n");
201 }
202
203 static void save_dive(FILE *f, struct dive *dive)
204 {
205         int i;
206         struct tm *tm = gmtime(&dive->when);
207
208         fputs("<dive", f);
209         if (dive->number)
210                 fprintf(f, " number='%d'", dive->number);
211         fprintf(f, " date='%04u-%02u-%02u'",
212                 tm->tm_year+1900, tm->tm_mon+1, tm->tm_mday);
213         fprintf(f, " time='%02u:%02u:%02u'",
214                 tm->tm_hour, tm->tm_min, tm->tm_sec);
215         fprintf(f, " duration='%u:%02u min'>\n",
216                 FRACTION(dive->duration.seconds, 60));
217         save_overview(f, dive);
218         save_cylinder_info(f, dive);
219         for (i = 0; i < dive->samples; i++)
220                 save_sample(f, dive->sample+i);
221         fprintf(f, "</dive>\n");
222 }
223
224 #define VERSION 1
225
226 void save_dives(const char *filename)
227 {
228         int i;
229         FILE *f = fopen(filename, "w");
230
231         if (!f)
232                 return;
233
234         /* Flush any edits of current dives back to the dives! */
235         update_dive(current_dive);
236
237         fprintf(f, "<dives>\n<program name='diveclog' version='%d'></program>\n", VERSION);
238         for (i = 0; i < dive_table.nr; i++)
239                 save_dive(f, get_dive(i));
240         fprintf(f, "</dives>\n");
241         fclose(f);
242 }