DataMuseum.dk

top - metrics - download

    Length: 694 (0x2b6)
    Types: TextFile
    Names: »hits.c«

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

TextFile

#include <stdio.h>
#include <ctype.h>

#include "c_common.h"

extern int	debug;
extern FILE	*fileerr;

static int	b[8] =		{ 1 , 1,  3,  2,  3,  8,  8, 12 };

hits_(own)
	int	*own;
{
	int	i;

	for (i = 0; i < 8; i++)
		if (*own == phazee_[i])
			return (b[i]);
	if (debug) {
		fprintf(fileerr, "DEBUG: returning 0 for %d\n", *own);
		fflush(fileerr); 
	}
	return (0);
}

static char	atyp[8] =	{ 'A','F','D','S','T','R','C','B' };

chits_(own)
	char	*own;
{
	int	i;
	char	ch;

	ch = (islower(*own)) ? toupper(*own) : *own;
	for (i = 0; i < 8; i++)
		if (ch == atyp[i])
			return (b[i]);
	if (debug) {
		fprintf(fileerr, "DEBUG: returning 0 for %c\n", *own);
		fflush(fileerr); 
	}
	return (0);
}