home *** CD-ROM | disk | FTP | other *** search
-
- # include "y4.h"
- # include <ctype.h>
-
- int gtnm( )
- {
-
- register s,
- val,
- c;
-
- /* read and convert an integer from the standard input */
- /* return the terminating character */
- /* blanks, tabs, and newlines are ignored */
-
- s = 1;
- val = 0;
-
- while ( ( c = unix_getc( finput ) ) != EOF )
- {
- if ( isdigit( c ) )
- {
- val = val * 10 + c - '0';
- }
- else
- if ( c == '-' )
- s = -1;
- else
- if ( c == '\r' )
- continue ;
- else
- break ;
- }
- *pmem++ = s * val;
- if ( pmem > &mem0[ MEMSIZE ] )
- error( "out of space" );
- return ( c );
-
- }
-