|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T o
Length: 1305 (0x519)
Types: TextFile
Names: »or_init.c«
└─⟦2d1937cfd⟧ Bits:30007241 EUUGD22: P.P 5.0
└─⟦dc59850a2⟧ »EurOpenD22/pp5.0/pp-5.tar.Z«
└─⟦e5a54fb17⟧
└─⟦this⟧ »pp-5.0/Lib/or/or_init.c«
/* or_init.c: or-name initialisation */
# ifndef lint
static char Rcsid[] = "@(#)$Header: /cs/research/pp/hubris/pp-beta/Lib/or/RCS/or_init.c,v 5.0 90/09/20 16:08:11 pp Exp Locker: pp $";
# endif
/*
* $Header: /cs/research/pp/hubris/pp-beta/Lib/or/RCS/or_init.c,v 5.0 90/09/20 16:08:11 pp Exp Locker: pp $
*
* $Log: or_init.c,v $
* Revision 5.0 90/09/20 16:08:11 pp
* rcsforce : 5.0 public release
*
*/
#include "head.h"
#include "mta.h"
#include "or.h"
GlobalDomId Myglobalname;
extern OR_ptr loc_ortree;
extern void err_abrt ();
/* --------------------- Start Routines -------------------------------- */
/*
Starts up the or package etc.
*/
void or_myinit()
{
static char or_inited = 0;
OR_ptr or = NULLOR;
if (or_inited)
return;
or_inited++;
if (or_init() == NOTOK)
err_abrt (RP_MECH, "or_init failed");
or = or_find (loc_ortree, OR_C, NULLCP);
if (or == NULLOR)
err_abrt (RP_MECH, "or_init - no country");
Myglobalname.global_Country = or->or_value;
or = or_find (loc_ortree, OR_ADMD, NULLCP);
if (or == NULLOR)
err_abrt (RP_MECH, "or_init - no Administration");
Myglobalname.global_Admin = or->or_value;
or = or_find (loc_ortree, OR_PRMD, NULLCP);
if (or != NULLOR)
Myglobalname.global_Private = or->or_value;
}