]> git.tdb.fi Git - ext/subsurface.git/blobdiff - parse-xml.c
Add three more trimix test dives
[ext/subsurface.git] / parse-xml.c
index 6a08a3845c9551c3f35b818ff5c51b468537abda..82b10a47e741113428f20e7c671ee595e1442885 100644 (file)
@@ -3,10 +3,14 @@
 #include <string.h>
 #include <stdlib.h>
 #include <errno.h>
+#include <unistd.h>
 #define __USE_XOPEN
 #include <time.h>
 #include <libxml/parser.h>
 #include <libxml/tree.h>
+#ifdef XSLT
+#include <libxslt/transform.h>
+#endif
 
 #include "dive.h"
 #include "uemis.h"
@@ -106,7 +110,6 @@ static int cylinder_index;
 static enum import_source {
        UNKNOWN,
        LIBDIVECOMPUTER,
-       SUUNTO,
        UEMIS,
        DIVINGLOG,
        UDDF,
@@ -425,7 +428,7 @@ static void water_pressure(char *buffer, void *_depth)
                if (!val.fp)
                        break;
                /* cbar to atm */
-               atm = (val.fp / 100) / 1.01325;
+               atm = bar_to_atm(val.fp * 10);
                /*
                 * atm to cm. Why not mm? The precision just isn't
                 * there.
@@ -604,6 +607,8 @@ static void try_to_fill_sample(struct sample *sample, const char *name, char *bu
                return;
        if (MATCH(".sample.cylpress", pressure, &sample->cylinderpressure))
                return;
+       if (MATCH(".sample.cylinderindex", get_index, &sample->cylinderindex))
+               return;
        if (MATCH(".sample.depth", depth, &sample->depth))
                return;
        if (MATCH(".sample.temp", temperature, &sample->temperature))
@@ -638,26 +643,6 @@ static void try_to_fill_sample(struct sample *sample, const char *name, char *bu
        nonmatch("sample", name, buf);
 }
 
-/*
- * Crazy suunto xml. Look at how those o2/he things match up.
- */
-static int suunto_dive_match(struct dive **divep, const char *name, int len, char *buf)
-{
-       struct dive *dive = *divep;
-
-       return  MATCH(".o2pct", percent, &dive->cylinder[0].gasmix.o2) ||
-               MATCH(".hepct_0", percent, &dive->cylinder[0].gasmix.he) ||
-               MATCH(".o2pct_2", percent, &dive->cylinder[1].gasmix.o2) ||
-               MATCH(".hepct_1", percent, &dive->cylinder[1].gasmix.he) ||
-               MATCH(".o2pct_3", percent, &dive->cylinder[2].gasmix.o2) ||
-               MATCH(".hepct_2", percent, &dive->cylinder[2].gasmix.he) ||
-               MATCH(".o2pct_4", percent, &dive->cylinder[3].gasmix.o2) ||
-               MATCH(".hepct_3", percent, &dive->cylinder[3].gasmix.he) ||
-               MATCH(".cylindersize", cylindersize, &dive->cylinder[0].type.size) ||
-               MATCH(".cylinderworkpressure", pressure, &dive->cylinder[0].type.workingpressure) ||
-               0;
-}
-
 static const char *country, *city;
 
 static void divinglog_place(char *place, void *_location)
@@ -781,8 +766,14 @@ static void uemis_ts(char *buffer, void *_when)
        struct tm tm;
        time_t *when = _when;
 
-       strptime(buffer, "%Y-%m-%dT%H:%M:%S", &tm);
+       memset(&tm, 0, sizeof(tm));
+       sscanf(buffer,"%d-%d-%dT%d:%d:%d",
+               &tm.tm_year, &tm.tm_mon, &tm.tm_mday,
+               &tm.tm_hour, &tm.tm_min, &tm.tm_sec);
+       tm.tm_mon  -= 1;
+       tm.tm_year -= 1900;
        *when = utc_mktime(&tm);
+
 }
 
 static void uemis_duration(char *buffer, void *_duration)
@@ -966,11 +957,6 @@ static void try_to_fill_dive(struct dive **divep, const char *name, char *buf)
        start_match("dive", name, buf);
 
        switch (import_source) {
-       case SUUNTO:
-               if (suunto_dive_match(divep, name, len, buf))
-                       return;
-               break;
-
        case UEMIS:
                if (uemis_dive_match(divep, name, len, buf))
                        return;
@@ -1038,7 +1024,8 @@ static void try_to_fill_dive(struct dive **divep, const char *name, char *buf)
                return;
        if (MATCH(".buddy", utf8_string, &dive->buddy))
                return;
-
+       if (MATCH(".rating", get_index, &dive->rating))
+               return;
        if (MATCH(".cylinder.size", cylindersize, &dive->cylinder[cylinder_index].type.size))
                return;
        if (MATCH(".cylinder.workpressure", pressure, &dive->cylinder[cylinder_index].type.workingpressure))
@@ -1114,9 +1101,9 @@ static void match_standard_cylinder(cylinder_type_t *type)
        if (type->description)
                return;
 
-       cuft = type->size.mliter / 28317.0;
+       cuft = ml_to_cuft(type->size.mliter);
        cuft *= to_ATM(type->workingpressure);
-       psi = type->workingpressure.mbar / 68.95;
+       psi = to_PSI(type->workingpressure);
 
        switch (psi) {
        case 2300 ... 2500:     /* 2400 psi: LP tank */
@@ -1168,8 +1155,9 @@ static void sanitize_cylinder_type(cylinder_type_t *type)
        if (!type->size.mliter)
                return;
 
-       if (input_units.volume == CUFT || import_source == SUUNTO) {
-               volume_of_air = type->size.mliter * 28.317;     /* milli-cu ft to milliliter */
+       if (input_units.volume == CUFT) {
+               /* confusing - we don't really start from ml but millicuft !*/
+               volume_of_air = cuft_to_l(type->size.mliter);
                atm = to_ATM(type->workingpressure);            /* working pressure in atm */
                volume = volume_of_air / atm;                   /* milliliters at 1 atm: "true size" */
                type->size.mliter = volume + 0.5;
@@ -1335,12 +1323,6 @@ static void visit(xmlNode *n)
        traverse(n->children);
 }
 
-static void suunto_importer(void)
-{
-       import_source = SUUNTO;
-       input_units = SI_units;
-}
-
 static void uemis_importer(void)
 {
        import_source = UEMIS;
@@ -1392,7 +1374,6 @@ static struct nesting {
        { "P", sample_start, sample_end },
 
        /* Import type recognition */
-       { "SUUNTO", suunto_importer },
        { "Divinglog", DivingLog_importer },
        { "pre_dive", uemis_importer },
        { "dives", uemis_importer },
@@ -1457,6 +1438,9 @@ void parse_xml_file(const char *filename, GError **error)
        set_filename(filename);
        reset_all();
        dive_start();
+#ifdef XSLT
+       doc = test_xslt_transforms(doc);
+#endif
        traverse(xmlDocGetRootElement(doc));
        dive_end();
        xmlFreeDoc(doc);
@@ -1467,3 +1451,85 @@ void parse_xml_init(void)
 {
        LIBXML_TEST_VERSION
 }
+
+#ifdef XSLT
+
+/* Maybe we'll want a environment variable that can override this.. */
+static const char *xslt_path = XSLT ":xslt:.";
+
+static xsltStylesheetPtr try_get_stylesheet(const char *path, int len, const char *name)
+{
+       xsltStylesheetPtr ret;
+       int namelen = strlen(name);
+       char *filename = malloc(len+1+namelen+1);
+
+       if (!filename)
+               return NULL;
+
+       memcpy(filename, path, len);
+       filename[len] = G_DIR_SEPARATOR;
+       memcpy(filename + len + 1, name, namelen+1);
+
+       ret = NULL;
+       if (!access(filename, R_OK))
+               ret = xsltParseStylesheetFile(filename);
+       free(filename);
+
+       return ret;
+}
+
+static xsltStylesheetPtr get_stylesheet(const char *name)
+{
+       const char *path = xslt_path, *next;
+
+       do {
+               int len;
+               xsltStylesheetPtr ret;
+
+               next = strchr(path, ':');
+               len = strlen(path);
+               if (next) {
+                       len = next - path;
+                       next++;
+               }
+               ret = try_get_stylesheet(path, len, name);
+               if (ret)
+                       return ret;
+       } while ((path = next) != NULL);
+
+       return NULL;
+}
+
+static struct xslt_files {
+       const char *root;
+       const char *file;
+} xslt_files[] = {
+       { "SUUNTO", "SuuntoSDM.xslt" },
+       { "JDiveLog", "jdivelog2subsurface.xslt" },
+       { NULL, }
+};
+
+xmlDoc *test_xslt_transforms(xmlDoc *doc)
+{
+       struct xslt_files *info = xslt_files;
+       xmlDoc *transformed;
+       xsltStylesheetPtr xslt = NULL;
+       xmlNode *root_element = xmlDocGetRootElement(doc);
+
+       while ((info->root) && (strcasecmp(root_element->name, info->root) != 0)) {
+               info++;
+       }
+
+       if (info->root) {
+               xmlSubstituteEntitiesDefault(1);
+               xslt = get_stylesheet(info->file);
+               if (xslt == NULL)
+                       return doc;
+               transformed = xsltApplyStylesheet(xslt, doc, NULL);
+               xmlFreeDoc(doc);
+               xsltFreeStylesheet(xslt);
+               return transformed;
+       }
+       return doc;
+}
+#endif