lib/ack/libp/rdl.c

   1 /* $Header$ */
   2 /*
   3  * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
   4  *
   5  *          This product is part of the Amsterdam Compiler Kit.
   6  *
   7  * Permission to use, sell, duplicate or disclose this software must be
   8  * obtained in writing. Requests for such permissions may be sent to
   9  *
  10  *      Dr. Andrew S. Tanenbaum
  11  *      Wiskundig Seminarium
  12  *      Vrije Universiteit
  13  *      Postbox 7161
  14  *      1007 MC Amsterdam
  15  *      The Netherlands
  16  *
  17  */
  18
  19 /* Author: J.W. Stevenson */
  20
  21 #include        <pc_file.h>
  22
  23 extern          _rf();
  24 extern          _skipsp();
  25 extern int      _getsig();
  26 extern int      _fstdig();
  27 extern int      _nxtdig();
  28
  29 long _rdl(f) struct file *f; {
  30         int is_signed,ch; long l;
  31
  32         _rf(f);
  33         _skipsp(f);
  34         is_signed = _getsig(f);
  35         ch = _fstdig(f);
  36         l = 0;
  37         do
  38                 l = l*10 - ch;
  39         while ((ch = _nxtdig(f)) >= 0);
  40         return(is_signed ? l : -l);
  41 }