#define americano 	0
#define	europeo		1
#define	lmax	200 		
#define posin	18
#define ladat	82+posin
#define estac	39+posin		// llamadas entrantes
#define linea	25+posin
#define durac	29+posin
#define hor     15+posin
#define fech	5+posin
#define	tranf	0+posin
#define numero	44+posin
#define ccost	0
#define proye   70+posin
#define cuenta  0
#define pulsos	0
#define ruta    0
#define prinum	0
#define ring	63+posin
#define antran	0			// anexo transferido  (pendiente)
#define fofech	europeo 	// formato de fecha 
                                                
#define	lar_lin	    2
#define	lar_est		3
#define	lar_pry		4
#define	lar_num		17
#define	lar_hor		8
                                                
//#define phor     15

#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[2],num[17],pry[4],est[3] ;
} lla_tra[num_tra+1] ;


int max_tra ;

/* abrir archivo de llamadas posibles de ser transferidas */

void abr_tra()
{
/*
FCHAN t_arch ;
char bufp[sizeof(struct Llamad)+10] ;
int i,j=0,lim=sizeof(struct Llamad) ;
   max_tra=-1 ;
   if( (t_arch =  _FOpen("ptelf.tra",FO_READONLY)) != -1 )
   {
      while ( !_FEOF(t_arch) && j<=num_tra )
      {
	     i=_FGets(t_arch,bufp,lim+4);
	     if (i==lim) {
	        max_tra=j ;
	        for(i=0 ;i<8 ;i++) lla_tra[j].Hor[i- 0] = bufp[i] ;
	        for(i=8 ;i<11;i++) lla_tra[j].lin[i- 8] = bufp[i] ;
	        for(i=11;i<28;i++) lla_tra[j].num[i-11] = bufp[i] ;
	        for(i=28;i<32;i++) lla_tra[j].pry[i-28] = bufp[i] ;
	        j++ ;
	     }
      }
      _FClose(t_arch);
   }

*/
}


/* cerrar archivo de llamadas posibles de transferir */

void cer_tra()
{ 
/*
int j=0,lim=sizeof(struct Llamad) ;
FCHAN t_arch;
t_arch = _FCreate("ptelf.tra",FC_NORMAL);
while (j<=max_tra)
  { 
    _FWrite(t_arch,(char *)&lla_tra[j],lim);
    _FWrite(t_arch,"\r\n",2); 
    j++ ;
  }
_FClose(t_arch) ;
*/
}
/* 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] = '*' ;
  }
}

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

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

// 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)
{
    char anum[20],apry[4], spry[5], aest[4] ;
    int i=strlen(buf),it,k,ka,in;    
    char aux,vtip;
    aux = 0;
    strcpy(spry,"****");
	if (i>(vestac+2) && buf[vfech+2]=='/' && buf[vfech+5]=='/' && buf[vhor+2]==':' && (buf[vtranf]=='I' || buf[vtranf]=='O'))
	{
	   k = 0 ;
	   if (!isdigit(buf[vestac+1]))
	   		tel[k++] = '*';
	   else
	   {		   
	   		for (it=0;it<3 &&  buf[vestac+it]!=' ';it++)
	   			tel[k++] = buf[vestac+it];
	   }
	   tel[k++] = ' ' ;
	   tel[k++] = buf[vlinea] ; tel[k++] = buf[vlinea+1] ;
	   tel[k++] = ' ' ;
	   if (buf[vdurac+0]!=' ') tel[k++]=buf[vdurac+0] ;
	   else                   tel[k++]='0' ;
	   if (buf[vdurac+1]!=' ') tel[k++]=buf[vdurac+1] ;
	   else                   tel[k++]='0' ;
	   tel[k++] = ':' ;
	   if (buf[vdurac+3]!=' ') tel[k++]=buf[vdurac+3] ;
	   else                   tel[k++]='0' ;
	   if (buf[vdurac+4]!=' ') tel[k++]=buf[vdurac+4] ;
	   else                   tel[k++]='0' ;
	   tel[k++] = ':' ;
	   if (buf[vdurac+6]!=' ') tel[k++]=buf[vdurac+6] ;
	   else                   tel[k++]='0' ;
	   if (buf[vdurac+7]!=' ') tel[k++]=buf[vdurac+7] ;
	   else                   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]=='I')
	   		vtip = 'I';
	   else
	   		vtip = 'O';
	   tel[k++] = vtip ;
	   tel[k++] = ' ' ;
	   in = 0;
	   for (it=0;it<4 && (it+vproye)<i;it++) 
	   {
	   		if (buf[vproye+it]!=' ')
	   			spry[it] = buf[vproye+it]; 
	   }
	   spry[it] = '\0';
	   if (buf[vtranf]=='O' && buf[vtranf+2]=='G')
	   {
	      ka = k;
	      for (it=vnumero; buf[it]!=' ' ; it++) 
	      	tel[k++]=buf[it] ;
	      if (k==ka) 
	      	tel[k++] = '*';
	      else 
	      	agr_tra(vtip,vestac,vlinea,vnumero,vproye,vdurac,buf) ;
	   }
	   if (buf[vtranf]=='I' && buf[vtranf+2]=='C' )	
	      	agr_tra(vtip,vestac,vlinea,vnumero,vproye,vdurac,buf) ;
	   if ((buf[vtranf]=='O' && buf[vtranf+2]=='R') || (buf[vtranf]=='I' && buf[vtranf+2]=='R')) 
	   {
	      bus_tra(vestac,vlinea,aest,anum,apry,buf) ;
	      if (vtip =='O')
	      { 
	         if (isdigit(buf[vnumero]))
	         { 
	      		for (it=0;it<lar_num && isdigit(buf[vnumero+it]);it++)
	      	  	   tel[k++]= buf[vnumero+it] ;
	         }
	         else 
	         {	         
		        for (it=0; it<lar_num ; it++)
		        {
		  	 	  if isdigit(anum[it]) 
		      		tel[k++]=anum[it] ;
		        }
	         }
	       }  		
	   }
	   if (vtip =='I')
	   {
		   if (buf[vtranf]=='I' && (buf[vtranf+2]=='C' ||buf[vtranf+2]=='R') && isdigit(buf[vnumero]))
		   {
		     for (it=0;it<lar_num && isdigit(buf[vnumero+it]);it++)
		       tel[k++]= buf[vnumero+it] ;
		   }
		   else
		   	 tel[k++] = '*';	
	   }
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;
	   tel[k++] = ' ' ;
	   if (buf[vtranf]=='O' && buf[vtranf+2]=='G') 
	   {
	      for (i=0;i<4;i++)
	      {
	      	if (spry[i]!='/' &&  spry[i]!='\0')
	      		tel[k++] = spry[i] ; 
	   	  }
	   }
	   if (buf[vtranf]=='O' && buf[vtranf+2]=='R') 
	   {
	   		if (apry[0]!=' ')
	   		{	
	      		tel[k++] = apry[0] ; 
	      		tel[k++] = apry[2] ; 
	      		tel[k++] = apry[3] ;  
	      	}	
	      	else
	      	{
			   tel[k++] = '*' ; 
			   tel[k++] = '*' ; 
			   tel[k++] = '*' ;
			}   
	   }
	   if (buf[vtranf]=='I') 
	   { 
	   		tel[k++] = '*' ; 
	   		tel[k++] = '*' ; 
	   		tel[k++] = '*' ; 
	   		tel[k++] = '*' ; 
	   }
	   tel[k++] = ' ' ;
       tel[k++] = '*' ;
	   tel[k++] = ' ' ;
	   for (it=0 ; it<5 ; it++) tel[k++]='0' ;
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ; 
	   tel[k++] = '*' ; 
	   tel[k++] = '*' ;   /* ruta */
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ;    /* primer numero */
	   tel[k++] = ' ' ;
	   if (buf[vtranf]=='I' && buf[vtranf+1]=='N') 
	   {
	      tel[k++] = buf[vring+0] ; 
	      tel[k++] = buf[vring+1] ; 
	      tel[k++] = buf[vring+2] ; 
	      tel[k++] = buf[vring+3] ; 
	      tel[k++] = buf[vring+4] ;
	   }
	   else 
	   {
	      tel[k++] = '0' ; tel[k++] = '0' ; tel[k++] = ':' ; tel[k++] = '0' ; tel[k++] = '0' ;   /* tiempo ring */
	   }
	   tel[k++] = ' ' ;
	   if ((buf[vtranf]=='O' && buf[vtranf+2]=='R') || (buf[vtranf]=='I' && buf[vtranf+2]=='R'))  // anexo transferido
	   {
	   		for (it=0;it<3 &&  isdigit(aest[it]);it++)
	   			tel[k++] = aest[it];
	   }
	   else		
		   tel[k++] = '*' ;    // anexo transferido
	   tel[k++]=' ';
	   if (buf[vestac]==' ') tel[k++]='A';
	   else if ( buf[vtranf+2]=='R') tel[k++]='T';
	   else tel[k++]='*';
	   tel[k++] = '\r' ;
	   tel[k++] = '\n' ;
	   tel[k++] = '\0' ;
	}

}