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 standard Table B, Table D, operator or replicator
            **  descriptor, so append it "as is" to the output list.
            */
            wrdesc(desc, ctddesc, nctddesc, maxnc);
        }
        else {
            /*
            **  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(FXY_MINR) ) &&
                     ( 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(FXY_MINR) ) ) {
                    /*
                    **  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 if ( imrkopr_f(nemo) ) {
                /*
                **  desc is a Table C marker operator, so append it "as is" to the
                **  output list.
                */
                wrdesc(ifxy_f(nemo), ctddesc, nctddesc, maxnc);
            }
            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);
            }
        }
    }
 
    return;
}