#define americano 	0
#define	europeo		1
#define	lmax	200 		
#define posin	18
#define ladat	82+posin
#define estac	19+posin		// llamadas entrantes
#define linea	23+posin
#define durac	57+posin
#define hor     9 +posin
#define fech	0 +posin
#define	tranf	26+posin
#define numero	26+posin
#define ccost	0
#define proye   0
#define cuenta  0
#define pulsos	0
#define ruta    0
#define prinum	0
#define ring	0
#define antran	0			// anexo transferido  (pendiente)
#define fofech	americano 	// 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)
{
    int i=strlen(buf),it,k,ka,hopm;    
    char aux,vtip;
    char shora[5];          
    aux = 0;
	if (i>(vnumero+2) && buf[vfech+2]=='/' && buf[vfech+5]=='/' && buf[vhor+2]==':' && (isdigit(buf[vtranf])|| buf[vtranf]=='<'))
	{
	   k = 0 ;
	   if (!isdigit(buf[vestac]))
	   		tel[k++] = '*';
	   else
	   {		   
	   		for (it=0;isdigit(buf[vestac+it]) && (vestac+it)<i ;it++)
	   			tel[k++] = buf[vestac+it];
	   }
	   tel[k++] = ' ' ;
	   tel[k++] = buf[vlinea] ; 
	   tel[k++] = buf[vlinea+1] ;
	   tel[k++] = ' ' ;
	   tel[k++]=buf[vdurac+0] ;
	   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++] = ' ' ;
	   ka=k;
	   shora[0] = buf[vhor] ;
	   shora[1] = buf[vhor+1] ;
	   shora[2] = '\0' ;
	   hopm=atoi(shora) ;
	   if (buf[vhor+5]=='P' && hopm< 12) itoa((hopm+12),shora,10) ;
	   if (buf[vhor+5]=='A' && hopm==12) itoa((hopm-12),shora,10) ;
	   if (shora[2]=='\0') 
	   {
	      	tel[k++] = shora[0] ; 
	      	tel[k++] = shora[1] ;
	   } 
	   if (shora[1]=='\0') 
	   {
	      tel[k++] = '0'      ; 
	      tel[k++] = shora[0] ;
	   }
	   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+0] ;
	      tel[k++] = buf[vfech+1] ;
	      tel[k++] = '/';
	      tel[k++] = buf[vfech+3] ;
	      tel[k++] = buf[vfech+4] ; 
	   }
	   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++] = ' ' ;
	   if (isdigit(buf[vtranf]))
	   		vtip = 'O';
	   else
	   		vtip = 'I';
	   tel[k++] = vtip ;
	   tel[k++] = ' ' ;
	   if (vtip =='O')
	   {
	       for (it=0;isdigit(buf[vnumero+it]) && (vnumero+it)<i;it++)
		   		tel[k++] = buf[vnumero+it];
	   }
	   else
		   tel[k++] = '*' ; 
	   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++] = ' ' ;
       tel[k++] = '0' ; tel[k++] = '0' ; tel[k++] = ':' ; tel[k++] = '0' ; tel[k++] = '0' ;   /* tiempo ring */
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ;    // anexo transferido
	   tel[k++] = '\r' ;
	   tel[k++] = '\n' ;
	   tel[k++] = '\0' ;
	}

}