rawreader/src/filename.cpp

/*************FILE NAME CREATION**********************************/
#include "descript.h"
#include "flag.h"

void filename(char name1[], char name2[], char cln1[], char path [], int route, char ini_file[])
// name1, name2, cln1 - output parameters
{
 char fno[80], route_path[90], name_route[4];
 char command[180]; /*DOS command*/
 FILE *ffiot;

 name_route[0]=ini_file[5];
 name_route[1]=ini_file[6]; 
 name_route[2]=ini_file[7]; 
 name_route[3]='\0'; 

 sprintf(command,"%03i_",route);
 sscanf(command,"%s",fno);

 strncat(strcpy(route_path,path),fno,3);
 strcat(route_path,"/tmp.dat");
 
 if ((ffiot=fopen(route_path,"w+"))==0)
/*************Create directory mmm*************************/
 {
  strncat(strcat(strcat(strcat(strcpy(command,"mkdir "),path),name_route),"_"),fno,3);
  system(command);
/**********************************************************/

/*************Create directory Cln1************************/
  strcat(command,"/Cln1");
  system(command);
/**********************************************************/
 }
 strcat(strncat(strcat(strcat(strcpy(name1,path),name_route),"_"),fno,3),"/Cln1/");
 strcat(strcat(strcat(strcat(strcat(strncat(name1,ini_file,5),"_"),name_route),"_"),fno),"cln1Er.log");

 strcat(strncat(strcat(strcat(strcpy(name2,path),name_route),"_"),fno,3),"/Cln1/");
 strcat(strcat(strcat(strcat(strcat(strncat(name2,ini_file,5),"_"),name_route),"_"),fno),"mis_cln1.dat");

 strcat(strncat(strcat(strcat(strcpy(cln1,path),name_route),"_"),fno,3),"/Cln1/");
 strcat(strcat(strcat(strcat(strcat(strncat(cln1,ini_file,5),"_"),name_route),"_"),fno),"cln1.pam");
 if (ffiot!=0) {fclose(ffiot); remove(route_path);}
}
1	cafagna	1.1	/***********FILE NAME CREATION********************************/
2			#include "descript.h"
3			#include "flag.h"
4
5			void filename(char name1[], char name2[], char cln1[], char path [], int route, char ini_file[])
6			// name1, name2, cln1 - output parameters
7			{
8	cafagna	1.3	char fno[80], route_path[90], name_route[4];
9	cafagna	1.1	char command[180]; /DOS command/
10			FILE *ffiot;
11
12			name_route[0]=ini_file[5];
13			name_route[1]=ini_file[6];
14			name_route[2]=ini_file[7];
15			name_route[3]='\0';
16
17	cafagna	1.3	sprintf(command,"%03i_",route);
18			sscanf(command,"%s",fno);
19	cafagna	1.1
20			strncat(strcpy(route_path,path),fno,3);
21	cafagna	1.2	strcat(route_path,"/tmp.dat");
22	cafagna	1.1
23			if ((ffiot=fopen(route_path,"w+"))==0)
24			/***********Create directory mmm***********************/
25			{
26	cafagna	1.2	strncat(strcat(strcat(strcat(strcpy(command,"mkdir "),path),name_route),"_"),fno,3);
27	cafagna	1.1	system(command);
28			/**********************************************************/
29
30			/***********Create directory Cln1**********************/
31	cafagna	1.2	strcat(command,"/Cln1");
32	cafagna	1.1	system(command);
33			/**********************************************************/
34			}
35	cafagna	1.2	strcat(strncat(strcat(strcat(strcpy(name1,path),name_route),"_"),fno,3),"/Cln1/");
36	cafagna	1.3	strcat(strcat(strcat(strcat(strcat(strncat(name1,ini_file,5),"_"),name_route),"_"),fno),"cln1Er.log");
37	cafagna	1.1
38	cafagna	1.2	strcat(strncat(strcat(strcat(strcpy(name2,path),name_route),"_"),fno,3),"/Cln1/");
39	cafagna	1.3	strcat(strcat(strcat(strcat(strcat(strncat(name2,ini_file,5),"_"),name_route),"_"),fno),"mis_cln1.dat");
40	cafagna	1.1
41	cafagna	1.2	strcat(strncat(strcat(strcat(strcpy(cln1,path),name_route),"_"),fno,3),"/Cln1/");
42	cafagna	1.3	strcat(strcat(strcat(strcat(strcat(strncat(cln1,ini_file,5),"_"),name_route),"_"),fno),"cln1.pam");
43	cafagna	1.1	if (ffiot!=0) {fclose(ffiot); remove(route_path);}
44			}