GEO_maneuver.c

Go to the documentation of this file.

#include "PGS_TD.h"
#include "GEO_main_func.h"
#include "PGS_MODIS_35251.h"
 
#define MANEUVER_LUN            600002
 
PGSt_SMF_status GEO_in_maneuver(
    PGSt_double     tai1993
)
{
#define MAX_MANEUVERS \
    (PGSd_PC_VALUE_LENGTH_MAX/(2* sizeof "2010-05-25T12:57:04.000"))
 
    static PGSt_double maneuver_list[MAX_MANEUVERS][2];
    static int  count = -1;
    int man;
    char msgbuf[PGSd_PC_VALUE_LENGTH_MAX + 32];
    char filefunc[] = __FILE__ ", GEO_in_maneuver";
 
    if(count == -1)
    {
    char maneuver_string[PGSd_PC_VALUE_LENGTH_MAX];
    char const *pstart = maneuver_string;
 
    count = 0;
    switch(PGS_PC_GetConfigData(MANEUVER_LUN, maneuver_string))
    {
    case PGSPC_W_NO_CONFIG_FOR_ID:
        return PGS_S_SUCCESS;   /* Empty maneuver list. */
 
    case PGS_S_SUCCESS:
        break;
 
    default:
        /* Unexpected return value, probably PGSPC_E_DATA_ACCESS_ERROR */
        sprintf(msgbuf, "PGS_PC_GetConfigData(%ld)", (long)MANEUVER_LUN);
        modsmf(MODIS_E_GEO, msgbuf, filefunc);
 
        return MODIS_E_GEO;
    }
 
    while(*pstart && count < MAX_MANEUVERS)
    {
        int val;
        for(val=0; val<2; val++)
        {
        char *pblank = strchr(pstart, ' ');
 
        if(!pblank)
        {
            sprintf(msgbuf, "time string = \"%s\"", pstart);
            modsmf(MODIS_E_BAD_INPUT_ARG, msgbuf, filefunc);
 
            return MODIS_E_BAD_INPUT_ARG;
        }
 
        *pblank = 'T';
        pblank = strchr(pblank+1, ' ');
        if(pblank)
            *pblank = '\0';
 
        if(PGS_TD_UTCtoTAI((char*)pstart, maneuver_list[count] + val)
            != PGS_S_SUCCESS)
        {
            sprintf(msgbuf, "PGS_TD_UTCtoTAI(\"%s\")", pstart);
            modsmf(MODIS_E_GEO, msgbuf, filefunc);
 
            return MODIS_E_GEO;
        }
 
        if(pblank)
            pstart = pblank+1;
        else
        {
            if(val == 0)
            {   /* Second time value is not correctly recorded. */
            sprintf(msgbuf, "maneuver_string = \"%s\"",
                maneuver_string);
            modsmf(MODIS_E_BAD_INPUT_ARG, msgbuf, filefunc);
 
            return MODIS_E_BAD_INPUT_ARG;
            }
            while(*pstart)
            pstart++;
        }
        }
        count++;
    }
    } 
 
    /* The count will almost always be 0, and when it is not, it will almost
     * always be 1, so the simplest search algorithm is also the best:
     */
    for(man = 0; man < count; man++)
    if(maneuver_list[man][0] < tai1993 && tai1993 < maneuver_list[man][1])
        return MODIS_N_GEO_MANEUVER;
  
    return PGS_S_SUCCESS;
}