#define americano 	0
#define	europeo		1
#define	lmax	200 		
#define posin	18
#define ladat	82+posin
#define estac	35+posin		// llamadas entrantes
#define linea	15+posin
#define durac	26+posin
#define hor     9+posin
#define fech	0
#define	tranf	4+posin
#define numero	46+posin
#define ccost	0
#define proye   71+posin
#define cuenta  0
#define pulsos	0
#define ruta    0
#define prinum	0
#define ring	62+posin
#define antran	0			// anexo transferido  (pendiente)
#define fofech	americano 	// formato de fecha 

#define	lar_est     4
#define	lar_lin		7
#define	lar_num		17
#define	lar_pry		5

 
#define	num_tra		600
#define	num_train	600

                                                
extern void gua_rut(char *buf);

char  ruanex[(lmax+1)*2][7] ;	/* Rutas Consideradas como Anexos */


struct Llamad {
char lin[8],num[17],pry[5],est[4] ;
} lla_tra[num_tra+1] ;

int max_tra ;

extern char rgua[];
// Procesos Inicialiales (Inicializar Variables, Abrir 
// Archivos especiales, etc)
void in_central()
{  
    rgua[0] = '\0';
}

// Procesos de Finalización (Cerrar Archivos especiales, etc)
void fi_central()
{
}

bus_li(int lin,char *buf)
{
  int i,j=max_tra,i_lin=0 ;
  while (i_lin!=lar_lin && j>=0 ) 
  {
     for(i=0;i<lar_lin && lla_tra[j].lin[i]==buf[lin+i];i++) ;
     i_lin = i ;
     if (i_lin!=lar_lin) j-- ;
  }
  if (i_lin==lar_lin) 
	 return(1); 	
  else  
	 return(0); 	
}


void mod_info(int est,int lin,int num,int pry,char *buf)
{
  int it,i,j=max_tra,i_lin=0 ;
  while (i_lin!=lar_lin && j>=0 ) 
  {
     for(i=0;i<lar_lin && lla_tra[j].lin[i]==buf[lin+i];i++) ;
     i_lin = i ;
     if (i_lin!=lar_lin) j-- ;
  }
  if (i_lin==lar_lin) 
  {	
     for(it=0;it<lar_est ;it++) 
     	lla_tra[j].est[it] = buf[est+it] ;
     for(it=0;it<lar_num ;it++) 
     	lla_tra[j].num[it] = buf[num+it] ;
     if (isdigit(buf[pry+2]))
     {
     	if (isdigit(buf[pry+it]))
     	{
     		for(it=0;it<lar_pry ;it++)  
     			lla_tra[j].pry[it] = buf[pry+it];
	 	}
	 }
	 else
	 {
     	for(it=0;it<lar_pry ;it++)  
     		lla_tra[j].pry[it] = '*';
     }	
  }
}



/* agregar llamada */
void agr_tra(int est,int lin,int num,int pry, char *buf)
{
   int i,j,it,t,flag ;
   i = strlen(buf);
   flag = 0;
   t    = 0;
   if (max_tra >0)
    	flag = bus_li(lin,buf) ;
   if (flag == 0)   // no se encontro la linea ==> se agrega 
   {	
	   if (max_tra>=num_tra) 
	   {
	     j=0 ;
		 while (j<max_tra) 
		 {
			for (it=0;it<lar_est ;it++)  
				lla_tra[j].est[it] = lla_tra[j+1].est[it] ;
			for (it=0;it<lar_num ;it++)  
				lla_tra[j].num[it] = lla_tra[j+1].num[it] ;
			for (it=0;it<lar_lin ;it++)  
				lla_tra[j].lin[it] = lla_tra[j+1].lin[it] ;
			for (it=0;it<lar_pry ;it++)  
				lla_tra[j].pry[it] = lla_tra[j+1].pry[it] ;
			j++ ;
		 }
	   }
	   else
	   {
		   	if (max_tra<num_tra) 
		   		max_tra ++ ;
			for (it=0; it<lar_est  && it<i ;it++) 
				lla_tra[max_tra].est[it] = buf[est+it] ;
			if (isdigit(buf[num]))
			{
				for (it=0; it<lar_num  && it<i ;it++) 
					lla_tra[max_tra].num[it] = buf[num+it] ;
			}
			else
			{
				for (it=0; it<lar_num  && it<i ;it++) 
					lla_tra[max_tra].num[it] = '*' ;
			}
			for (it=0; it<lar_lin  && it<i ;it++) 
				lla_tra[max_tra].lin[it] = buf[lin+it] ;
		    if (isdigit(buf[pry+2]))
		    {
				for (it=0; it<lar_pry  && it<i ;it++) 
				{
					if (isdigit(buf[pry+it]))
					{
						lla_tra[max_tra].pry[t] = buf[pry+it] ;
						t++;
					}	
		        } 
		    }
		    else
		    { 
				for (it=0; it<lar_pry  && it<i ;it++) 
					lla_tra[max_tra].pry[it] = '*' ;
			}		
       }
   }
   else
	 mod_info(est,lin,num,pry,buf);      // se modifica la linea encontrada

}

void bus_tra(int lin,char *esta, char *nume,char *apro ,char *buf)
{
  int it,i,j=max_tra,i_lin=0 ;
  for(i=0;i<lar_est  ;i++) esta[i] = ' ';
  for(i=0;i<lar_num  ;i++) nume[i] = ' ';
  for(i=0;i<lar_pry  ;i++) apro[i] = ' ';
  while (i_lin!=lar_lin && j>=0 ) 
  {
     for(i=0;i<lar_lin && lla_tra[j].lin[i]==buf[lin+i];i++) ;
     i_lin = i ;
     if (i_lin!=lar_lin) j-- ;
  }
  if (i_lin==lar_lin) 
  {	
     for(i=0;i<lar_est ;i++) esta[i] = lla_tra[j].est[i] ;
     for(i=0;i<lar_num ;i++) nume[i] = lla_tra[j].num[i] ;
     for(i=0;i<lar_pry ;i++) apro[i] = lla_tra[j].pry[i] ;
 	 while (j<=max_tra)
 	 {
		for (it=0;it<lar_est ;it++) lla_tra[j].est[it] = lla_tra[j+1].est[it] ;
		for (it=0;it<lar_lin ;it++) lla_tra[j].lin[it] = lla_tra[j+1].lin[it] ;
		for (it=0;it<lar_num ;it++) lla_tra[j].num[it] = lla_tra[j+1].num[it] ;
		for (it=0;it<lar_pry ;it++) lla_tra[j].pry[it] = lla_tra[j+1].pry[it] ;
		j++ ;
 	 }
 	 max_tra--;	 	 
  }
  else  
  {
     esta[0] = '*' ;
     esta[1] = '*' ;
     esta[2] = '*' ;
     esta[3] = '*' ;
  }
}

// Driver Propiamente tal. Las posiciones de los campos se 
// ingresan como parámetros, lo que permite modificar desde 
// Aplicación de Tarificación la posición de estos en el 
// Registro de Llamados.
void DatCentral(char *buf, char *tel, int vestac, int vlinea,int vdurac,int vhor, int vfech,
                int vtranf, int vnumero, int vccost,int vproye, int vcuenta, int vpulsos, int vruta, int vprinum, int vring, int vantran, int vfofech)
{
    int i=strlen(buf),it,k,ka, cont;
	char vtip,aest[4],anum[17],apry[5];
    k = 0; cont=0 ;      
	if (buf[vhor+2]==':' && 	
	(buf[vtranf]=='O'|| buf[vtranf]=='I' || buf[vtranf]=='T'|| buf[vtranf]=='V'))
	{
	   k=0 ;
	   ka=k ;or (it=0;it<4 && it<i;it++)
	   f
	   {
			if (isdigit(buf[vestac+it]))
	      		tel[k++] = buf[vestac+it] ;
	   		
	   }
	   if (k==ka) 
	   		tel[k++]= '*' ;
	   tel[k++] = ' ' ; 
	   for (it=0;it<i && it<10 ;it++)
	   {
		   if (isdigit(buf[vlinea+it]))	{tel[k++] = buf[vlinea+it];cont++;}
	   	}
	   if (cont==0) tel[k++]='*';
	   cont=0;
	   tel[k++] = ' ' ;
	   ka=k ;
	   if (isdigit(buf[vdurac]))
	   {
		   	tel[k++] = buf[vdurac] ; tel[k++] = buf[vdurac+1] ;
		   	if (tel[ka]==' ') 
		   		tel[ka]='0' ;
		   	if (tel[ka+1]==' ') tel[ka+1]='0' ;
		   	tel[k++] = ':' ;
		   	ka=k ;
		   	tel[k++]= buf[vdurac+3] ; tel[k++]= buf[vdurac+4] ;
		   	if (tel[ka]==' ') 
		   		tel[ka]='0' ;
		   	if (tel[ka+1]==' ') 
		   		tel[ka+1]='0' ;
		   	tel[k++]= ':' ;
		   	ka=k ;
		   	tel[k++]= buf[vdurac+6] ; tel[k++]= buf[vdurac+7] ;
		   	if (tel[ka]==' ') 
		   		tel[ka]='0' ;
		   	if (tel[ka+1]==' ') 
		   		tel[ka+1]='0' ;
	   }	
	   else
	   {
	   		tel[k++] ='0';	
	   		tel[k++] ='0';	
	   		tel[k++] =':';	
	   		tel[k++] ='0';	
	   		tel[k++] ='0';	
	   		tel[k++] =':';	
	   		tel[k++] ='0';	
	   		tel[k++] ='0';	
	   }
	   tel[k++]= ' ' ;
	   ka=k ;
	   tel[k++] = buf[vhor] ; tel[k++] = buf[vhor+1] ;
	   if (tel[ka]==' ') 
	   		tel[ka]='0' ;
	   tel[k++] = ':' ;
	   tel[k++] = buf[vhor+3] ; tel[k++] = buf[vhor+4] ;
	   tel[k++] = ' ' ;
	   if (vfofech==europeo) 
	   {
	      tel[k++] = buf[vfech+3] ;
	      tel[k++] = buf[vfech+4] ;
	      tel[k++] = '/';
	      tel[k++] = buf[vfech] ;
	      tel[k++] = buf[vfech+1] ; 
	   }
	   else 
	   {
	      tel[k++] = buf[vfech] ;
	      tel[k++] = buf[vfech+1] ;
	      tel[k++] = '/';
	      tel[k++] = buf[vfech+3] ;
	      tel[k++] = buf[vfech+4] ; 
	   }
	   tel[k++] = '/';
	   tel[k++] = buf[vfech+6] ;
	   tel[k++] = buf[vfech+7] ;
	   tel[k++] = ' ' ;
	   if (buf[vtranf]=='T')               
	   {
	      if (buf[vring+2]==':') 
	      		vtip = 'I';
	      else 
				vtip = 'O';
	   }
	   else if (buf[vtranf]=='V')
	   {
	   	  if (buf[vtranf+1]=='O')
		      vtip = 'O';
		  else
			  vtip = 'I';
	   }
	   else if (buf[vtranf]=='I') 
	   		vtip = 'I';          
	   else
	   		vtip = 'O';		
	   tel[k++] = vtip;
	   tel[k++] = ' ' ;
   	   if (buf[vtranf]!='T')
	   		agr_tra(vestac,vlinea,vnumero,vproye,buf); 
	   else
	   {
	   	   	ka=k;
			bus_tra(vlinea,aest,anum,apry,buf);
	   	   	k=ka;
	   } 	     
/*	   if (vtip=='O')
	   {
	   		if (buf[vtranf]=='O'||buf[vtranf]=='V' || (buf[vtranf]=='T' && buf[vtranf-1]=='I'))
	   		{
	   			for (it=vnumero ; it<(vnumero+lar_num) && buf[it]!=' ' && it<i ;it++) 
	   				tel[k++] = buf[it] ;
	   		}
	   		else
			{
	   			for (it=0;it<lar_num;it++)
	   			{
	   				if isdigit(anum[it])
	   					tel[k++] = anum[it];
	   			}
	   		}
	   }
	   else 
	   {
			if ((buf[vtranf]=='V') || (buf[tranf]=='T' && buf[tranf-1]=='I'))
	   		{
	   			for (it=vnumero ; it<(vnumero+lar_num) && buf[it]!=' ' && it<i ;it++) 
	   				tel[k++] = buf[it] ;
	   		}
			else if((buf[vtranf-1]=='P' && buf[tranf]=='I' && buf[tranf+1]=='N') || (buf[vtranf-1]=='P' && buf[tranf]=='T' && buf[tranf+1]=='R' && buf[tranf+2]=='S')) 
			{
	   			for (it=vnumero ; it<(vnumero+lar_num) && buf[it]!=' ' && it<i ;it++) 
	   				tel[k++] = buf[it] ;
			}
			else
	   		{
		   		tel[k++] = '*' ;
		   		tel[k++] = '*' ;
		   		tel[k++] = '*' ;
		   		tel[k++] = '*' ;
	   		}
	   }		*/
		for(it=0;it<16;it++)
		{		
		   if(isdigit(buf[vnumero+it]) || buf[vnumero+it]=='*' || buf[vnumero+it]=='#')
		   {
			   tel[k++]=buf[vnumero+it];
			   cont++;
		   }
		}
	   if(cont==0) tel[k++]='*';
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;     //centro de costo
	   tel[k++] = ' ' ;
	   /*if (vtip =='O' && buf[vtranf]=='T')			//código de proyecto
	   {
	   		for (it=0;it<lar_pry && it<i;it++)
	   		{
	   			if isdigit(apry[it])
	   				tel[k++] = apry[it];
	   		}		
	   }
	   else
	   {
	   		if (!isdigit(buf[vproye+2]) && !isdigit(buf[vproye+3]) && !isdigit(buf[vproye+4])) 
	   		{
	      		tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;
	   		}
	   		else 
	   		{
	 	 		for (it=0; it<lar_pry && it<i ; it++)
	 	 		{
	 	 			if (isdigit(buf[vproye+it]))
		 				tel[k++] = buf[vproye+it] ;
		 		}		
	   		}
	   }*/
	   tel[k++]='*';
	   tel[k++] = ' ' ;
	   tel[k++]='*';
	   tel[k++] = ' ' ;
	   for (it=0 ; it<4 ; it++) tel[k++]= '0' ;     //pulsos
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;   /* ruta */
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ;    /* primer numero */
	   tel[k++] = ' ' ;
	   if (buf[vring]==' ' && buf[vring+1]==' ' && buf[vring+2]!=':' && buf[vring+3]==' ' && buf[vring+4]==' ') {
	      tel[k++] = '0' ; tel[k++] = '0' ; tel[k++] = ':' ; tel[k++] = '0' ; tel[k++] = '0' ;   /* tiempo ring */
	   }
	   else 
	   {
	      ka=k ;
	      tel[k++]='0' ; tel[k++]=buf[vring+1] ; tel[k++]=':' ; tel[k++]=buf[vring+3] ; tel[k++]=buf[vring+4] ;
	      if (tel[ka]==' ') 
	      	tel[ka]='0' ;
	   }
	   tel[k++] = ' ' ;
	   if (buf[vtranf]!='T')
	   {               
	   	  tel[k++] = '*' ;    // anexo transferido
	   	  tel[k++] = '*' ;    // anexo transferido
	   	  tel[k++] = '*' ;    // anexo transferido
	   	  tel[k++] = '*' ;    // anexo transferido
	   }
	   else               
	   { 
      	  tel[k++] = aest[0];
     	  tel[k++] = aest[1];
      	  tel[k++] = aest[2];
      	  tel[k++] = aest[3];
	   }
	   tel[k++]=' ';
	   if (buf[vtranf+2]=='S' )  tel[k++]='T';   // servicio ///
	   else if (buf[vring+9]=='N') tel[k++]='N';
	   else tel[k++]='*';

	   tel[k++] = '\r' ;
	   tel[k++] = '\n' ;
	   tel[k++] = '\0' ;
	}
}