home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / languages / pascal / PTC / _PtC1 / GETL < prev    next >
Encoding:
Text File  |  1991-03-04  |  288 b   |  15 lines

  1. # include <stdio.h>
  2. # include "ptcmain.h"
  3.  
  4. static char rcsid[] = "$Id: c.GETL 1.2 91/03/04 14:13:00 gtoal Exp Locker: gtoal $";
  5.  
  6. int Getl(f)
  7.      text *f;
  8. {
  9.   while (f->eoln == 0)
  10.     Getx(*f);
  11.   /* Next reference to buffer variable will do real input */
  12.   f->bufvalid = 0;
  13.   return 0;
  14. }
  15.