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)
 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->nr)
 210                 fprintf(f, " nr='%d'", dive->nr);
 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(NULL);
 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 }