DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T o

⟦8da8558ad⟧ TextFile

    Length: 1204 (0x4b4)
    Types: TextFile
    Names: »or_blank.c«

Derivation

└─⟦2d1937cfd⟧ Bits:30007241 EUUGD22: P.P 5.0
    └─⟦dc59850a2⟧ »EurOpenD22/pp5.0/pp-5.tar.Z« 
        └─⟦e5a54fb17⟧ 
            └─⟦this⟧ »pp-5.0/Lib/or/or_blank.c«

TextFile

/* or_blank.c: do strange things with blanks. */

# ifndef lint
static char Rcsid[] = "@(#)$Header: /cs/research/pp/hubris/pp-beta/Lib/or/RCS/or_blank.c,v 5.0 90/09/20 16:07:51 pp Exp Locker: pp $";
# endif

/*
 * $Header: /cs/research/pp/hubris/pp-beta/Lib/or/RCS/or_blank.c,v 5.0 90/09/20 16:07:51 pp Exp Locker: pp $
 *
 * $Log:	or_blank.c,v $
 * Revision 5.0  90/09/20  16:07:51  pp
 * rcsforce : 5.0 public release
 * 
 */



#include "or.h"
#include "util.h"

int or_blank (or)
OR_ptr          *or;
{
    OR_ptr      ptr;

    PP_DBG (("Lib/or_blankor (i.e no addr given)"));

    *or = or_new (OR_S, "", "");
    ptr = or_new (OR_OU, "", "");
    *or = or_add (*or, ptr, TRUE);

    if (*or == NULLOR)
	return (NOTOK);

    ptr = or_new (OR_O, "", "");
    *or = or_add (*or, ptr, TRUE);

    if (*or == NULLOR)
	return (NOTOK);

    ptr = or_new (OR_PRMD, NULLCP, "");
    *or = or_add (*or, ptr, TRUE);

    if (*or == NULLOR)
	return (NOTOK);

    ptr = or_new (OR_ADMD, NULLCP, "");
    *or = or_add (*or, ptr, TRUE);

    if (*or == NULLOR)
	return (NOTOK);

    ptr = or_new (OR_C, NULLCP, "");
    *or = or_add (*or, ptr, TRUE);

    if (*or == NULLOR)
	return (NOTOK);

    return (OK);
}