| version 1.17, 2001/09/03 07:01:10 |
version 1.19, 2001/12/21 08:23:15 |
|
|
| * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
| * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
| * |
* |
| * $OpenXM: OpenXM_contrib2/asir2000/parse/lex.c,v 1.16 2001/06/15 07:56:06 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/lex.c,v 1.18 2001/10/09 01:36:24 noro Exp $ |
| */ |
*/ |
| #include <ctype.h> |
#include <ctype.h> |
| #include "ca.h" |
#include "ca.h" |
|
|
| #include "y.tab.h" |
#include "y.tab.h" |
| #endif |
#endif |
| |
|
| extern IN asir_infile; |
static int Getc(); |
| |
static void Ungetc(int c); |
| |
static void Gets(char *s); |
| |
static int skipspace(); |
| |
|
| |
extern INFILE asir_infile; |
| extern struct oTKWD kwd[]; |
extern struct oTKWD kwd[]; |
| |
|
| int afternl(); |
|
| int myatoi(); |
|
| int aftercomment(); |
|
| |
|
| extern int main_parser; |
extern int main_parser; |
| extern char *parse_strp; |
extern char *parse_strp; |
| extern int recv_intr; |
extern int recv_intr; |
| |
|
| static int skipspace(); |
|
| static int Getc(); |
|
| static void Ungetc(); |
|
| static void Gets(); |
|
| |
|
| #define NBUFSIZ (BUFSIZ*10) |
#define NBUFSIZ (BUFSIZ*10) |
| #define TBUFSIZ (BUFSIZ) |
#define TBUFSIZ (BUFSIZ) |
| |
|
|
|
| break;\ |
break;\ |
| } |
} |
| |
|
| yylex() |
int yylex() |
| { |
{ |
| #define yylvalp (&yylval) |
#define yylvalp (&yylval) |
| register int c,c1; |
register int c,c1; |
| Line 412 void purge_stdin() |
|
| Line 408 void purge_stdin() |
|
| stdin->_IO_read_end = stdin->_IO_read_base; |
stdin->_IO_read_end = stdin->_IO_read_base; |
| stdin->_IO_read_ptr = stdin->_IO_read_base; |
stdin->_IO_read_ptr = stdin->_IO_read_base; |
| #elif defined(VISUAL_LIB) |
#elif defined(VISUAL_LIB) |
| |
void w_purge_stdin(); |
| |
|
| w_purge_stdin(); |
w_purge_stdin(); |
| #elif defined(sparc) || defined(__alpha) || defined(__SVR4) || defined(mips) || defined(VISUAL) || defined(_IBMR2) |
#elif defined(sparc) || defined(__alpha) || defined(__SVR4) || defined(mips) || defined(VISUAL) || defined(_IBMR2) |
| stdin->_ptr = stdin->_base; stdin->_cnt = 0; |
stdin->_ptr = stdin->_base; stdin->_cnt = 0; |
| #elif defined(__MACH__) && defined(__ppc__) |
#elif (defined(__MACH__) && defined(__ppc__)) || defined(__CYGWIN__) |
| stdin->_r = 0; stdin->_p = stdin->_bf._base; |
stdin->_r = 0; stdin->_p = stdin->_bf._base; |
| #else |
#else |
| --->FIXIT |
--->FIXIT |
| Line 483 int aftercomment() { |
|
| Line 481 int aftercomment() { |
|
| } |
} |
| } |
} |
| |
|
| int myatoi(s) |
int myatoi(char *s) |
| char *s; |
|
| { |
{ |
| int i,r; |
int i,r; |
| for ( i = 0, r = 0; i < DLENGTH; i++ ) r = r * 10 + ( s[i] - '0' ); |
for ( i = 0, r = 0; i < DLENGTH; i++ ) r = r * 10 + ( s[i] - '0' ); |
|
|
| |
|
| extern int ox_do_copy; |
extern int ox_do_copy; |
| |
|
| void yyerror(s) |
void yyerror(char *s) |
| char *s; |
|
| { |
{ |
| if ( main_parser ) |
if ( main_parser ) |
| if ( ox_do_copy ) { |
if ( ox_do_copy ) { |
|
|
| |
|
| extern int read_exec_file, do_fep, do_file; |
extern int read_exec_file, do_fep, do_file; |
| |
|
| int readline_getc(); |
|
| void readline_ungetc(); |
|
| int Egetc(); |
|
| void Eungetc(); |
|
| |
|
| unsigned char encrypt_char(unsigned char); |
unsigned char encrypt_char(unsigned char); |
| unsigned char decrypt_char(unsigned char); |
unsigned char decrypt_char(unsigned char); |
| |
|
| int Egetc(fp) |
int Egetc(FILE *fp) |
| FILE *fp; |
|
| { |
{ |
| int c; |
int c; |
| |
|
|
|
| } |
} |
| } |
} |
| |
|
| void Eungetc(c,fp) |
void Eungetc(int c,FILE *fp) |
| int c; |
|
| FILE *fp; |
|
| { |
{ |
| if ( fp ) { |
if ( fp ) { |
| if ( asir_infile->encoded ) |
if ( asir_infile->encoded ) |
| Line 608 static int Getc() { |
|
| Line 596 static int Getc() { |
|
| return ( c ); |
return ( c ); |
| } |
} |
| |
|
| static void Ungetc(c) { |
static void Ungetc(int c) { |
| if ( main_parser ) { |
if ( main_parser ) { |
| Eungetc(c,asir_infile->fp); |
Eungetc(c,asir_infile->fp); |
| if ( echoback ) |
if ( echoback ) |
| Line 617 static void Ungetc(c) { |
|
| Line 605 static void Ungetc(c) { |
|
| *--parse_strp = c; |
*--parse_strp = c; |
| } |
} |
| |
|
| static void Gets(s) |
static void Gets(char *s) |
| char *s; |
|
| { |
{ |
| int c; |
int c; |
| |
|
| Line 654 void readline_ungetc() |
|
| Line 641 void readline_ungetc() |
|
| readline_nc++; readline_index--; |
readline_nc++; readline_index--; |
| } |
} |
| |
|
| char *readline_console(prompt) |
char *readline_console(char *prompt) |
| char *prompt; |
|
| { |
{ |
| char *line; |
char *line; |
| int exp_result; |
int exp_result; |