+ char *filename;\r
+ FILE *f;\r
+ string(filename, strlen(log_dir) + strlen(technology->filename) + 5);\r
+ strcpy(filename, log_dir);\r
+ strcat(filename, technology->filename); \r
+ strcat(filename, ".csv");\r
+ /*-----------------------------------------------------------------*/\r
+ printf("Writing report file %s ...\n", filename);\r
+ /*-----------------------------------------------------------------*/\r
+ f = fopen(filename, "w");\r
+ if(f)\r
+ {\r
+ for_each(ip, ips) if(eq(technology->filename, ip->technology_str))\r
+ {\r
+ fprintf(f,"%s,%s,%d\n", ip->code, ip->ruian_id_str, ip->max);\r
+ }\r
+ fclose(f);\r
+ }\r
+ else\r
+ perror(filename); \r
+ } \r
+#endif\r