minix/lib/libp/rdi.c
2005-04-21 14:53:53 +00:00

78 lines
1.3 KiB
C
Executable file

/* $Header$ */
/*
* (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));
}