#define americano 	0
#define	europeo		1
#define	lmax	200
#define posin	18
#define estac	4+posin
#define linea	10+posin
#define durac	31+posin
#define hor     21 +posin
#define fech	15+posin
#define	tranf	41+posin
#define numero	41+posin
#define ccost	0
#define proye   0//74+posin
#define cuenta  0
#define pulsos	0
#define ruta    0
#define prinum	0
#define ring	0
#define antran	0			// anexo transferido
#define fofech	americano     
#define largo		30
#define l_line		3
#define l_esta		4
#define l_nume		23
char numaux[l_nume];
char estaux[l_esta]; 
char vtip;
typedef struct {
       char est[l_esta],lin[l_line],num[l_nume],tipo,flag ;
} TNUM; 


extern char rgua[];   
TNUM buf_num[lmax];
int flag = 0;
void in_central()
{ 
   rgua[0]='\0'; 
}

void fi_central()
{
} 
void agr_num(char *buf,TNUM *buf_num,int vestac,char vtip,int vlinea,int vnumero)
{ 
int i,j,auxnum;
//char strlin[3],auxlin[3];
	i = 0;
	
	auxnum = vnumero+1;
	while (buf_num[i].flag=='1' && i<lmax)
		i++ ; 
	buf_num[i].flag = '1';	
	buf_num[i].tipo = vtip;
	for(j=0;buf[vestac+j]!=' ' ;j++) buf_num[i].est[j] = buf[vestac+j] ;
	for(j=0;buf[vlinea+j]!=' ' ;j++) buf_num[i].lin[j] = buf[vlinea+j] ;
	if (isdigit(buf[auxnum]))
		for(j=0;buf[auxnum+j]!=' '&& j<l_nume ;j++) buf_num[i].num[j] = buf[auxnum+j] ;
	else
		for(j=0;j<4 ;j++) buf_num[i].num[j] = '*' ;
	return;
}
void bus_num(char *buf,TNUM *buf_num,int vlinea,int vnumero)
{
char auxli[3];
int numli,numsel,i,j,it;
	i = 0;   
	it = 0;
	for (i=0;i<l_line;i++)
		auxli[i] = buf[vlinea+i];
	numli = atoi(auxli);
	for (i=0;i<l_line;i++)
		auxli[i] = ' ';
	i = 0;	
	while (buf_num[it].flag=='1' && it<lmax)
	{
		for (j=0;j<l_line;j++) auxli[j] =  buf_num[it].lin[j];
		numsel=atoi(auxli);
		if (numli == numsel)
   		{
   			for(j=0;j<l_nume ;j++) numaux[j]=buf_num[it].num[j]  ;
   			for(j=0;j<l_esta ;j++) estaux[j]=buf_num[it].est[j]  ;
			vtip = buf_num[it].tipo  ;
			if (buf[vnumero+1]!='T')
				for (;it+1<lmax;it++)
				{
					for (j=0;j<l_line;j++) buf_num[it].lin[j] = buf_num[it+1].lin[j];
					for (j=0;j<l_nume;j++) buf_num[it].num[j] = buf_num[it+1].num[j];
					buf_num[it].flag = buf_num[it+1].flag;
					
				}
			return;
		}
		else
			it++;
	}	     

}
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,k,it,ka ; 
    char aux;
    it =strlen(buf);
    aux = 0;
	if (it>(vtranf+4) && buf[vfech+2]==':'&& buf[vhor+2]==':' && buf[vhor+5]==':' && buf[vdurac+2]==':' && buf[vdurac+5]==':' ) 
	{
		k = 0 ;
		for (i=0;isdigit(buf[vestac+i]) && i<it;i++) tel[k++]=buf[vestac+i] ; 
	   	tel[k++] = ' ' ;                      
		for (i=0;isdigit(buf[vlinea+i]) && i<it;i++) tel[k++] = buf[vlinea+i] ; 
	   	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==americano) 
	   	{
	    	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[6] ; 
          	tel[k++] = buf[7] ;
	   	}   
	   	else 
	   	{
	    	tel[k++] = buf[vfech+3];
	      	tel[k++] = buf[vfech+4];
	      	tel[k++] = '/';
	      	tel[k++] = buf[vfech];
	      	tel[k++] = buf[vfech+1];
	      	tel[k++] = '/';
          	tel[k++] = buf[6] ; 
          	tel[k++] = buf[7] ;
	   	}
	   	tel[k++] = ' ' ;
	   	if  (buf[vtranf]=='T'|| buf[vnumero]=='H')
	   	{
			bus_num(buf,buf_num,vlinea,vnumero);
	    	tel[k++] = vtip ;
	      	tel[k++] = ' ' ; 
			for (i=0;numaux[i]!='\0';i++)
				tel[k++] = numaux[i];
	   	}
		else if  (buf[vtranf]=='x')
		{	
		 	if ((buf[vtranf+1]!='T'))
		 	{
	      		aux = 0;
				if isdigit(buf[vtranf+1])
                	vtip = 'O';
                else
                	vtip = 'I';
				agr_num(buf,buf_num,vestac,vtip,vlinea,vnumero);
				tel[k++]=vtip ;
				tel[k++]=' ' ;
    	       	if (isdigit(buf[vnumero+1])) 
//	           		for (i=0;buf[vnumero+1+i]!=' ' && i<l_nume && (vnumero+i)<it; i++) tel[k++] = buf[vnumero+1+i];
	           		for (i=0;(vnumero+i+1)<it; i++) tel[k++] = buf[vnumero+1+i];
			 	else
			 	{
			 		tel[k++] ='*';		      
			 		tel[k++] ='*';		      
			 		tel[k++] ='*';		      
			 		tel[k++] ='*';		      
			 	}	
			}
			else 
			{
				bus_num(buf,buf_num,vlinea,vnumero);
	    		tel[k++] = 'O' ;
	      		tel[k++] = ' ' ; 
//				for (i=0;numaux[i]!='\0' && i<l_nume && (vnumero+i)<it;i++) tel[k++] = numaux[i];
				for (i=0;numaux[i]!='\0';i++) tel[k++] = numaux[i];
       		}
       	}
      	else if (buf[vtranf]=='I')
		{
	    	tel[k++] = 'I' ;
	      	tel[k++] = ' ' ; 
		   	tel[k++] = '*' ;
		   	tel[k++] = '*' ;
		   	tel[k++] = '*' ;
		   	tel[k++] = '*' ;
      	}
		else
	   	{
			tel[k++]='O' ;
			tel[k++]=' ' ;
//          for (i=0;buf[vnumero+i]!=' '&& i<l_nume && (vnumero+i)<it ; i++) tel[k++]=buf[vnumero+i] ;
           	for (i=0;(vnumero+1+i)<it ; i++) tel[k++]=buf[vnumero+i] ;
	   	}
	   	tel[k++] = ' ' ;
	   	tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;
	   	tel[k++] = ' ' ;
/*       	if (buf[vproye] == ' ')         // codigo de proyecto
       	{
		   	tel[k++] = '*' ; 
		   	tel[k++] = '*' ; 
		   	tel[k++] = '*' ;
		}   	
    	else
       	{
       		for (i=0;buf[vproye+i]!=' ' && i<4 && i<it; i++) 
				tel[k++]= buf[vproye+i];		
		}*/
		tel[k++]='*'; tel[k++]='*'; tel[k++]='*'; // codigo de proyecto
	   	tel[k++] = ' ' ;
	   	tel[k++] = '*'; // cuenta
	   	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++] = ' ' ;
	   	tel[k++] = '0' ; tel[k++] = '0' ; tel[k++] = ':' ; tel[k++] = '0' ; tel[k++] = '0' ;   /* tiempo ring */
	   	tel[k++] = ' ';
		if (buf[vtranf]=='H' || buf[vtranf]=='T' )
//		if (buf[vtranf]=='T')jx
		{
			tel[k++] = estaux[0];
			tel[k++] = estaux[1];
//			tel[k++] = estaux[2];
		}
		else
		{
			tel[k++] = '*';	// anexo transferido
		}
		tel[k++]=' ';
		if (buf[vtranf]=='H' || buf[vtranf]=='T' )	tel[k++]='T';
		else										tel[k++]='*';
		tel[k++] = '\r' ;
	   	tel[k++] = '\n' ;
		tel[k++] = '\0' ;
	}
}