AuroraMiddleware/wxWidgets
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Applied patch [ 869522 ] Cleaning of deprecated contrib

Browse Source 
git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@25115 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
This commit is contained in:
Julian Smart 2004-01-11 11:49:40 +00:00
parent 8a094d7ba9
commit 5a410e4453
2 changed files with 306 additions and 256 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

496
contrib/src/deprecated/doslex.c
View File

@ -12,90 +12,102 @@
/* cfront 1.2 defines "c_plusplus" instead of "__cplusplus" */ /* cfront 1.2 defines "c_plusplus" instead of "__cplusplus" */
#ifdef c_plusplus #ifdef c_plusplus
#ifndef __cplusplus #ifndef __cplusplus
#define __cplusplus #define __cplusplus
#endif #endif
#endif #endif
#ifdef __cplusplus #ifdef __cplusplus
#include <stdlib.h> #include <stdlib.h>
#ifdef __SALFORDC__ #ifdef __SALFORDC__
#include <io.h> #include <io.h>
#include <clib.h> #include <clib.h>
#else #else
#include <osfcn.h> #include <osfcn.h>
#endif #endif
#ifdef __VISAGECPP__ #ifdef __VISAGECPP__
#include <io.h> #include <io.h>
#endif #endif
#ifdef __cplusplus #ifdef __cplusplus
static int yyinput() static int yyinput()
#else #else
static int input() static int input()
#endif #endif
/* use prototypes in function declarations */ /* use prototypes in function declarations */
#define YY_USE_PROTOS #define YY_USE_PROTOS
/* the "const" storage-class-modifier is valid */ /* the "const" storage-class-modifier is valid */
#define YY_USE_CONST #define YY_USE_CONST
#else /* ! __cplusplus */ #else /* ! __cplusplus */
#ifdef __STDC__ #ifdef __STDC__
#ifdef __GNUC__ #ifdef __GNUC__
#include <stddef.h> #include <stddef.h>
#else #else
#include <stdlib.h> #include <stdlib.h>
#endif /* __GNUC__ */ #endif /* __GNUC__ */
#define YY_USE_PROTOS #define YY_USE_PROTOS
#define YY_USE_CONST #define YY_USE_CONST
#endif /* __STDC__ */
#ifdef __BORLANDC__
#include <io.h>
#define YY_USE_PROTOS
#define YY_USE_CONST
#endif
#ifdef __MINGW32__
#include <io.h>
#endif
#endif /* __STDC__ */
#endif /* ! __cplusplus */ #endif /* ! __cplusplus */
#ifdef __TURBOC__ #ifdef __TURBOC__
#define YY_USE_CONST #define YY_USE_CONST
#endif #endif
#ifndef YY_USE_CONST #ifndef YY_USE_CONST
#define const #define const
#endif #endif
#ifdef YY_USE_PROTOS #ifdef YY_USE_PROTOS
#define YY_PROTO(proto) proto #define YY_PROTO(proto) proto
#else #else
#define YY_PROTO(proto) () #define YY_PROTO(proto) ()
/* we can't get here if it's an ANSI C compiler, or a C++ compiler, /* we can't get here if it's an ANSI C compiler, or a C++ compiler,
* so it's got to be a K&R compiler, and therefore there's no standard * so it's got to be a K&R compiler, and therefore there's no standard
* place from which to include these definitions * place from which to include these definitions
*/ */
/* /*
char *malloc(); char *malloc();
int free(); int free();
*/ */
#endif #endif
/* amount of stuff to slurp up with each read */ /* amount of stuff to slurp up with each read */
#ifndef YY_READ_BUF_SIZE #ifndef YY_READ_BUF_SIZE
#define YY_READ_BUF_SIZE 8192 #define YY_READ_BUF_SIZE 8192
#endif #endif
/* returned upon end-of-file */ /* returned upon end-of-file */
#define YY_END_TOK 0 #define YY_END_TOK 0
/* copy whatever the last rule matched to the standard output */ /* copy whatever the last rule matched to the standard output */
/* cast to (char *) is because for 8-bit chars, yytext is (unsigned char *) */ /* cast to (char *) is because for 8-bit chars, yytext is (unsigned char *) */
@ -104,6 +116,7 @@ int free();
*/ */
#define ECHO (void) fwrite( (char *) yytext, yyleng, 1, yyout ) #define ECHO (void) fwrite( (char *) yytext, yyleng, 1, yyout )
/* gets input and stuffs it into "buf". number of characters read, or YY_NULL, /* gets input and stuffs it into "buf". number of characters read, or YY_NULL,
* is returned in "result". * is returned in "result".
*/ */
@ -112,12 +125,14 @@ int free();
YY_FATAL_ERROR( "read() in flex scanner failed" ); YY_FATAL_ERROR( "read() in flex scanner failed" );
#define YY_NULL 0 #define YY_NULL 0
/* no semi-colon after return; correct usage is to write "yyterminate();" - /* no semi-colon after return; correct usage is to write "yyterminate();" -
* we don't want an extra ';' after the "return" because that will cause * we don't want an extra ';' after the "return" because that will cause
* some compilers to complain about unreachable statements. * some compilers to complain about unreachable statements.
*/ */
#define yyterminate() return ( YY_NULL ) #define yyterminate() return ( YY_NULL )
/* report a fatal error */ /* report a fatal error */
/* The funky do-while is used to turn this macro definition into /* The funky do-while is used to turn this macro definition into
@ -135,7 +150,7 @@ int free();
*/ */
#if !defined(__VISAGECPP__) #if !defined(__VISAGECPP__)
#define YY_FATAL_ERROR(msg) \ #define YY_FATAL_ERROR(msg) \
do \ do \
{ \ { \
(void) fputs( msg, stderr ); \ (void) fputs( msg, stderr ); \
@ -144,9 +159,9 @@ int free();
} \ } \
while ( 0 ) while ( 0 )
#else #else
/* suppress expression always false warning */ /* suppress expression always false warning */
int os2var = 0; int os2var = 0;
#define YY_FATAL_ERROR(msg) \ #define YY_FATAL_ERROR(msg) \
do \ do \
{ \ { \
(void) fputs( msg, stderr ); \ (void) fputs( msg, stderr ); \
@ -156,6 +171,7 @@ int os2var = 0;
while ( os2var == 0 ) while ( os2var == 0 )
#endif #endif
/* default yywrap function - always treat EOF as an EOF */ /* default yywrap function - always treat EOF as an EOF */
int yywrap(void) { return 1; } int yywrap(void) { return 1; }
@ -171,7 +187,7 @@ int yywrap(void) { return 1; }
/* special action meaning "start processing a new file" */ /* special action meaning "start processing a new file" */
#if !defined(__VISAGECPP__) #if !defined(__VISAGECPP__)
#define YY_NEW_FILE \ #define YY_NEW_FILE \
do \ do \
{ \ { \
yy_init_buffer( yy_current_buffer, yyin ); \ yy_init_buffer( yy_current_buffer, yyin ); \
@ -179,7 +195,7 @@ int yywrap(void) { return 1; }
} \ } \
while ( 0 ) while ( 0 )
#else #else
#define YY_NEW_FILE \ #define YY_NEW_FILE \
do \ do \
{ \ { \
yy_init_buffer( yy_current_buffer, yyin ); \ yy_init_buffer( yy_current_buffer, yyin ); \
@ -188,26 +204,25 @@ int yywrap(void) { return 1; }
while ( os2var == 0 ) while ( os2var == 0 )
#endif #endif
/* default declaration of generated scanner - a define so the user can /* default declaration of generated scanner - a define so the user can
* easily add parameters * easily add parameters
*/ */
#define YY_DECL int yylex YY_PROTO(( void )) #define YY_DECL int yylex YY_PROTO(( void ))
/* code executed at the end of each rule */
#define YY_BREAK break;
#define YY_END_OF_BUFFER_CHAR 0 #define YY_END_OF_BUFFER_CHAR 0
#ifndef YY_BUF_SIZE #ifndef YY_BUF_SIZE
#define YY_BUF_SIZE (YY_READ_BUF_SIZE * 2) /* size of default input buffer */ #define YY_BUF_SIZE (YY_READ_BUF_SIZE * 2) /* size of default input buffer */
#endif #endif
typedef struct yy_buffer_state *YY_BUFFER_STATE; typedef struct yy_buffer_state *YY_BUFFER_STATE;
#define YY_CHAR unsigned char #define YY_CHAR unsigned char
# line 1 "lexer.l" // # line 1 "lexer.l"
#define INITIAL 0 #define INITIAL 0
# line 9 "lexer.l" // # line 9 "lexer.l"
/* /*
* File: lexer.l * File: lexer.l
* Description: Lexical analyser for PROLOGIO; can be used with * Description: Lexical analyser for PROLOGIO; can be used with
@ -220,18 +235,17 @@ typedef struct yy_buffer_state *YY_BUFFER_STATE;
*/ */
#if defined(FLEX_SCANNER) && defined(_LINUX) #if defined(FLEX_SCANNER) && defined(_LINUX)
#define PROIO_input my_input #define PROIO_input my_input
#endif #endif
/* ---steve162e */ /* ---steve162e */
#include "wx/deprecated/expr.h" #include "wx/deprecated/expr.h"
#ifdef wx_x #ifdef wx_x
extern char *malloc(); extern char *malloc();
#endif #endif
#define Return(x) return x;
#if defined(VMS) && ( __VMS_VER < 70000000 ) #if defined(VMS) && ( __VMS_VER < 70000000 )
#define strdup(s) (strcpy((char *)malloc(strlen(s)+1), s)); #define strdup(s) (strcpy((char *)malloc(strlen(s)+1), s));
#endif #endif
static size_t lex_buffer_length = 0; static size_t lex_buffer_length = 0;
@ -240,28 +254,34 @@ static size_t lex_string_ptr = 0;
static int lex_read_from_string = 0; static int lex_read_from_string = 0;
static int my_input(void); static int my_input(void);
static int my_unput(char); #ifndef FLEX_SCANNER
static int my_unput(char);
#endif
#ifdef FLEX_SCANNER #ifdef FLEX_SCANNER
#undef YY_INPUT #undef YY_INPUT
# define YY_INPUT(buf,result,max_size) \ #define YY_INPUT(buf,result,max_size) \
if (lex_read_from_string) \ if (lex_read_from_string) \
{ int c = my_input(); result = (c == 0) ? YY_NULL : ((buf)[0]=(c), 1); } \ { \
int c = my_input(); \
result = (c == 0) ? YY_NULL : ((buf)[0]=(c), 1); \
} \
else \ else \
if ( (result = read( fileno(yyin), (char *) buf, max_size )) < 0 ) \ if ( (result = read( fileno(yyin), (char *) buf, max_size )) < 0 ) \
YY_FATAL_ERROR( "read() in flex scanner failed" ); YY_FATAL_ERROR( "read() in flex scanner failed" );
#else #else
# ifndef unput #ifndef unput
# undef unput #undef unput
# endif #endif
# define unput(_c) my_unput(_c) #define unput(_c) my_unput(_c)
#endif #endif
# line 58 "lexer.l" // # line 58 "lexer.l"
/* done after the current pattern has been matched and before the /* done after the current pattern has been matched and before the
* corresponding action - sets up yytext * corresponding action - sets up yytext
*/ */
#define YY_DO_BEFORE_ACTION \ #define YY_DO_BEFORE_ACTION \
yytext = yy_bp; \ yytext = yy_bp; \
yyleng = yy_cp - yy_bp; \ yyleng = yy_cp - yy_bp; \
@ -275,7 +295,7 @@ static int my_unput(char);
/* return all but the first 'n' matched characters back to the input stream */ /* return all but the first 'n' matched characters back to the input stream */
#if !defined(__VISAGECPP__) #if !defined(__VISAGECPP__)
#define yyless(n) \ #define yyless(n) \
do \ do \
{ \ { \
/* undo effects of setting up yytext */ \ /* undo effects of setting up yytext */ \
@ -285,7 +305,7 @@ static int my_unput(char);
} \ } \
while ( 0 ) while ( 0 )
#else #else
#define yyless(n) \ #define yyless(n) \
do \ do \
{ \ { \
/* undo effects of setting up yytext */ \ /* undo effects of setting up yytext */ \
@ -299,9 +319,8 @@ static int my_unput(char);
#undef unput #undef unput
#define unput(c) yyunput( c, yytext ) #define unput(c) yyunput( c, yytext )
struct yy_buffer_state struct yy_buffer_state
{ {
FILE *yy_input_file; FILE *yy_input_file;
YY_CHAR *yy_ch_buf; /* input buffer */ YY_CHAR *yy_ch_buf; /* input buffer */
@ -314,13 +333,16 @@ struct yy_buffer_state
int yy_n_chars; int yy_n_chars;
int yy_eof_status; /* whether we've seen an EOF on this buffer */ int yy_eof_status; /* whether we've seen an EOF on this buffer */
#define EOF_NOT_SEEN 0 #define EOF_NOT_SEEN 0
/* "pending" happens when the EOF has been seen but there's still /* "pending" happens when the EOF has been seen but there's still
* some text process * some text process
*/ */
#define EOF_PENDING 1 #define EOF_PENDING 1
#define EOF_DONE 2 #define EOF_DONE 2
}; };
static YY_BUFFER_STATE yy_current_buffer; static YY_BUFFER_STATE yy_current_buffer;
@ -339,11 +361,11 @@ static int yy_n_chars; /* number of characters read into yy_ch_buf */
#ifndef YY_USER_ACTION #ifndef YY_USER_ACTION
#define YY_USER_ACTION #define YY_USER_ACTION
#endif #endif
#ifndef YY_USER_INIT #ifndef YY_USER_INIT
#define YY_USER_INIT #define YY_USER_INIT
#endif #endif
extern YY_CHAR *yytext; extern YY_CHAR *yytext;
@ -480,9 +502,9 @@ void yy_init_buffer YY_PROTO(( YY_BUFFER_STATE b, FILE *file ));
#define yy_new_buffer yy_create_buffer #define yy_new_buffer yy_create_buffer
#ifdef __cplusplus #ifdef __cplusplus
static int yyinput YY_PROTO(( void )); static int yyinput YY_PROTO(( void ));
#else #else
static int input YY_PROTO(( void )); static int input YY_PROTO(( void ));
#endif #endif
YY_DECL YY_DECL
@ -570,98 +592,126 @@ do_action: /* this label is used only to access EOF actions */
switch ( yy_act ) switch ( yy_act )
{ {
case 0: /* must backtrack */ case 0: /* must backtrack */
{
/* undo the effects of YY_DO_BEFORE_ACTION */ /* undo the effects of YY_DO_BEFORE_ACTION */
*yy_cp = yy_hold_char; *yy_cp = yy_hold_char;
yy_cp = yy_last_accepting_cpos; yy_cp = yy_last_accepting_cpos;
yy_current_state = yy_last_accepting_state; yy_current_state = yy_last_accepting_state;
goto yy_find_action; goto yy_find_action;
}
case 1: case 1:
# line 60 "lexer.l" {
{yylval.s = strdup((const char*) yytext); Return(INTEGER);} yylval.s = strdup((const char*) yytext);
YY_BREAK return INTEGER;
case 2: }
# line 62 "lexer.l"
Return(EXP); case 2:
YY_BREAK {
case 3: return EXP;
# line 64 "lexer.l" }
{yylval.s = strdup((const char*) yytext); Return(WORD);}
YY_BREAK case 3:
case 4: {
# line 66 "lexer.l" yylval.s = strdup((const char*) yytext);
{int len = strlen((const char*) yytext); return WORD;
}
case 4:
{
int len = strlen((const char*) yytext);
yytext[len-1] = 0; yytext[len-1] = 0;
yylval.s = strdup((const char*) (yytext+1)); yylval.s = strdup((const char*) (yytext+1));
Return(WORD);} return WORD;
YY_BREAK }
case 5:
# line 71 "lexer.l" case 5:
{yylval.s = strdup((const char*) yytext); Return(STRING);} {
YY_BREAK yylval.s = strdup((const char*) yytext);
case 6: return STRING;
# line 73 "lexer.l" }
Return(OPEN);
YY_BREAK case 6:
case 7: {
# line 75 "lexer.l" return OPEN;
Return(CLOSE); }
YY_BREAK
case 8: case 7:
# line 77 "lexer.l" {
Return(COMMA); return CLOSE;
YY_BREAK }
case 9:
# line 79 "lexer.l" case 8:
Return(OPEN_SQUARE); {
YY_BREAK return COMMA;
case 10: }
# line 81 "lexer.l"
Return(CLOSE_SQUARE); case 9:
YY_BREAK {
case 11: return OPEN_SQUARE;
# line 83 "lexer.l" }
Return(EQUALS);
YY_BREAK case 10:
case 12: {
# line 85 "lexer.l" return CLOSE_SQUARE;
Return(PERIOD); }
YY_BREAK
case 13: case 11:
# line 87 "lexer.l" {
; return EQUALS;
YY_BREAK }
case 14:
# line 89 "lexer.l" case 12:
; {
YY_BREAK return PERIOD;
case 15: }
# line 91 "lexer.l"
{ loop: case 13:
#ifdef __cplusplus {
break;
}
case 14:
{
break;
}
case 15:
{
loop:
#ifdef __cplusplus
while (yyinput() != '*'); while (yyinput() != '*');
switch (yyinput()) switch (yyinput())
#else #else
while (input() != '*'); while (input() != '*');
switch (input()) switch (input())
#endif #endif
{
case '/':
break;
case '*':
unput('*');
default:
goto loop;
}
break;
}
case 16:
{ {
case '/': break; return ERROR;
case '*': unput('*');
default: goto loop;
} }
case 17:
{
ECHO;
break;
} }
YY_BREAK
case 16: case YY_STATE_EOF(INITIAL):
# line 106 "lexer.l" {
Return(ERROR);
YY_BREAK
case 17:
# line 108 "lexer.l"
ECHO;
YY_BREAK
case YY_STATE_EOF(INITIAL):
yyterminate(); yyterminate();
}
case YY_END_OF_BUFFER: case YY_END_OF_BUFFER:
{ {
@ -706,7 +756,6 @@ case YY_STATE_EOF(INITIAL):
yy_current_state = yy_next_state; yy_current_state = yy_next_state;
goto yy_match; goto yy_match;
} }
else else
{ {
yy_cp = yy_last_accepting_cpos; yy_cp = yy_last_accepting_cpos;
@ -714,7 +763,6 @@ case YY_STATE_EOF(INITIAL):
goto yy_find_action; goto yy_find_action;
} }
} }
else switch ( yy_get_next_buffer() ) else switch ( yy_get_next_buffer() )
{ {
case EOB_ACT_END_OF_FILE: case EOB_ACT_END_OF_FILE:
@ -736,7 +784,6 @@ case YY_STATE_EOF(INITIAL):
yy_act = YY_STATE_EOF((yy_start - 1) / 2); yy_act = YY_STATE_EOF((yy_start - 1) / 2);
goto do_action; goto do_action;
} }
else else
{ {
if ( ! yy_did_buffer_switch_on_eof ) if ( ! yy_did_buffer_switch_on_eof )
@ -755,8 +802,7 @@ case YY_STATE_EOF(INITIAL):
goto yy_match; goto yy_match;
case EOB_ACT_LAST_MATCH: case EOB_ACT_LAST_MATCH:
yy_c_buf_p = yy_c_buf_p = &yy_current_buffer->yy_ch_buf[yy_n_chars];
&yy_current_buffer->yy_ch_buf[yy_n_chars];
yy_current_state = yy_get_previous_state(); yy_current_state = yy_get_previous_state();
@ -771,10 +817,10 @@ case YY_STATE_EOF(INITIAL):
#ifdef FLEX_DEBUG #ifdef FLEX_DEBUG
printf( "action # %d\n", yy_act ); printf( "action # %d\n", yy_act );
#endif #endif
YY_FATAL_ERROR( YY_FATAL_ERROR("fatal flex scanner internal error--no action found" );
"fatal flex scanner internal error--no action found" );
} }
} }
#if defined(__VISAGECPP__) #if defined(__VISAGECPP__)
/* VA complains about proc maybe not returning a value so return one */ /* VA complains about proc maybe not returning a value so return one */
return 0; return 0;
@ -794,8 +840,7 @@ return 0;
*/ */
static int yy_get_next_buffer() static int yy_get_next_buffer()
{
{
register YY_CHAR *dest = yy_current_buffer->yy_ch_buf; register YY_CHAR *dest = yy_current_buffer->yy_ch_buf;
register YY_CHAR *source = yytext - 1; /* copy prev. char, too */ register YY_CHAR *source = yytext - 1; /* copy prev. char, too */
register int number_to_move, i; register int number_to_move, i;
@ -865,7 +910,7 @@ static int yy_get_next_buffer()
yytext = &yy_current_buffer->yy_ch_buf[1]; yytext = &yy_current_buffer->yy_ch_buf[1];
return ( ret_val ); return ( ret_val );
} }
/* yy_get_previous_state - get the state just before the EOB char was reached /* yy_get_previous_state - get the state just before the EOB char was reached
@ -875,8 +920,7 @@ static int yy_get_next_buffer()
*/ */
static yy_state_type yy_get_previous_state() static yy_state_type yy_get_previous_state()
{
{
register yy_state_type yy_current_state; register yy_state_type yy_current_state;
register YY_CHAR *yy_cp; register YY_CHAR *yy_cp;
@ -900,7 +944,7 @@ static yy_state_type yy_get_previous_state()
} }
return ( yy_current_state ); return ( yy_current_state );
} }
/* yy_try_NUL_trans - try to make a transition on the NUL character /* yy_try_NUL_trans - try to make a transition on the NUL character
@ -915,8 +959,7 @@ static yy_state_type yy_try_NUL_trans( register yy_state_type yy_current_state )
static yy_state_type yy_try_NUL_trans( yy_current_state ) static yy_state_type yy_try_NUL_trans( yy_current_state )
register yy_state_type yy_current_state; register yy_state_type yy_current_state;
#endif #endif
{
{
register int yy_is_jam; register int yy_is_jam;
register YY_CHAR *yy_cp = yy_c_buf_p; register YY_CHAR *yy_cp = yy_c_buf_p;
@ -936,7 +979,7 @@ register yy_state_type yy_current_state;
yy_is_jam = (yy_current_state == 33); yy_is_jam = (yy_current_state == 33);
return ( yy_is_jam ? 0 : yy_current_state ); return ( yy_is_jam ? 0 : yy_current_state );
} }
#ifdef YY_USE_PROTOS #ifdef YY_USE_PROTOS
@ -946,8 +989,7 @@ static void yyunput( c, yy_bp )
YY_CHAR c; YY_CHAR c;
register YY_CHAR *yy_bp; register YY_CHAR *yy_bp;
#endif #endif
{
{
register YY_CHAR *yy_cp = yy_c_buf_p; register YY_CHAR *yy_cp = yy_c_buf_p;
/* undo effects of setting up yytext */ /* undo effects of setting up yytext */
@ -981,7 +1023,7 @@ register YY_CHAR *yy_bp;
* macro to now work correctly * macro to now work correctly
*/ */
YY_DO_BEFORE_ACTION; /* set up yytext again */ YY_DO_BEFORE_ACTION; /* set up yytext again */
} }
#ifdef __cplusplus #ifdef __cplusplus
@ -989,8 +1031,7 @@ static int yyinput()
#else #else
static int input() static int input()
#endif #endif
{
{
int c; int c;
YY_CHAR *yy_cp = yy_c_buf_p; YY_CHAR *yy_cp = yy_c_buf_p;
@ -1003,9 +1044,9 @@ static int input()
* valid NUL; if not, then we've hit the end of the buffer. * valid NUL; if not, then we've hit the end of the buffer.
*/ */
if ( yy_c_buf_p < &yy_current_buffer->yy_ch_buf[yy_n_chars] ) if ( yy_c_buf_p < &yy_current_buffer->yy_ch_buf[yy_n_chars] )
/* this was really a NUL */ { /* this was really a NUL */
*yy_c_buf_p = '\0'; *yy_c_buf_p = '\0';
}
else else
{ /* need more input */ { /* need more input */
yytext = yy_c_buf_p; yytext = yy_c_buf_p;
@ -1020,27 +1061,25 @@ static int input()
yy_c_buf_p = yytext + YY_MORE_ADJ; yy_c_buf_p = yytext + YY_MORE_ADJ;
return ( EOF ); return ( EOF );
} }
YY_NEW_FILE; YY_NEW_FILE;
#ifdef __cplusplus #ifdef __cplusplus
return ( yyinput() ); return ( yyinput() );
#else #else
return ( input() ); return ( input() );
#endif #endif
} }
break;
case EOB_ACT_CONTINUE_SCAN: case EOB_ACT_CONTINUE_SCAN:
yy_c_buf_p = yytext + YY_MORE_ADJ; yy_c_buf_p = yytext + YY_MORE_ADJ;
break; break;
case EOB_ACT_LAST_MATCH: case EOB_ACT_LAST_MATCH:
#ifdef __cplusplus #ifdef __cplusplus
YY_FATAL_ERROR( "unexpected last match in yyinput()" ); YY_FATAL_ERROR( "unexpected last match in yyinput()" );
#else #else
YY_FATAL_ERROR( "unexpected last match in input()" ); YY_FATAL_ERROR( "unexpected last match in input()" );
#endif #endif
} }
} }
} }
@ -1049,7 +1088,7 @@ static int input()
yy_hold_char = *++yy_c_buf_p; yy_hold_char = *++yy_c_buf_p;
return ( c ); return ( c );
} }
#ifdef YY_USE_PROTOS #ifdef YY_USE_PROTOS
@ -1058,11 +1097,10 @@ void yyrestart( FILE *input_file )
void yyrestart( input_file ) void yyrestart( input_file )
FILE *input_file; FILE *input_file;
#endif #endif
{
{
yy_init_buffer( yy_current_buffer, input_file ); yy_init_buffer( yy_current_buffer, input_file );
yy_load_buffer_state(); yy_load_buffer_state();
} }
#ifdef YY_USE_PROTOS #ifdef YY_USE_PROTOS
@ -1071,8 +1109,7 @@ void yy_switch_to_buffer( YY_BUFFER_STATE new_buffer )
void yy_switch_to_buffer( new_buffer ) void yy_switch_to_buffer( new_buffer )
YY_BUFFER_STATE new_buffer; YY_BUFFER_STATE new_buffer;
#endif #endif
{
{
if ( yy_current_buffer == new_buffer ) if ( yy_current_buffer == new_buffer )
return; return;
@ -1093,7 +1130,7 @@ YY_BUFFER_STATE new_buffer;
* to go ahead and always set it. * to go ahead and always set it.
*/ */
yy_did_buffer_switch_on_eof = 1; yy_did_buffer_switch_on_eof = 1;
} }
#ifdef YY_USE_PROTOS #ifdef YY_USE_PROTOS
@ -1101,13 +1138,12 @@ void yy_load_buffer_state( void )
#else #else
void yy_load_buffer_state() void yy_load_buffer_state()
#endif #endif
{
{
yy_n_chars = yy_current_buffer->yy_n_chars; yy_n_chars = yy_current_buffer->yy_n_chars;
yytext = yy_c_buf_p = yy_current_buffer->yy_buf_pos; yytext = yy_c_buf_p = yy_current_buffer->yy_buf_pos;
yyin = yy_current_buffer->yy_input_file; yyin = yy_current_buffer->yy_input_file;
yy_hold_char = *yy_c_buf_p; yy_hold_char = *yy_c_buf_p;
} }
#ifdef YY_USE_PROTOS #ifdef YY_USE_PROTOS
@ -1117,8 +1153,7 @@ YY_BUFFER_STATE yy_create_buffer( file, size )
FILE *file; FILE *file;
int size; int size;
#endif #endif
{
{
YY_BUFFER_STATE b; YY_BUFFER_STATE b;
b = (YY_BUFFER_STATE) malloc( sizeof( struct yy_buffer_state ) ); b = (YY_BUFFER_STATE) malloc( sizeof( struct yy_buffer_state ) );
@ -1139,7 +1174,7 @@ int size;
yy_init_buffer( b, file ); yy_init_buffer( b, file );
return ( b ); return ( b );
} }
#ifdef YY_USE_PROTOS #ifdef YY_USE_PROTOS
@ -1148,14 +1183,13 @@ void yy_delete_buffer( YY_BUFFER_STATE b )
void yy_delete_buffer( b ) void yy_delete_buffer( b )
YY_BUFFER_STATE b; YY_BUFFER_STATE b;
#endif #endif
{
{
if ( b == yy_current_buffer ) if ( b == yy_current_buffer )
yy_current_buffer = (YY_BUFFER_STATE) 0; yy_current_buffer = (YY_BUFFER_STATE) 0;
free( (char *) b->yy_ch_buf ); free( (char *) b->yy_ch_buf );
free( (char *) b ); free( (char *) b );
} }
#ifdef YY_USE_PROTOS #ifdef YY_USE_PROTOS
@ -1165,8 +1199,7 @@ void yy_init_buffer( b, file )
YY_BUFFER_STATE b; YY_BUFFER_STATE b;
FILE *file; FILE *file;
#endif #endif
{
{
b->yy_input_file = file; b->yy_input_file = file;
/* we put in the '\n' and start reading from [1] so that an /* we put in the '\n' and start reading from [1] so that an
@ -1186,43 +1219,49 @@ FILE *file;
b->yy_buf_pos = &b->yy_ch_buf[1]; b->yy_buf_pos = &b->yy_ch_buf[1];
b->yy_eof_status = EOF_NOT_SEEN; b->yy_eof_status = EOF_NOT_SEEN;
} }
# line 108 "lexer.l" // # line 108 "lexer.l"
#ifdef FLEX_SCANNER #ifdef FLEX_SCANNER
static int lex_input() { static int lex_input()
{
return input(); return input();
} }
#else /* BSD/AT&T lex */ #else /* BSD/AT&T lex */
#ifndef input #ifndef input
# error "Sorry, but need either flex or AT&T lex" #error "Sorry, but need either flex or AT&T lex"
#endif #endif
static int lex_input() { static int lex_input() {
return input(); return input();
} }
/* # undef unput
# define unput(_c) my_unput(_c)
*/
# undef input /*
# define input() my_input() # undef unput
static int my_unput(char c) # define unput(_c) my_unput(_c)
{ */
if (lex_read_from_string) {
# undef input
# define input() my_input()
static int my_unput(char c)
{
if (lex_read_from_string)
{
/* Make sure we have something */ /* Make sure we have something */
if (lex_string_ptr) { if (lex_string_ptr)
{
if (c == '\n') yylineno--; if (c == '\n') yylineno--;
lex_string_ptr--; lex_string_ptr--;
} }
} else { }
else
{
yytchar= (c);if(yytchar=='\n')yylineno--;*yysptr++=yytchar; yytchar= (c);if(yytchar=='\n')yylineno--;*yysptr++=yytchar;
/* unput(c); Causes infinite recursion! */ /* unput(c); Causes infinite recursion! */
} }
return c; return c;
} }
#endif #endif
/* Public */ /* Public */
@ -1254,17 +1293,23 @@ void LexFromString(char *buffer)
static int my_input( void ) static int my_input( void )
{ {
if (lex_read_from_string) { if (lex_read_from_string)
{
if (lex_string_ptr == lex_buffer_length) if (lex_string_ptr == lex_buffer_length)
{
return 0; return 0;
else { }
else
{
char c = lex_buffer[lex_string_ptr++]; char c = lex_buffer[lex_string_ptr++];
#ifndef FLEX_SCANNER #ifndef FLEX_SCANNER
if (c == '\n') yylineno++; if (c == '\n') yylineno++;
#endif #endif
return c; return c;
} }
} else { }
else
{
return lex_input(); return lex_input();
} }
} }
@ -1274,3 +1319,4 @@ void wxExprCleanUp()
if (yy_current_buffer) if (yy_current_buffer)
yy_delete_buffer(yy_current_buffer); yy_delete_buffer(yy_current_buffer);
} }

66
contrib/src/deprecated/dosyacc.c
View File

@ -5,11 +5,11 @@
#if !defined(wxUSE_PROLOGIO) || wxUSE_PROLOGIO #if !defined(wxUSE_PROLOGIO) || wxUSE_PROLOGIO
#ifndef lint #if !defined(lint) && 0
static char yysccsid[] = "@(#)yaccpar 1.7 (Berkeley) 09/09/90"; static char yysccsid[] = "@(#)yaccpar 1.7 (Berkeley) 09/09/90";
#endif #endif
#define YYBYACC 1 #define YYBYACC 1
#line 2 "parser.y" // #line 2 "parser.y"
#include "string.h" #include "string.h"
#if defined(_MSC_VER) || defined(__VISAGECPP__) #if defined(_MSC_VER) || defined(__VISAGECPP__)
#include <io.h> #include <io.h>
@ -45,12 +45,12 @@ void yyoutput(int);
} }
#endif #endif
#endif #endif
#line 36 "parser.y" // #line 36 "parser.y"
typedef union { typedef union {
char *s; char *s;
/* struct pexpr *expr; */ /* struct pexpr *expr; */
} YYSTYPE; } YYSTYPE;
#line 44 "y_tab.c" // #line 44 "y_tab.c"
#define INTEGER 1 #define INTEGER 1
#define WORD 2 #define WORD 2
#define STRING 3 #define STRING 3
@ -213,7 +213,7 @@ YYSTYPE yylval;
short yyss[YYSTACKSIZE]; short yyss[YYSTACKSIZE];
YYSTYPE yyvs[YYSTACKSIZE]; YYSTYPE yyvs[YYSTACKSIZE];
#define yystacksize YYSTACKSIZE #define yystacksize YYSTACKSIZE
#line 118 "parser.y" // #line 118 "parser.y"
#include "doslex.c" #include "doslex.c"
@ -259,7 +259,7 @@ void yyerror(char *s)
#endif #endif
#endif #endif
#line 247 "y_tab.c" // #line 247 "y_tab.c"
#define YYABORT goto yyabort #define YYABORT goto yyabort
#define YYACCEPT goto yyaccept #define YYACCEPT goto yyaccept
#define YYERROR goto yyerrlab #define YYERROR goto yyerrlab
@ -305,7 +305,8 @@ yyloop:
} }
#endif #endif
} }
if ((yyn = yysindex[yystate]) && (yyn += yychar) >= 0 && yyn = yysindex[yystate];
if ((yyn) && (yyn += yychar) >= 0 &&
yyn <= YYTABLESIZE && yycheck[yyn] == yychar) yyn <= YYTABLESIZE && yycheck[yyn] == yychar)
{ {
#if YYDEBUG #if YYDEBUG
@ -323,7 +324,8 @@ yyloop:
if (yyerrflag > 0) --yyerrflag; if (yyerrflag > 0) --yyerrflag;
goto yyloop; goto yyloop;
} }
if ((yyn = yyrindex[yystate]) && (yyn += yychar) >= 0 && yyn = yyrindex[yystate];
if ((yyn) && (yyn += yychar) >= 0 &&
yyn <= YYTABLESIZE && yycheck[yyn] == yychar) yyn <= YYTABLESIZE && yycheck[yyn] == yychar)
{ {
yyn = yytable[yyn]; yyn = yytable[yyn];
@ -332,13 +334,13 @@ yyloop:
if (yyerrflag) goto yyinrecovery; if (yyerrflag) goto yyinrecovery;
#ifdef lint #ifdef lint
goto yynewerror; goto yynewerror;
#endif
yynewerror: yynewerror:
#endif
yyerror("syntax error"); yyerror("syntax error");
#ifdef lint #ifdef lint
goto yyerrlab; goto yyerrlab;
#endif
yyerrlab: yyerrlab:
#endif
++yynerrs; ++yynerrs;
yyinrecovery: yyinrecovery:
if (yyerrflag < 3) if (yyerrflag < 3)
@ -346,7 +348,8 @@ yyinrecovery:
yyerrflag = 3; yyerrflag = 3;
for (;;) for (;;)
{ {
if ((yyn = yysindex[*yyssp]) && (yyn += YYERRCODE) >= 0 && yyn = yysindex[*yyssp];
if ((yyn) && (yyn += YYERRCODE) >= 0 &&
yyn <= YYTABLESIZE && yycheck[yyn] == YYERRCODE) yyn <= YYTABLESIZE && yycheck[yyn] == YYERRCODE)
{ {
#if YYDEBUG #if YYDEBUG
@ -402,80 +405,80 @@ yyreduce:
switch (yyn) switch (yyn)
{ {
case 3: case 3:
#line 68 "parser.y" // #line 68 "parser.y"
{process_command(proio_cons(wxmake_word(yyvsp[-1].s), NULL)); free(yyvsp[-1].s);} {process_command(proio_cons(wxmake_word(yyvsp[-1].s), NULL)); free(yyvsp[-1].s);}
break; break;
case 4: case 4:
#line 70 "parser.y" // #line 70 "parser.y"
{process_command(yyvsp[-1].s);} {process_command(yyvsp[-1].s);}
break; break;
case 5: case 5:
#line 72 "parser.y" // #line 72 "parser.y"
{syntax_error("Unrecognized command.");} {syntax_error("Unrecognized command.");}
break; break;
case 6: case 6:
#line 76 "parser.y" // #line 76 "parser.y"
{yyval.s = proio_cons(wxmake_word(yyvsp[-3].s), yyvsp[-1].s); free(yyvsp[-3].s);} {yyval.s = proio_cons(wxmake_word(yyvsp[-3].s), yyvsp[-1].s); free(yyvsp[-3].s);}
break; break;
case 7: case 7:
#line 78 "parser.y" // #line 78 "parser.y"
{yyval.s = proio_cons(NULL, NULL);} {yyval.s = proio_cons(NULL, NULL);}
break; break;
case 8: case 8:
#line 80 "parser.y" // #line 80 "parser.y"
{yyval.s = yyvsp[-1].s; } {yyval.s = yyvsp[-1].s; }
break; break;
case 9: case 9:
#line 84 "parser.y" // #line 84 "parser.y"
{yyval.s = NULL;} {yyval.s = NULL;}
break; break;
case 10: case 10:
#line 86 "parser.y" // #line 86 "parser.y"
{yyval.s = proio_cons(yyvsp[0].s, NULL);} {yyval.s = proio_cons(yyvsp[0].s, NULL);}
break; break;
case 11: case 11:
#line 89 "parser.y" // #line 89 "parser.y"
{yyval.s = proio_cons(yyvsp[-2].s, yyvsp[0].s);} {yyval.s = proio_cons(yyvsp[-2].s, yyvsp[0].s);}
break; break;
case 12: case 12:
#line 93 "parser.y" // #line 93 "parser.y"
{yyval.s = proio_cons(wxmake_word("="), proio_cons(wxmake_word(yyvsp[-2].s), proio_cons(yyvsp[0].s, NULL))); {yyval.s = proio_cons(wxmake_word("="), proio_cons(wxmake_word(yyvsp[-2].s), proio_cons(yyvsp[0].s, NULL)));
free(yyvsp[-2].s); } free(yyvsp[-2].s); }
break; break;
case 13: case 13:
#line 96 "parser.y" // #line 96 "parser.y"
{yyval.s = yyvsp[0].s; } {yyval.s = yyvsp[0].s; }
break; break;
case 14: case 14:
#line 99 "parser.y" // #line 99 "parser.y"
{yyval.s = wxmake_word(yyvsp[0].s); free(yyvsp[0].s);} {yyval.s = wxmake_word(yyvsp[0].s); free(yyvsp[0].s);}
break; break;
case 15: case 15:
#line 101 "parser.y" // #line 101 "parser.y"
{yyval.s = wxmake_string(yyvsp[0].s); free(yyvsp[0].s);} {yyval.s = wxmake_string(yyvsp[0].s); free(yyvsp[0].s);}
break; break;
case 16: case 16:
#line 103 "parser.y" // #line 103 "parser.y"
{yyval.s = wxmake_integer(yyvsp[0].s); free(yyvsp[0].s);} {yyval.s = wxmake_integer(yyvsp[0].s); free(yyvsp[0].s);}
break; break;
case 17: case 17:
#line 105 "parser.y" // #line 105 "parser.y"
{yyval.s = wxmake_real(yyvsp[-2].s, yyvsp[0].s); free(yyvsp[-2].s); free(yyvsp[0].s); } {yyval.s = wxmake_real(yyvsp[-2].s, yyvsp[0].s); free(yyvsp[-2].s); free(yyvsp[0].s); }
break; break;
case 18: case 18:
#line 107 "parser.y" // #line 107 "parser.y"
{yyval.s = wxmake_exp(yyvsp[-2].s, yyvsp[0].s); free(yyvsp[-2].s); free(yyvsp[0].s); } {yyval.s = wxmake_exp(yyvsp[-2].s, yyvsp[0].s); free(yyvsp[-2].s); free(yyvsp[0].s); }
break; break;
case 19: case 19:
#line 110 "parser.y" // #line 110 "parser.y"
{yyval.s = wxmake_exp2(yyvsp[-4].s, yyvsp[-2].s, yyvsp[0].s); free(yyvsp[-4].s); free(yyvsp[-2].s); {yyval.s = wxmake_exp2(yyvsp[-4].s, yyvsp[-2].s, yyvsp[0].s); free(yyvsp[-4].s); free(yyvsp[-2].s);
free(yyvsp[0].s); } free(yyvsp[0].s); }
break; break;
case 20: case 20:
#line 114 "parser.y" // #line 114 "parser.y"
{yyval.s = yyvsp[0].s;} {yyval.s = yyvsp[0].s;}
break; break;
#line 461 "y_tab.c" // #line 461 "y_tab.c"
} }
yyssp -= yym; yyssp -= yym;
yystate = *yyssp; yystate = *yyssp;
@ -508,7 +511,8 @@ break;
if (yychar == 0) goto yyaccept; if (yychar == 0) goto yyaccept;
goto yyloop; goto yyloop;
} }
if ((yyn = yygindex[yym]) && (yyn += yystate) >= 0 && yyn = yygindex[yym];
if ((yyn) && (yyn += yystate) >= 0 &&
yyn <= YYTABLESIZE && yycheck[yyn] == yystate) yyn <= YYTABLESIZE && yycheck[yyn] == yystate)
yystate = yytable[yyn]; yystate = yytable[yyn];
else else