X-Git-Url: http://git.tdb.fi/?a=blobdiff_plain;f=uemis.c;h=1be48f33ed3b17a91b31fd61c01c523034b812f9;hb=c15f798a85db53dae404a9113266a4d2bc72fbc6;hp=8dfc5a373f384d28c581d0464f1b36b7e05821c0;hpb=775a081769d2969e449feead164a82cbe53d9b7e;p=ext%2Fsubsurface.git

diff --git a/uemis.c b/uemis.c
index 8dfc5a3..1be48f3 100644
--- a/uemis.c
+++ b/uemis.c
@@ -73,64 +73,6 @@ static void decode( uint8_t *inbuf, uint8_t *outbuf, int inbuf_len ) {
 }
 /* end code from Bob Trower */
 
-/* small helper functions */
-/* simpleregex allocates (and reallocates) the found buffer
- * don't forget to free it when you are done
- */
-static int simpleregex(char *buffer, char *regex, char **found) {
-	int status;
-	regex_t re;
-	regmatch_t match[5];
-
-	if (regcomp(&re, regex, 0) !=0) {
-		fprintf(stderr,"internal error, regex failed!\n");
-		exit(1);
-	}
-	status = regexec(&re,buffer,5,match,0);
-	if(status == 0) {
-		*found = realloc(*found,match[1].rm_eo-match[1].rm_so + 1);
-		strncpy(*found,buffer+match[1].rm_so,match[1].rm_eo-match[1].rm_so);
-		(*found)[match[1].rm_eo-match[1].rm_so] = '\0';
-	}
-	return(status == 0);
-}
-
-/* read in line of arbitrary length (important for SDA files that can
- * have lines that are tens of kB long
- * don't forget to free it when you are done
- */
-#define MYGETL_INCR 1024
-static char * mygetline(FILE * f) {
-	size_t size = 0;
-	size_t len  = 0;
-	char * buf  = NULL;
-
-	do {
-		size += MYGETL_INCR;
-		if ((buf = realloc(buf,size)) == NULL)
-			break;
-		fgets(buf+len,MYGETL_INCR,f);
-		len = strlen(buf);
-	} while (!feof(f) && buf[len-1]!='\n');
-	return buf;
-}
-
-/* text matching, used to build very poor man's XML parser */
-int matchit(FILE *infd, char *regex, char *typeregex, char **found) {
-	char *buffer;
-
-	while (!feof(infd)) {
-		buffer = mygetline(infd);
-		if (buffer && simpleregex(buffer,regex,found)) {
-			buffer = mygetline(infd);
-			if (buffer && simpleregex(buffer,typeregex,found)) {
-				return 1;
-			}
-		}
-	}
-	return 0;
-}
-
 /*
  * pressure_to_depth: In centibar. And when converting to
  * depth, I'm just going to always use saltwater, because I
@@ -180,11 +122,12 @@ bail:
 /*
  * parse uemis base64 data blob into struct dive
  */
-static void parse_divelog_binary(char *base64, struct dive **divep) {
+void uemis_parse_divelog_binary(char *base64, void *datap) {
 	int datalen;
 	int i;
 	uint8_t *data;
 	struct sample *sample;
+	struct dive **divep = datap;
 	struct dive *dive = *divep;
 	int template, gasoffset;
 
@@ -220,69 +163,15 @@ static void parse_divelog_binary(char *base64, struct dive **divep) {
 		if (*(uint16_t *)(data+i) > dive->duration.seconds + 180)
 			break;
 		sample = prepare_sample(divep);
+		dive = *divep; /* prepare_sample might realloc the dive */
 		sample->time.seconds = *(uint16_t *)(data+i);
 		sample->depth.mm = pressure_to_depth(*(uint16_t *)(data+i+2));
 		sample->temperature.mkelvin = (*(uint16_t *)(data+i+4) * 100) + 273150;
 		sample->cylinderpressure.mbar= *(uint16_t *)(data+i+23) * 10;
 		sample->cylinderindex = *(uint8_t *)(data+i+22);
-		finish_sample(*divep, sample);
+		finish_sample(dive, sample);
 		i += 0x25;
 	}
 	dive->duration.seconds = sample->time.seconds - 1;
 	return;
 }
-
-/* parse a single file
- * TODO: we don't report any errors when the parse fails - we simply don't add them to the list
- */
-void
-parse_uemis_file(char *divelogfilename) {
-	char *found=NULL;
-	struct tm tm;
-	struct dive *dive;
-
-	FILE *divelogfile = fopen(divelogfilename,"r");
-
-	dive = alloc_dive();
-
-	if (! matchit(divelogfile,"val key=\"date\"","<ts>\\([^<]*\\)</ts>",&found)) {
-		/* some error handling */
-		goto bail;
-	}
-	strptime(found, "%Y-%m-%dT%H:%M:%S", &tm);
-	dive->when = utc_mktime(&tm);
-	if (! matchit(divelogfile,"<val key=\"duration\">",
-			"<float>\\([0-9.]*\\)</float>",	&found)) {
-		/* some error handling */
-		goto bail;
-	}
-	dive->duration.seconds = 60.0 * atof(found);
-
-	if (! matchit(divelogfile,"<val key=\"depth\">",
-			"<int>\\([0-9.]*\\)</int>", &found)) {
-		/* some error handling */
-		goto bail;
-	}
-	dive->maxdepth.mm = pressure_to_depth(atoi(found));
-
-	if (! matchit(divelogfile,"<val key=\"file_content\">",
-			">\\([a-zA-Z0-9+/=]*\\)<", &found)) {
-		/* some error handling */
-		goto bail;
-	}
-	parse_divelog_binary(found,&dive);
-	record_dive(dive);
-bail:
-	if (found)
-		free(found);
-}
-
-/*
- * parse the two files extracted from the SDA
- */
-void
-uemis_import() {
-	if (open_import_file_dialog("*.SDA","uemis Zurich SDA files",
-					&parse_uemis_file))
-		report_dives();
-}