+static struct tm tm;
+
+static time_t utc_mktime(struct tm *tm)
+{
+ static const int mdays[] = {
+ 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334
+ };
+ int year = tm->tm_year;
+ int month = tm->tm_mon;
+ int day = tm->tm_mday;
+
+ /* First normalize relative to 1900 */
+ if (year < 70)
+ year += 100;
+ else if (year > 1900)
+ year -= 1900;
+
+ /* Normalized to Jan 1, 1970: unix time */
+ year -= 70;
+
+ if (year < 0 || year > 129) /* algo only works for 1970-2099 */
+ return -1;
+ if (month < 0 || month > 11) /* array bounds */
+ return -1;
+ if (month < 2 || (year + 2) % 4)
+ day--;
+ if (tm->tm_hour < 0 || tm->tm_min < 0 || tm->tm_sec < 0)
+ return -1;
+ return (year * 365 + (year + 1) / 4 + mdays[month] + day) * 24*60*60UL +
+ tm->tm_hour * 60*60 + tm->tm_min * 60 + tm->tm_sec;
+}
+
+static void divedate(char *buffer, void *_when)
+{
+ int d,m,y;
+ time_t *when = _when;
+
+ if (sscanf(buffer, "%d.%d.%d", &d, &m, &y) == 3) {
+ tm.tm_year = y;
+ tm.tm_mon = m-1;
+ tm.tm_mday = d;
+ if (tm.tm_sec | tm.tm_min | tm.tm_hour)
+ *when = utc_mktime(&tm);
+ }
+ free(buffer);
+}
+
+static void divetime(char *buffer, void *_when)
+{
+ int h,m,s = 0;
+ time_t *when = _when;
+
+ if (sscanf(buffer, "%d:%d:%d", &h, &m, &s) >= 2) {
+ tm.tm_hour = h;
+ tm.tm_min = m;
+ tm.tm_sec = s;
+ if (tm.tm_year)
+ *when = utc_mktime(&tm);
+ }
+ free(buffer);
+}
+
+/* Libdivecomputer: "2011-03-20 10:22:38" */
+static void divedatetime(char *buffer, void *_when)
+{
+ int y,m,d;
+ int hr,min,sec;
+ time_t *when = _when;
+
+ if (sscanf(buffer, "%d-%d-%d %d:%d:%d",
+ &y, &m, &d, &hr, &min, &sec) == 6) {
+ tm.tm_year = y;
+ tm.tm_mon = m-1;
+ tm.tm_mday = d;
+ tm.tm_hour = hr;
+ tm.tm_min = min;
+ tm.tm_sec = sec;
+ *when = utc_mktime(&tm);
+ }
+ free(buffer);
+}
+
+union int_or_float {
+ long i;
+ double fp;
+};
+
+enum number_type {
+ NEITHER,
+ INTEGER,
+ FLOAT
+};
+
+static enum number_type integer_or_float(char *buffer, union int_or_float *res)
+{
+ char *end;
+ long val;
+ double fp;
+
+ /* Integer or floating point? */
+ val = strtol(buffer, &end, 10);
+ if (val < 0 || end == buffer)
+ return NEITHER;
+
+ /* Looks like it might be floating point? */
+ if (*end == '.') {
+ errno = 0;
+ fp = strtod(buffer, &end);
+ if (!errno) {
+ res->fp = fp;
+ return FLOAT;
+ }
+ }
+
+ res->i = val;
+ return INTEGER;
+}
+
+static void pressure(char *buffer, void *_press)
+{
+ pressure_t *pressure = _press;
+ union int_or_float val;
+
+ switch (integer_or_float(buffer, &val)) {
+ case FLOAT:
+ /* Maybe it's in Bar? */
+ if (val.fp < 500.0) {
+ pressure->mbar = val.fp * 1000;
+ break;
+ }
+ printf("Unknown fractional pressure reading %s\n", buffer);
+ break;
+
+ case INTEGER:
+ /*
+ * Random integer? Maybe in PSI? Or millibar already?
+ *
+ * We assume that 5 bar is a ridiculous tank pressure,
+ * so if it's smaller than 5000, it's in PSI..
+ */
+ if (val.i < 5000) {
+ pressure->mbar = val.i * 68.95;
+ break;
+ }
+ pressure->mbar = val.i;
+ break;
+ default:
+ printf("Strange pressure reading %s\n", buffer);
+ }
+ free(buffer);
+}
+
+static void depth(char *buffer, void *_depth)
+{
+ depth_t *depth = _depth;
+ union int_or_float val;
+
+ switch (integer_or_float(buffer, &val)) {
+ /* All values are probably in meters */
+ case INTEGER:
+ val.fp = val.i;
+ /* fallthrough */
+ case FLOAT:
+ depth->mm = val.fp * 1000;
+ break;
+ default:
+ printf("Strange depth reading %s\n", buffer);
+ }
+ free(buffer);
+}
+
+static void temperature(char *buffer, void *_temperature)
+{
+ temperature_t *temperature = _temperature;
+ union int_or_float val;
+
+ switch (integer_or_float(buffer, &val)) {
+ /* C or F? Who knows? Let's default to Celsius */
+ case INTEGER:
+ val.fp = val.i;
+ /* Fallthrough */
+ case FLOAT:
+ /* Ignore zero. It means "none" */
+ if (!val.fp)
+ break;
+ /* Celsius */
+ if (val.fp < 50.0) {
+ temperature->mkelvin = (val.fp + 273.16) * 1000;
+ break;
+ }
+ /* Fahrenheit */
+ if (val.fp < 212.0) {
+ temperature->mkelvin = (val.fp + 459.67) * 5000/9;
+ break;
+ }
+ /* Kelvin or already millikelvin */
+ if (val.fp < 1000.0)
+ val.fp *= 1000;
+ temperature->mkelvin = val.fp;
+ break;
+ default:
+ printf("Strange temperature reading %s\n", buffer);
+ }
+ free(buffer);
+}
+
+static void sampletime(char *buffer, void *_time)
+{
+ int i;
+ int min, sec;
+ duration_t *time = _time;
+
+ i = sscanf(buffer, "%d:%d", &min, &sec);
+ switch (i) {
+ case 1:
+ sec = min;
+ min = 0;
+ /* fallthrough */
+ case 2:
+ time->seconds = sec + min*60;
+ break;
+ default:
+ printf("Strange sample time reading %s\n", buffer);
+ }
+ free(buffer);
+}
+
+static void duration(char *buffer, void *_time)
+{
+ sampletime(buffer, _time);
+}
+
+static void ignore(char *buffer, void *_time)
+{
+}
+
+/* We're in samples - try to convert the random xml value to something useful */
+static void try_to_fill_sample(struct sample *sample, const char *name, char *buf)
+{
+ const char *last = last_part(name);
+
+ if (match("pressure", last, pressure, buf, &sample->tankpressure))
+ return;
+ if (match("cylpress", last, pressure, buf, &sample->tankpressure))
+ return;
+ if (match("depth", last, depth, buf, &sample->depth))
+ return;
+ if (match("temperature", last, temperature, buf, &sample->temperature))
+ return;
+ if (match("sampletime", last, sampletime, buf, &sample->time))
+ return;
+ if (match("time", last, sampletime, buf, &sample->time))
+ return;
+
+ nonmatch("sample", name, last, buf);
+}
+
+/* We're in the top-level dive xml. Try to convert whatever value to a dive value */
+static void try_to_fill_dive(struct dive *dive, const char *name, char *buf)
+{
+ const char *last = last_part(name);
+
+ if (match("date", last, divedate, buf, &dive->when))
+ return;
+ if (match("time", last, divetime, buf, &dive->when))
+ return;
+ if (match("datetime", last, divedatetime, buf, &dive->when))
+ return;
+ if (match("maxdepth", last, depth, buf, &dive->maxdepth))
+ return;
+ if (match("meandepth", last, depth, buf, &dive->meandepth))
+ return;
+ if (match("divetime", last, duration, buf, &dive->duration))
+ return;
+ if (match("divetimesec", last, duration, buf, &dive->duration))
+ return;
+ if (match("surfacetime", last, duration, buf, &dive->surfacetime))
+ return;
+ if (match("airtemp", last, temperature, buf, &dive->airtemp))
+ return;
+ if (match("watertemp", last, temperature, buf, &dive->watertemp))
+ return;
+ if (match("cylinderstartpressure", last, pressure, buf, &dive->beginning_pressure))
+ return;
+ if (match("cylinderendpressure", last, pressure, buf, &dive->end_pressure))
+ return;
+ if (match("divenumber", last, ignore, buf, NULL))
+ return;
+ if (match("diveseries", last, ignore, buf, NULL))
+ return;
+ if (match("number", last, ignore, buf, NULL))
+ return;
+ if (match("size", last, ignore, buf, NULL))
+ return;
+ if (match("fingerprint", last, ignore, buf, NULL))
+ return;
+ nonmatch("dive", name, last, buf);
+}