text: /* $Id: testigddescparse.c,v 1.11 2019/02/10 12:33:32 nanard Exp $ */
  /* Project : miniupnp
   * http://miniupnp.free.fr/
   * Author : Thomas Bernard
   * Copyright (c) 2008-2015 Thomas Bernard
   * This software is subject to the conditions detailed in the
   * LICENCE file provided in this distribution.
   * */
  #include <stdio.h>
  #include <stdlib.h>
  #include <string.h>
  #include "igd_desc_parse.h"
  #include "minixml.h"
  #include "miniupnpc.h"
  
  /* count number of differences */
  int compare_service(struct IGDdatas_service * s, FILE * f)
  {
  	int n = 0;
  	char line[1024];
  
  	while(fgets(line, sizeof(line), f)) {
  		char * value;
  		char * equal;
  		char * name;
  		char * parsedvalue;
  		int l;
  		l = strlen(line);
  		while((l > 0) && ((line[l-1] == '\r') || (line[l-1] == '\n') || (line[l-1] == ' ')))
  			line[--l] = '\0';
  		if(l == 0)
  			break;	/* end on blank line */
  		if(line[0] == '#')
  			continue;	/* skip comments */
  		equal = strchr(line, '=');
  		if(equal == NULL) {
  			fprintf(stderr, "Warning, line does not contain '=' : %s\n", line);
  			continue;
  		}
  		*equal = '\0';
  		name = line;
  		while(*name == ' ' || *name == '\t')
  			name++;
  		l = strlen(name);
  		while((l > 0) && (name[l-1] == ' ' || name[l-1] == '\t'))
  			name[--l] = '\0';
  		value = equal + 1;
  		while(*value == ' ' || *value == '\t')
  			value++;
  		if(strcmp(name, "controlurl") == 0)
  			parsedvalue = s->controlurl;
  		else if(strcmp(name, "eventsuburl") == 0)
  			parsedvalue = s->eventsuburl;
  		else if(strcmp(name, "scpdurl") == 0)
  			parsedvalue = s->scpdurl;
  		else if(strcmp(name, "servicetype") == 0)
  			parsedvalue = s->servicetype;
  		else {
  			fprintf(stderr, "unknown field '%s'\n", name);
  			continue;
  		}
  		if(0 != strcmp(parsedvalue, value)) {
  			fprintf(stderr, "difference : '%s' != '%s'\n", parsedvalue, value);
  			n++;
  		}
  	}
  	return n;
  }
  
  int compare_igd(struct IGDdatas * p, FILE * f)
  {
  	int n = 0;
  	char line[1024];
  	struct IGDdatas_service * s;
  
  	while(fgets(line, sizeof(line), f)) {
  		char * colon;
  		int l = (int)strlen(line);
  		while((l > 0) && (line[l-1] == '\r' || (line[l-1] == '\n')))
  			line[--l] = '\0';
  		if(l == 0 || line[0] == '#')
  			continue;	/* skip blank lines and comments */
  		colon = strchr(line, ':');
  		if(colon == NULL) {
  			fprintf(stderr, "Warning, no ':' : %s\n", line);
  			continue;
  		}
  		s = NULL;
  		*colon = '\0';
  		if(strcmp(line, "CIF") == 0)
  			s = &p->CIF;
  		else if(strcmp(line, "first") == 0)
  			s = &p->first;
  		else if(strcmp(line, "second") == 0)
  			s = &p->second;
  		else if(strcmp(line, "IPv6FC") == 0)
  			s = &p->IPv6FC;
  		else {
  			s = NULL;
  			fprintf(stderr, "*** unknown service '%s' ***\n", line);
  			n++;
  			continue;
  		}
  		n += compare_service(s, f);
  	}
  	if(n > 0)
  		fprintf(stderr, "*** %d difference%s ***\n", n, (n > 1) ? "s" : "");
  	return n;
  }
  
  int test_igd_desc_parse(char * buffer, int len, FILE * f)
  {
  	int n;
  	struct IGDdatas igd;
  	struct xmlparser parser;
  	struct UPNPUrls urls;
  
  	memset(&igd, 0, sizeof(struct IGDdatas));
  	memset(&parser, 0, sizeof(struct xmlparser));
  	parser.xmlstart = buffer;
  	parser.xmlsize = len;
  	parser.data = &igd;
  	parser.starteltfunc = IGDstartelt;
  	parser.endeltfunc = IGDendelt;
  	parser.datafunc = IGDdata;
  	parsexml(&parser);
  #ifdef DEBUG
  	printIGD(&igd);
  #endif /* DEBUG */
  	GetUPNPUrls(&urls, &igd, "http://fake/desc/url/file.xml", 0);
  	printf("ipcondescURL='%s'\n", urls.ipcondescURL);
  	printf("controlURL='%s'\n", urls.controlURL);
  	printf("controlURL_CIF='%s'\n", urls.controlURL_CIF);
  	n = f ? compare_igd(&igd, f) : 0;
  	FreeUPNPUrls(&urls);
  	return n;
  }
  
  int main(int argc, char * * argv)
  {
  	FILE * f;
  	char * buffer;
  	int len;
  	int r;
  	if(argc<2) {
  		fprintf(stderr, "Usage: %s file.xml [file.values]\n", argv[0]);
  		return 1;
  	}
  	f = fopen(argv[1], "rb");
  	if(!f) {
  		fprintf(stderr, "Cannot open %s for reading.\n", argv[1]);
  		return 1;
  	}
  	fseek(f, 0, SEEK_END);
  	len = ftell(f);
  	fseek(f, 0, SEEK_SET);
  	buffer = malloc(len);
  	if(!buffer) {
  		fprintf(stderr, "Memory allocation error.\n");
  		fclose(f);
  		return 1;
  	}
  	r = (int)fread(buffer, 1, len, f);
  	if(r != len) {
  		fprintf(stderr, "Failed to read file %s. %d out of %d bytes.\n",
  		        argv[1], r, len);
  		fclose(f);
  		free(buffer);
  		return 1;
  	}
  	fclose(f);
  	f = NULL;
  	if(argc > 2) {
  		f = fopen(argv[2], "rb");
  		if(!f) {
  			fprintf(stderr, "Cannot open %s for reading.\n", argv[2]);
  			free(buffer);
  			return 1;
  		}
  	}
  	r = test_igd_desc_parse(buffer, len, f);
  	free(buffer);
  	if(f)
  		fclose(f);
  	return r;
  }
  
  