123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778 |
- /* $Id$ */
- /*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- * This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- * Dr. Andrew S. Tanenbaum
- * Wiskundig Seminarium
- * Vrije Universiteit
- * Postbox 7161
- * 1007 MC Amsterdam
- * The Netherlands
- *
- */
- /* Author: J.W. Stevenson */
- #include <pc_file.h>
- #include <pc_err.h>
- extern _trp();
- extern _rf();
- extern _incpt();
- _skipsp(f) struct file *f; {
- while ((*f->ptr == ' ') || (*f->ptr == '\t'))
- _incpt(f);
- }
- int _getsig(f) struct file *f; {
- int sign;
- if ((sign = (*f->ptr == '-')) || *f->ptr == '+')
- _incpt(f);
- return(sign);
- }
- int _fstdig(f) struct file *f; {
- int ch;
- ch = *f->ptr - '0';
- if ((unsigned) ch > 9) {
- _trp(EDIGIT);
- ch = 0;
- }
- return(ch);
- }
- int _nxtdig(f) struct file *f; {
- int ch;
- _incpt(f);
- ch = *f->ptr - '0';
- if ((unsigned) ch > 9)
- return(-1);
- return(ch);
- }
- int _getint(f) struct file *f; {
- int is_signed,i,ch;
- is_signed = _getsig(f);
- ch = _fstdig(f);
- i = 0;
- do
- i = i*10 - ch;
- while ((ch = _nxtdig(f)) >= 0);
- return(is_signed ? i : -i);
- }
- int _rdi(f) struct file *f; {
- _rf(f);
- _skipsp(f);
- return(_getint(f));
- }
|