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 s

⟦75b06f3e1⟧ TextFile

    Length: 860 (0x35c)
    Types: TextFile
    Names: »showpriv.c«

Derivation

└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
    └─⟦this⟧ »EUUGD18/General/Abermud/showpriv.c«

TextFile

#include "kernel.h"
#ifdef	RCSID
static char RCS[] =
	"$Header: showpriv.c,v 1.1 89/03/13 09:37:44 rsalz Exp $";
#endif	/* RCSID */


static char *Pflags[] = {
    "Female      ",
    "No Exorcise ",
    "Pflag Edit  ",
    "Oper        ",
    "DebugMode   ",
    "Patch       ",
    "No Snoop    ",
    "Audit       ",
    "Brief       ",
    "Invis Start ",
    "Guardian    ",
    "System Debug",
    "No Hassle   ",
    "Spare       ",
    "Occupied    ",
    "Spare       ",
    NULL
};

show_priv()
{
    int ct;
    int c2;

    if (pl1 == -1) {
	bprintf("Who is that ?\n");
	error();
	return;
    }
    bprintf("Player : %s\n", pname(pl1));
    bprintf("Privileges:\n");
    for (c2 = 0, ct = 0; ct < 16; ct++) {
	if (ptstflg(pl1, ct)) {
	    if (c2 % 6 == 5)
		bprintf("\n");
	    bprintf("%s  ", Pflags[ct]);
	    c2++;
	}
    }
    bprintf("\n");
}