DataMuseum.dk

top - metrics - download

    Length: 3578 (0xdfa)
    Types: TextFile
    Names: »ftamdocument.c«

└─⟦3d0c2be1b⟧ Bits:30001254 ISODE-5.0 Tape
    └─⟦eba4602b1⟧ »./isode-5.0.tar.Z« 
        └─⟦d3ac74d73⟧ 
            └─⟦this⟧ »isode-5.0/ftam/ftamdocument.c« 

TextFile

/* ftamdocument.c - FTAM document database */

#ifndef	lint
static char *rcsid = "$Header: /f/osi/ftam/RCS/ftamdocument.c,v 6.0 89/03/18 23:30:35 mrose Rel $";
#endif

/* 
 * $Header: /f/osi/ftam/RCS/ftamdocument.c,v 6.0 89/03/18 23:30:35 mrose Rel $
 *
 *
 * $Log:	ftamdocument.c,v $
 * Revision 6.0  89/03/18  23:30:35  mrose
 * Release 5.0
 * 
 */

/*
 *				  NOTICE
 *
 *    Acquisition, use, and distribution of this module and related
 *    materials are subject to the restrictions of a license agreement.
 *    Consult the Preface in the User's Manual for the full terms of
 *    this agreement.
 *
 */


/* LINTLIBRARY */

#include <stdio.h>
#include "ftam.h"
#include "tailor.h"

/* \f

   DATA */

static char *isodocuments = "isodocuments";

static FILE *servf = NULL;
static int   stayopen = 0;

static struct isodocument ids;

/* \f

 */

int	setisodocument (f)
int	f;
{
    if (servf == NULL)
	servf = fopen (isodefile (isodocuments), "r");
    else
	rewind (servf);
    stayopen |= f;

    return (servf != NULL);
}


int	endisodocument () {
    if (servf && !stayopen) {
	(void) fclose (servf);
	servf = NULL;
    }

    return 1;
}

/* \f

 */

struct isodocument *getisodocument () {
    register char  *cp;
    register struct isodocument *id = &ids;
    static char buffer[BUFSIZ + 1];
    static char *vec[NVEC + NSLACK + 1];

    if (servf == NULL
	    && (servf = fopen (isodefile (isodocuments), "r")) == NULL)
	return NULL;

    if (id -> id_type)
	oid_free (id -> id_type);
    if (id -> id_abstract)
	oid_free (id -> id_abstract);
    if (id -> id_transfer)
	oid_free (id -> id_transfer);
    if (id -> id_model)
	oid_free (id -> id_model);
    if (id -> id_constraint)
	oid_free (id -> id_constraint);

    bzero ((char *) id, sizeof *id);

    while (fgets (buffer, sizeof buffer, servf) != NULL) {
	if (*buffer == '#')
	    continue;
	if (cp = index (buffer, '\n'))
	    *cp = NULL;
	if (str2vec (buffer, vec) < 6)
	    continue;

	id -> id_entry = vec[0];

	if ((id -> id_type = str2oid (vec[1])) == NULLOID
		|| (id -> id_type = oid_cpy (id -> id_type)) == NULLOID)
	    continue;

	if ((id -> id_abstract = str2oid (vec[2])) == NULLOID
		|| (id -> id_abstract = oid_cpy (id -> id_abstract))
			== NULLOID)
	    goto free1;

	if ((id -> id_transfer = str2oid (vec[3])) == NULLOID
		|| (id -> id_transfer = oid_cpy (id -> id_transfer))
			== NULLOID)
	    goto free2;

	if ((id -> id_model = str2oid (vec[4])) == NULLOID
		|| (id -> id_model = oid_cpy (id -> id_model)) == NULLOID)
	    goto free3;

	if ((id -> id_constraint = str2oid (vec[5])) == NULLOID
		|| (id -> id_constraint = oid_cpy (id -> id_constraint))
		== NULLOID) {
	    oid_free (id -> id_model);
	    id -> id_model = NULLOID;

    free3: ;
	    oid_free (id -> id_transfer);
	    id -> id_transfer = NULLOID;

    free2:  ;
	    oid_free (id -> id_abstract);
	    id -> id_abstract = NULLOID;

    free1:  ;
	    oid_free (id -> id_type);
	    id -> id_type = NULLOID;

	    continue;
	}

	return id;
    }

    return NULL;
}

/* \f

 */

struct isodocument *getisodocumentbyentry (entry)
char    *entry;
{
    register struct isodocument *id;

    (void) setisodocument (0);
    while (id = getisodocument ())
	if (strcmp (id -> id_entry, entry) == 0)
	    break;
    (void) endisodocument ();

    return id;
}

/* \f

 */

struct isodocument *getisodocumentbytype (type)
OID	type;
{
    register struct isodocument *id;

    (void) setisodocument (0);
    while (id = getisodocument ())
	if (oid_cmp (id -> id_type, type) == 0)
	    break;
    (void) endisodocument ();

    return id;
}