cobfl.c

Go to the documentation of this file.

#include "bufrlib.h"
#define IN_COBFL
#include "cobfl.h"

#define MXFNLEN 100

void cobfl( char *bfl, char *io )
{
    char lbf[MXFNLEN+1];
    char lio;

    char errstr[150];

    char foparg[3] = " b";  /* 3rd character will automatically
                   initialize to NULL */
    unsigned short i, j;

/*
**  Copy the input arguments into local variables and check them for validity.
**  This is especially important in case either of the arguments was passed in
**  as a string literal by the calling program or else doesn't have a trailing
**  NULL character.
*/
    for ( i = 0; ( ! isspace( bfl[i] ) && ! iscntrl( bfl[i] ) ); i++ ) {
    if ( i == MXFNLEN ) {
        sprintf( errstr, "BUFRLIB: COBFL - INPUT FILENAME CONTAINS"
                " MORE THAN %d CHARACTERS", MXFNLEN );
        bort( errstr, ( f77int ) strlen( errstr ) );
    }
    lbf[i] = bfl[i];
    }
    lbf[i] = '\0';

    lio = io[0];
    if ( ( foparg[0] = (char) tolower( lio ) ) == 'r' ) {
    j = 0;
    }
    else if ( foparg[0] == 'w' ) {
    j = 1;
    }
    else {
    sprintf( errstr, "BUFRLIB: COBFL - SECOND ARGUMENT WAS (%c),"
            " WHICH IS AN ILLEGAL VALUE", lio );
    bort( errstr, ( f77int ) strlen( errstr ) );
    }

/*
**  If a file of this type is already open, then close it before
**  opening the new one.
*/
    if ( pbf[j] != NULL ) fclose( pbf[j] );

/*
**  Open the requested file.
*/
    if ( ( pbf[j] = fopen( lbf, foparg ) ) == NULL ) {
    sprintf( errstr, "BUFRLIB: COBFL - COULD NOT OPEN FILE %s", lbf );
    bort( errstr, ( f77int ) strlen( errstr ) );
    }

/*
**  Call wrdlen to initialize some important information about the
**  local machine, just in case it hasn't already been called.
*/
    wrdlen( );
    
    return;
}