21 lines
441 B
C
21 lines
441 B
C
/*
|
|
* lexget.c
|
|
*
|
|
* Bob Denny 28-Aug-82 Move stdio dependencies to lexerr(), lexget(),
|
|
* lexech() and mapch(). This is one of 4 modules
|
|
* in lexlib which depend upon the standard I/O package.
|
|
*
|
|
* Scott Guthery 20-Nov-83 Adapt for IBM PC & DeSmet C.
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <lex.h>
|
|
extern char expression[4096];
|
|
extern int pos;
|
|
lexgetc()
|
|
{
|
|
char c = expression[pos];
|
|
if (c) pos++;
|
|
return( c != 0 ? c : -1);
|
|
}
|