#define americano 	0
#define	europeo		1
#define	lmax	200 		
#define posin	18
#define ladat	82+posin
#define orden	0
#define estac	3+posin		// llamadas entrantes
#define linea	11+posin
#define durac	29+posin
#define hor     23+posin
#define fech	14+posin
#define	tranf	7+posin
#define numero	50+posin
#define ccost	0
//#define proye   113+posin
#define proye   96+posin
#define cuenta  96+posin
#define pulsos	38+posin
#define ruta    0
#define prinum	0
#define ring	79+posin
#define antran	0			// anexo transferido  (pendiente)
#define fofech	europeo 	// formato de fecha 
#define num_tra 200
#define	lar_lin	    2
#define	lar_est		3
#define	lar_pry		4
#define	lar_num		20

                           
extern void gua_rut(char *buf);

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


struct llamad {
char lin[2],num[20],pry[8],est[3];
} lla_tra[num_tra+1];

int max_tra ;

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

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

/* procedimiento que modifica informaciňn asociada a una linea*/
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]))
     {
   		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] = '*';
     }	
  }
}

/* funcion que verifica si la linea a agregar existe o no */                        
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); 	
}
                        

/* agregar llamada */
void agr_tra(char vtip, int est,int lin,int num, int pry, int dur, char *buf)
{
   int i,j, flag ;
   flag = 0;
   if (max_tra >0)
   		flag = bus_li(lin,buf);	
   if (flag == 0)
   {
	   if (max_tra>=num_tra) 
	   {
	     j=0 ;
	     while (j<max_tra) 
	     {
			for (i=0;i<lar_lin ;i++) lla_tra[j].lin[i] = lla_tra[j+1].lin[i] ;
			for (i=0;i<lar_num ;i++) lla_tra[j].num[i] = lla_tra[j+1].num[i] ;
			for (i=0;i<lar_pry ;i++) lla_tra[j].pry[i] = lla_tra[j+1].pry[i] ;
			for (i=0;i<lar_est ;i++) lla_tra[j].est[i] = lla_tra[j+1].est[i] ;
			j++ ;
	     }
	   }
	   if (max_tra<num_tra) 
	   		max_tra ++ ;
	   for(i=0;i<lar_lin ;i++) lla_tra[max_tra].lin[i] = buf[lin+i] ;
	   for(i=0;i<lar_num ;i++) lla_tra[max_tra].num[i] = buf[num+i] ;
	   for(i=0;i<lar_pry ;i++) lla_tra[max_tra].pry[i] = buf[pry+i] ;
	   for(i=0;i<lar_est ;i++) lla_tra[max_tra].est[i] = buf[est+i] ;
   }
   else
   	   mod_info(est,lin,num,pry,buf) ;	
}

/* buscar llamada */
void bus_tra(int est,int lin,char *esta, char *num, char *pry, char *buf)
{
  int i,j=max_tra,c_hor=0,t_hor=10,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(i=0;i<lar_num ;i++)  num[i] = lla_tra[j].num[i] ;
     for(i=0;i<lar_pry ;i++)  pry[i] = lla_tra[j].pry[i] ;
     for(i=0;i<lar_est ;i++) esta[i] = lla_tra[j].est[i] ;
     while(j<=max_tra)
     {
	     for(i=0;i<lar_num ;i++)  lla_tra[j].num[i] = lla_tra[j+1].num[i] ;
	     for(i=0;i<lar_pry ;i++)  lla_tra[j].pry[i] = lla_tra[j+1].pry[i];
	     for(i=0;i<lar_lin ;i++)  lla_tra[j].lin[i] = lla_tra[j+1].lin[i];
	     for(i=0;i<lar_est ;i++)  lla_tra[j].est[i] = lla_tra[j+1].est[i];
	     j++;
     }
     max_tra--;                       
  }
  else  
  {
     num[0] = '*' ;
     for(i=1;i<lar_num;i++) num[i] = ' ' ;
     for(i=0;i<lar_est;i++) esta[i] = '*' ;
     for(i=0;i<lar_pry;i++) pry[i] = '*' ;
  }
}


// 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,it,k;   
    char aux,vtip;
    char anum[20],apry[8],aest[3];
    aux = 0; 
    i=strlen(buf);   
	if (i>vnumero && buf[vfech+2]=='/' && buf[vfech+5]=='/' && buf[vhor+2]==':')// && (buf[vtranf]=='<' || buf[vtranf+2]=='>'))
	{
	   k = 0 ;
/*	   if ( buf[vtranf+0]=='<' ) 
	      vtip = 'I';
	   else
*/
      vtip = 'O';
	   if ( buf[vtranf+0]=='-' ) 
	      	agr_tra(vtip,vestac,vlinea,vnumero,vproye,vdurac,buf) ;
	   if ( buf[vtranf+0]=='T' ) 
	        bus_tra(vestac,vlinea,aest,anum,apry,buf) ;
	   for (it = 0;(buf[vestac+it]!=' ' && buf[vestac+it]!='-' && (vestac+it)<i);it++)
		   tel[k++] = buf[vestac+it];
	   tel[k++] = ' ' ;
	   if (buf[vlinea]==' ')
	   {
	   		tel[k++]='0';
	   		tel[k++]= buf[vlinea+1] ;
	   }
	   else
	   {
	   		tel[k++] = buf[vlinea] ; 
	   		tel[k++] = buf[vlinea+1] ;
	   }
	   tel[k++] = ' ' ;
	   tel[k++] = buf[vdurac] ; tel[k++] = buf[vdurac+1] ;
	   tel[k++] = ':' ;
	   tel[k++] = buf[vdurac+3] ; tel[k++] = buf[vdurac+4] ;
	   tel[k++] = ':' ;
	   tel[k++] = buf[vdurac+6] ; tel[k++] = buf[vdurac+7] ;
	   tel[k++] = ' ' ;
	   tel[k++] = buf[vhor] ; tel[k++] = buf[vhor+1] ;
	   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+0] ;
	      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++] = ' ' ;
	   tel[k++] = vtip ;
	   tel[k++] = ' ' ;
	   if (isdigit(buf[vnumero]))
	   {
	  	  for (it=0; buf[vnumero+it]!='.' && buf[vnumero+it]!=' ' && it<26 && it <i;it++)
		     tel[k++] = buf[vnumero+it] ;
	   }
	   else
	      tel[k++] = '*' ;
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;    /* centro de costo */
	   tel[k++] = ' ' ; 
	   if (buf[vproye] =='.'||buf[vproye] ==' ' || vproye > i)
	   		tel[k++] = '*' ;
	   else 
	   {
	       for (it=0;it<16 && buf[vproye+it]<i;it++)
           {  
	   		 if (buf[vproye+it]!=' ' && buf[vproye+it]!='.')
	   		     tel[k++] = buf[vproye+it]  ;
           } 
	   }    	  
	   tel[k++] = ' ' ; 
	   if (buf[vcuenta] =='.')
	   		tel[k++] = '*' ;
	   else 
	   {
	       for (i=0;buf[vcuenta+i] !='.';i++)
	   		tel[k++] = buf[vcuenta+i]  ;
	   }
	       	  
  		tel[k++] = '*' ;
   		tel[k++] = '*' ;
   		tel[k++] = '*' ;
	   tel[k++] = ' ' ;
	   for (it=vpulsos ; it<(vpulsos+4) ; it++) 
	   {
	      if (buf[it]==' ') 
	      		tel[k++]= '0' ;
	      else  
	      		tel[k++] = buf[it] ;
	   }
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;   /* ruta */
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ;    /* primer numero */
	   tel[k++] = ' ' ;
	   if (buf[vtranf] == '<' && isdigit(buf[vring]))
	   {
	      tel[k++] = buf[vring] ; 
	      tel[k++] = buf[vring+1] ;
	      tel[k++] = ':' ;
	      tel[k++] = buf[vring+3] ; 
	      tel[k++] = buf[vring+4] ;   /* tiempo ring */
	   }
	   else
	   {
	      tel[k++] = '0' ; 
	      tel[k++] = '0' ; 
	      tel[k++] = ':' ; 
	      tel[k++] = '0' ; 
	      tel[k++] = '0' ;   /* tiempo ring */
	   }
	   tel[k++] = ' ' ;
	   if (buf[vtranf]=='T')  // anexo transferido
	   {
	   		for (it=0;it<3 &&  isdigit(aest[it]);it++)
	   			tel[k++] = aest[it];
	   }
	   else		
		   tel[k++] = '*' ;    // anexo transferido
	   tel[k++] = '\r' ;
	   tel[k++] = '\n' ;
	   tel[k++] = '\0' ;
	 }         
}