#include "lib9.h"#include <bio.h> struct	bgetd{	Biobuf*	b;	int		eof;}; static intBgetdf(void *vp){	int c;	struct bgetd *bg = vp; 	c = Bgetc(bg->b);	if(c == Beof)		bg->eof = 1;	return c;} intBgetd(Biobuf *bp, double *dp){	double d;	struct bgetd b; 	b.b = bp;	b.eof = 0;	d = charstod(Bgetdf, &b);	if(b.eof)		return -1;	Bungetc(bp);	*dp = d;	return 1;}