restd.c

Go to the documentation of this file.

 
#include "bufrlib.h"
 
void
wrdesc(int desc, int *descary, int *ndescary, int mxdescary)
{
    char errstr[129];
 
/*
**  Is there room in descary for desc?
*/
    if ( ( *ndescary + 1 ) < mxdescary ) {
        descary[(*ndescary)++] = desc;
    }
    else {
        sprintf(errstr, "BUFRLIB: WRDESC - EXPANDED SECTION 3 CONTAINS"
                        " MORE THAN %d DESCRIPTORS", mxdescary);
        bort_f(errstr);
    }
 
    return;
}
 
void
restd(int lun, int tddesc, int *nctddesc, int *ctddesc)
{
    int maxnc, desc, ncdesc, *cdesc;
    int i, j, inum, itbd, ictbd;
    int iscl, iref, ibit;
 
    char tab, nemo[NEMO_STR_LEN+1], adn[FXY_STR_LEN+1], cunit[UNIT_STR_LEN+1], cwork[31];
/*
**  How many child descriptors does tddesc have?
*/
    numtbd_f(lun, tddesc, nemo, NEMO_STR_LEN+1, &tab, &itbd);
    uptdd_f(itbd, lun, 0, &inum);
 
    maxnc = igetprm_f("MAXNC");
 
    *nctddesc = 0;
/*
**  Examine each child descriptor one at a time.
*/
    for ( i = 1; i <= inum; i++ ) {
        uptdd_f(itbd, lun, i, &desc);
        if (! istdesc_f(desc)) {
/*
**          desc is a local descriptor.
*/
            numtbd_f(lun, desc, nemo, NEMO_STR_LEN+1, &tab, &ictbd);
            if ( tab == 'D' ) {
/*
**              desc is itself a local Table D descriptor, so resolve
**              it now via a recursive call to this same routine.
*/
                if (!(cdesc = malloc(maxnc * sizeof(int)))) bort_f("RESTD FAILED ALLOCATING");
 
                restd(lun, desc, &ncdesc, cdesc);
 
                if ( ( *nctddesc > 0 ) &&
                     ( ctddesc[(*nctddesc)-1] >  ifxy_f(MIN_FXY_REPL) ) &&
                     ( ctddesc[(*nctddesc)-1] <= ifxy_f("101255") ) ) {
/*
**                  desc is replicated using fixed replication, so write
**                  the number of child descriptors into the X value of
**                  the replication descriptor ctddesc[(*nctddesc)-1]
*/
                    cadn30_f(ctddesc[(*nctddesc)-1], adn, FXY_STR_LEN+1);
                    sprintf(cwork, "%c%02d%c%c%c",
                             adn[0], ncdesc, adn[3], adn[4], adn[5]);
                    strncpy(adn, cwork, 6); adn[6] = '\0';
                    ctddesc[(*nctddesc)-1] = ifxy_f(adn);
                }
                else if ( ( *nctddesc > 1 ) &&
                          ( ctddesc[(*nctddesc)-2] == ifxy_f(MIN_FXY_REPL) ) ) {
/*
**                  desc is replicated using delayed replication, so write
**                  the number of child descriptors into the X value of
**                  the replication descriptor ctddesc[(*nctddesc)-2]
*/
                    cadn30_f(ctddesc[(*nctddesc)-2], adn, FXY_STR_LEN+1);
                    sprintf(cwork, "%c%02d%c%c%c",
                             adn[0], ncdesc, adn[3], adn[4], adn[5]);
                    strncpy(adn, cwork, 6); adn[6] = '\0';
                    ctddesc[(*nctddesc)-2] = ifxy_f(adn);
                }
/*
**              Add the child descriptors to the output list.
*/
                for ( j = 0; j < ncdesc; j++ ) {
                    wrdesc(cdesc[j], ctddesc, nctddesc, maxnc);
                }
 
                free(cdesc);
            }
            else {
/*
**              desc is a local Table B descriptor, so precede it with
**              a 206YYY operator in the output list.
*/
                nemtbb_f(lun, ictbd, cunit, UNIT_STR_LEN+1, &iscl, &iref, &ibit);
                sprintf(cwork, "%c%c%c%03d", '2', '0', '6', ibit);
                strncpy(adn, cwork, 6); adn[6] = '\0';
                wrdesc(ifxy_f(adn), ctddesc, nctddesc, maxnc);
                wrdesc(desc, ctddesc, nctddesc, maxnc);
            }
        }
        else {
/*
**          desc is a standard Table B, Table D, operator or replicator
**          descriptor, so append it "as is" to the output list.
*/
            wrdesc(desc, ctddesc, nctddesc, maxnc);
        }
    }
 
    return;
}