/*
* cvt_dcf7000
*
* convert dcf7000 type format
*/
static u_long
cvt_dcf7000(
unsigned char *buffer,
int size,
struct format *format,
clocktime_t *clock_time,
void *local
)
{
if (!Strok(buffer, format->fixed_string))
{
return CVT_NONE;
}
else
{
if (Stoi(&buffer[format->field_offsets[O_DAY].offset], &clock_time->day,
format->field_offsets[O_DAY].length) ||
Stoi(&buffer[format->field_offsets[O_MONTH].offset], &clock_time->month,
format->field_offsets[O_MONTH].length) ||
Stoi(&buffer[format->field_offsets[O_YEAR].offset], &clock_time->year,
format->field_offsets[O_YEAR].length) ||
Stoi(&buffer[format->field_offsets[O_HOUR].offset], &clock_time->hour,
format->field_offsets[O_HOUR].length) ||
Stoi(&buffer[format->field_offsets[O_MIN].offset], &clock_time->minute,
format->field_offsets[O_MIN].length) ||
Stoi(&buffer[format->field_offsets[O_SEC].offset], &clock_time->second,
format->field_offsets[O_SEC].length))
{
return CVT_FAIL|CVT_BADFMT;
}
else
{
unsigned char *f = &buffer[format->field_offsets[O_FLAGS].offset];
long flags;
clock_time->flags = 0;
clock_time->usecond = 0;
if (Stoi(f, &flags, format->field_offsets[O_FLAGS].length))
{
return CVT_FAIL|CVT_BADFMT;
}
else
{
if (flags & 0x1)
clock_time->utcoffset = -2*60*60;
else
clock_time->utcoffset = -1*60*60;
if (flags & 0x2)
clock_time->flags |= PARSEB_ANNOUNCE;
if (flags & 0x4)
clock_time->flags |= PARSEB_NOSYNC;
}
return CVT_OK;
}
}
}
/*
* cvt_varitext
*
* convert simple type format
*/
static u_long
cvt_varitext(
unsigned char *buffer,
int size,
struct format *format,
clocktime_t *clock_time,
void *local
)
{
if (!Strok(buffer, format->fixed_string)) {
return CVT_NONE;
} else {
if (Stoi(&buffer[format->field_offsets[O_DAY].offset], &clock_time->day,
format->field_offsets[O_DAY].length) ||
Stoi(&buffer[format->field_offsets[O_MONTH].offset], &clock_time->month,
format->field_offsets[O_MONTH].length) ||
Stoi(&buffer[format->field_offsets[O_YEAR].offset], &clock_time->year,
format->field_offsets[O_YEAR].length) ||
Stoi(&buffer[format->field_offsets[O_HOUR].offset], &clock_time->hour,
format->field_offsets[O_HOUR].length) ||
Stoi(&buffer[format->field_offsets[O_MIN].offset], &clock_time->minute,
format->field_offsets[O_MIN].length) ||
Stoi(&buffer[format->field_offsets[O_SEC].offset], &clock_time->second,
format->field_offsets[O_SEC].length)) {
return CVT_FAIL | CVT_BADFMT;
} else {
u_char *f = (u_char*) &buffer[format->field_offsets[O_FLAGS].offset];
clock_time->flags = 0;
clock_time->utcoffset = 0;
if (((*f) & VT_BST)) /* BST flag is set so set to indicate daylight saving time is active and utc offset */
{
clock_time->utcoffset = -1*60*60;
clock_time->flags |= PARSEB_DST;
}
/*
if (!((*f) & VT_INITIALISED)) Clock not initialised
clock_time->flags |= PARSEB_POWERUP;
if (!((*f) & VT_SYNCHRONISED)) Clock not synchronised
clock_time->flags |= PARSEB_NOSYNC;
if (((*f) & VT_SEASON_CHANGE)) Seasonal change expected in the next hour
clock_time->flags |= PARSEB_ANNOUNCE;
*/
return CVT_OK;
}
}
}
/*
* parse_cvt_fnc_t cvt_meinberg
*
* convert simple type format
*/
static u_long
cvt_meinberg(
unsigned char *buffer,
int size,
struct format *unused,
clocktime_t *clock_time,
void *local
)
{
struct format *format;
/*
* select automagically correct data format
*/
if (Strok(buffer, meinberg_fmt[0].fixed_string))
{
format = &meinberg_fmt[0];
}
else
{
if (Strok(buffer, meinberg_fmt[1].fixed_string))
{
format = &meinberg_fmt[1];
}
else
{
return CVT_FAIL|CVT_BADFMT;
}
}
/*
* collect data
*/
if (Stoi(&buffer[format->field_offsets[O_DAY].offset], &clock_time->day,
format->field_offsets[O_DAY].length) ||
Stoi(&buffer[format->field_offsets[O_MONTH].offset], &clock_time->month,
format->field_offsets[O_MONTH].length) ||
Stoi(&buffer[format->field_offsets[O_YEAR].offset], &clock_time->year,
format->field_offsets[O_YEAR].length) ||
Stoi(&buffer[format->field_offsets[O_HOUR].offset], &clock_time->hour,
format->field_offsets[O_HOUR].length) ||
Stoi(&buffer[format->field_offsets[O_MIN].offset], &clock_time->minute,
format->field_offsets[O_MIN].length) ||
Stoi(&buffer[format->field_offsets[O_SEC].offset], &clock_time->second,
format->field_offsets[O_SEC].length))
{
return CVT_FAIL|CVT_BADFMT;
}
else
{
unsigned char *f = &buffer[format->field_offsets[O_FLAGS].offset];
clock_time->usecond = 0;
clock_time->flags = PARSEB_S_LEAP;
if (clock_time->second == 60)
clock_time->flags |= PARSEB_LEAPSECOND;
/*
* in the extended timecode format we have also the
* indication that the timecode is in UTC
* for compatibilty reasons we start at the USUAL
* offset (POWERUP flag) and know that the UTC indication
* is the character before the powerup flag
*/
if ((format->flags & MBG_EXTENDED) && (f[-1] == 'U'))
{
/*
* timecode is in UTC
*/
clock_time->utcoffset = 0; /* UTC */
clock_time->flags |= PARSEB_UTC;
}
else
{
/*
* only calculate UTC offset if MET/MED is in time code
* or we have the old time code format, where we do not
* know whether it is UTC time or MET/MED
* pray that nobody switches to UTC in the *old* standard time code
* ROMS !!!! The new ROMS have 'U' at the ZONE field - good.
*/
switch (buffer[format->field_offsets[O_ZONE].offset])
{
case ' ':
clock_time->utcoffset = -1*60*60; /* MET */
break;
case 'S':
clock_time->utcoffset = -2*60*60; /* MED */
break;
case 'U':
/*
* timecode is in UTC
*/
clock_time->utcoffset = 0; /* UTC */
clock_time->flags |= PARSEB_UTC;
break;
default:
return CVT_FAIL|CVT_BADFMT;
}
}
/*
* gather status flags
*/
if (buffer[format->field_offsets[O_ZONE].offset] == 'S')
clock_time->flags |= PARSEB_DST;
if (f[0] == '#')
clock_time->flags |= PARSEB_POWERUP;
if (f[1] == '*')
clock_time->flags |= PARSEB_NOSYNC;
if (f[3] == '!')
clock_time->flags |= PARSEB_ANNOUNCE;
/*
* oncoming leap second
* 'a' code not confirmed - earth is not
* expected to speed up
*/
if (f[3] == 'A')
clock_time->flags |= PARSEB_LEAPADD;
if (f[3] == 'a')
clock_time->flags |= PARSEB_LEAPDEL;
if (format->flags & MBG_EXTENDED)
{
clock_time->flags |= PARSEB_S_CALLBIT;
/*
* DCF77 does not encode the direction -
* so we take the current default -
* earth slowing down
*/
clock_time->flags &= ~PARSEB_LEAPDEL;
if (f[4] == 'A')
clock_time->flags |= PARSEB_LEAPADD;
if (f[5] == 'R')
clock_time->flags |= PARSEB_CALLBIT;
}
return CVT_OK;
}
}
/*
* parse_cvt_fnc_t cvt_mgps
*
* convert Meinberg GPS format
*/
static u_long
cvt_mgps(
unsigned char *buffer,
int size,
struct format *format,
clocktime_t *clock_time,
void *local
)
{
if (!Strok(buffer, format->fixed_string))
{
return cvt_meinberg(buffer, size, format, clock_time, local);
}
else
{
if (Stoi(&buffer[format->field_offsets[O_DAY].offset], &clock_time->day,
format->field_offsets[O_DAY].length) ||
Stoi(&buffer[format->field_offsets[O_MONTH].offset], &clock_time->month,
format->field_offsets[O_MONTH].length) ||
Stoi(&buffer[format->field_offsets[O_YEAR].offset], &clock_time->year,
format->field_offsets[O_YEAR].length) ||
Stoi(&buffer[format->field_offsets[O_HOUR].offset], &clock_time->hour,
format->field_offsets[O_HOUR].length) ||
Stoi(&buffer[format->field_offsets[O_MIN].offset], &clock_time->minute,
format->field_offsets[O_MIN].length) ||
Stoi(&buffer[format->field_offsets[O_SEC].offset], &clock_time->second,
format->field_offsets[O_SEC].length))
{
return CVT_FAIL|CVT_BADFMT;
}
else
{
long h;
unsigned char *f = &buffer[format->field_offsets[O_FLAGS].offset];
clock_time->flags = PARSEB_S_LEAP|PARSEB_S_POSITION;
clock_time->usecond = 0;
/*
* calculate UTC offset
*/
if (Stoi(&buffer[format->field_offsets[O_UTCHOFFSET].offset], &h,
format->field_offsets[O_UTCHOFFSET].length))
{
return CVT_FAIL|CVT_BADFMT;
}
else
{
if (Stoi(&buffer[format->field_offsets[O_UTCMOFFSET].offset], &clock_time->utcoffset,
format->field_offsets[O_UTCMOFFSET].length))
{
return CVT_FAIL|CVT_BADFMT;
}
clock_time->utcoffset += TIMES60(h);
clock_time->utcoffset = TIMES60(clock_time->utcoffset);
if (buffer[format->field_offsets[O_UTCSOFFSET].offset] != '-')
{
clock_time->utcoffset = -clock_time->utcoffset;
}
}
/*
* gather status flags
*/
if (buffer[format->field_offsets[O_ZONE].offset] == 'S')
clock_time->flags |= PARSEB_DST;
if (clock_time->utcoffset == 0)
clock_time->flags |= PARSEB_UTC;
/*
* no sv's seen - no time & position
*/
if (f[0] == '#')
clock_time->flags |= PARSEB_POWERUP;
/*
* at least one sv seen - time (for last position)
*/
if (f[1] == '*')
clock_time->flags |= PARSEB_NOSYNC;
else
if (!(clock_time->flags & PARSEB_POWERUP))
clock_time->flags |= PARSEB_POSITION;
/*
* oncoming zone switch
*/
if (f[3] == '!')
clock_time->flags |= PARSEB_ANNOUNCE;
/*
* oncoming leap second
* 'a' code not confirmed - earth is not
* expected to speed up
*/
if (f[4] == 'A')
clock_time->flags |= PARSEB_LEAPADD;
if (f[4] == 'a')
clock_time->flags |= PARSEB_LEAPDEL;
/*
* f[5] == ' '
*/
/*
* this is the leap second
*/
if ((f[6] == 'L') || (clock_time->second == 60))
clock_time->flags |= PARSEB_LEAPSECOND;
return CVT_OK;
}
}
}
int main (int argc,char** argv)
{
//Abrir el script que voy a interpretar
FILE* script = fopen( argv[1], "r");
if ( script == NULL )
{
printf("No se encontro el archivo \n");
return -1;
}
else
{
if(feof (script) == 0)
{
int32_t tamanioDePath = strlen(argv[0]) + (sizeof(char)*3);
char linea[tamanioDePath];
fgets(linea,tamanioDePath,script);
}
else
{
puts("Script vacio");
return -1;
}
char* stream;
size_t tamanio= 0;
size_t offset = 0;
stream = malloc(0);
while( feof (script) == 0 )
{
char linea[50]="";
fgets(linea,50,script);
tamanio = strlen(linea);
stream = realloc(stream,tamanio+offset);
memcpy(stream+offset,linea,tamanio);
offset += tamanio;
}
stream = realloc(stream,tamanio+offset+1);
memcpy(stream+offset,"\0",1);
fclose(script);
char* ip = getenv("PP_IP");
char* port = getenv("PP_Puerto");
if( (ip == NULL) || (port == NULL) )
{
puts("Variables PP_IP o PP_Puerto no especificadas");
return -1;
}
uint16_t puerto = (uint16_t) Stoi(port,"%u");
t_socket* socketCliente = crearSocket("127.0.0.1",3001);
puts("Conectando con servidor...");
printf("IP: %s\nPUERTO:%u\n",ip,puerto);
if( conectarSocket(socketCliente,ip,puerto) == -1)
{
puts("Error al conectar con servidor");
return -1;
}
if( enviarSocket(socketCliente,stream,strlen(stream)) == -1 )
{
puts("Error al enviar mensaje");
return -1;
}
free(stream);
destruirSocket(socketCliente);
}
return 0;
}
