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 c

⟦04ba86528⟧ TextFile

    Length: 615 (0x267)
    Types: TextFile
    Names: »chext.BSD4_n.c«

Derivation

└─⟦060c9c824⟧ Bits:30007080 DKUUG TeX 2/12/89
    └─⟦this⟧ »./tex82/Unsupported/MFpxl/mflib/chext.BSD4_n.c« 
└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
    └─⟦beba6c409⟧ »unix3.0/Unsupported.tar.Z« 
        └─⟦25c524ae4⟧ 
            └─⟦this⟧ »Unsupported/MFpxl/mflib/chext.BSD4_n.c«

TextFile

#include <stdio.h>
/*
 * This function takes word a and returns 4 bytes
 * in such a way that leftmost byte (MSB) is
 * returned first. It is machine dependent.
 */
#if defined(PYRAMID)
int getb(a,u)
#else
char getb(a,u)
#endif
	unsigned int a;
	int u;
{
#if defined(PYRAMID)
{
u = 5-u;
}
#endif 
switch (u) {
    case 1: 
	return ((a & ~037777777) >> 24);
	break;
    case 2: 
	return ((a & ~0177777) >> 16);
	break;
    case 3: 
	return ((a & ~0377) >> 8);
	break;
    case 4: 
	return ((unsigned char) a);
	break;
    default: 
printf ("Writepxl called with inappropriate argument. Continuing anyhow.\n");
}
	}