/*
   more eunuchs stuff
*/
#include "io-defs.h"
#include <stdio.h>

int fread(where, how_big, how_many, s)
char * where;
int how_many;
int how_big;
struct streamoid * s;
{
  int i, j, c;
/* zzz use the method later... */

  for (i = 0 ; i < how_many ; i++)
	for (j = 0 ; j < how_big ; j++)
		{
		c = method_call_0(s, METHOD_TYI);
		if (c == EOF)
			return(i);
		*where++ = c;
		}
  return(i);
}