ref: c116550e6a41572796e4db65e4f6acbcb3d9d6f8
dir: /libbio/bgetd.c/
#include "lib9.h" #include <bio.h> struct bgetd { Biobuf* b; int eof; }; static int Bgetdf(void *vp) { int c; struct bgetd *bg = vp; c = Bgetc(bg->b); if(c == Beof) bg->eof = 1; return c; } int Bgetd(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; }