diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/post/goom/Makefile.am | 2 | ||||
| -rw-r--r-- | src/post/goom/goomsl_lex.c | 2108 | ||||
| -rw-r--r-- | src/post/goom/goomsl_yacc.c | 2997 | ||||
| -rw-r--r-- | src/post/goom/mmx.c | 2 | ||||
| -rw-r--r-- | src/post/goom/mmx.h | 2 | ||||
| -rw-r--r-- | src/post/goom/xmmx.c | 2 |
6 files changed, 7 insertions, 5106 deletions
diff --git a/src/post/goom/Makefile.am b/src/post/goom/Makefile.am index 22b4af79f..81e2eff32 100644 --- a/src/post/goom/Makefile.am +++ b/src/post/goom/Makefile.am @@ -30,7 +30,7 @@ xinepost_LTLIBRARIES = xineplug_post_goom.la xineplug_post_goom_la_SOURCES = mmx.c xine_goom.c \ config_param.c convolve_fx.c cpu_info.c drawmethods.c filters.c flying_stars_fx.c \ gfontlib.c goom_core.c goom_tools.c goomsl.c goomsl_hash.c goomsl_heap.c \ - goomsl_lex.c goomsl_yacc.c graphic.c ifs.c lines.c \ + graphic.c ifs.c lines.c \ plugin_info.c sound_tester.c surf3d.c tentacle3d.c v3d.c xineplug_post_goom_la_LIBADD = $(XINE_LIB) $(GOOM_LIBS) $(PTHREAD_LIBS) $(LTLIBINTL) -lm $(noinst_LTLIBRARIES) xineplug_post_goom_la_CFLAGS = $(DEFAULT_OCFLAGS) $(AM_CFLAGS) diff --git a/src/post/goom/goomsl_lex.c b/src/post/goom/goomsl_lex.c deleted file mode 100644 index 988fb99da..000000000 --- a/src/post/goom/goomsl_lex.c +++ /dev/null @@ -1,2108 +0,0 @@ -#line 2 "goomsl_lex.c" - -#line 4 "goomsl_lex.c" - -#define YY_INT_ALIGNED short int - -/* A lexical scanner generated by flex */ - -#define FLEX_SCANNER -#define YY_FLEX_MAJOR_VERSION 2 -#define YY_FLEX_MINOR_VERSION 5 -#define YY_FLEX_SUBMINOR_VERSION 31 -#if YY_FLEX_SUBMINOR_VERSION > 0 -#define FLEX_BETA -#endif - -/* First, we deal with platform-specific or compiler-specific issues. */ - -/* begin standard C headers. */ -#include <stdio.h> -#include <string.h> -#include <errno.h> -#include <stdlib.h> - -/* end standard C headers. */ - -/* flex integer type definitions */ - -#ifndef FLEXINT_H -#define FLEXINT_H - -/* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */ - -#if defined __STDC_VERSION__ && __STDC_VERSION__ >= 199901L -#include <inttypes.h> -typedef int8_t flex_int8_t; -typedef uint8_t flex_uint8_t; -typedef int16_t flex_int16_t; -typedef uint16_t flex_uint16_t; -typedef int32_t flex_int32_t; -typedef uint32_t flex_uint32_t; -#else -typedef signed char flex_int8_t; -typedef short int flex_int16_t; -typedef int flex_int32_t; -typedef unsigned char flex_uint8_t; -typedef unsigned short int flex_uint16_t; -typedef unsigned int flex_uint32_t; -#endif /* ! C99 */ - -/* Limits of integral types. */ -#ifndef INT8_MIN -#define INT8_MIN (-128) -#endif -#ifndef INT16_MIN -#define INT16_MIN (-32767-1) -#endif -#ifndef INT32_MIN -#define INT32_MIN (-2147483647-1) -#endif -#ifndef INT8_MAX -#define INT8_MAX (127) -#endif -#ifndef INT16_MAX -#define INT16_MAX (32767) -#endif -#ifndef INT32_MAX -#define INT32_MAX (2147483647) -#endif -#ifndef UINT8_MAX -#define UINT8_MAX (255U) -#endif -#ifndef UINT16_MAX -#define UINT16_MAX (65535U) -#endif -#ifndef UINT32_MAX -#define UINT32_MAX (4294967295U) -#endif - -#endif /* ! FLEXINT_H */ - -#ifdef __cplusplus - -/* The "const" storage-class-modifier is valid. */ -#define YY_USE_CONST - -#else /* ! __cplusplus */ - -#if __STDC__ - -#define YY_USE_CONST - -#endif /* __STDC__ */ -#endif /* ! __cplusplus */ - -#ifdef YY_USE_CONST -#define yyconst const -#else -#define yyconst -#endif - -/* Returned upon end-of-file. */ -#define YY_NULL 0 - -/* Promotes a possibly negative, possibly signed char to an unsigned - * integer for use as an array index. If the signed char is negative, - * we want to instead treat it as an 8-bit unsigned char, hence the - * double cast. - */ -#define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c) - -/* Enter a start condition. This macro really ought to take a parameter, - * but we do it the disgusting crufty way forced on us by the ()-less - * definition of BEGIN. - */ -#define BEGIN (yy_start) = 1 + 2 * - -/* Translate the current start state into a value that can be later handed - * to BEGIN to return to the state. The YYSTATE alias is for lex - * compatibility. - */ -#define YY_START (((yy_start) - 1) / 2) -#define YYSTATE YY_START - -/* Action number for EOF rule of a given start state. */ -#define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1) - -/* Special action meaning "start processing a new file". */ -#define YY_NEW_FILE yyrestart(yyin ) - -#define YY_END_OF_BUFFER_CHAR 0 - -/* Size of default input buffer. */ -#ifndef YY_BUF_SIZE -#define YY_BUF_SIZE 16384 -#endif - -#ifndef YY_TYPEDEF_YY_BUFFER_STATE -#define YY_TYPEDEF_YY_BUFFER_STATE -typedef struct yy_buffer_state *YY_BUFFER_STATE; -#endif - -extern int yyleng; - -extern FILE *yyin, *yyout; - -#define EOB_ACT_CONTINUE_SCAN 0 -#define EOB_ACT_END_OF_FILE 1 -#define EOB_ACT_LAST_MATCH 2 - - /* Note: We specifically omit the test for yy_rule_can_match_eol because it requires - * access to the local variable yy_act. Since yyless() is a macro, it would break - * existing scanners that call yyless() from OUTSIDE yylex. - * One obvious solution it to make yy_act a global. I tried that, and saw - * a 5% performance hit in a non-yylineno scanner, because yy_act is - * normally declared as a register variable-- so it is not worth it. - */ - #define YY_LESS_LINENO(n) \ - do { \ - int yyl;\ - for ( yyl = n; yyl < yyleng; ++yyl )\ - if ( yytext[yyl] == '\n' )\ - --yylineno;\ - }while(0) - -/* Return all but the first "n" matched characters back to the input stream. */ -#define yyless(n) \ - do \ - { \ - /* Undo effects of setting up yytext. */ \ - int yyless_macro_arg = (n); \ - YY_LESS_LINENO(yyless_macro_arg);\ - *yy_cp = (yy_hold_char); \ - YY_RESTORE_YY_MORE_OFFSET \ - (yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \ - YY_DO_BEFORE_ACTION; /* set up yytext again */ \ - } \ - while ( 0 ) - -#define unput(c) yyunput( c, (yytext_ptr) ) - -/* The following is because we cannot portably get our hands on size_t - * (without autoconf's help, which isn't available because we want - * flex-generated scanners to compile on their own). - */ - -#ifndef YY_TYPEDEF_YY_SIZE_T -#define YY_TYPEDEF_YY_SIZE_T -typedef unsigned int yy_size_t; -#endif - -#ifndef YY_STRUCT_YY_BUFFER_STATE -#define YY_STRUCT_YY_BUFFER_STATE -struct yy_buffer_state - { - FILE *yy_input_file; - - char *yy_ch_buf; /* input buffer */ - char *yy_buf_pos; /* current position in input buffer */ - - /* Size of input buffer in bytes, not including room for EOB - * characters. - */ - yy_size_t yy_buf_size; - - /* Number of characters read into yy_ch_buf, not including EOB - * characters. - */ - int yy_n_chars; - - /* Whether we "own" the buffer - i.e., we know we created it, - * and can realloc() it to grow it, and should free() it to - * delete it. - */ - int yy_is_our_buffer; - - /* Whether this is an "interactive" input source; if so, and - * if we're using stdio for input, then we want to use getc() - * instead of fread(), to make sure we stop fetching input after - * each newline. - */ - int yy_is_interactive; - - /* Whether we're considered to be at the beginning of a line. - * If so, '^' rules will be active on the next match, otherwise - * not. - */ - int yy_at_bol; - - int yy_bs_lineno; /**< The line count. */ - int yy_bs_column; /**< The column count. */ - - /* Whether to try to fill the input buffer when we reach the - * end of it. - */ - int yy_fill_buffer; - - int yy_buffer_status; - -#define YY_BUFFER_NEW 0 -#define YY_BUFFER_NORMAL 1 - /* When an EOF's been seen but there's still some text to process - * then we mark the buffer as YY_EOF_PENDING, to indicate that we - * shouldn't try reading from the input source any more. We might - * still have a bunch of tokens to match, though, because of - * possible backing-up. - * - * When we actually see the EOF, we change the status to "new" - * (via yyrestart()), so that the user can continue scanning by - * just pointing yyin at a new input file. - */ -#define YY_BUFFER_EOF_PENDING 2 - - }; -#endif /* !YY_STRUCT_YY_BUFFER_STATE */ - -/* Stack of input buffers. */ -static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */ -static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */ -static YY_BUFFER_STATE * yy_buffer_stack = 0; /**< Stack as an array. */ - -/* We provide macros for accessing buffer states in case in the - * future we want to put the buffer states in a more general - * "scanner state". - * - * Returns the top of the stack, or NULL. - */ -#define YY_CURRENT_BUFFER ( (yy_buffer_stack) \ - ? (yy_buffer_stack)[(yy_buffer_stack_top)] \ - : NULL) - -/* Same as previous macro, but useful when we know that the buffer stack is not - * NULL or when we need an lvalue. For internal use only. - */ -#define YY_CURRENT_BUFFER_LVALUE (yy_buffer_stack)[(yy_buffer_stack_top)] - -/* yy_hold_char holds the character lost when yytext is formed. */ -static char yy_hold_char; -static int yy_n_chars; /* number of characters read into yy_ch_buf */ -int yyleng; - -/* Points to current character in buffer. */ -static char *yy_c_buf_p = (char *) 0; -static int yy_init = 1; /* whether we need to initialize */ -static int yy_start = 0; /* start state number */ - -/* Flag which is used to allow yywrap()'s to do buffer switches - * instead of setting up a fresh yyin. A bit of a hack ... - */ -static int yy_did_buffer_switch_on_eof; - -void yyrestart (FILE *input_file ); -void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer ); -YY_BUFFER_STATE yy_create_buffer (FILE *file,int size ); -void yy_delete_buffer (YY_BUFFER_STATE b ); -void yy_flush_buffer (YY_BUFFER_STATE b ); -void yypush_buffer_state (YY_BUFFER_STATE new_buffer ); -void yypop_buffer_state (void ); - -static void yyensure_buffer_stack (void ); -static void yy_load_buffer_state (void ); -static void yy_init_buffer (YY_BUFFER_STATE b,FILE *file ); - -#define YY_FLUSH_BUFFER yy_flush_buffer(YY_CURRENT_BUFFER ) - -YY_BUFFER_STATE yy_scan_buffer (char *base,yy_size_t size ); -YY_BUFFER_STATE yy_scan_string (yyconst char *yy_str ); -YY_BUFFER_STATE yy_scan_bytes (yyconst char *bytes,int len ); - -void *yyalloc (yy_size_t ); -void *yyrealloc (void *,yy_size_t ); -void yyfree (void * ); - -#define yy_new_buffer yy_create_buffer - -#define yy_set_interactive(is_interactive) \ - { \ - if ( ! YY_CURRENT_BUFFER ){ \ - yyensure_buffer_stack (); \ - YY_CURRENT_BUFFER_LVALUE = \ - yy_create_buffer(yyin,YY_BUF_SIZE ); \ - } \ - YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \ - } - -#define yy_set_bol(at_bol) \ - { \ - if ( ! YY_CURRENT_BUFFER ){\ - yyensure_buffer_stack (); \ - YY_CURRENT_BUFFER_LVALUE = \ - yy_create_buffer(yyin,YY_BUF_SIZE ); \ - } \ - YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \ - } - -#define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol) - -/* Begin user sect3 */ - -typedef unsigned char YY_CHAR; - -FILE *yyin = (FILE *) 0, *yyout = (FILE *) 0; - -typedef int yy_state_type; - -#define YY_FLEX_LEX_COMPAT -extern int yylineno; - -int yylineno = 1; - -extern char yytext[]; - -static yy_state_type yy_get_previous_state (void ); -static yy_state_type yy_try_NUL_trans (yy_state_type current_state ); -static int yy_get_next_buffer (void ); -static void yy_fatal_error (yyconst char msg[] ); - -/* Done after the current pattern has been matched and before the - * corresponding action - sets up yytext. - */ -#define YY_DO_BEFORE_ACTION \ - (yytext_ptr) = yy_bp; \ - yyleng = (size_t) (yy_cp - yy_bp); \ - (yy_hold_char) = *yy_cp; \ - *yy_cp = '\0'; \ - if ( yyleng + (yy_more_offset) >= YYLMAX ) \ - YY_FATAL_ERROR( "token too large, exceeds YYLMAX" ); \ - yy_flex_strncpy( &yytext[(yy_more_offset)], (yytext_ptr), yyleng + 1 ); \ - yyleng += (yy_more_offset); \ - (yy_prev_more_offset) = (yy_more_offset); \ - (yy_more_offset) = 0; \ - (yy_c_buf_p) = yy_cp; - -#define YY_NUM_RULES 49 -#define YY_END_OF_BUFFER 50 -/* This struct is not used in this scanner, - but its presence is necessary. */ -struct yy_trans_info - { - flex_int32_t yy_verify; - flex_int32_t yy_nxt; - }; -static yyconst flex_int16_t yy_acclist[214] = - { 0, - 50, 48, 49, 47, 48, 49, 4, 49, 48, 49, - 13, 48, 49, 10, 48, 49, 33, 48, 49, 48, - 49, 48, 49, 48, 49, 48, 49, 48, 49, 34, - 48, 49, 34, 48, 49, 48, 49, 48, 49, 33, - 48, 49, 33, 48, 49, 33, 48, 49, 33, 48, - 49, 33, 48, 49, 33, 48, 49, 33, 48, 49, - 33, 48, 49, 33, 48, 49, 33, 48, 49, 47, - 48, 49, 1, 4, 49, 48, 49, 7, 49, 6, - 49, 7, 49, 7, 49, 1, 6, 49, 7, 49, - 3, 49, 1, 3, 49, 17, 49, 49, 16, 17, - - 49, 17, 49, 47, 45, 10, 10, 10, 33, 40, - 39, 41, 11, 12, 42, 38, 37, 34, 43, 46, - 44, 33, 33, 28, 33, 33, 33, 33, 33, 30, - 33, 33, 33, 33, 33, 33, 47, 1, 12, 5, - 15, 14, 10, 10, 35, 37, 36, 33, 33, 33, - 33, 33, 29, 33, 19, 33, 26, 33, 21, 33, - 33, 33, 33, 2, 10, 10, 33, 33, 33, 33, - 33, 33, 33, 31, 33, 33, 10, 10, 33, 33, - 33, 32, 33, 18, 33, 33, 33, 27, 33, 10, - 10, 33, 33, 33, 22, 33, 25, 33, 10, 9, - - 10, 10, 20, 33, 23, 33, 33, 10, 24, 33, - 10, 8, 10 - } ; - -static yyconst flex_int16_t yy_accept[152] = - { 0, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, - 4, 7, 9, 11, 14, 17, 20, 22, 24, 26, - 28, 30, 33, 36, 38, 40, 43, 46, 49, 52, - 55, 58, 61, 64, 67, 70, 73, 76, 78, 80, - 82, 84, 86, 89, 91, 93, 96, 98, 99, 102, - 104, 105, 106, 107, 108, 109, 110, 110, 111, 112, - 113, 114, 115, 116, 117, 118, 119, 119, 120, 121, - 122, 123, 124, 126, 127, 128, 129, 130, 132, 133, - 134, 135, 136, 137, 138, 139, 139, 140, 141, 141, - 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, - - 151, 152, 153, 155, 157, 159, 161, 162, 163, 164, - 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, - 174, 176, 177, 178, 179, 180, 181, 182, 184, 186, - 187, 188, 190, 191, 192, 193, 194, 195, 197, 199, - 200, 202, 203, 205, 207, 208, 209, 211, 212, 214, - 214 - } ; - -static yyconst flex_int32_t yy_ec[256] = - { 0, - 1, 1, 1, 1, 1, 1, 1, 1, 2, 3, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 4, 5, 6, 7, 1, 8, 9, 10, 1, - 1, 11, 12, 1, 13, 14, 15, 16, 17, 17, - 17, 17, 17, 17, 17, 17, 17, 1, 1, 18, - 19, 20, 1, 9, 21, 21, 21, 21, 22, 23, - 21, 21, 24, 21, 21, 25, 21, 26, 21, 21, - 21, 27, 28, 29, 21, 21, 21, 21, 21, 21, - 1, 30, 1, 1, 31, 1, 32, 33, 34, 35, - - 36, 37, 38, 39, 40, 21, 21, 41, 21, 42, - 43, 44, 21, 45, 46, 47, 48, 21, 49, 50, - 21, 21, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1 - } ; - -static yyconst flex_int32_t yy_meta[51] = - { 0, - 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 3, 1, 4, 4, 1, 1, 1, - 3, 3, 3, 3, 3, 3, 3, 3, 3, 1, - 3, 4, 4, 4, 4, 4, 4, 3, 3, 3, - 3, 3, 3, 3, 3, 3, 3, 3, 3, 3 - } ; - -static yyconst flex_int16_t yy_base[159] = - { 0, - 0, 49, 51, 54, 221, 57, 60, 64, 223, 225, - 69, 225, 203, 225, 51, 0, 0, 202, 201, 200, - 64, 68, 72, 72, 199, 174, 57, 166, 55, 173, - 171, 166, 165, 166, 171, 99, 225, 93, 225, 225, - 194, 107, 225, 193, 225, 225, 225, 225, 225, 71, - 93, 225, 0, 183, 178, 0, 195, 225, 225, 225, - 225, 225, 225, 225, 89, 107, 0, 225, 225, 225, - 161, 169, 0, 155, 160, 157, 154, 151, 150, 151, - 150, 146, 153, 123, 225, 177, 188, 225, 126, 187, - 225, 225, 164, 159, 225, 100, 0, 146, 145, 149, - - 138, 151, 0, 0, 0, 0, 59, 146, 140, 177, - 225, 157, 147, 141, 144, 130, 138, 126, 130, 137, - 0, 134, 165, 143, 133, 112, 109, 0, 0, 102, - 92, 0, 130, 112, 93, 98, 101, 0, 0, 125, - 124, 94, 0, 0, 78, 59, 0, 61, 0, 225, - 141, 145, 149, 151, 155, 51, 159, 163 - } ; - -static yyconst flex_int16_t yy_def[159] = - { 0, - 150, 1, 151, 151, 151, 151, 152, 152, 150, 150, - 150, 150, 150, 150, 153, 154, 155, 150, 150, 150, - 150, 150, 150, 150, 150, 154, 154, 154, 154, 154, - 154, 154, 154, 154, 154, 150, 150, 150, 150, 150, - 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, - 150, 150, 153, 153, 153, 154, 150, 150, 150, 150, - 150, 150, 150, 150, 150, 150, 156, 150, 150, 150, - 154, 154, 154, 154, 154, 154, 154, 154, 154, 154, - 154, 154, 154, 150, 150, 150, 157, 150, 150, 157, - 150, 150, 153, 153, 150, 150, 156, 154, 154, 154, - - 154, 154, 154, 154, 154, 154, 154, 154, 154, 157, - 150, 153, 153, 154, 154, 154, 154, 154, 154, 154, - 154, 154, 153, 153, 154, 154, 154, 154, 154, 154, - 154, 154, 158, 153, 154, 154, 154, 154, 154, 158, - 158, 153, 154, 154, 154, 153, 154, 153, 153, 0, - 150, 150, 150, 150, 150, 150, 150, 150 - } ; - -static yyconst flex_int16_t yy_nxt[276] = - { 0, - 10, 11, 12, 11, 13, 14, 15, 10, 16, 17, - 18, 19, 20, 10, 21, 22, 23, 24, 10, 25, - 16, 16, 16, 16, 16, 16, 16, 16, 16, 10, - 16, 16, 26, 16, 27, 28, 29, 16, 16, 30, - 16, 31, 16, 32, 16, 33, 34, 16, 35, 16, - 36, 37, 36, 40, 97, 42, 43, 42, 42, 46, - 42, 41, 48, 38, 41, 49, 48, 149, 44, 49, - 51, 44, 51, 54, 61, 64, 91, 55, 62, 64, - 148, 65, 63, 66, 66, 65, 75, 66, 66, 50, - 68, 69, 72, 50, 51, 76, 51, 77, 119, 73, - - 84, 85, 84, 61, 96, 96, 120, 87, 89, 85, - 89, 63, 92, 86, 64, 96, 96, 67, 147, 146, - 65, 86, 66, 66, 84, 85, 84, 89, 85, 89, - 141, 141, 145, 144, 143, 142, 141, 86, 139, 138, - 86, 39, 39, 39, 39, 47, 47, 47, 47, 53, - 137, 53, 53, 56, 56, 57, 136, 57, 57, 110, - 110, 110, 110, 140, 135, 140, 140, 134, 133, 132, - 131, 130, 129, 128, 127, 126, 125, 124, 123, 111, - 122, 121, 118, 117, 116, 115, 114, 113, 112, 111, - 111, 90, 109, 108, 107, 106, 105, 104, 103, 102, - - 101, 100, 99, 98, 95, 94, 93, 90, 88, 83, - 82, 81, 80, 79, 78, 74, 71, 70, 60, 59, - 58, 52, 150, 45, 9, 150, 150, 150, 150, 150, - 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, - 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, - 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, - 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, - 150, 150, 150, 150, 150 - } ; - -static yyconst flex_int16_t yy_chk[276] = - { 0, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 2, 2, 2, 3, 156, 4, 4, 4, 6, 6, - 6, 3, 7, 2, 4, 7, 8, 148, 4, 8, - 11, 6, 11, 15, 21, 22, 50, 15, 21, 23, - 146, 22, 21, 22, 22, 23, 29, 23, 23, 7, - 24, 24, 27, 8, 51, 29, 51, 29, 107, 27, - - 36, 36, 36, 38, 65, 65, 107, 38, 42, 42, - 42, 38, 50, 36, 66, 96, 96, 22, 145, 142, - 66, 42, 66, 66, 84, 84, 84, 89, 89, 89, - 141, 140, 137, 136, 135, 134, 133, 84, 131, 130, - 89, 151, 151, 151, 151, 152, 152, 152, 152, 153, - 127, 153, 153, 154, 154, 155, 126, 155, 155, 157, - 157, 157, 157, 158, 125, 158, 158, 124, 123, 122, - 120, 119, 118, 117, 116, 115, 114, 113, 112, 110, - 109, 108, 102, 101, 100, 99, 98, 94, 93, 90, - 87, 86, 83, 82, 81, 80, 79, 78, 77, 76, - - 75, 74, 72, 71, 57, 55, 54, 44, 41, 35, - 34, 33, 32, 31, 30, 28, 26, 25, 20, 19, - 18, 13, 9, 5, 150, 150, 150, 150, 150, 150, - 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, - 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, - 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, - 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, - 150, 150, 150, 150, 150 - } ; - -/* Table of booleans, true if rule could match eol. */ -static yyconst flex_int32_t yy_rule_can_match_eol[50] = - { 0, -1, 1, 1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, }; - -extern int yy_flex_debug; -int yy_flex_debug = 0; - -static yy_state_type *yy_state_buf=0, *yy_state_ptr=0; -static char *yy_full_match; -static int yy_lp; -#define REJECT \ -{ \ -*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */ \ -yy_cp = (yy_full_match); /* restore poss. backed-over text */ \ -++(yy_lp); \ -goto find_rule; \ -} - -static int yy_more_offset = 0; -static int yy_prev_more_offset = 0; -#define yymore() ((yy_more_offset) = yy_flex_strlen( yytext )) -#define YY_NEED_STRLEN -#define YY_MORE_ADJ 0 -#define YY_RESTORE_YY_MORE_OFFSET \ - { \ - (yy_more_offset) = (yy_prev_more_offset); \ - yyleng -= (yy_more_offset); \ - } -#ifndef YYLMAX -#define YYLMAX 8192 -#endif - -char yytext[YYLMAX]; -char *yytext_ptr; -#line 1 "goomsl_lex.l" -#line 2 "goomsl_lex.l" - -#include <math.h> -#include <stdlib.h> -#include <string.h> -#include "goomsl.h" -#include "goomsl_private.h" -#include "goomsl_yacc.h" -void yyerror(char *); -void yyparse(void); - -GoomSL *currentGoomSL; -static int string_size; -static char string[1024]; - - - -#line 639 "goomsl_lex.c" - -#define INITIAL 0 -#define C_COMMENT 1 -#define LINE_COMMENT 2 -#define STRING 3 - -/* Special case for "unistd.h", since it is non-ANSI. We include it way - * down here because we want the user's section 1 to have been scanned first. - * The user has a chance to override it with an option. - */ -#include <unistd.h> - -#ifndef YY_EXTRA_TYPE -#define YY_EXTRA_TYPE void * -#endif - -/* Macros after this point can all be overridden by user definitions in - * section 1. - */ - -#ifndef YY_SKIP_YYWRAP -#ifdef __cplusplus -extern "C" int yywrap (void ); -#else -extern int yywrap (void ); -#endif -#endif - - static void yyunput (int c,char *buf_ptr ); - -#ifndef yytext_ptr -static void yy_flex_strncpy (char *,yyconst char *,int ); -#endif - -#ifdef YY_NEED_STRLEN -static int yy_flex_strlen (yyconst char * ); -#endif - -#ifndef YY_NO_INPUT - -#ifdef __cplusplus -static int yyinput (void ); -#else -static int input (void ); -#endif - -#endif - -/* Amount of stuff to slurp up with each read. */ -#ifndef YY_READ_BUF_SIZE -#define YY_READ_BUF_SIZE 8192 -#endif - -/* Copy whatever the last rule matched to the standard output. */ -#ifndef ECHO -/* This used to be an fputs(), but since the string might contain NUL's, - * we now use fwrite(). - */ -#define ECHO (void) fwrite( yytext, yyleng, 1, yyout ) -#endif - -/* Gets input and stuffs it into "buf". number of characters read, or YY_NULL, - * is returned in "result". - */ -#ifndef YY_INPUT -#define YY_INPUT(buf,result,max_size) \ - if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \ - { \ - int c = '*'; \ - size_t n; \ - for ( n = 0; n < max_size && \ - (c = getc( yyin )) != EOF && c != '\n'; ++n ) \ - buf[n] = (char) c; \ - if ( c == '\n' ) \ - buf[n++] = (char) c; \ - if ( c == EOF && ferror( yyin ) ) \ - YY_FATAL_ERROR( "input in flex scanner failed" ); \ - result = n; \ - } \ - else \ - { \ - errno=0; \ - while ( (result = fread(buf, 1, max_size, yyin))==0 && ferror(yyin)) \ - { \ - if( errno != EINTR) \ - { \ - YY_FATAL_ERROR( "input in flex scanner failed" ); \ - break; \ - } \ - errno=0; \ - clearerr(yyin); \ - } \ - }\ -\ - -#endif - -/* No semi-colon after return; correct usage is to write "yyterminate();" - - * we don't want an extra ';' after the "return" because that will cause - * some compilers to complain about unreachable statements. - */ -#ifndef yyterminate -#define yyterminate() return YY_NULL -#endif - -/* Number of entries by which start-condition stack grows. */ -#ifndef YY_START_STACK_INCR -#define YY_START_STACK_INCR 25 -#endif - -/* Report a fatal error. */ -#ifndef YY_FATAL_ERROR -#define YY_FATAL_ERROR(msg) yy_fatal_error( msg ) -#endif - -/* end tables serialization structures and prototypes */ - -/* Default declaration of generated scanner - a define so the user can - * easily add parameters. - */ -#ifndef YY_DECL -#define YY_DECL_IS_OURS 1 - -extern int yylex (void); - -#define YY_DECL int yylex (void) -#endif /* !YY_DECL */ - -/* Code executed at the beginning of each rule, after yytext and yyleng - * have been set up. - */ -#ifndef YY_USER_ACTION -#define YY_USER_ACTION -#endif - -/* Code executed at the end of each rule. */ -#ifndef YY_BREAK -#define YY_BREAK break; -#endif - -#define YY_RULE_SETUP \ - if ( yyleng > 0 ) \ - YY_CURRENT_BUFFER_LVALUE->yy_at_bol = \ - (yytext[yyleng - 1] == '\n'); \ - YY_USER_ACTION - -/** The main scanner function which does all the work. - */ -YY_DECL -{ - register yy_state_type yy_current_state; - register char *yy_cp, *yy_bp; - register int yy_act; - -#line 25 "goomsl_lex.l" - - -#line 797 "goomsl_lex.c" - - if ( (yy_init) ) - { - (yy_init) = 0; - -#ifdef YY_USER_INIT - YY_USER_INIT; -#endif - - if ( ! (yy_state_buf) ) - (yy_state_buf) = (yy_state_type *)yyalloc(YY_BUF_SIZE + 2 ); - - if ( ! (yy_start) ) - (yy_start) = 1; /* first start state */ - - if ( ! yyin ) - yyin = stdin; - - if ( ! yyout ) - yyout = stdout; - - if ( ! YY_CURRENT_BUFFER ) { - yyensure_buffer_stack (); - YY_CURRENT_BUFFER_LVALUE = - yy_create_buffer(yyin,YY_BUF_SIZE ); - } - - yy_load_buffer_state( ); - } - - while ( 1 ) /* loops until end-of-file is reached */ - { - yy_cp = (yy_c_buf_p); - - /* Support of yytext. */ - *yy_cp = (yy_hold_char); - - /* yy_bp points to the position in yy_ch_buf of the start of - * the current run. - */ - yy_bp = yy_cp; - - yy_current_state = (yy_start); - yy_current_state += YY_AT_BOL(); - - (yy_state_ptr) = (yy_state_buf); - *(yy_state_ptr)++ = yy_current_state; - -yy_match: - do - { - register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)]; - while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state ) - { - yy_current_state = (int) yy_def[yy_current_state]; - if ( yy_current_state >= 151 ) - yy_c = yy_meta[(unsigned int) yy_c]; - } - yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c]; - *(yy_state_ptr)++ = yy_current_state; - ++yy_cp; - } - while ( yy_base[yy_current_state] != 225 ); - -yy_find_action: - yy_current_state = *--(yy_state_ptr); - (yy_lp) = yy_accept[yy_current_state]; -find_rule: /* we branch to this label when backing up */ - for ( ; ; ) /* until we find what rule we matched */ - { - if ( (yy_lp) && (yy_lp) < yy_accept[yy_current_state + 1] ) - { - yy_act = yy_acclist[(yy_lp)]; - { - (yy_full_match) = yy_cp; - break; - } - } - --yy_cp; - yy_current_state = *--(yy_state_ptr); - (yy_lp) = yy_accept[yy_current_state]; - } - - YY_DO_BEFORE_ACTION; - - if ( yy_act != YY_END_OF_BUFFER && yy_rule_can_match_eol[yy_act] ) - { - int yyl; - for ( yyl = (yy_prev_more_offset); yyl < yyleng; ++yyl ) - if ( yytext[yyl] == '\n' ) - - yylineno++; -; - } - -do_action: /* This label is used only to access EOF actions. */ - - switch ( yy_act ) - { /* beginning of action switch */ -case 1: -/* rule 1 can match eol */ -YY_RULE_SETUP -#line 27 "goomsl_lex.l" -{ ++currentGoomSL->num_lines; /* Ignore empty lines */ } - YY_BREAK -case 2: -/* rule 2 can match eol */ -YY_RULE_SETUP -#line 28 "goomsl_lex.l" -{ ++currentGoomSL->num_lines; /* Ignore empty lines */ } - YY_BREAK -case 3: -/* rule 3 can match eol */ -YY_RULE_SETUP -#line 30 "goomsl_lex.l" -{ ++currentGoomSL->num_lines; yylval.charValue=*yytext; BEGIN INITIAL; return '\n'; } - YY_BREAK -case 4: -/* rule 4 can match eol */ -YY_RULE_SETUP -#line 31 "goomsl_lex.l" -{ ++currentGoomSL->num_lines; yylval.charValue=*yytext; return '\n'; } - YY_BREAK -case 5: -YY_RULE_SETUP -#line 33 "goomsl_lex.l" -{ BEGIN INITIAL; } - YY_BREAK -case 6: -/* rule 6 can match eol */ -YY_RULE_SETUP -#line 34 "goomsl_lex.l" -{ ++currentGoomSL->num_lines; } - YY_BREAK -case 7: -YY_RULE_SETUP -#line 35 "goomsl_lex.l" -{ /* eat up comment */ } - YY_BREAK -case 8: -YY_RULE_SETUP -#line 37 "goomsl_lex.l" -{ currentGoomSL->num_lines = 0; } - YY_BREAK -case 9: -YY_RULE_SETUP -#line 38 "goomsl_lex.l" -{ currentGoomSL->num_lines = 0; printf("%s\n", yytext); } - YY_BREAK -case 10: -YY_RULE_SETUP -#line 39 "goomsl_lex.l" -{ /* ignore preprocessor lines */ } - YY_BREAK -case 11: -YY_RULE_SETUP -#line 41 "goomsl_lex.l" -{ BEGIN C_COMMENT; } - YY_BREAK -case 12: -YY_RULE_SETUP -#line 42 "goomsl_lex.l" -{ BEGIN LINE_COMMENT; } - YY_BREAK -case 13: -YY_RULE_SETUP -#line 43 "goomsl_lex.l" -{ BEGIN STRING; string_size=0; } - YY_BREAK -case 14: -YY_RULE_SETUP -#line 45 "goomsl_lex.l" -{ string[string_size++] = '\n'; } - YY_BREAK -case 15: -YY_RULE_SETUP -#line 46 "goomsl_lex.l" -{ string[string_size++] = '\"'; } - YY_BREAK -case 16: -YY_RULE_SETUP -#line 47 "goomsl_lex.l" -{ /* fin de la chaine: on cree le pointeur qui va bien */ - unsigned int tmp; - BEGIN INITIAL; - string[string_size]=0; - tmp = gsl_malloc(currentGoomSL, string_size+1); - strcpy((char*)currentGoomSL->ptrArray[tmp],string); - sprintf(yylval.strValue, "0x%08x", tmp); - return LTYPE_PTR; - } - YY_BREAK -case 17: -YY_RULE_SETUP -#line 56 "goomsl_lex.l" -{ string[string_size++] = *yytext; } - YY_BREAK -case 18: -YY_RULE_SETUP -#line 58 "goomsl_lex.l" -{ return FLOAT_TK; } - YY_BREAK -case 19: -YY_RULE_SETUP -#line 59 "goomsl_lex.l" -{ return INT_TK; } - YY_BREAK -case 20: -YY_RULE_SETUP -#line 60 "goomsl_lex.l" -{ return INT_TK; } - YY_BREAK -case 21: -YY_RULE_SETUP -#line 61 "goomsl_lex.l" -{ return PTR_TK; } - YY_BREAK -case 22: -YY_RULE_SETUP -#line 62 "goomsl_lex.l" -{ return PTR_TK; } - YY_BREAK -case 23: -YY_RULE_SETUP -#line 63 "goomsl_lex.l" -{ return DECLARE; } - YY_BREAK -case 24: -YY_RULE_SETUP -#line 64 "goomsl_lex.l" -{ return EXTERNAL; } - YY_BREAK -case 25: -YY_RULE_SETUP -#line 65 "goomsl_lex.l" -{ return STRUCT; } - YY_BREAK -case 26: -YY_RULE_SETUP -#line 66 "goomsl_lex.l" -{ return NOT; } - YY_BREAK -case 27: -YY_RULE_SETUP -#line 67 "goomsl_lex.l" -{ return WHILE; } - YY_BREAK -case 28: -YY_RULE_SETUP -#line 68 "goomsl_lex.l" -{ return DO; } - YY_BREAK -case 29: -YY_RULE_SETUP -#line 69 "goomsl_lex.l" -{ return FOR; } - YY_BREAK -case 30: -YY_RULE_SETUP -#line 70 "goomsl_lex.l" -{ return IN; } - YY_BREAK -case 31: -YY_RULE_SETUP -#line 71 "goomsl_lex.l" -{ strncpy(yylval.strValue, "1", 2047); return LTYPE_INTEGER; } - YY_BREAK -case 32: -YY_RULE_SETUP -#line 72 "goomsl_lex.l" -{ strncpy(yylval.strValue, "0", 2047); return LTYPE_INTEGER; } - YY_BREAK -case 33: -YY_RULE_SETUP -#line 73 "goomsl_lex.l" -{ strncpy(yylval.strValue, yytext, 2047); return LTYPE_VAR; } - YY_BREAK -case 34: -YY_RULE_SETUP -#line 74 "goomsl_lex.l" -{ strncpy(yylval.strValue, yytext, 2047); return LTYPE_INTEGER; } - YY_BREAK -case 35: -YY_RULE_SETUP -#line 75 "goomsl_lex.l" -{ sprintf(yylval.strValue, "%d", (int)yytext[1]); return LTYPE_INTEGER; } - YY_BREAK -case 36: -YY_RULE_SETUP -#line 76 "goomsl_lex.l" -{ strncpy(yylval.strValue, yytext, 2047); return LTYPE_INTEGER; } - YY_BREAK -case 37: -YY_RULE_SETUP -#line 77 "goomsl_lex.l" -{ strncpy(yylval.strValue, yytext, 2047); return LTYPE_FLOAT; } - YY_BREAK -case 38: -YY_RULE_SETUP -#line 78 "goomsl_lex.l" -{ sprintf(yylval.strValue, "%3.2f", atof(yytext)/100.0f); return LTYPE_FLOAT; } - YY_BREAK -case 39: -YY_RULE_SETUP -#line 79 "goomsl_lex.l" -{ return PLUS_EQ; } - YY_BREAK -case 40: -YY_RULE_SETUP -#line 80 "goomsl_lex.l" -{ return MUL_EQ; } - YY_BREAK -case 41: -YY_RULE_SETUP -#line 81 "goomsl_lex.l" -{ return SUB_EQ; } - YY_BREAK -case 42: -YY_RULE_SETUP -#line 82 "goomsl_lex.l" -{ return DIV_EQ; } - YY_BREAK -case 43: -YY_RULE_SETUP -#line 83 "goomsl_lex.l" -{ return LOW_EQ; } - YY_BREAK -case 44: -YY_RULE_SETUP -#line 84 "goomsl_lex.l" -{ return SUP_EQ; } - YY_BREAK -case 45: -YY_RULE_SETUP -#line 85 "goomsl_lex.l" -{ return NOT_EQ; } - YY_BREAK -case 46: -YY_RULE_SETUP -#line 86 "goomsl_lex.l" -{ return NOT_EQ; } - YY_BREAK -case 47: -YY_RULE_SETUP -#line 87 "goomsl_lex.l" -/* eat up whitespace */ - YY_BREAK -case 48: -YY_RULE_SETUP -#line 88 "goomsl_lex.l" -{ yylval.charValue = *yytext; return *yytext; } - YY_BREAK -case 49: -YY_RULE_SETUP -#line 90 "goomsl_lex.l" -ECHO; - YY_BREAK -#line 1155 "goomsl_lex.c" - case YY_STATE_EOF(INITIAL): - case YY_STATE_EOF(C_COMMENT): - case YY_STATE_EOF(LINE_COMMENT): - case YY_STATE_EOF(STRING): - yyterminate(); - - case YY_END_OF_BUFFER: - { - /* Amount of text matched not including the EOB char. */ - int yy_amount_of_matched_text = (int) (yy_cp - (yytext_ptr)) - 1; - - /* Undo the effects of YY_DO_BEFORE_ACTION. */ - *yy_cp = (yy_hold_char); - YY_RESTORE_YY_MORE_OFFSET - - if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW ) - { - /* We're scanning a new file or input source. It's - * possible that this happened because the user - * just pointed yyin at a new source and called - * yylex(). If so, then we have to assure - * consistency between YY_CURRENT_BUFFER and our - * globals. Here is the right place to do so, because - * this is the first action (other than possibly a - * back-up) that will match for the new input source. - */ - (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars; - YY_CURRENT_BUFFER_LVALUE->yy_input_file = yyin; - YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL; - } - - /* Note that here we test for yy_c_buf_p "<=" to the position - * of the first EOB in the buffer, since yy_c_buf_p will - * already have been incremented past the NUL character - * (since all states make transitions on EOB to the - * end-of-buffer state). Contrast this with the test - * in input(). - */ - if ( (yy_c_buf_p) <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] ) - { /* This was really a NUL. */ - yy_state_type yy_next_state; - - (yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text; - - yy_current_state = yy_get_previous_state( ); - - /* Okay, we're now positioned to make the NUL - * transition. We couldn't have - * yy_get_previous_state() go ahead and do it - * for us because it doesn't know how to deal - * with the possibility of jamming (and we don't - * want to build jamming into it because then it - * will run more slowly). - */ - - yy_next_state = yy_try_NUL_trans( yy_current_state ); - - yy_bp = (yytext_ptr) + YY_MORE_ADJ; - - if ( yy_next_state ) - { - /* Consume the NUL. */ - yy_cp = ++(yy_c_buf_p); - yy_current_state = yy_next_state; - goto yy_match; - } - - else - { - yy_cp = (yy_c_buf_p); - goto yy_find_action; - } - } - - else switch ( yy_get_next_buffer( ) ) - { - case EOB_ACT_END_OF_FILE: - { - (yy_did_buffer_switch_on_eof) = 0; - - if ( yywrap( ) ) - { - /* Note: because we've taken care in - * yy_get_next_buffer() to have set up - * yytext, we can now set up - * yy_c_buf_p so that if some total - * hoser (like flex itself) wants to - * call the scanner after we return the - * YY_NULL, it'll still work - another - * YY_NULL will get returned. - */ - (yy_c_buf_p) = (yytext_ptr) + YY_MORE_ADJ; - - yy_act = YY_STATE_EOF(YY_START); - goto do_action; - } - - else - { - if ( ! (yy_did_buffer_switch_on_eof) ) - YY_NEW_FILE; - } - break; - } - - case EOB_ACT_CONTINUE_SCAN: - (yy_c_buf_p) = - (yytext_ptr) + yy_amount_of_matched_text; - - yy_current_state = yy_get_previous_state( ); - - yy_cp = (yy_c_buf_p); - yy_bp = (yytext_ptr) + YY_MORE_ADJ; - goto yy_match; - - case EOB_ACT_LAST_MATCH: - (yy_c_buf_p) = - &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)]; - - yy_current_state = yy_get_previous_state( ); - - yy_cp = (yy_c_buf_p); - yy_bp = (yytext_ptr) + YY_MORE_ADJ; - goto yy_find_action; - } - break; - } - - default: - YY_FATAL_ERROR( - "fatal flex scanner internal error--no action found" ); - } /* end of action switch */ - } /* end of scanning one token */ -} /* end of yylex */ - -/* yy_get_next_buffer - try to read in a new buffer - * - * Returns a code representing an action: - * EOB_ACT_LAST_MATCH - - * EOB_ACT_CONTINUE_SCAN - continue scanning from current position - * EOB_ACT_END_OF_FILE - end of file - */ -static int yy_get_next_buffer (void) -{ - register char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf; - register char *source = (yytext_ptr); - register int number_to_move, i; - int ret_val; - - if ( (yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] ) - YY_FATAL_ERROR( - "fatal flex scanner internal error--end of buffer missed" ); - - if ( YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0 ) - { /* Don't try to fill the buffer, so this is an EOF. */ - if ( (yy_c_buf_p) - (yytext_ptr) - YY_MORE_ADJ == 1 ) - { - /* We matched a single character, the EOB, so - * treat this as a final EOF. - */ - return EOB_ACT_END_OF_FILE; - } - - else - { - /* We matched some text prior to the EOB, first - * process it. - */ - return EOB_ACT_LAST_MATCH; - } - } - - /* Try to read more data. */ - - /* First move last chars to start of buffer. */ - number_to_move = (int) ((yy_c_buf_p) - (yytext_ptr)) - 1; - - for ( i = 0; i < number_to_move; ++i ) - *(dest++) = *(source++); - - if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING ) - /* don't do the read, it's not guaranteed to return an EOF, - * just force an EOF - */ - YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = 0; - - else - { - size_t num_to_read = - YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1; - - while ( num_to_read <= 0 ) - { /* Not enough room in the buffer - grow it. */ - - YY_FATAL_ERROR( -"input buffer overflow, can't enlarge buffer because scanner uses REJECT" ); - - } - - if ( num_to_read > YY_READ_BUF_SIZE ) - num_to_read = YY_READ_BUF_SIZE; - - /* Read in more data. */ - YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]), - (yy_n_chars), num_to_read ); - - YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars); - } - - if ( (yy_n_chars) == 0 ) - { - if ( number_to_move == YY_MORE_ADJ ) - { - ret_val = EOB_ACT_END_OF_FILE; - yyrestart(yyin ); - } - - else - { - ret_val = EOB_ACT_LAST_MATCH; - YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = - YY_BUFFER_EOF_PENDING; - } - } - - else - ret_val = EOB_ACT_CONTINUE_SCAN; - - (yy_n_chars) += number_to_move; - YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] = YY_END_OF_BUFFER_CHAR; - YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] = YY_END_OF_BUFFER_CHAR; - - (yytext_ptr) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0]; - - return ret_val; -} - -/* yy_get_previous_state - get the state just before the EOB char was reached */ - - static yy_state_type yy_get_previous_state (void) -{ - register yy_state_type yy_current_state; - register char *yy_cp; - - yy_current_state = (yy_start); - yy_current_state += YY_AT_BOL(); - - (yy_state_ptr) = (yy_state_buf); - *(yy_state_ptr)++ = yy_current_state; - - for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp ) - { - register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1); - while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state ) - { - yy_current_state = (int) yy_def[yy_current_state]; - if ( yy_current_state >= 151 ) - yy_c = yy_meta[(unsigned int) yy_c]; - } - yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c]; - *(yy_state_ptr)++ = yy_current_state; - } - - return yy_current_state; -} - -/* yy_try_NUL_trans - try to make a transition on the NUL character - * - * synopsis - * next_state = yy_try_NUL_trans( current_state ); - */ - static yy_state_type yy_try_NUL_trans (yy_state_type yy_current_state ) -{ - register int yy_is_jam; - - register YY_CHAR yy_c = 1; - while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state ) - { - yy_current_state = (int) yy_def[yy_current_state]; - if ( yy_current_state >= 151 ) - yy_c = yy_meta[(unsigned int) yy_c]; - } - yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c]; - yy_is_jam = (yy_current_state == 150); - if ( ! yy_is_jam ) - *(yy_state_ptr)++ = yy_current_state; - - return yy_is_jam ? 0 : yy_current_state; -} - - static void yyunput (int c, register char * yy_bp ) -{ - register char *yy_cp; - - yy_cp = (yy_c_buf_p); - - /* undo effects of setting up yytext */ - *yy_cp = (yy_hold_char); - - if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 ) - { /* need to shift things up to make room */ - /* +2 for EOB chars. */ - register int number_to_move = (yy_n_chars) + 2; - register char *dest = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[ - YY_CURRENT_BUFFER_LVALUE->yy_buf_size + 2]; - register char *source = - &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]; - - while ( source > YY_CURRENT_BUFFER_LVALUE->yy_ch_buf ) - *--dest = *--source; - - yy_cp += (int) (dest - source); - yy_bp += (int) (dest - source); - YY_CURRENT_BUFFER_LVALUE->yy_n_chars = - (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_buf_size; - - if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 ) - YY_FATAL_ERROR( "flex scanner push-back overflow" ); - } - - *--yy_cp = (char) c; - - if ( c == '\n' ){ - --yylineno; - } - - (yytext_ptr) = yy_bp; - (yy_hold_char) = *yy_cp; - (yy_c_buf_p) = yy_cp; -} - -#ifndef YY_NO_INPUT -#ifdef __cplusplus - static int yyinput (void) -#else - static int input (void) -#endif - -{ - int c; - - *(yy_c_buf_p) = (yy_hold_char); - - if ( *(yy_c_buf_p) == YY_END_OF_BUFFER_CHAR ) - { - /* yy_c_buf_p now points to the character we want to return. - * If this occurs *before* the EOB characters, then it's a - * valid NUL; if not, then we've hit the end of the buffer. - */ - if ( (yy_c_buf_p) < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] ) - /* This was really a NUL. */ - *(yy_c_buf_p) = '\0'; - - else - { /* need more input */ - int offset = (yy_c_buf_p) - (yytext_ptr); - ++(yy_c_buf_p); - - switch ( yy_get_next_buffer( ) ) - { - case EOB_ACT_LAST_MATCH: - /* This happens because yy_g_n_b() - * sees that we've accumulated a - * token and flags that we need to - * try matching the token before - * proceeding. But for input(), - * there's no matching to consider. - * So convert the EOB_ACT_LAST_MATCH - * to EOB_ACT_END_OF_FILE. - */ - - /* Reset buffer status. */ - yyrestart(yyin ); - - /*FALLTHROUGH*/ - - case EOB_ACT_END_OF_FILE: - { - if ( yywrap( ) ) - return EOF; - - if ( ! (yy_did_buffer_switch_on_eof) ) - YY_NEW_FILE; -#ifdef __cplusplus - return yyinput(); -#else - return input(); -#endif - } - - case EOB_ACT_CONTINUE_SCAN: - (yy_c_buf_p) = (yytext_ptr) + offset; - break; - } - } - } - - c = *(unsigned char *) (yy_c_buf_p); /* cast for 8-bit char's */ - *(yy_c_buf_p) = '\0'; /* preserve yytext */ - (yy_hold_char) = *++(yy_c_buf_p); - - YY_CURRENT_BUFFER_LVALUE->yy_at_bol = (c == '\n'); - if ( YY_CURRENT_BUFFER_LVALUE->yy_at_bol ) - - yylineno++; -; - - return c; -} -#endif /* ifndef YY_NO_INPUT */ - -/** Immediately switch to a different input stream. - * @param input_file A readable stream. - * - * @note This function does not reset the start condition to @c INITIAL . - */ - void yyrestart (FILE * input_file ) -{ - - if ( ! YY_CURRENT_BUFFER ){ - yyensure_buffer_stack (); - YY_CURRENT_BUFFER_LVALUE = - yy_create_buffer(yyin,YY_BUF_SIZE ); - } - - yy_init_buffer(YY_CURRENT_BUFFER,input_file ); - yy_load_buffer_state( ); -} - -/** Switch to a different input buffer. - * @param new_buffer The new input buffer. - * - */ - void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer ) -{ - - /* TODO. We should be able to replace this entire function body - * with - * yypop_buffer_state(); - * yypush_buffer_state(new_buffer); - */ - yyensure_buffer_stack (); - if ( YY_CURRENT_BUFFER == new_buffer ) - return; - - if ( YY_CURRENT_BUFFER ) - { - /* Flush out information for old buffer. */ - *(yy_c_buf_p) = (yy_hold_char); - YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p); - YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars); - } - - YY_CURRENT_BUFFER_LVALUE = new_buffer; - yy_load_buffer_state( ); - - /* We don't actually know whether we did this switch during - * EOF (yywrap()) processing, but the only time this flag - * is looked at is after yywrap() is called, so it's safe - * to go ahead and always set it. - */ - (yy_did_buffer_switch_on_eof) = 1; -} - -static void yy_load_buffer_state (void) -{ - (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars; - (yytext_ptr) = (yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos; - yyin = YY_CURRENT_BUFFER_LVALUE->yy_input_file; - (yy_hold_char) = *(yy_c_buf_p); -} - -/** Allocate and initialize an input buffer state. - * @param file A readable stream. - * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE. - * - * @return the allocated buffer state. - */ - YY_BUFFER_STATE yy_create_buffer (FILE * file, int size ) -{ - YY_BUFFER_STATE b; - - b = (YY_BUFFER_STATE) yyalloc(sizeof( struct yy_buffer_state ) ); - if ( ! b ) - YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" ); - - b->yy_buf_size = size; - - /* yy_ch_buf has to be 2 characters longer than the size given because - * we need to put in 2 end-of-buffer characters. - */ - b->yy_ch_buf = (char *) yyalloc(b->yy_buf_size + 2 ); - if ( ! b->yy_ch_buf ) - YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" ); - - b->yy_is_our_buffer = 1; - - yy_init_buffer(b,file ); - - return b; -} - -/** Destroy the buffer. - * @param b a buffer created with yy_create_buffer() - * - */ - void yy_delete_buffer (YY_BUFFER_STATE b ) -{ - - if ( ! b ) - return; - - if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */ - YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0; - - if ( b->yy_is_our_buffer ) - yyfree((void *) b->yy_ch_buf ); - - yyfree((void *) b ); -} - -#ifndef __cplusplus -extern int isatty (int ); -#endif /* __cplusplus */ - -/* Initializes or reinitializes a buffer. - * This function is sometimes called more than once on the same buffer, - * such as during a yyrestart() or at EOF. - */ - static void yy_init_buffer (YY_BUFFER_STATE b, FILE * file ) - -{ - int oerrno = errno; - - yy_flush_buffer(b ); - - b->yy_input_file = file; - b->yy_fill_buffer = 1; - - /* If b is the current buffer, then yy_init_buffer was _probably_ - * called from yyrestart() or through yy_get_next_buffer. - * In that case, we don't want to reset the lineno or column. - */ - if (b != YY_CURRENT_BUFFER){ - b->yy_bs_lineno = 1; - b->yy_bs_column = 0; - } - - b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0; - - errno = oerrno; -} - -/** Discard all buffered characters. On the next scan, YY_INPUT will be called. - * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER. - * - */ - void yy_flush_buffer (YY_BUFFER_STATE b ) -{ - if ( ! b ) - return; - - b->yy_n_chars = 0; - - /* We always need two end-of-buffer characters. The first causes - * a transition to the end-of-buffer state. The second causes - * a jam in that state. - */ - b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR; - b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR; - - b->yy_buf_pos = &b->yy_ch_buf[0]; - - b->yy_at_bol = 1; - b->yy_buffer_status = YY_BUFFER_NEW; - - if ( b == YY_CURRENT_BUFFER ) - yy_load_buffer_state( ); -} - -/** Pushes the new state onto the stack. The new state becomes - * the current state. This function will allocate the stack - * if necessary. - * @param new_buffer The new state. - * - */ -void yypush_buffer_state (YY_BUFFER_STATE new_buffer ) -{ - if (new_buffer == NULL) - return; - - yyensure_buffer_stack(); - - /* This block is copied from yy_switch_to_buffer. */ - if ( YY_CURRENT_BUFFER ) - { - /* Flush out information for old buffer. */ - *(yy_c_buf_p) = (yy_hold_char); - YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p); - YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars); - } - - /* Only push if top exists. Otherwise, replace top. */ - if (YY_CURRENT_BUFFER) - (yy_buffer_stack_top)++; - YY_CURRENT_BUFFER_LVALUE = new_buffer; - - /* copied from yy_switch_to_buffer. */ - yy_load_buffer_state( ); - (yy_did_buffer_switch_on_eof) = 1; -} - -/** Removes and deletes the top of the stack, if present. - * The next element becomes the new top. - * - */ -void yypop_buffer_state (void) -{ - if (!YY_CURRENT_BUFFER) - return; - - yy_delete_buffer(YY_CURRENT_BUFFER ); - YY_CURRENT_BUFFER_LVALUE = NULL; - if ((yy_buffer_stack_top) > 0) - --(yy_buffer_stack_top); - - if (YY_CURRENT_BUFFER) { - yy_load_buffer_state( ); - (yy_did_buffer_switch_on_eof) = 1; - } -} - -/* Allocates the stack if it does not exist. - * Guarantees space for at least one push. - */ -static void yyensure_buffer_stack (void) -{ - int num_to_alloc; - - if (!(yy_buffer_stack)) { - - /* First allocation is just for 2 elements, since we don't know if this - * scanner will even need a stack. We use 2 instead of 1 to avoid an - * immediate realloc on the next call. - */ - num_to_alloc = 1; - (yy_buffer_stack) = (struct yy_buffer_state**)yyalloc - (num_to_alloc * sizeof(struct yy_buffer_state*) - ); - - memset((yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*)); - - (yy_buffer_stack_max) = num_to_alloc; - (yy_buffer_stack_top) = 0; - return; - } - - if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1){ - - /* Increase the buffer to prepare for a possible push. */ - int grow_size = 8 /* arbitrary grow size */; - - num_to_alloc = (yy_buffer_stack_max) + grow_size; - (yy_buffer_stack) = (struct yy_buffer_state**)yyrealloc - ((yy_buffer_stack), - num_to_alloc * sizeof(struct yy_buffer_state*) - ); - - /* zero only the new slots.*/ - memset((yy_buffer_stack) + (yy_buffer_stack_max), 0, grow_size * sizeof(struct yy_buffer_state*)); - (yy_buffer_stack_max) = num_to_alloc; - } -} - -/** Setup the input buffer state to scan directly from a user-specified character buffer. - * @param base the character buffer - * @param size the size in bytes of the character buffer - * - * @return the newly allocated buffer state object. - */ -YY_BUFFER_STATE yy_scan_buffer (char * base, yy_size_t size ) -{ - YY_BUFFER_STATE b; - - if ( size < 2 || - base[size-2] != YY_END_OF_BUFFER_CHAR || - base[size-1] != YY_END_OF_BUFFER_CHAR ) - /* They forgot to leave room for the EOB's. */ - return 0; - - b = (YY_BUFFER_STATE) yyalloc(sizeof( struct yy_buffer_state ) ); - if ( ! b ) - YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" ); - - b->yy_buf_size = size - 2; /* "- 2" to take care of EOB's */ - b->yy_buf_pos = b->yy_ch_buf = base; - b->yy_is_our_buffer = 0; - b->yy_input_file = 0; - b->yy_n_chars = b->yy_buf_size; - b->yy_is_interactive = 0; - b->yy_at_bol = 1; - b->yy_fill_buffer = 0; - b->yy_buffer_status = YY_BUFFER_NEW; - - yy_switch_to_buffer(b ); - - return b; -} - -/** Setup the input buffer state to scan a string. The next call to yylex() will - * scan from a @e copy of @a str. - * @param str a NUL-terminated string to scan - * - * @return the newly allocated buffer state object. - * @note If you want to scan bytes that may contain NUL values, then use - * yy_scan_bytes() instead. - */ -YY_BUFFER_STATE yy_scan_string (yyconst char * str ) -{ - - return yy_scan_bytes(str,strlen(str) ); -} - -/** Setup the input buffer state to scan the given bytes. The next call to yylex() will - * scan from a @e copy of @a bytes. - * @param bytes the byte buffer to scan - * @param len the number of bytes in the buffer pointed to by @a bytes. - * - * @return the newly allocated buffer state object. - */ -YY_BUFFER_STATE yy_scan_bytes (yyconst char * bytes, int len ) -{ - YY_BUFFER_STATE b; - char *buf; - yy_size_t n; - int i; - - /* Get memory for full buffer, including space for trailing EOB's. */ - n = len + 2; - buf = (char *) yyalloc(n ); - if ( ! buf ) - YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" ); - - for ( i = 0; i < len; ++i ) - buf[i] = bytes[i]; - - buf[len] = buf[len+1] = YY_END_OF_BUFFER_CHAR; - - b = yy_scan_buffer(buf,n ); - if ( ! b ) - YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" ); - - /* It's okay to grow etc. this buffer, and we should throw it - * away when we're done. - */ - b->yy_is_our_buffer = 1; - - return b; -} - -#ifndef YY_EXIT_FAILURE -#define YY_EXIT_FAILURE 2 -#endif - -static void yy_fatal_error (yyconst char* msg ) -{ - (void) fprintf( stderr, "%s\n", msg ); - exit( YY_EXIT_FAILURE ); -} - -/* Redefine yyless() so it works in section 3 code. */ - -#undef yyless -#define yyless(n) \ - do \ - { \ - /* Undo effects of setting up yytext. */ \ - int yyless_macro_arg = (n); \ - YY_LESS_LINENO(yyless_macro_arg);\ - yytext[yyleng] = (yy_hold_char); \ - (yy_c_buf_p) = yytext + yyless_macro_arg; \ - (yy_hold_char) = *(yy_c_buf_p); \ - *(yy_c_buf_p) = '\0'; \ - yyleng = yyless_macro_arg; \ - } \ - while ( 0 ) - -/* Accessor methods (get/set functions) to struct members. */ - -/** Get the current line number. - * - */ -int yyget_lineno (void) -{ - - return yylineno; -} - -/** Get the input stream. - * - */ -FILE *yyget_in (void) -{ - return yyin; -} - -/** Get the output stream. - * - */ -FILE *yyget_out (void) -{ - return yyout; -} - -/** Get the length of the current token. - * - */ -int yyget_leng (void) -{ - return yyleng; -} - -/** Get the current token. - * - */ - -char *yyget_text (void) -{ - return yytext; -} - -/** Set the current line number. - * @param line_number - * - */ -void yyset_lineno (int line_number ) -{ - - yylineno = line_number; -} - -/** Set the input stream. This does not discard the current - * input buffer. - * @param in_str A readable stream. - * - * @see yy_switch_to_buffer - */ -void yyset_in (FILE * in_str ) -{ - yyin = in_str ; -} - -void yyset_out (FILE * out_str ) -{ - yyout = out_str ; -} - -int yyget_debug (void) -{ - return yy_flex_debug; -} - -void yyset_debug (int bdebug ) -{ - yy_flex_debug = bdebug ; -} - -/* yylex_destroy is for both reentrant and non-reentrant scanners. */ -int yylex_destroy (void) -{ - - /* Pop the buffer stack, destroying each element. */ - while(YY_CURRENT_BUFFER){ - yy_delete_buffer(YY_CURRENT_BUFFER ); - YY_CURRENT_BUFFER_LVALUE = NULL; - yypop_buffer_state(); - } - - /* Destroy the stack itself. */ - yyfree((yy_buffer_stack) ); - (yy_buffer_stack) = NULL; - - yyfree ( (yy_state_buf) ); - - return 0; -} - -/* - * Internal utility routines. - */ - -#ifndef yytext_ptr -static void yy_flex_strncpy (char* s1, yyconst char * s2, int n ) -{ - register int i; - for ( i = 0; i < n; ++i ) - s1[i] = s2[i]; -} -#endif - -#ifdef YY_NEED_STRLEN -static int yy_flex_strlen (yyconst char * s ) -{ - register int n; - for ( n = 0; s[n]; ++n ) - ; - - return n; -} -#endif - -void *yyalloc (yy_size_t size ) -{ - return (void *) malloc( size ); -} - -void *yyrealloc (void * ptr, yy_size_t size ) -{ - /* The cast to (char *) in the following accommodates both - * implementations that use char* generic pointers, and those - * that use void* generic pointers. It works with the latter - * because both ANSI C and C++ allow castless assignment from - * any pointer type to void*, and deal with argument conversions - * as though doing an assignment. - */ - return (void *) realloc( (char *) ptr, size ); -} - -void yyfree (void * ptr ) -{ - free( (char *) ptr ); /* see yyrealloc() for (char *) cast */ -} - -#define YYTABLES_NAME "yytables" - -#undef YY_NEW_FILE -#undef YY_FLUSH_BUFFER -#undef yy_set_bol -#undef yy_new_buffer -#undef yy_set_interactive -#undef YY_DO_BEFORE_ACTION - -#ifdef YY_DECL_IS_OURS -#undef YY_DECL_IS_OURS -#undef YY_DECL -#endif -#line 90 "goomsl_lex.l" - - - - -int yywrap(void) { return 1; yyunput(0,0); } - - diff --git a/src/post/goom/goomsl_yacc.c b/src/post/goom/goomsl_yacc.c deleted file mode 100644 index 589b171be..000000000 --- a/src/post/goom/goomsl_yacc.c +++ /dev/null @@ -1,2997 +0,0 @@ -/* A Bison parser, made by GNU Bison 1.875. */ - -/* Skeleton parser for Yacc-like parsing with Bison, - Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002 Free Software Foundation, Inc. - - This program is free software; you can redistribute it and/or modify - it under the terms of the GNU General Public License as published by - the Free Software Foundation; either version 2, or (at your option) - any later version. - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. - - You should have received a copy of the GNU General Public License - along with this program; if not, write to the Free Software - Foundation, Inc., 59 Temple Place - Suite 330, - Boston, MA 02111-1307, USA. */ - -/* As a special exception, when this file is copied by Bison into a - Bison output file, you may use that output file without restriction. - This special exception was added by the Free Software Foundation - in version 1.24 of Bison. */ - -/* Written by Richard Stallman by simplifying the original so called - ``semantic'' parser. */ - -/* All symbols defined below should begin with yy or YY, to avoid - infringing on user name space. This should be done even for local - variables, as they might otherwise be expanded by user macros. - There are some unavoidable exceptions within include files to - define necessary library symbols; they are noted "INFRINGES ON - USER NAME SPACE" below. */ - -/* Identify Bison output. */ -#define YYBISON 1 - -/* Skeleton name. */ -#define YYSKELETON_NAME "yacc.c" - -/* Pure parsers. */ -#define YYPURE 0 - -/* Using locations. */ -#define YYLSP_NEEDED 0 - - - -/* Tokens. */ -#ifndef YYTOKENTYPE -# define YYTOKENTYPE - /* Put the tokens into the symbol table, so that GDB and other debuggers - know about them. */ - enum yytokentype { - LTYPE_INTEGER = 258, - LTYPE_FLOAT = 259, - LTYPE_VAR = 260, - LTYPE_PTR = 261, - PTR_TK = 262, - INT_TK = 263, - FLOAT_TK = 264, - DECLARE = 265, - EXTERNAL = 266, - WHILE = 267, - DO = 268, - NOT = 269, - PLUS_EQ = 270, - SUB_EQ = 271, - DIV_EQ = 272, - MUL_EQ = 273, - SUP_EQ = 274, - LOW_EQ = 275, - NOT_EQ = 276, - STRUCT = 277, - FOR = 278, - IN = 279 - }; -#endif -#define LTYPE_INTEGER 258 -#define LTYPE_FLOAT 259 -#define LTYPE_VAR 260 -#define LTYPE_PTR 261 -#define PTR_TK 262 -#define INT_TK 263 -#define FLOAT_TK 264 -#define DECLARE 265 -#define EXTERNAL 266 -#define WHILE 267 -#define DO 268 -#define NOT 269 -#define PLUS_EQ 270 -#define SUB_EQ 271 -#define DIV_EQ 272 -#define MUL_EQ 273 -#define SUP_EQ 274 -#define LOW_EQ 275 -#define NOT_EQ 276 -#define STRUCT 277 -#define FOR 278 -#define IN 279 - - - - -/* Copy the first part of user declarations. */ -#line 6 "goomsl_yacc.y" - - #include <stdio.h> - #include <stdlib.h> - #include <string.h> - #include "goomsl.h" - #include "goomsl_private.h" - -#define STRUCT_ALIGNMENT 16 -/* #define VERBOSE */ - - int yylex(void); - void yyerror(char *); - extern GoomSL *currentGoomSL; - - static NodeType *nodeNew(const char *str, int type, int line_number); - static NodeType *nodeClone(NodeType *node); - static void nodeFreeInternals(NodeType *node); - static void nodeFree(NodeType *node); - - static void commit_node(NodeType *node, int releaseIfTemp); - static void precommit_node(NodeType *node); - - static NodeType *new_constInt(const char *str, int line_number); - static NodeType *new_constFloat(const char *str, int line_number); - static NodeType *new_constPtr(const char *str, int line_number); - static NodeType *new_var(const char *str, int line_number); - static NodeType *new_nop(const char *str); - static NodeType *new_op(const char *str, int type, int nbOp); - - static int allocateLabel(); - static int allocateTemp(); - static void releaseTemp(int n); - static void releaseAllTemps(); - - static int is_tmp_expr(NodeType *node) { - if (node->str) { - return (!strncmp(node->str,"_i_tmp_",7)) - || (!strncmp(node->str,"_f_tmp_",7)) - || (!strncmp(node->str,"_p_tmp",7)); - } - return 0; - } - /* pre: is_tmp_expr(node); */ - static int get_tmp_id(NodeType *node) { return atoi((node->str)+5); } - - static int is_commutative_expr(int itype) - { /* {{{ */ - return (itype == INSTR_ADD) - || (itype == INSTR_MUL) - || (itype == INSTR_ISEQUAL); - } /* }}} */ - - static void GSL_PUT_LABEL(char *name, int line_number) - { /* {{{ */ -#ifdef VERBOSE - printf("label %s\n", name); -#endif - currentGoomSL->instr = gsl_instr_init(currentGoomSL, "label", INSTR_LABEL, 1, line_number); - gsl_instr_add_param(currentGoomSL->instr, name, TYPE_LABEL); - } /* }}} */ - static void GSL_PUT_JUMP(char *name, int line_number) - { /* {{{ */ -#ifdef VERBOSE - printf("jump %s\n", name); -#endif - currentGoomSL->instr = gsl_instr_init(currentGoomSL, "jump", INSTR_JUMP, 1, line_number); - gsl_instr_add_param(currentGoomSL->instr, name, TYPE_LABEL); - } /* }}} */ - - static void GSL_PUT_JXXX(char *name, char *iname, int instr_id, int line_number) - { /* {{{ */ -#ifdef VERBOSE - printf("%s %s\n", iname, name); -#endif - currentGoomSL->instr = gsl_instr_init(currentGoomSL, iname, instr_id, 1, line_number); - gsl_instr_add_param(currentGoomSL->instr, name, TYPE_LABEL); - } /* }}} */ - static void GSL_PUT_JZERO(char *name,int line_number) - { /* {{{ */ - GSL_PUT_JXXX(name,"jzero.i",INSTR_JZERO,line_number); - } /* }}} */ - static void GSL_PUT_JNZERO(char *name, int line_number) - { /* {{{ */ - GSL_PUT_JXXX(name,"jnzero.i",INSTR_JNZERO,line_number); - } /* }}} */ - - /* Structures Management */ - -#define ALIGN_ADDR(_addr,_align) {\ - if (_align>1) {\ - int _dec = (_addr%_align);\ - if (_dec != 0) _addr += _align - _dec;\ - }} - - /* */ - void gsl_prepare_struct(GSL_Struct *s, int s_align, int i_align, int f_align) - { - int i; - int consumed = 0; - int iblk=0, fblk=0; - - s->iBlock[0].size = 0; - s->iBlock[0].data = 0; - s->fBlock[0].size = 0; - s->fBlock[0].data = 0; - - /* Prepare sub-struct and calculate space needed for their storage */ - for (i = 0; i < s->nbFields; ++i) - { - if (s->fields[i]->type < FIRST_RESERVED) - { - int j=0; - GSL_Struct *substruct = currentGoomSL->gsl_struct[s->fields[i]->type]; - consumed += sizeof(int); /* stocke le prefix */ - ALIGN_ADDR(consumed, s_align); - s->fields[i]->offsetInStruct = consumed; - gsl_prepare_struct(substruct, s_align, i_align, f_align); - for(j=0;substruct->iBlock[j].size>0;++j) { - s->iBlock[iblk].data = consumed + substruct->iBlock[j].data; - s->iBlock[iblk].size = substruct->iBlock[j].size; - iblk++; - } - for(j=0;substruct->fBlock[j].size>0;++j) { - s->fBlock[fblk].data = consumed + substruct->fBlock[j].data; - s->fBlock[fblk].size = substruct->fBlock[j].size; - fblk++; - } - consumed += substruct->size; - } - } - - /* Then prepare integers */ - ALIGN_ADDR(consumed, i_align); - for (i = 0; i < s->nbFields; ++i) - { - if (s->fields[i]->type == INSTR_INT) - { - if (s->iBlock[iblk].size == 0) { - s->iBlock[iblk].size = 1; - s->iBlock[iblk].data = consumed; - } else { - s->iBlock[iblk].size += 1; - } - s->fields[i]->offsetInStruct = consumed; - consumed += sizeof(int); - } - } - - iblk++; - s->iBlock[iblk].size = 0; - s->iBlock[iblk].data = 0; - - /* Then prepare floats */ - ALIGN_ADDR(consumed, f_align); - for (i = 0; i < s->nbFields; ++i) - { - if (s->fields[i]->type == INSTR_FLOAT) - { - if (s->fBlock[fblk].size == 0) { - s->fBlock[fblk].size = 1; - s->fBlock[fblk].data = consumed; - } else { - s->fBlock[fblk].size += 1; - } - s->fields[i]->offsetInStruct = consumed; - consumed += sizeof(int); - } - } - - fblk++; - s->fBlock[fblk].size = 0; - s->fBlock[fblk].data = 0; - - /* Finally prepare pointers */ - ALIGN_ADDR(consumed, i_align); - for (i = 0; i < s->nbFields; ++i) - { - if (s->fields[i]->type == INSTR_PTR) - { - s->fields[i]->offsetInStruct = consumed; - consumed += sizeof(int); - } - } - s->size = consumed; - } - - /* Returns the ID of a struct from its name */ - int gsl_get_struct_id(const char *name) /* {{{ */ - { - HashValue *ret = goom_hash_get(currentGoomSL->structIDS, name); - if (ret != NULL) return ret->i; - return -1; - } /* }}} */ - - /* Adds the definition of a struct */ - void gsl_add_struct(const char *name, GSL_Struct *gsl_struct) /* {{{ */ - { - /* Prepare the struct: ie calculate internal storage format */ - gsl_prepare_struct(gsl_struct, STRUCT_ALIGNMENT, STRUCT_ALIGNMENT, STRUCT_ALIGNMENT); - - /* If the struct does not already exists */ - if (gsl_get_struct_id(name) < 0) - { - /* adds it */ - int id = currentGoomSL->nbStructID++; - goom_hash_put_int(currentGoomSL->structIDS, name, id); - if (currentGoomSL->gsl_struct_size <= id) { - currentGoomSL->gsl_struct_size *= 2; - currentGoomSL->gsl_struct = (GSL_Struct**)realloc(currentGoomSL->gsl_struct, - sizeof(GSL_Struct*) * currentGoomSL->gsl_struct_size); - } - currentGoomSL->gsl_struct[id] = gsl_struct; - } - } /* }}} */ - - /* Creates a field for a struct */ - GSL_StructField *gsl_new_struct_field(const char *name, int type) - { - GSL_StructField *field = (GSL_StructField*)malloc(sizeof(GSL_StructField)); - strcpy(field->name, name); - field->type = type; - return field; - } - - /* Create as field for a struct which will be a struct itself */ - GSL_StructField *gsl_new_struct_field_struct(const char *name, const char *type) - { - GSL_StructField *field = gsl_new_struct_field(name, gsl_get_struct_id(type)); - if (field->type < 0) { - fprintf(stderr, "ERROR: Line %d, Unknown structure: '%s'\n", - currentGoomSL->num_lines, type); - exit(1); - } - return field; - } - - /* Creates a Struct */ - GSL_Struct *gsl_new_struct(GSL_StructField *field) - { - GSL_Struct *s = (GSL_Struct*)malloc(sizeof(GSL_Struct)); - s->nbFields = 1; - s->fields[0] = field; - return s; - } - - /* Adds a field to a struct */ - void gsl_add_struct_field(GSL_Struct *s, GSL_StructField *field) - { - s->fields[s->nbFields++] = field; - } - - int gsl_type_of_var(GoomHash *ns, const char *name) - { - char type_of[256]; - HashValue *hv; - sprintf(type_of, "__type_of_%s", name); - hv = goom_hash_get(ns, type_of); - if (hv != NULL) - return hv->i; - fprintf(stderr, "ERROR: Unknown variable type: '%s'\n", name); - return -1; - } - - static void gsl_declare_var(GoomHash *ns, const char *name, int type, void *space) - { - char type_of[256]; - if (name[0] == '@') { ns = currentGoomSL->vars; } - - if (space == NULL) { - switch (type) { - case INSTR_INT: - case INSTR_FLOAT: - case INSTR_PTR: - space = goom_heap_malloc_with_alignment(currentGoomSL->data_heap, - sizeof(int), sizeof(int)); - break; - case -1: - fprintf(stderr, "What the fuck!\n"); - exit(1); - default: /* On a un struct_id */ - space = goom_heap_malloc_with_alignment_prefixed(currentGoomSL->data_heap, - currentGoomSL->gsl_struct[type]->size, STRUCT_ALIGNMENT, sizeof(int)); - } - } - goom_hash_put_ptr(ns, name, (void*)space); - sprintf(type_of, "__type_of_%s", name); - goom_hash_put_int(ns, type_of, type); - - /* Ensuite le hack: on ajoute les champs en tant que variables. */ - if (type < FIRST_RESERVED) - { - int i; - GSL_Struct *gsl_struct = currentGoomSL->gsl_struct[type]; - ((int*)space)[-1] = type; /* stockage du type dans le prefixe de structure */ - for (i = 0; i < gsl_struct->nbFields; ++i) - { - char full_name[256]; - char *cspace = (char*)space + gsl_struct->fields[i]->offsetInStruct; - sprintf(full_name, "%s.%s", name, gsl_struct->fields[i]->name); - gsl_declare_var(ns, full_name, gsl_struct->fields[i]->type, cspace); - } - } - } - - /* Declare a variable which will be a struct */ - static void gsl_struct_decl(GoomHash *namespace, const char *struct_name, const char *name) - { - int struct_id = gsl_get_struct_id(struct_name); - gsl_declare_var(namespace, name, struct_id, NULL); - } - - static void gsl_float_decl_global(const char *name) - { - gsl_declare_var(currentGoomSL->vars, name, INSTR_FLOAT, NULL); - } - static void gsl_int_decl_global(const char *name) - { - gsl_declare_var(currentGoomSL->vars, name, INSTR_INT, NULL); - } - static void gsl_ptr_decl_global(const char *name) - { - gsl_declare_var(currentGoomSL->vars, name, INSTR_PTR, NULL); - } - static void gsl_struct_decl_global_from_id(const char *name, int id) - { - gsl_declare_var(currentGoomSL->vars, name, id, NULL); - } - - /* FLOAT */ - static void gsl_float_decl_local(const char *name) - { - gsl_declare_var(currentGoomSL->namespaces[currentGoomSL->currentNS], name, INSTR_FLOAT, NULL); - } - /* INT */ - static void gsl_int_decl_local(const char *name) - { - gsl_declare_var(currentGoomSL->namespaces[currentGoomSL->currentNS], name, INSTR_INT, NULL); - } - /* PTR */ - static void gsl_ptr_decl_local(const char *name) - { - gsl_declare_var(currentGoomSL->namespaces[currentGoomSL->currentNS], name, INSTR_PTR, NULL); - } - /* STRUCT */ - static void gsl_struct_decl_local(const char *struct_name, const char *name) - { - gsl_struct_decl(currentGoomSL->namespaces[currentGoomSL->currentNS],struct_name,name); - } - - - static void commit_test2(NodeType *set,const char *type, int instr); - static NodeType *new_call(const char *name, NodeType *affect_list); - - /* SETTER */ - static NodeType *new_set(NodeType *lvalue, NodeType *expression) - { /* {{{ */ - NodeType *set = new_op("set", OPR_SET, 2); - set->unode.opr.op[0] = lvalue; - set->unode.opr.op[1] = expression; - return set; - } /* }}} */ - static void commit_set(NodeType *set) - { /* {{{ */ - commit_test2(set,"set",INSTR_SET); - } /* }}} */ - - /* PLUS_EQ */ - static NodeType *new_plus_eq(NodeType *lvalue, NodeType *expression) /* {{{ */ - { - NodeType *set = new_op("plus_eq", OPR_PLUS_EQ, 2); - set->unode.opr.op[0] = lvalue; - set->unode.opr.op[1] = expression; - return set; - } - static void commit_plus_eq(NodeType *set) - { - precommit_node(set->unode.opr.op[1]); -#ifdef VERBOSE - printf("add %s %s\n", set->unode.opr.op[0]->str, set->unode.opr.op[1]->str); -#endif - currentGoomSL->instr = gsl_instr_init(currentGoomSL, "add", INSTR_ADD, 2, set->line_number); - commit_node(set->unode.opr.op[0],0); - commit_node(set->unode.opr.op[1],1); - } /* }}} */ - - /* SUB_EQ */ - static NodeType *new_sub_eq(NodeType *lvalue, NodeType *expression) /* {{{ */ - { - NodeType *set = new_op("sub_eq", OPR_SUB_EQ, 2); - set->unode.opr.op[0] = lvalue; - set->unode.opr.op[1] = expression; - return set; - } - static void commit_sub_eq(NodeType *set) - { - precommit_node(set->unode.opr.op[1]); -#ifdef VERBOSE - printf("sub %s %s\n", set->unode.opr.op[0]->str, set->unode.opr.op[1]->str); -#endif - currentGoomSL->instr = gsl_instr_init(currentGoomSL, "sub", INSTR_SUB, 2, set->line_number); - commit_node(set->unode.opr.op[0],0); - commit_node(set->unode.opr.op[1],1); - } /* }}} */ - - /* MUL_EQ */ - static NodeType *new_mul_eq(NodeType *lvalue, NodeType *expression) /* {{{ */ - { - NodeType *set = new_op("mul_eq", OPR_MUL_EQ, 2); - set->unode.opr.op[0] = lvalue; - set->unode.opr.op[1] = expression; - return set; - } - static void commit_mul_eq(NodeType *set) - { - precommit_node(set->unode.opr.op[1]); -#ifdef VERBOSE - printf("mul %s %s\n", set->unode.opr.op[0]->str, set->unode.opr.op[1]->str); -#endif - currentGoomSL->instr = gsl_instr_init(currentGoomSL, "mul", INSTR_MUL, 2, set->line_number); - commit_node(set->unode.opr.op[0],0); - commit_node(set->unode.opr.op[1],1); - } /* }}} */ - - /* DIV_EQ */ - static NodeType *new_div_eq(NodeType *lvalue, NodeType *expression) /* {{{ */ - { - NodeType *set = new_op("div_eq", OPR_DIV_EQ, 2); - set->unode.opr.op[0] = lvalue; - set->unode.opr.op[1] = expression; - return set; - } - static void commit_div_eq(NodeType *set) - { - precommit_node(set->unode.opr.op[1]); -#ifdef VERBOSE - printf("div %s %s\n", set->unode.opr.op[0]->str, set->unode.opr.op[1]->str); -#endif - currentGoomSL->instr = gsl_instr_init(currentGoomSL, "div", INSTR_DIV, 2, set->line_number); - commit_node(set->unode.opr.op[0],0); - commit_node(set->unode.opr.op[1],1); - } /* }}} */ - - /* commodity method for add, mult, ... */ - - static void precommit_expr(NodeType *expr, const char *type, int instr_id) - { /* {{{ */ - NodeType *tmp, *tmpcpy; - int toAdd; - - /* compute "left" and "right" */ - switch (expr->unode.opr.nbOp) { - case 2: - precommit_node(expr->unode.opr.op[1]); - case 1: - precommit_node(expr->unode.opr.op[0]); - } - - if (is_tmp_expr(expr->unode.opr.op[0])) { - tmp = expr->unode.opr.op[0]; - toAdd = 1; - } - else if (is_commutative_expr(instr_id) && (expr->unode.opr.nbOp==2) && is_tmp_expr(expr->unode.opr.op[1])) { - tmp = expr->unode.opr.op[1]; - toAdd = 0; - } - else { - char stmp[256]; - /* declare a temporary variable to store the result */ - if (expr->unode.opr.op[0]->type == CONST_INT_NODE) { - sprintf(stmp,"_i_tmp_%i",allocateTemp()); - gsl_int_decl_global(stmp); - } - else if (expr->unode.opr.op[0]->type == CONST_FLOAT_NODE) { - sprintf(stmp,"_f_tmp%i",allocateTemp()); - gsl_float_decl_global(stmp); - } - else if (expr->unode.opr.op[0]->type == CONST_PTR_NODE) { - sprintf(stmp,"_p_tmp%i",allocateTemp()); - gsl_ptr_decl_global(stmp); - } - else { - int type = gsl_type_of_var(expr->unode.opr.op[0]->vnamespace, expr->unode.opr.op[0]->str); - if (type == INSTR_FLOAT) { - sprintf(stmp,"_f_tmp_%i",allocateTemp()); - gsl_float_decl_global(stmp); - } - else if (type == INSTR_PTR) { - sprintf(stmp,"_p_tmp_%i",allocateTemp()); - gsl_ptr_decl_global(stmp); - } - else if (type == INSTR_INT) { - sprintf(stmp,"_i_tmp_%i",allocateTemp()); - gsl_int_decl_global(stmp); - } - else if (type == -1) { - fprintf(stderr, "ERROR: Line %d, Could not find variable '%s'\n", - expr->line_number, expr->unode.opr.op[0]->str); - exit(1); - } - else { /* type is a struct_id */ - sprintf(stmp,"_s_tmp_%i",allocateTemp()); - gsl_struct_decl_global_from_id(stmp,type); - } - } - tmp = new_var(stmp,expr->line_number); - - /* set the tmp to the value of "op1" */ - tmpcpy = nodeClone(tmp); - commit_node(new_set(tmp,expr->unode.opr.op[0]),0); - toAdd = 1; - - tmp = tmpcpy; - } - - /* add op2 to tmp */ -#ifdef VERBOSE - if (expr->unode.opr.nbOp == 2) - printf("%s %s %s\n", type, tmp->str, expr->unode.opr.op[toAdd]->str); - else - printf("%s %s\n", type, tmp->str); -#endif - currentGoomSL->instr = gsl_instr_init(currentGoomSL, type, instr_id, expr->unode.opr.nbOp, expr->line_number); - tmpcpy = nodeClone(tmp); - commit_node(tmp,0); - if (expr->unode.opr.nbOp == 2) { - commit_node(expr->unode.opr.op[toAdd],1); - } - - /* redefine the ADD node now as the computed variable */ - nodeFreeInternals(expr); - *expr = *tmpcpy; - free(tmpcpy); - } /* }}} */ - - static NodeType *new_expr1(const char *name, int id, NodeType *expr1) - { /* {{{ */ - NodeType *add = new_op(name, id, 1); - add->unode.opr.op[0] = expr1; - return add; - } /* }}} */ - - static NodeType *new_expr2(const char *name, int id, NodeType *expr1, NodeType *expr2) - { /* {{{ */ - NodeType *add = new_op(name, id, 2); - add->unode.opr.op[0] = expr1; - add->unode.opr.op[1] = expr2; - return add; - } /* }}} */ - - /* ADD */ - static NodeType *new_add(NodeType *expr1, NodeType *expr2) { /* {{{ */ - return new_expr2("add", OPR_ADD, expr1, expr2); - } - static void precommit_add(NodeType *add) { - precommit_expr(add,"add",INSTR_ADD); - } /* }}} */ - - /* SUB */ - static NodeType *new_sub(NodeType *expr1, NodeType *expr2) { /* {{{ */ - return new_expr2("sub", OPR_SUB, expr1, expr2); - } - static void precommit_sub(NodeType *sub) { - precommit_expr(sub,"sub",INSTR_SUB); - } /* }}} */ - - /* NEG */ - static NodeType *new_neg(NodeType *expr) { /* {{{ */ - NodeType *zeroConst = NULL; - if (expr->type == CONST_INT_NODE) - zeroConst = new_constInt("0", currentGoomSL->num_lines); - else if (expr->type == CONST_FLOAT_NODE) - zeroConst = new_constFloat("0.0", currentGoomSL->num_lines); - else if (expr->type == CONST_PTR_NODE) { - fprintf(stderr, "ERROR: Line %d, Could not negate const pointer.\n", - currentGoomSL->num_lines); - exit(1); - } - else { - int type = gsl_type_of_var(expr->vnamespace, expr->str); - if (type == INSTR_FLOAT) - zeroConst = new_constFloat("0.0", currentGoomSL->num_lines); - else if (type == INSTR_PTR) { - fprintf(stderr, "ERROR: Line %d, Could not negate pointer.\n", - currentGoomSL->num_lines); - exit(1); - } - else if (type == INSTR_INT) - zeroConst = new_constInt("0", currentGoomSL->num_lines); - else if (type == -1) { - fprintf(stderr, "ERROR: Line %d, Could not find variable '%s'\n", - expr->line_number, expr->unode.opr.op[0]->str); - exit(1); - } - else { /* type is a struct_id */ - fprintf(stderr, "ERROR: Line %d, Could not negate struct '%s'\n", - expr->line_number, expr->str); - exit(1); - } - } - return new_expr2("sub", OPR_SUB, zeroConst, expr); - } - /* }}} */ - - /* MUL */ - static NodeType *new_mul(NodeType *expr1, NodeType *expr2) { /* {{{ */ - return new_expr2("mul", OPR_MUL, expr1, expr2); - } - static void precommit_mul(NodeType *mul) { - precommit_expr(mul,"mul",INSTR_MUL); - } /* }}} */ - - /* DIV */ - static NodeType *new_div(NodeType *expr1, NodeType *expr2) { /* {{{ */ - return new_expr2("div", OPR_DIV, expr1, expr2); - } - static void precommit_div(NodeType *mul) { - precommit_expr(mul,"div",INSTR_DIV); - } /* }}} */ - - /* CALL EXPRESSION */ - static NodeType *new_call_expr(const char *name, NodeType *affect_list) { /* {{{ */ - NodeType *call = new_call(name,affect_list); - NodeType *node = new_expr1(name, OPR_CALL_EXPR, call); - node->vnamespace = gsl_find_namespace(name); - if (node->vnamespace == NULL) - fprintf(stderr, "ERROR: Line %d, No return type for: '%s'\n", currentGoomSL->num_lines, name); - return node; - } - static void precommit_call_expr(NodeType *call) { - char stmp[256]; - NodeType *tmp,*tmpcpy; - int type = gsl_type_of_var(call->vnamespace, call->str); - if (type == INSTR_FLOAT) { - sprintf(stmp,"_f_tmp_%i",allocateTemp()); - gsl_float_decl_global(stmp); - } - else if (type == INSTR_PTR) { - sprintf(stmp,"_p_tmp_%i",allocateTemp()); - gsl_ptr_decl_global(stmp); - } - else if (type == INSTR_INT) { - sprintf(stmp,"_i_tmp_%i",allocateTemp()); - gsl_int_decl_global(stmp); - } - else if (type == -1) { - fprintf(stderr, "ERROR: Line %d, Could not find variable '%s'\n", - call->line_number, call->str); - exit(1); - } - else { /* type is a struct_id */ - sprintf(stmp,"_s_tmp_%i",allocateTemp()); - gsl_struct_decl_global_from_id(stmp,type); - } - tmp = new_var(stmp,call->line_number); - commit_node(call->unode.opr.op[0],0); - tmpcpy = nodeClone(tmp); - commit_node(new_set(tmp,new_var(call->str,call->line_number)),0); - - nodeFreeInternals(call); - *call = *tmpcpy; - free(tmpcpy); - } /* }}} */ - - static void commit_test2(NodeType *set,const char *type, int instr) - { /* {{{ */ - NodeType *tmp; - char stmp[256]; - precommit_node(set->unode.opr.op[0]); - precommit_node(set->unode.opr.op[1]); - tmp = set->unode.opr.op[0]; - - stmp[0] = 0; - if (set->unode.opr.op[0]->type == CONST_INT_NODE) { - sprintf(stmp,"_i_tmp_%i",allocateTemp()); - gsl_int_decl_global(stmp); - } - else if (set->unode.opr.op[0]->type == CONST_FLOAT_NODE) { - sprintf(stmp,"_f_tmp%i",allocateTemp()); - gsl_float_decl_global(stmp); - } - else if (set->unode.opr.op[0]->type == CONST_PTR_NODE) { - sprintf(stmp,"_p_tmp%i",allocateTemp()); - gsl_ptr_decl_global(stmp); - } - if (stmp[0]) { - NodeType *tmpcpy; - tmp = new_var(stmp, set->line_number); - tmpcpy = nodeClone(tmp); - commit_node(new_set(tmp,set->unode.opr.op[0]),0); - tmp = tmpcpy; - } - -#ifdef VERBOSE - printf("%s %s %s\n", type, tmp->str, set->unode.opr.op[1]->str); -#endif - currentGoomSL->instr = gsl_instr_init(currentGoomSL, type, instr, 2, set->line_number); - commit_node(tmp,instr!=INSTR_SET); - commit_node(set->unode.opr.op[1],1); - } /* }}} */ - - /* NOT */ - static NodeType *new_not(NodeType *expr1) { /* {{{ */ - return new_expr1("not", OPR_NOT, expr1); - } - static void commit_not(NodeType *set) - { - commit_node(set->unode.opr.op[0],0); -#ifdef VERBOSE - printf("not\n"); -#endif - currentGoomSL->instr = gsl_instr_init(currentGoomSL, "not", INSTR_NOT, 1, set->line_number); - gsl_instr_add_param(currentGoomSL->instr, "|dummy|", TYPE_LABEL); - } /* }}} */ - - /* EQU */ - static NodeType *new_equ(NodeType *expr1, NodeType *expr2) { /* {{{ */ - return new_expr2("isequal", OPR_EQU, expr1, expr2); - } - static void commit_equ(NodeType *mul) { - commit_test2(mul,"isequal",INSTR_ISEQUAL); - } /* }}} */ - - /* INF */ - static NodeType *new_low(NodeType *expr1, NodeType *expr2) { /* {{{ */ - return new_expr2("islower", OPR_LOW, expr1, expr2); - } - static void commit_low(NodeType *mul) { - commit_test2(mul,"islower",INSTR_ISLOWER); - } /* }}} */ - - /* WHILE */ - static NodeType *new_while(NodeType *expression, NodeType *instr) { /* {{{ */ - NodeType *node = new_op("while", OPR_WHILE, 2); - node->unode.opr.op[0] = expression; - node->unode.opr.op[1] = instr; - return node; - } - - static void commit_while(NodeType *node) - { - int lbl = allocateLabel(); - char start_while[1024], test_while[1024]; - sprintf(start_while, "|start_while_%d|", lbl); - sprintf(test_while, "|test_while_%d|", lbl); - - GSL_PUT_JUMP(test_while,node->line_number); - GSL_PUT_LABEL(start_while,node->line_number); - - /* code */ - commit_node(node->unode.opr.op[1],0); - - GSL_PUT_LABEL(test_while,node->line_number); - commit_node(node->unode.opr.op[0],0); - GSL_PUT_JNZERO(start_while,node->line_number); - } /* }}} */ - - /* FOR EACH */ - static NodeType *new_static_foreach(NodeType *var, NodeType *var_list, NodeType *instr) { /* {{{ */ - NodeType *node = new_op("for", OPR_FOREACH, 3); - node->unode.opr.op[0] = var; - node->unode.opr.op[1] = var_list; - node->unode.opr.op[2] = instr; - node->line_number = currentGoomSL->num_lines; - return node; - } - static void commit_foreach(NodeType *node) - { - NodeType *cur = node->unode.opr.op[1]; - char tmp_func[256], tmp_loop[256]; - int lbl = allocateLabel(); - sprintf(tmp_func, "|foreach_func_%d|", lbl); - sprintf(tmp_loop, "|foreach_loop_%d|", lbl); - - GSL_PUT_JUMP(tmp_loop, node->line_number); - GSL_PUT_LABEL(tmp_func, node->line_number); - - precommit_node(node->unode.opr.op[2]); - commit_node(node->unode.opr.op[2], 0); - - currentGoomSL->instr = gsl_instr_init(currentGoomSL, "ret", INSTR_RET, 1, node->line_number); - gsl_instr_add_param(currentGoomSL->instr, "|dummy|", TYPE_LABEL); -#ifdef VERBOSE - printf("ret\n"); -#endif - - GSL_PUT_LABEL(tmp_loop, node->line_number); - - while (cur != NULL) - { - NodeType *x, *var; - - /* 1: x=var */ - x = nodeClone(node->unode.opr.op[0]); - var = nodeClone(cur->unode.opr.op[0]); - commit_node(new_set(x, var),0); - - /* 2: instr */ - currentGoomSL->instr = gsl_instr_init(currentGoomSL, "call", INSTR_CALL, 1, node->line_number); - gsl_instr_add_param(currentGoomSL->instr, tmp_func, TYPE_LABEL); -#ifdef VERBOSE - printf("call %s\n", tmp_func); -#endif - - /* 3: var=x */ - x = nodeClone(node->unode.opr.op[0]); - var = cur->unode.opr.op[0]; - commit_node(new_set(var, x),0); - cur = cur->unode.opr.op[1]; - } - nodeFree(node->unode.opr.op[0]); - } /* }}} */ - - /* IF */ - static NodeType *new_if(NodeType *expression, NodeType *instr) { /* {{{ */ - NodeType *node = new_op("if", OPR_IF, 2); - node->unode.opr.op[0] = expression; - node->unode.opr.op[1] = instr; - return node; - } - static void commit_if(NodeType *node) { - - char slab[1024]; - sprintf(slab, "|eif%d|", allocateLabel()); - commit_node(node->unode.opr.op[0],0); - GSL_PUT_JZERO(slab,node->line_number); - /* code */ - commit_node(node->unode.opr.op[1],0); - GSL_PUT_LABEL(slab,node->line_number); - } /* }}} */ - - /* BLOCK */ - static NodeType *new_block(NodeType *lastNode) { /* {{{ */ - NodeType *blk = new_op("block", OPR_BLOCK, 2); - blk->unode.opr.op[0] = new_nop("start_of_block"); - blk->unode.opr.op[1] = lastNode; - return blk; - } - static void commit_block(NodeType *node) { - commit_node(node->unode.opr.op[0]->unode.opr.next,0); - } /* }}} */ - - /* FUNCTION INTRO */ - static NodeType *new_function_intro(const char *name) { /* {{{ */ - char stmp[256]; - if (strlen(name) < 200) { - sprintf(stmp, "|__func_%s|", name); - } - return new_op(stmp, OPR_FUNC_INTRO, 0); - } - static void commit_function_intro(NodeType *node) { - currentGoomSL->instr = gsl_instr_init(currentGoomSL, "label", INSTR_LABEL, 1, node->line_number); - gsl_instr_add_param(currentGoomSL->instr, node->str, TYPE_LABEL); -#ifdef VERBOSE - printf("label %s\n", node->str); -#endif - } /* }}} */ - - /* FUNCTION OUTRO */ - static NodeType *new_function_outro() { /* {{{ */ - return new_op("ret", OPR_FUNC_OUTRO, 0); - } - static void commit_function_outro(NodeType *node) { - currentGoomSL->instr = gsl_instr_init(currentGoomSL, "ret", INSTR_RET, 1, node->line_number); - gsl_instr_add_param(currentGoomSL->instr, "|dummy|", TYPE_LABEL); - releaseAllTemps(); -#ifdef VERBOSE - printf("ret\n"); -#endif - } /* }}} */ - - /* AFFECTATION LIST */ - static NodeType *new_affec_list(NodeType *set, NodeType *next) /* {{{ */ - { - NodeType *node = new_op("affect_list", OPR_AFFECT_LIST, 2); - node->unode.opr.op[0] = set; - node->unode.opr.op[1] = next; - return node; - } - static NodeType *new_affect_list_after(NodeType *affect_list) - { - NodeType *ret = NULL; - NodeType *cur = affect_list; - while(cur != NULL) { - NodeType *set = cur->unode.opr.op[0]; - NodeType *next = cur->unode.opr.op[1]; - NodeType *lvalue = set->unode.opr.op[0]; - NodeType *expression = set->unode.opr.op[1]; - if ((lvalue->str[0] == '&') && (expression->type == VAR_NODE)) { - NodeType *nset = new_set(nodeClone(expression), nodeClone(lvalue)); - ret = new_affec_list(nset, ret); - } - cur = next; - } - return ret; - } - static void commit_affect_list(NodeType *node) - { - NodeType *cur = node; - while(cur != NULL) { - NodeType *set = cur->unode.opr.op[0]; - precommit_node(set->unode.opr.op[0]); - precommit_node(set->unode.opr.op[1]); - cur = cur->unode.opr.op[1]; - } - cur = node; - while(cur != NULL) { - NodeType *set = cur->unode.opr.op[0]; - commit_node(set,0); - cur = cur->unode.opr.op[1]; - } - } /* }}} */ - - /* VAR LIST */ - static NodeType *new_var_list(NodeType *var, NodeType *next) /* {{{ */ - { - NodeType *node = new_op("var_list", OPR_VAR_LIST, 2); - node->unode.opr.op[0] = var; - node->unode.opr.op[1] = next; - return node; - } - static void commit_var_list(NodeType *node) - { - } /* }}} */ - - /* FUNCTION CALL */ - static NodeType *new_call(const char *name, NodeType *affect_list) { /* {{{ */ - HashValue *fval; - fval = goom_hash_get(currentGoomSL->functions, name); - if (!fval) { - gsl_declare_task(name); - fval = goom_hash_get(currentGoomSL->functions, name); - } - if (!fval) { - fprintf(stderr, "ERROR: Line %d, Could not find function %s\n", currentGoomSL->num_lines, name); - exit(1); - return NULL; - } - else { - ExternalFunctionStruct *gef = (ExternalFunctionStruct*)fval->ptr; - if (gef->is_extern) { - NodeType *node = new_op(name, OPR_EXT_CALL, 1); - node->unode.opr.op[0] = affect_list; - return node; - } - else { - NodeType *node; - char stmp[256]; - if (strlen(name) < 200) { - sprintf(stmp, "|__func_%s|", name); - } - node = new_op(stmp, OPR_CALL, 1); - node->unode.opr.op[0] = affect_list; - return node; - } - } - } - static void commit_ext_call(NodeType *node) { - NodeType *alafter = new_affect_list_after(node->unode.opr.op[0]); - commit_node(node->unode.opr.op[0],0); - currentGoomSL->instr = gsl_instr_init(currentGoomSL, "extcall", INSTR_EXT_CALL, 1, node->line_number); - gsl_instr_add_param(currentGoomSL->instr, node->str, TYPE_VAR); -#ifdef VERBOSE - printf("extcall %s\n", node->str); -#endif - commit_node(alafter,0); - } - static void commit_call(NodeType *node) { - NodeType *alafter = new_affect_list_after(node->unode.opr.op[0]); - commit_node(node->unode.opr.op[0],0); - currentGoomSL->instr = gsl_instr_init(currentGoomSL, "call", INSTR_CALL, 1, node->line_number); - gsl_instr_add_param(currentGoomSL->instr, node->str, TYPE_LABEL); -#ifdef VERBOSE - printf("call %s\n", node->str); -#endif - commit_node(alafter,0); - } /* }}} */ - - /** **/ - - static NodeType *rootNode = 0; /* TODO: reinitialiser a chaque compilation. */ - static NodeType *lastNode = 0; - static NodeType *gsl_append(NodeType *curNode) { - if (curNode == 0) return 0; /* {{{ */ - if (lastNode) - lastNode->unode.opr.next = curNode; - lastNode = curNode; - while(lastNode->unode.opr.next) lastNode = lastNode->unode.opr.next; - if (rootNode == 0) - rootNode = curNode; - return curNode; - } /* }}} */ - -#if 1 - int allocateTemp() { - return allocateLabel(); - } - void releaseAllTemps() {} - void releaseTemp(int n) {} -#else - static int nbTemp = 0; - static int *tempArray = 0; - static int tempArraySize = 0; - int allocateTemp() { /* TODO: allocateITemp, allocateFTemp */ - int i = 0; /* {{{ */ - if (tempArray == 0) { - tempArraySize = 256; - tempArray = (int*)malloc(tempArraySize * sizeof(int)); - } - while (1) { - int j; - for (j=0;j<nbTemp;++j) { - if (tempArray[j] == i) break; - } - if (j == nbTemp) { - if (nbTemp == tempArraySize) { - tempArraySize *= 2; - tempArray = (int*)realloc(tempArray,tempArraySize * sizeof(int)); - } - tempArray[nbTemp++] = i; - return i; - } - i++; - } - } /* }}} */ - void releaseAllTemps() { - nbTemp = 0; /* {{{ */ - } /* }}} */ - void releaseTemp(int n) { - int j; /* {{{ */ - for (j=0;j<nbTemp;++j) { - if (tempArray[j] == n) { - tempArray[j] = tempArray[--nbTemp]; - break; - } - } - } /* }}} */ -#endif - - static int lastLabel = 0; - int allocateLabel() { - return ++lastLabel; /* {{{ */ - } /* }}} */ - - void gsl_commit_compilation() - { /* {{{ */ - commit_node(rootNode,0); - rootNode = 0; - lastNode = 0; - } /* }}} */ - - void precommit_node(NodeType *node) - { /* {{{ */ - /* do here stuff for expression.. for exemple */ - if (node->type == OPR_NODE) - switch(node->unode.opr.type) { - case OPR_ADD: precommit_add(node); break; - case OPR_SUB: precommit_sub(node); break; - case OPR_MUL: precommit_mul(node); break; - case OPR_DIV: precommit_div(node); break; - case OPR_CALL_EXPR: precommit_call_expr(node); break; - } - } /* }}} */ - - void commit_node(NodeType *node, int releaseIfTmp) - { /* {{{ */ - if (node == 0) return; - - switch(node->type) { - case OPR_NODE: - switch(node->unode.opr.type) { - case OPR_SET: commit_set(node); break; - case OPR_PLUS_EQ: commit_plus_eq(node); break; - case OPR_SUB_EQ: commit_sub_eq(node); break; - case OPR_MUL_EQ: commit_mul_eq(node); break; - case OPR_DIV_EQ: commit_div_eq(node); break; - case OPR_IF: commit_if(node); break; - case OPR_WHILE: commit_while(node); break; - case OPR_BLOCK: commit_block(node); break; - case OPR_FUNC_INTRO: commit_function_intro(node); break; - case OPR_FUNC_OUTRO: commit_function_outro(node); break; - case OPR_CALL: commit_call(node); break; - case OPR_EXT_CALL: commit_ext_call(node); break; - case OPR_EQU: commit_equ(node); break; - case OPR_LOW: commit_low(node); break; - case OPR_NOT: commit_not(node); break; - case OPR_AFFECT_LIST: commit_affect_list(node); break; - case OPR_FOREACH: commit_foreach(node); break; - case OPR_VAR_LIST: commit_var_list(node); break; -#ifdef VERBOSE - case EMPTY_NODE: printf("NOP\n"); break; -#endif - } - - commit_node(node->unode.opr.next,0); /* recursive for the moment, maybe better to do something iterative? */ - break; - - case VAR_NODE: gsl_instr_set_namespace(currentGoomSL->instr, node->vnamespace); - gsl_instr_add_param(currentGoomSL->instr, node->str, TYPE_VAR); break; - case CONST_INT_NODE: gsl_instr_add_param(currentGoomSL->instr, node->str, TYPE_INTEGER); break; - case CONST_FLOAT_NODE: gsl_instr_add_param(currentGoomSL->instr, node->str, TYPE_FLOAT); break; - case CONST_PTR_NODE: gsl_instr_add_param(currentGoomSL->instr, node->str, TYPE_PTR); break; - } - if (releaseIfTmp && is_tmp_expr(node)) - releaseTemp(get_tmp_id(node)); - - nodeFree(node); - } /* }}} */ - - NodeType *nodeNew(const char *str, int type, int line_number) { - NodeType *node = (NodeType*)malloc(sizeof(NodeType)); /* {{{ */ - node->type = type; - node->str = (char*)malloc(strlen(str)+1); - node->vnamespace = NULL; - node->line_number = line_number; - strcpy(node->str, str); - return node; - } /* }}} */ - static NodeType *nodeClone(NodeType *node) { - NodeType *ret = nodeNew(node->str, node->type, node->line_number); /* {{{ */ - ret->vnamespace = node->vnamespace; - ret->unode = node->unode; - return ret; - } /* }}} */ - - void nodeFreeInternals(NodeType *node) { - free(node->str); /* {{{ */ - } /* }}} */ - - void nodeFree(NodeType *node) { - nodeFreeInternals(node); /* {{{ */ - free(node); - } /* }}} */ - - NodeType *new_constInt(const char *str, int line_number) { - NodeType *node = nodeNew(str, CONST_INT_NODE, line_number); /* {{{ */ - node->unode.constInt.val = atoi(str); - return node; - } /* }}} */ - - NodeType *new_constPtr(const char *str, int line_number) { - NodeType *node = nodeNew(str, CONST_PTR_NODE, line_number); /* {{{ */ - node->unode.constPtr.id = strtol(str,NULL,0); - return node; - } /* }}} */ - - NodeType *new_constFloat(const char *str, int line_number) { - NodeType *node = nodeNew(str, CONST_FLOAT_NODE, line_number); /* {{{ */ - node->unode.constFloat.val = atof(str); - return node; - } /* }}} */ - - NodeType *new_var(const char *str, int line_number) { - NodeType *node = nodeNew(str, VAR_NODE, line_number); /* {{{ */ - node->vnamespace = gsl_find_namespace(str); - if (node->vnamespace == 0) { - fprintf(stderr, "ERROR: Line %d, Variable not found: '%s'\n", line_number, str); - exit(1); - } - return node; - } /* }}} */ - - NodeType *new_nop(const char *str) { - NodeType *node = new_op(str, EMPTY_NODE, 0); /* {{{ */ - return node; - } /* }}} */ - - NodeType *new_op(const char *str, int type, int nbOp) { - int i; /* {{{ */ - NodeType *node = nodeNew(str, OPR_NODE, currentGoomSL->num_lines); - node->unode.opr.next = 0; - node->unode.opr.type = type; - node->unode.opr.nbOp = nbOp; - for (i=0;i<nbOp;++i) node->unode.opr.op[i] = 0; - return node; - } /* }}} */ - - - void gsl_declare_global_variable(int type, char *name) { - switch(type){ - case -1: break; - case FLOAT_TK:gsl_float_decl_global(name);break; - case INT_TK: gsl_int_decl_global(name);break; - case PTR_TK: gsl_ptr_decl_global(name);break; - default: - { - int id = type - 1000; - gsl_struct_decl_global_from_id(name,id); - } - } - } - - - -/* Enabling traces. */ -#ifndef YYDEBUG -# define YYDEBUG 0 -#endif - -/* Enabling verbose error messages. */ -#ifdef YYERROR_VERBOSE -# undef YYERROR_VERBOSE -# define YYERROR_VERBOSE 1 -#else -# define YYERROR_VERBOSE 0 -#endif - -#if ! defined (YYSTYPE) && ! defined (YYSTYPE_IS_DECLARED) -#line 1199 "goomsl_yacc.y" -typedef union YYSTYPE { - int intValue; - float floatValue; - char charValue; - char strValue[2048]; - NodeType *nPtr; - GoomHash *namespace; - GSL_Struct *gsl_struct; - GSL_StructField *gsl_struct_field; - } YYSTYPE; -/* Line 191 of yacc.c. */ -#line 1327 "goomsl_yacc.c" -# define yystype YYSTYPE /* obsolescent; will be withdrawn */ -# define YYSTYPE_IS_DECLARED 1 -# define YYSTYPE_IS_TRIVIAL 1 -#endif - - - -/* Copy the second part of user declarations. */ - - -/* Line 214 of yacc.c. */ -#line 1339 "goomsl_yacc.c" - -#if ! defined (yyoverflow) || YYERROR_VERBOSE - -/* The parser invokes alloca or malloc; define the necessary symbols. */ - -# if YYSTACK_USE_ALLOCA -# define YYSTACK_ALLOC alloca -# else -# ifndef YYSTACK_USE_ALLOCA -# if defined (alloca) || defined (_ALLOCA_H) -# define YYSTACK_ALLOC alloca -# else -# ifdef __GNUC__ -# define YYSTACK_ALLOC __builtin_alloca -# endif -# endif -# endif -# endif - -# ifdef YYSTACK_ALLOC - /* Pacify GCC's `empty if-body' warning. */ -# define YYSTACK_FREE(Ptr) do { /* empty */; } while (0) -# else -# if defined (__STDC__) || defined (__cplusplus) -# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */ -# define YYSIZE_T size_t -# endif -# define YYSTACK_ALLOC malloc -# define YYSTACK_FREE free -# endif -#endif /* ! defined (yyoverflow) || YYERROR_VERBOSE */ - - -#if (! defined (yyoverflow) \ - && (! defined (__cplusplus) \ - || (YYSTYPE_IS_TRIVIAL))) - -/* A type that is properly aligned for any stack member. */ -union yyalloc -{ - short yyss; - YYSTYPE yyvs; - }; - -/* The size of the maximum gap between one aligned stack and the next. */ -# define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1) - -/* The size of an array large to enough to hold all stacks, each with - N elements. */ -# define YYSTACK_BYTES(N) \ - ((N) * (sizeof (short) + sizeof (YYSTYPE)) \ - + YYSTACK_GAP_MAXIMUM) - -/* Copy COUNT objects from FROM to TO. The source and destination do - not overlap. */ -# ifndef YYCOPY -# if 1 < __GNUC__ -# define YYCOPY(To, From, Count) \ - __builtin_memcpy (To, From, (Count) * sizeof (*(From))) -# else -# define YYCOPY(To, From, Count) \ - do \ - { \ - register YYSIZE_T yyi; \ - for (yyi = 0; yyi < (Count); yyi++) \ - (To)[yyi] = (From)[yyi]; \ - } \ - while (0) -# endif -# endif - -/* Relocate STACK from its old location to the new one. The - local variables YYSIZE and YYSTACKSIZE give the old and new number of - elements in the stack, and YYPTR gives the new location of the - stack. Advance YYPTR to a properly aligned location for the next - stack. */ -# define YYSTACK_RELOCATE(Stack) \ - do \ - { \ - YYSIZE_T yynewbytes; \ - YYCOPY (&yyptr->Stack, Stack, yysize); \ - Stack = &yyptr->Stack; \ - yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \ - yyptr += yynewbytes / sizeof (*yyptr); \ - } \ - while (0) - -#endif - -#if defined (__STDC__) || defined (__cplusplus) - typedef signed char yysigned_char; -#else - typedef short yysigned_char; -#endif - -/* YYFINAL -- State number of the termination state. */ -#define YYFINAL 3 -/* YYLAST -- Last index in YYTABLE. */ -#define YYLAST 229 - -/* YYNTOKENS -- Number of terminals. */ -#define YYNTOKENS 42 -/* YYNNTS -- Number of nonterminals. */ -#define YYNNTS 30 -/* YYNRULES -- Number of rules. */ -#define YYNRULES 89 -/* YYNRULES -- Number of states. */ -#define YYNSTATES 217 - -/* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX. */ -#define YYUNDEFTOK 2 -#define YYMAXUTOK 279 - -#define YYTRANSLATE(YYX) \ - ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK) - -/* YYTRANSLATE[YYLEX] -- Bison symbol number corresponding to YYLEX. */ -static const unsigned char yytranslate[] = -{ - 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 25, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 35, 36, 32, 29, 34, 30, 2, 31, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 33, 2, - 27, 26, 28, 37, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 40, 2, 41, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 38, 2, 39, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 1, 2, 3, 4, - 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, - 15, 16, 17, 18, 19, 20, 21, 22, 23, 24 -}; - -#if YYDEBUG -/* YYPRHS[YYN] -- Index of the first RHS symbol of rule number YYN in - YYRHS. */ -static const unsigned short yyprhs[] = -{ - 0, 0, 3, 7, 10, 19, 30, 39, 50, 53, - 56, 57, 65, 68, 73, 76, 79, 82, 85, 87, - 89, 90, 93, 96, 99, 102, 104, 108, 111, 112, - 116, 122, 130, 131, 132, 137, 142, 147, 152, 154, - 157, 160, 163, 166, 169, 172, 179, 186, 193, 195, - 199, 203, 207, 211, 218, 222, 224, 227, 231, 232, - 234, 236, 240, 244, 248, 252, 255, 259, 261, 265, - 269, 273, 277, 281, 285, 288, 290, 292, 294, 298, - 304, 310, 318, 323, 330, 333, 335, 340, 344, 346 -}; - -/* YYRHS -- A `-1'-separated list of the rules' RHS. */ -static const yysigned_char yyrhs[] = -{ - 43, 0, -1, 44, 55, 52, -1, 44, 59, -1, - 44, 11, 27, 48, 28, 50, 25, 56, -1, 44, - 11, 27, 48, 33, 51, 28, 50, 25, 56, -1, - 44, 10, 27, 49, 28, 50, 25, 56, -1, 44, - 10, 27, 49, 33, 51, 28, 50, 25, 56, -1, - 44, 45, -1, 44, 25, -1, -1, 22, 27, 5, - 33, 46, 28, 25, -1, 71, 47, -1, 46, 34, - 71, 47, -1, 8, 5, -1, 9, 5, -1, 7, - 5, -1, 5, 5, -1, 5, -1, 5, -1, -1, - 33, 8, -1, 33, 9, -1, 33, 7, -1, 33, - 5, -1, 58, -1, 58, 34, 51, -1, 52, 53, - -1, -1, 54, 44, 55, -1, 27, 49, 28, 50, - 25, -1, 27, 49, 33, 51, 28, 50, 25, -1, - -1, -1, 9, 5, 26, 64, -1, 8, 5, 26, - 64, -1, 7, 5, 26, 64, -1, 5, 5, 26, - 64, -1, 58, -1, 9, 5, -1, 8, 5, -1, - 7, 5, -1, 5, 5, -1, 62, 25, -1, 57, - 25, -1, 35, 65, 36, 37, 71, 59, -1, 12, - 65, 71, 13, 71, 59, -1, 38, 25, 63, 44, - 39, 25, -1, 67, -1, 5, 15, 64, -1, 5, - 16, 64, -1, 5, 18, 64, -1, 5, 17, 64, - -1, 23, 5, 24, 60, 13, 59, -1, 35, 61, - 36, -1, 5, -1, 5, 61, -1, 5, 26, 64, - -1, -1, 5, -1, 66, -1, 64, 32, 64, -1, - 64, 31, 64, -1, 64, 29, 64, -1, 64, 30, - 64, -1, 30, 64, -1, 35, 64, 36, -1, 68, - -1, 64, 26, 64, -1, 64, 27, 64, -1, 64, - 28, 64, -1, 64, 19, 64, -1, 64, 20, 64, - -1, 64, 21, 64, -1, 14, 65, -1, 4, -1, - 3, -1, 6, -1, 49, 25, 56, -1, 49, 33, - 69, 25, 56, -1, 40, 49, 41, 25, 56, -1, - 40, 49, 33, 69, 41, 25, 56, -1, 40, 49, - 56, 41, -1, 40, 49, 33, 69, 41, 56, -1, - 70, 69, -1, 70, -1, 5, 26, 56, 64, -1, - 33, 56, 64, -1, 25, -1, -1 -}; - -/* YYRLINE[YYN] -- source line where rule number YYN was defined. */ -static const unsigned short yyrline[] = -{ - 0, 1236, 1236, 1238, 1239, 1240, 1241, 1242, 1243, 1244, - 1245, 1250, 1253, 1254, 1257, 1258, 1259, 1260, 1265, 1267, - 1270, 1271, 1272, 1273, 1274, 1277, 1278, 1283, 1284, 1287, - 1289, 1291, 1294, 1296, 1300, 1301, 1302, 1303, 1304, 1307, - 1308, 1309, 1310, 1315, 1316, 1317, 1318, 1319, 1320, 1321, - 1322, 1323, 1324, 1325, 1328, 1330, 1331, 1334, 1336, 1339, - 1340, 1341, 1342, 1343, 1344, 1345, 1346, 1347, 1350, 1351, - 1352, 1353, 1354, 1355, 1356, 1359, 1360, 1361, 1366, 1367, - 1368, 1369, 1373, 1374, 1377, 1378, 1380, 1384, 1393, 1393 -}; -#endif - -#if YYDEBUG || YYERROR_VERBOSE -/* YYTNME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM. - First, the terminals, then, starting at YYNTOKENS, nonterminals. */ -static const char *const yytname[] = -{ - "$end", "error", "$undefined", "LTYPE_INTEGER", "LTYPE_FLOAT", - "LTYPE_VAR", "LTYPE_PTR", "PTR_TK", "INT_TK", "FLOAT_TK", "DECLARE", - "EXTERNAL", "WHILE", "DO", "NOT", "PLUS_EQ", "SUB_EQ", "DIV_EQ", - "MUL_EQ", "SUP_EQ", "LOW_EQ", "NOT_EQ", "STRUCT", "FOR", "IN", "'\\n'", - "'='", "'<'", "'>'", "'+'", "'-'", "'/'", "'*'", "':'", "','", "'('", - "')'", "'?'", "'{'", "'}'", "'['", "']'", "$accept", "gsl", "gsl_code", - "struct_declaration", "struct_members", "struct_member", - "ext_task_name", "task_name", "return_type", "arglist", - "gsl_def_functions", "function", "function_intro", "function_outro", - "leave_namespace", "declaration", "empty_declaration", "instruction", - "var_list", "var_list_content", "affectation", "start_block", - "expression", "test", "constValue", "func_call", "func_call_expression", - "affectation_list", "affectation_in_list", "opt_nl", 0 -}; -#endif - -# ifdef YYPRINT -/* YYTOKNUM[YYLEX-NUM] -- Internal token number corresponding to - token YYLEX-NUM. */ -static const unsigned short yytoknum[] = -{ - 0, 256, 257, 258, 259, 260, 261, 262, 263, 264, - 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, - 275, 276, 277, 278, 279, 10, 61, 60, 62, 43, - 45, 47, 42, 58, 44, 40, 41, 63, 123, 125, - 91, 93 -}; -# endif - -/* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */ -static const unsigned char yyr1[] = -{ - 0, 42, 43, 44, 44, 44, 44, 44, 44, 44, - 44, 45, 46, 46, 47, 47, 47, 47, 48, 49, - 50, 50, 50, 50, 50, 51, 51, 52, 52, 53, - 54, 54, 55, 56, 57, 57, 57, 57, 57, 58, - 58, 58, 58, 59, 59, 59, 59, 59, 59, 59, - 59, 59, 59, 59, 60, 61, 61, 62, 63, 64, - 64, 64, 64, 64, 64, 64, 64, 64, 65, 65, - 65, 65, 65, 65, 65, 66, 66, 66, 67, 67, - 67, 67, 68, 68, 69, 69, 70, 70, 71, 71 -}; - -/* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN. */ -static const unsigned char yyr2[] = -{ - 0, 2, 3, 2, 8, 10, 8, 10, 2, 2, - 0, 7, 2, 4, 2, 2, 2, 2, 1, 1, - 0, 2, 2, 2, 2, 1, 3, 2, 0, 3, - 5, 7, 0, 0, 4, 4, 4, 4, 1, 2, - 2, 2, 2, 2, 2, 6, 6, 6, 1, 3, - 3, 3, 3, 6, 3, 1, 2, 3, 0, 1, - 1, 3, 3, 3, 3, 2, 3, 1, 3, 3, - 3, 3, 3, 3, 2, 1, 1, 1, 3, 5, - 5, 7, 4, 6, 2, 1, 4, 3, 1, 0 -}; - -/* YYDEFACT[STATE-NAME] -- Default rule to reduce with in state - STATE-NUM when YYTABLE doesn't specify something else to do. Zero - means the default is an error. */ -static const unsigned char yydefact[] = -{ - 10, 0, 32, 1, 19, 0, 0, 0, 0, 0, - 0, 0, 0, 9, 0, 0, 0, 8, 0, 28, - 0, 38, 3, 0, 48, 42, 0, 0, 0, 0, - 0, 41, 40, 39, 0, 0, 76, 75, 59, 77, - 0, 0, 0, 0, 0, 89, 60, 67, 0, 0, - 0, 58, 19, 0, 33, 0, 2, 44, 43, 0, - 49, 50, 52, 51, 57, 0, 0, 0, 0, 18, - 0, 74, 65, 0, 33, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 88, 0, 0, 0, 0, - 10, 0, 0, 78, 0, 33, 0, 85, 0, 27, - 10, 37, 36, 35, 34, 20, 0, 20, 0, 66, - 0, 0, 71, 72, 73, 68, 69, 70, 63, 64, - 62, 61, 89, 89, 0, 0, 89, 0, 0, 33, - 33, 0, 33, 84, 0, 32, 0, 0, 0, 0, - 0, 0, 0, 25, 0, 0, 0, 82, 0, 0, - 0, 55, 0, 0, 0, 0, 0, 80, 0, 87, - 79, 20, 0, 29, 24, 23, 21, 22, 33, 42, - 41, 40, 39, 20, 0, 33, 20, 33, 46, 0, - 89, 0, 0, 0, 0, 12, 56, 54, 53, 45, - 47, 33, 86, 0, 0, 6, 0, 26, 4, 0, - 83, 11, 0, 17, 16, 14, 15, 81, 30, 20, - 33, 33, 13, 0, 7, 5, 31 -}; - -/* YYDEFGOTO[NTERM-NUM]. */ -static const short yydefgoto[] = -{ - -1, 1, 2, 17, 149, 185, 70, 18, 137, 142, - 56, 99, 100, 19, 93, 20, 21, 22, 125, 152, - 23, 90, 44, 45, 46, 24, 47, 96, 97, 86 -}; - -/* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing - STATE-NUM. */ -#define YYPACT_NINF -116 -static const short yypact[] = -{ - -116, 40, 136, -116, 103, 39, 66, 68, 61, 65, - 1, 77, 101, -116, 1, 84, 109, -116, 12, -116, - 91, -116, -116, 97, -116, 98, 72, 72, 72, 72, - 72, 99, 104, 113, 109, 130, -116, -116, -116, -116, - 1, 72, 72, 109, 166, 115, -116, -116, 145, 131, - 118, -116, -116, -24, -116, -3, 138, -116, -116, 72, - 159, 159, 159, 159, 159, 72, 72, 72, 14, -116, - 51, -116, 22, 102, 124, 72, 72, 72, 72, 72, - 72, 72, 72, 72, 72, -116, 160, 139, 140, 141, - -116, -3, 152, -116, 154, -116, 156, -3, 109, -116, - -116, 159, 159, 159, 159, 150, 82, 150, 82, -116, - -3, 158, 159, 159, 159, 159, 159, 159, 22, 22, - -116, -116, 115, 115, 195, 188, 115, 88, 162, -116, - -116, 72, -116, -116, 52, 136, 155, 177, 199, 200, - 201, 202, 180, 175, 185, 183, 171, -116, 144, 18, - 161, 195, 178, 144, 144, 190, 191, -116, 72, 159, - -116, 150, 82, -116, -116, -116, -116, -116, -116, -116, - -116, -116, -116, 150, 82, -116, 150, -116, -116, 192, - 115, 208, 213, 214, 215, -116, -116, -116, -116, -116, - -116, -116, 159, 196, 194, -116, 198, -116, -116, 203, - -116, -116, 161, -116, -116, -116, -116, -116, -116, 150, - -116, -116, -116, 204, -116, -116, -116 -}; - -/* YYPGOTO[NTERM-NUM]. */ -static const yysigned_char yypgoto[] = -{ - -116, -116, -68, -116, -116, 23, -116, -15, -104, -92, - -116, -116, -116, 89, -74, -116, -88, -115, -116, 75, - -116, -116, -16, -6, -116, -116, -116, -62, -116, -99 -}; - -/* YYTABLE[YYPACT[STATE-NUM]]. What to do in state STATE-NUM. If - positive, shift that token. If negative, reduce the rule which - number is the opposite. If zero, do what YYDEFACT says. - If YYTABLE_NINF, syntax error. */ -#define YYTABLE_NINF -1 -static const unsigned char yytable[] = -{ - 111, 53, 94, 144, 36, 37, 38, 39, 50, 91, - 60, 61, 62, 63, 64, 40, 145, 92, 143, 68, - 143, 131, 127, 148, 150, 72, 73, 154, 74, 128, - 95, 41, 135, 178, 71, 133, 42, 54, 188, 189, - 3, 43, 105, 101, 31, 55, 179, 106, 146, 102, - 103, 104, 180, 83, 84, 157, 158, 193, 160, 112, - 113, 114, 115, 116, 117, 118, 119, 120, 121, 196, - 194, 32, 199, 33, 143, 36, 37, 38, 39, 107, - 161, 202, 197, 134, 108, 162, 143, 138, 34, 139, - 140, 141, 35, 4, 195, 5, 6, 7, 8, 9, - 10, 198, 41, 200, 48, 213, 49, 42, 25, 51, - 11, 12, 43, 13, 52, 159, 57, 207, 26, 27, - 28, 29, 58, 14, 59, 65, 15, 155, 16, 30, - 66, 81, 82, 83, 84, 69, 214, 215, 109, 67, - 85, 4, 192, 5, 6, 7, 8, 9, 10, 4, - 87, 5, 6, 7, 89, 88, 10, 110, 11, 12, - 164, 13, 165, 166, 167, 98, 181, 12, 182, 183, - 184, 14, 123, 122, 15, 124, 16, 129, 126, 14, - 130, 132, 15, 136, 16, 75, 76, 77, 81, 82, - 83, 84, 78, 79, 80, 81, 82, 83, 84, 147, - 151, 153, 168, 156, 169, 170, 171, 172, 173, 174, - 175, 176, 177, 203, 187, 190, 191, 201, 204, 205, - 206, 208, 209, 210, 163, 212, 186, 0, 211, 216 -}; - -static const short yycheck[] = -{ - 74, 16, 5, 107, 3, 4, 5, 6, 14, 33, - 26, 27, 28, 29, 30, 14, 108, 41, 106, 34, - 108, 95, 90, 122, 123, 41, 42, 126, 43, 91, - 33, 30, 100, 148, 40, 97, 35, 25, 153, 154, - 0, 40, 28, 59, 5, 33, 28, 33, 110, 65, - 66, 67, 34, 31, 32, 129, 130, 161, 132, 75, - 76, 77, 78, 79, 80, 81, 82, 83, 84, 173, - 162, 5, 176, 5, 162, 3, 4, 5, 6, 28, - 28, 180, 174, 98, 33, 33, 174, 5, 27, 7, - 8, 9, 27, 5, 168, 7, 8, 9, 10, 11, - 12, 175, 30, 177, 27, 209, 5, 35, 5, 25, - 22, 23, 40, 25, 5, 131, 25, 191, 15, 16, - 17, 18, 25, 35, 26, 26, 38, 39, 40, 26, - 26, 29, 30, 31, 32, 5, 210, 211, 36, 26, - 25, 5, 158, 7, 8, 9, 10, 11, 12, 5, - 5, 7, 8, 9, 36, 24, 12, 33, 22, 23, - 5, 25, 7, 8, 9, 27, 5, 23, 7, 8, - 9, 35, 33, 13, 38, 35, 40, 25, 37, 35, - 26, 25, 38, 33, 40, 19, 20, 21, 29, 30, - 31, 32, 26, 27, 28, 29, 30, 31, 32, 41, - 5, 13, 25, 41, 5, 5, 5, 5, 28, 34, - 25, 28, 41, 5, 36, 25, 25, 25, 5, 5, - 5, 25, 28, 25, 135, 202, 151, -1, 25, 25 -}; - -/* YYSTOS[STATE-NUM] -- The (internal number of the) accessing - symbol of state STATE-NUM. */ -static const unsigned char yystos[] = -{ - 0, 43, 44, 0, 5, 7, 8, 9, 10, 11, - 12, 22, 23, 25, 35, 38, 40, 45, 49, 55, - 57, 58, 59, 62, 67, 5, 15, 16, 17, 18, - 26, 5, 5, 5, 27, 27, 3, 4, 5, 6, - 14, 30, 35, 40, 64, 65, 66, 68, 27, 5, - 65, 25, 5, 49, 25, 33, 52, 25, 25, 26, - 64, 64, 64, 64, 64, 26, 26, 26, 49, 5, - 48, 65, 64, 64, 49, 19, 20, 21, 26, 27, - 28, 29, 30, 31, 32, 25, 71, 5, 24, 36, - 63, 33, 41, 56, 5, 33, 69, 70, 27, 53, - 54, 64, 64, 64, 64, 28, 33, 28, 33, 36, - 33, 56, 64, 64, 64, 64, 64, 64, 64, 64, - 64, 64, 13, 33, 35, 60, 37, 44, 69, 25, - 26, 56, 25, 69, 49, 44, 33, 50, 5, 7, - 8, 9, 51, 58, 50, 51, 69, 41, 71, 46, - 71, 5, 61, 13, 71, 39, 41, 56, 56, 64, - 56, 28, 33, 55, 5, 7, 8, 9, 25, 5, - 5, 5, 5, 28, 34, 25, 28, 41, 59, 28, - 34, 5, 7, 8, 9, 47, 61, 36, 59, 59, - 25, 25, 64, 50, 51, 56, 50, 51, 56, 50, - 56, 25, 71, 5, 5, 5, 5, 56, 25, 28, - 25, 25, 47, 50, 56, 56, 25 -}; - -#if ! defined (YYSIZE_T) && defined (__SIZE_TYPE__) -# define YYSIZE_T __SIZE_TYPE__ -#endif -#if ! defined (YYSIZE_T) && defined (size_t) -# define YYSIZE_T size_t -#endif -#if ! defined (YYSIZE_T) -# if defined (__STDC__) || defined (__cplusplus) -# include <stddef.h> /* INFRINGES ON USER NAME SPACE */ -# define YYSIZE_T size_t -# endif -#endif -#if ! defined (YYSIZE_T) -# define YYSIZE_T unsigned int -#endif - -#define yyerrok (yyerrstatus = 0) -#define yyclearin (yychar = YYEMPTY) -#define YYEMPTY (-2) -#define YYEOF 0 - -#define YYACCEPT goto yyacceptlab -#define YYABORT goto yyabortlab -#define YYERROR goto yyerrlab1 - - -/* Like YYERROR except do call yyerror. This remains here temporarily - to ease the transition to the new meaning of YYERROR, for GCC. - Once GCC version 2 has supplanted version 1, this can go. */ - -#define YYFAIL goto yyerrlab - -#define YYRECOVERING() (!!yyerrstatus) - -#define YYBACKUP(Token, Value) \ -do \ - if (yychar == YYEMPTY && yylen == 1) \ - { \ - yychar = (Token); \ - yylval = (Value); \ - yytoken = YYTRANSLATE (yychar); \ - YYPOPSTACK; \ - goto yybackup; \ - } \ - else \ - { \ - yyerror ("syntax error: cannot back up");\ - YYERROR; \ - } \ -while (0) - -#define YYTERROR 1 -#define YYERRCODE 256 - -/* YYLLOC_DEFAULT -- Compute the default location (before the actions - are run). */ - -#ifndef YYLLOC_DEFAULT -# define YYLLOC_DEFAULT(Current, Rhs, N) \ - Current.first_line = Rhs[1].first_line; \ - Current.first_column = Rhs[1].first_column; \ - Current.last_line = Rhs[N].last_line; \ - Current.last_column = Rhs[N].last_column; -#endif - -/* YYLEX -- calling `yylex' with the right arguments. */ - -#ifdef YYLEX_PARAM -# define YYLEX yylex (YYLEX_PARAM) -#else -# define YYLEX yylex () -#endif - -/* Enable debugging if requested. */ -#if YYDEBUG - -# ifndef YYFPRINTF -# include <stdio.h> /* INFRINGES ON USER NAME SPACE */ -# define YYFPRINTF fprintf -# endif - -# define YYDPRINTF(Args) \ -do { \ - if (yydebug) \ - YYFPRINTF Args; \ -} while (0) - -# define YYDSYMPRINT(Args) \ -do { \ - if (yydebug) \ - yysymprint Args; \ -} while (0) - -# define YYDSYMPRINTF(Title, Token, Value, Location) \ -do { \ - if (yydebug) \ - { \ - YYFPRINTF (stderr, "%s ", Title); \ - yysymprint (stderr, \ - Token, Value); \ - YYFPRINTF (stderr, "\n"); \ - } \ -} while (0) - -/*------------------------------------------------------------------. -| yy_stack_print -- Print the state stack from its BOTTOM up to its | -| TOP (cinluded). | -`------------------------------------------------------------------*/ - -#if defined (__STDC__) || defined (__cplusplus) -static void -yy_stack_print (short *bottom, short *top) -#else -static void -yy_stack_print (bottom, top) - short *bottom; - short *top; -#endif -{ - YYFPRINTF (stderr, "Stack now"); - for (/* Nothing. */; bottom <= top; ++bottom) - YYFPRINTF (stderr, " %d", *bottom); - YYFPRINTF (stderr, "\n"); -} - -# define YY_STACK_PRINT(Bottom, Top) \ -do { \ - if (yydebug) \ - yy_stack_print ((Bottom), (Top)); \ -} while (0) - - -/*------------------------------------------------. -| Report that the YYRULE is going to be reduced. | -`------------------------------------------------*/ - -#if defined (__STDC__) || defined (__cplusplus) -static void -yy_reduce_print (int yyrule) -#else -static void -yy_reduce_print (yyrule) - int yyrule; -#endif -{ - int yyi; - unsigned int yylineno = yyrline[yyrule]; - YYFPRINTF (stderr, "Reducing stack by rule %d (line %u), ", - yyrule - 1, yylineno); - /* Print the symbols being reduced, and their result. */ - for (yyi = yyprhs[yyrule]; 0 <= yyrhs[yyi]; yyi++) - YYFPRINTF (stderr, "%s ", yytname [yyrhs[yyi]]); - YYFPRINTF (stderr, "-> %s\n", yytname [yyr1[yyrule]]); -} - -# define YY_REDUCE_PRINT(Rule) \ -do { \ - if (yydebug) \ - yy_reduce_print (Rule); \ -} while (0) - -/* Nonzero means print parse trace. It is left uninitialized so that - multiple parsers can coexist. */ -int yydebug; -#else /* !YYDEBUG */ -# define YYDPRINTF(Args) -# define YYDSYMPRINT(Args) -# define YYDSYMPRINTF(Title, Token, Value, Location) -# define YY_STACK_PRINT(Bottom, Top) -# define YY_REDUCE_PRINT(Rule) -#endif /* !YYDEBUG */ - - -/* YYINITDEPTH -- initial size of the parser's stacks. */ -#ifndef YYINITDEPTH -# define YYINITDEPTH 200 -#endif - -/* YYMAXDEPTH -- maximum size the stacks can grow to (effective only - if the built-in stack extension method is used). - - Do not make this value too large; the results are undefined if - SIZE_MAX < YYSTACK_BYTES (YYMAXDEPTH) - evaluated with infinite-precision integer arithmetic. */ - -#if YYMAXDEPTH == 0 -# undef YYMAXDEPTH -#endif - -#ifndef YYMAXDEPTH -# define YYMAXDEPTH 10000 -#endif - - - -#if YYERROR_VERBOSE - -# ifndef yystrlen -# if defined (__GLIBC__) && defined (_STRING_H) -# define yystrlen strlen -# else -/* Return the length of YYSTR. */ -static YYSIZE_T -# if defined (__STDC__) || defined (__cplusplus) -yystrlen (const char *yystr) -# else -yystrlen (yystr) - const char *yystr; -# endif -{ - register const char *yys = yystr; - - while (*yys++ != '\0') - continue; - - return yys - yystr - 1; -} -# endif -# endif - -# ifndef yystpcpy -# if defined (__GLIBC__) && defined (_STRING_H) && defined (_GNU_SOURCE) -# define yystpcpy stpcpy -# else -/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in - YYDEST. */ -static char * -# if defined (__STDC__) || defined (__cplusplus) -yystpcpy (char *yydest, const char *yysrc) -# else -yystpcpy (yydest, yysrc) - char *yydest; - const char *yysrc; -# endif -{ - register char *yyd = yydest; - register const char *yys = yysrc; - - while ((*yyd++ = *yys++) != '\0') - continue; - - return yyd - 1; -} -# endif -# endif - -#endif /* !YYERROR_VERBOSE */ - - - -#if YYDEBUG -/*--------------------------------. -| Print this symbol on YYOUTPUT. | -`--------------------------------*/ - -#if defined (__STDC__) || defined (__cplusplus) -static void -yysymprint (FILE *yyoutput, int yytype, YYSTYPE *yyvaluep) -#else -static void -yysymprint (yyoutput, yytype, yyvaluep) - FILE *yyoutput; - int yytype; - YYSTYPE *yyvaluep; -#endif -{ - /* Pacify ``unused variable'' warnings. */ - (void) yyvaluep; - - if (yytype < YYNTOKENS) - { - YYFPRINTF (yyoutput, "token %s (", yytname[yytype]); -# ifdef YYPRINT - YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep); -# endif - } - else - YYFPRINTF (yyoutput, "nterm %s (", yytname[yytype]); - - switch (yytype) - { - default: - break; - } - YYFPRINTF (yyoutput, ")"); -} - -#endif /* ! YYDEBUG */ -/*-----------------------------------------------. -| Release the memory associated to this symbol. | -`-----------------------------------------------*/ - -#if defined (__STDC__) || defined (__cplusplus) -static void -yydestruct (int yytype, YYSTYPE *yyvaluep) -#else -static void -yydestruct (yytype, yyvaluep) - int yytype; - YYSTYPE *yyvaluep; -#endif -{ - /* Pacify ``unused variable'' warnings. */ - (void) yyvaluep; - - switch (yytype) - { - - default: - break; - } -} - - -/* Prevent warnings from -Wmissing-prototypes. */ - -#ifdef YYPARSE_PARAM -# if defined (__STDC__) || defined (__cplusplus) -int yyparse (void *YYPARSE_PARAM); -# else -int yyparse (); -# endif -#else /* ! YYPARSE_PARAM */ -#if defined (__STDC__) || defined (__cplusplus) -int yyparse (void); -#else -int yyparse (); -#endif -#endif /* ! YYPARSE_PARAM */ - - - -/* The lookahead symbol. */ -int yychar; - -/* The semantic value of the lookahead symbol. */ -YYSTYPE yylval; - -/* Number of syntax errors so far. */ -int yynerrs; - - - -/*----------. -| yyparse. | -`----------*/ - -#ifdef YYPARSE_PARAM -# if defined (__STDC__) || defined (__cplusplus) -int yyparse (void *YYPARSE_PARAM) -# else -int yyparse (YYPARSE_PARAM) - void *YYPARSE_PARAM; -# endif -#else /* ! YYPARSE_PARAM */ -#if defined (__STDC__) || defined (__cplusplus) -int -yyparse (void) -#else -int -yyparse () - -#endif -#endif -{ - - register int yystate; - register int yyn; - int yyresult; - /* Number of tokens to shift before error messages enabled. */ - int yyerrstatus; - /* Lookahead token as an internal (translated) token number. */ - int yytoken = 0; - - /* Three stacks and their tools: - `yyss': related to states, - `yyvs': related to semantic values, - `yyls': related to locations. - - Refer to the stacks thru separate pointers, to allow yyoverflow - to reallocate them elsewhere. */ - - /* The state stack. */ - short yyssa[YYINITDEPTH]; - short *yyss = yyssa; - register short *yyssp; - - /* The semantic value stack. */ - YYSTYPE yyvsa[YYINITDEPTH]; - YYSTYPE *yyvs = yyvsa; - register YYSTYPE *yyvsp; - - - -#define YYPOPSTACK (yyvsp--, yyssp--) - - YYSIZE_T yystacksize = YYINITDEPTH; - - /* The variables used to return semantic value and location from the - action routines. */ - YYSTYPE yyval; - - - /* When reducing, the number of symbols on the RHS of the reduced - rule. */ - int yylen; - - YYDPRINTF ((stderr, "Starting parse\n")); - - yystate = 0; - yyerrstatus = 0; - yynerrs = 0; - yychar = YYEMPTY; /* Cause a token to be read. */ - - /* Initialize stack pointers. - Waste one element of value and location stack - so that they stay on the same level as the state stack. - The wasted elements are never initialized. */ - - yyssp = yyss; - yyvsp = yyvs; - - goto yysetstate; - -/*------------------------------------------------------------. -| yynewstate -- Push a new state, which is found in yystate. | -`------------------------------------------------------------*/ - yynewstate: - /* In all cases, when you get here, the value and location stacks - have just been pushed. so pushing a state here evens the stacks. - */ - yyssp++; - - yysetstate: - *yyssp = yystate; - - if (yyss + yystacksize - 1 <= yyssp) - { - /* Get the current used size of the three stacks, in elements. */ - YYSIZE_T yysize = yyssp - yyss + 1; - -#ifdef yyoverflow - { - /* Give user a chance to reallocate the stack. Use copies of - these so that the &'s don't force the real ones into - memory. */ - YYSTYPE *yyvs1 = yyvs; - short *yyss1 = yyss; - - - /* Each stack pointer address is followed by the size of the - data in use in that stack, in bytes. This used to be a - conditional around just the two extra args, but that might - be undefined if yyoverflow is a macro. */ - yyoverflow ("parser stack overflow", - &yyss1, yysize * sizeof (*yyssp), - &yyvs1, yysize * sizeof (*yyvsp), - - &yystacksize); - - yyss = yyss1; - yyvs = yyvs1; - } -#else /* no yyoverflow */ -# ifndef YYSTACK_RELOCATE - goto yyoverflowlab; -# else - /* Extend the stack our own way. */ - if (YYMAXDEPTH <= yystacksize) - goto yyoverflowlab; - yystacksize *= 2; - if (YYMAXDEPTH < yystacksize) - yystacksize = YYMAXDEPTH; - - { - short *yyss1 = yyss; - union yyalloc *yyptr = - (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize)); - if (! yyptr) - goto yyoverflowlab; - YYSTACK_RELOCATE (yyss); - YYSTACK_RELOCATE (yyvs); - -# undef YYSTACK_RELOCATE - if (yyss1 != yyssa) - YYSTACK_FREE (yyss1); - } -# endif -#endif /* no yyoverflow */ - - yyssp = yyss + yysize - 1; - yyvsp = yyvs + yysize - 1; - - - YYDPRINTF ((stderr, "Stack size increased to %lu\n", - (unsigned long int) yystacksize)); - - if (yyss + yystacksize - 1 <= yyssp) - YYABORT; - } - - YYDPRINTF ((stderr, "Entering state %d\n", yystate)); - - goto yybackup; - -/*-----------. -| yybackup. | -`-----------*/ -yybackup: - -/* Do appropriate processing given the current state. */ -/* Read a lookahead token if we need one and don't already have one. */ -/* yyresume: */ - - /* First try to decide what to do without reference to lookahead token. */ - - yyn = yypact[yystate]; - if (yyn == YYPACT_NINF) - goto yydefault; - - /* Not known => get a lookahead token if don't already have one. */ - - /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */ - if (yychar == YYEMPTY) - { - YYDPRINTF ((stderr, "Reading a token: ")); - yychar = YYLEX; - } - - if (yychar <= YYEOF) - { - yychar = yytoken = YYEOF; - YYDPRINTF ((stderr, "Now at end of input.\n")); - } - else - { - yytoken = YYTRANSLATE (yychar); - YYDSYMPRINTF ("Next token is", yytoken, &yylval, &yylloc); - } - - /* If the proper action on seeing token YYTOKEN is to reduce or to - detect an error, take that action. */ - yyn += yytoken; - if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken) - goto yydefault; - yyn = yytable[yyn]; - if (yyn <= 0) - { - if (yyn == 0 || yyn == YYTABLE_NINF) - goto yyerrlab; - yyn = -yyn; - goto yyreduce; - } - - if (yyn == YYFINAL) - YYACCEPT; - - /* Shift the lookahead token. */ - YYDPRINTF ((stderr, "Shifting token %s, ", yytname[yytoken])); - - /* Discard the token being shifted unless it is eof. */ - if (yychar != YYEOF) - yychar = YYEMPTY; - - *++yyvsp = yylval; - - - /* Count tokens shifted since error; after three, turn off error - status. */ - if (yyerrstatus) - yyerrstatus--; - - yystate = yyn; - goto yynewstate; - - -/*-----------------------------------------------------------. -| yydefault -- do the default action for the current state. | -`-----------------------------------------------------------*/ -yydefault: - yyn = yydefact[yystate]; - if (yyn == 0) - goto yyerrlab; - goto yyreduce; - - -/*-----------------------------. -| yyreduce -- Do a reduction. | -`-----------------------------*/ -yyreduce: - /* yyn is the number of a rule to reduce with. */ - yylen = yyr2[yyn]; - - /* If YYLEN is nonzero, implement the default value of the action: - `$$ = $1'. - - Otherwise, the following line sets YYVAL to garbage. - This behavior is undocumented and Bison - users should not rely upon it. Assigning to YYVAL - unconditionally makes the parser a bit smaller, and it avoids a - GCC warning that YYVAL may be used uninitialized. */ - yyval = yyvsp[1-yylen]; - - - YY_REDUCE_PRINT (yyn); - switch (yyn) - { - case 3: -#line 1238 "goomsl_yacc.y" - { gsl_append(yyvsp[0].nPtr); } - break; - - case 4: -#line 1239 "goomsl_yacc.y" - { gsl_declare_global_variable(yyvsp[-2].intValue,yyvsp[-4].strValue); } - break; - - case 5: -#line 1240 "goomsl_yacc.y" - { gsl_declare_global_variable(yyvsp[-2].intValue,yyvsp[-6].strValue); } - break; - - case 6: -#line 1241 "goomsl_yacc.y" - { gsl_declare_global_variable(yyvsp[-2].intValue,yyvsp[-4].strValue); } - break; - - case 7: -#line 1242 "goomsl_yacc.y" - { gsl_declare_global_variable(yyvsp[-2].intValue,yyvsp[-6].strValue); } - break; - - case 11: -#line 1250 "goomsl_yacc.y" - { gsl_add_struct(yyvsp[-4].strValue, yyvsp[-2].gsl_struct); } - break; - - case 12: -#line 1253 "goomsl_yacc.y" - { yyval.gsl_struct = gsl_new_struct(yyvsp[0].gsl_struct_field); } - break; - - case 13: -#line 1254 "goomsl_yacc.y" - { yyval.gsl_struct = yyvsp[-3].gsl_struct; gsl_add_struct_field(yyvsp[-3].gsl_struct, yyvsp[0].gsl_struct_field); } - break; - - case 14: -#line 1257 "goomsl_yacc.y" - { yyval.gsl_struct_field = gsl_new_struct_field(yyvsp[0].strValue, INSTR_INT); } - break; - - case 15: -#line 1258 "goomsl_yacc.y" - { yyval.gsl_struct_field = gsl_new_struct_field(yyvsp[0].strValue, INSTR_FLOAT); } - break; - - case 16: -#line 1259 "goomsl_yacc.y" - { yyval.gsl_struct_field = gsl_new_struct_field(yyvsp[0].strValue, INSTR_PTR); } - break; - - case 17: -#line 1260 "goomsl_yacc.y" - { yyval.gsl_struct_field = gsl_new_struct_field_struct(yyvsp[0].strValue, yyvsp[-1].strValue); } - break; - - case 18: -#line 1265 "goomsl_yacc.y" - { gsl_declare_external_task(yyvsp[0].strValue); gsl_enternamespace(yyvsp[0].strValue); strcpy(yyval.strValue,yyvsp[0].strValue); } - break; - - case 19: -#line 1267 "goomsl_yacc.y" - { gsl_declare_task(yyvsp[0].strValue); gsl_enternamespace(yyvsp[0].strValue); strcpy(yyval.strValue,yyvsp[0].strValue); strcpy(yyval.strValue,yyvsp[0].strValue); } - break; - - case 20: -#line 1270 "goomsl_yacc.y" - { yyval.intValue=-1; } - break; - - case 21: -#line 1271 "goomsl_yacc.y" - { yyval.intValue=INT_TK; } - break; - - case 22: -#line 1272 "goomsl_yacc.y" - { yyval.intValue=FLOAT_TK; } - break; - - case 23: -#line 1273 "goomsl_yacc.y" - { yyval.intValue=PTR_TK; } - break; - - case 24: -#line 1274 "goomsl_yacc.y" - { yyval.intValue= 1000 + gsl_get_struct_id(yyvsp[0].strValue); } - break; - - case 29: -#line 1287 "goomsl_yacc.y" - { gsl_leavenamespace(); } - break; - - case 30: -#line 1289 "goomsl_yacc.y" - { gsl_append(new_function_intro(yyvsp[-3].strValue)); - gsl_declare_global_variable(yyvsp[-1].intValue,yyvsp[-3].strValue); } - break; - - case 31: -#line 1291 "goomsl_yacc.y" - { gsl_append(new_function_intro(yyvsp[-5].strValue)); - gsl_declare_global_variable(yyvsp[-1].intValue,yyvsp[-5].strValue); } - break; - - case 32: -#line 1294 "goomsl_yacc.y" - { gsl_append(new_function_outro()); } - break; - - case 33: -#line 1296 "goomsl_yacc.y" - { yyval.namespace = gsl_leavenamespace(); } - break; - - case 34: -#line 1300 "goomsl_yacc.y" - { gsl_float_decl_local(yyvsp[-2].strValue); yyval.nPtr = new_set(new_var(yyvsp[-2].strValue,currentGoomSL->num_lines), yyvsp[0].nPtr); } - break; - - case 35: -#line 1301 "goomsl_yacc.y" - { gsl_int_decl_local(yyvsp[-2].strValue); yyval.nPtr = new_set(new_var(yyvsp[-2].strValue,currentGoomSL->num_lines), yyvsp[0].nPtr); } - break; - - case 36: -#line 1302 "goomsl_yacc.y" - { gsl_ptr_decl_local(yyvsp[-2].strValue); yyval.nPtr = new_set(new_var(yyvsp[-2].strValue,currentGoomSL->num_lines), yyvsp[0].nPtr); } - break; - - case 37: -#line 1303 "goomsl_yacc.y" - { gsl_struct_decl_local(yyvsp[-3].strValue,yyvsp[-2].strValue); yyval.nPtr = new_set(new_var(yyvsp[-2].strValue,currentGoomSL->num_lines), yyvsp[0].nPtr); } - break; - - case 38: -#line 1304 "goomsl_yacc.y" - { yyval.nPtr = 0; } - break; - - case 39: -#line 1307 "goomsl_yacc.y" - { gsl_float_decl_local(yyvsp[0].strValue); } - break; - - case 40: -#line 1308 "goomsl_yacc.y" - { gsl_int_decl_local(yyvsp[0].strValue); } - break; - - case 41: -#line 1309 "goomsl_yacc.y" - { gsl_ptr_decl_local(yyvsp[0].strValue); } - break; - - case 42: -#line 1310 "goomsl_yacc.y" - { gsl_struct_decl_local(yyvsp[-1].strValue,yyvsp[0].strValue); } - break; - - case 43: -#line 1315 "goomsl_yacc.y" - { yyval.nPtr = yyvsp[-1].nPtr; } - break; - - case 44: -#line 1316 "goomsl_yacc.y" - { yyval.nPtr = yyvsp[-1].nPtr; } - break; - - case 45: -#line 1317 "goomsl_yacc.y" - { yyval.nPtr = new_if(yyvsp[-4].nPtr,yyvsp[0].nPtr); } - break; - - case 46: -#line 1318 "goomsl_yacc.y" - { yyval.nPtr = new_while(yyvsp[-4].nPtr,yyvsp[0].nPtr); } - break; - - case 47: -#line 1319 "goomsl_yacc.y" - { lastNode = yyvsp[-3].nPtr->unode.opr.op[1]; yyval.nPtr=yyvsp[-3].nPtr; } - break; - - case 48: -#line 1320 "goomsl_yacc.y" - { yyval.nPtr = yyvsp[0].nPtr; } - break; - - case 49: -#line 1321 "goomsl_yacc.y" - { yyval.nPtr = new_plus_eq(new_var(yyvsp[-2].strValue,currentGoomSL->num_lines),yyvsp[0].nPtr); } - break; - - case 50: -#line 1322 "goomsl_yacc.y" - { yyval.nPtr = new_sub_eq(new_var(yyvsp[-2].strValue,currentGoomSL->num_lines),yyvsp[0].nPtr); } - break; - - case 51: -#line 1323 "goomsl_yacc.y" - { yyval.nPtr = new_mul_eq(new_var(yyvsp[-2].strValue,currentGoomSL->num_lines),yyvsp[0].nPtr); } - break; - - case 52: -#line 1324 "goomsl_yacc.y" - { yyval.nPtr = new_div_eq(new_var(yyvsp[-2].strValue,currentGoomSL->num_lines),yyvsp[0].nPtr); } - break; - - case 53: -#line 1325 "goomsl_yacc.y" - { yyval.nPtr = new_static_foreach(new_var(yyvsp[-4].strValue, currentGoomSL->num_lines), yyvsp[-2].nPtr, yyvsp[0].nPtr); } - break; - - case 54: -#line 1328 "goomsl_yacc.y" - { yyval.nPtr = yyvsp[-1].nPtr; } - break; - - case 55: -#line 1330 "goomsl_yacc.y" - { yyval.nPtr = new_var_list(new_var(yyvsp[0].strValue,currentGoomSL->num_lines), NULL); } - break; - - case 56: -#line 1331 "goomsl_yacc.y" - { yyval.nPtr = new_var_list(new_var(yyvsp[-1].strValue,currentGoomSL->num_lines), yyvsp[0].nPtr); } - break; - - case 57: -#line 1334 "goomsl_yacc.y" - { yyval.nPtr = new_set(new_var(yyvsp[-2].strValue,currentGoomSL->num_lines),yyvsp[0].nPtr); } - break; - - case 58: -#line 1336 "goomsl_yacc.y" - { yyval.nPtr = new_block(lastNode); lastNode = yyval.nPtr->unode.opr.op[0]; } - break; - - case 59: -#line 1339 "goomsl_yacc.y" - { yyval.nPtr = new_var(yyvsp[0].strValue,currentGoomSL->num_lines); } - break; - - case 60: -#line 1340 "goomsl_yacc.y" - { yyval.nPtr = yyvsp[0].nPtr; } - break; - - case 61: -#line 1341 "goomsl_yacc.y" - { yyval.nPtr = new_mul(yyvsp[-2].nPtr,yyvsp[0].nPtr); } - break; - - case 62: -#line 1342 "goomsl_yacc.y" - { yyval.nPtr = new_div(yyvsp[-2].nPtr,yyvsp[0].nPtr); } - break; - - case 63: -#line 1343 "goomsl_yacc.y" - { yyval.nPtr = new_add(yyvsp[-2].nPtr,yyvsp[0].nPtr); } - break; - - case 64: -#line 1344 "goomsl_yacc.y" - { yyval.nPtr = new_sub(yyvsp[-2].nPtr,yyvsp[0].nPtr); } - break; - - case 65: -#line 1345 "goomsl_yacc.y" - { yyval.nPtr = new_neg(yyvsp[0].nPtr); } - break; - - case 66: -#line 1346 "goomsl_yacc.y" - { yyval.nPtr = yyvsp[-1].nPtr; } - break; - - case 67: -#line 1347 "goomsl_yacc.y" - { yyval.nPtr = yyvsp[0].nPtr; } - break; - - case 68: -#line 1350 "goomsl_yacc.y" - { yyval.nPtr = new_equ(yyvsp[-2].nPtr,yyvsp[0].nPtr); } - break; - - case 69: -#line 1351 "goomsl_yacc.y" - { yyval.nPtr = new_low(yyvsp[-2].nPtr,yyvsp[0].nPtr); } - break; - - case 70: -#line 1352 "goomsl_yacc.y" - { yyval.nPtr = new_low(yyvsp[0].nPtr,yyvsp[-2].nPtr); } - break; - - case 71: -#line 1353 "goomsl_yacc.y" - { yyval.nPtr = new_not(new_low(yyvsp[-2].nPtr,yyvsp[0].nPtr)); } - break; - - case 72: -#line 1354 "goomsl_yacc.y" - { yyval.nPtr = new_not(new_low(yyvsp[0].nPtr,yyvsp[-2].nPtr)); } - break; - - case 73: -#line 1355 "goomsl_yacc.y" - { yyval.nPtr = new_not(new_equ(yyvsp[-2].nPtr,yyvsp[0].nPtr)); } - break; - - case 74: -#line 1356 "goomsl_yacc.y" - { yyval.nPtr = new_not(yyvsp[0].nPtr); } - break; - - case 75: -#line 1359 "goomsl_yacc.y" - { yyval.nPtr = new_constFloat(yyvsp[0].strValue,currentGoomSL->num_lines); } - break; - - case 76: -#line 1360 "goomsl_yacc.y" - { yyval.nPtr = new_constInt(yyvsp[0].strValue,currentGoomSL->num_lines); } - break; - - case 77: -#line 1361 "goomsl_yacc.y" - { yyval.nPtr = new_constPtr(yyvsp[0].strValue,currentGoomSL->num_lines); } - break; - - case 78: -#line 1366 "goomsl_yacc.y" - { yyval.nPtr = new_call(yyvsp[-2].strValue,NULL); } - break; - - case 79: -#line 1367 "goomsl_yacc.y" - { yyval.nPtr = new_call(yyvsp[-4].strValue,yyvsp[-2].nPtr); } - break; - - case 80: -#line 1368 "goomsl_yacc.y" - { yyval.nPtr = new_call(yyvsp[-3].strValue,NULL); } - break; - - case 81: -#line 1369 "goomsl_yacc.y" - { yyval.nPtr = new_call(yyvsp[-5].strValue,yyvsp[-3].nPtr); } - break; - - case 82: -#line 1373 "goomsl_yacc.y" - { yyval.nPtr = new_call_expr(yyvsp[-2].strValue,NULL); } - break; - - case 83: -#line 1374 "goomsl_yacc.y" - { yyval.nPtr = new_call_expr(yyvsp[-4].strValue,yyvsp[-2].nPtr); } - break; - - case 84: -#line 1377 "goomsl_yacc.y" - { yyval.nPtr = new_affec_list(yyvsp[-1].nPtr,yyvsp[0].nPtr); } - break; - - case 85: -#line 1378 "goomsl_yacc.y" - { yyval.nPtr = new_affec_list(yyvsp[0].nPtr,NULL); } - break; - - case 86: -#line 1380 "goomsl_yacc.y" - { - gsl_reenternamespace(yyvsp[-1].namespace); - yyval.nPtr = new_set(new_var(yyvsp[-3].strValue,currentGoomSL->num_lines),yyvsp[0].nPtr); - } - break; - - case 87: -#line 1384 "goomsl_yacc.y" - { - gsl_reenternamespace(yyvsp[-1].namespace); - yyval.nPtr = new_set(new_var("&this", currentGoomSL->num_lines),yyvsp[0].nPtr); - } - break; - - - } - -/* Line 999 of yacc.c. */ -#line 2792 "goomsl_yacc.c" - - yyvsp -= yylen; - yyssp -= yylen; - - - YY_STACK_PRINT (yyss, yyssp); - - *++yyvsp = yyval; - - - /* Now `shift' the result of the reduction. Determine what state - that goes to, based on the state we popped back to and the rule - number reduced by. */ - - yyn = yyr1[yyn]; - - yystate = yypgoto[yyn - YYNTOKENS] + *yyssp; - if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp) - yystate = yytable[yystate]; - else - yystate = yydefgoto[yyn - YYNTOKENS]; - - goto yynewstate; - - -/*------------------------------------. -| yyerrlab -- here on detecting error | -`------------------------------------*/ -yyerrlab: - /* If not already recovering from an error, report this error. */ - if (!yyerrstatus) - { - ++yynerrs; -#if YYERROR_VERBOSE - yyn = yypact[yystate]; - - if (YYPACT_NINF < yyn && yyn < YYLAST) - { - YYSIZE_T yysize = 0; - int yytype = YYTRANSLATE (yychar); - char *yymsg; - int yyx, yycount; - - yycount = 0; - /* Start YYX at -YYN if negative to avoid negative indexes in - YYCHECK. */ - for (yyx = yyn < 0 ? -yyn : 0; - yyx < (int) (sizeof (yytname) / sizeof (char *)); yyx++) - if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR) - yysize += yystrlen (yytname[yyx]) + 15, yycount++; - yysize += yystrlen ("syntax error, unexpected ") + 1; - yysize += yystrlen (yytname[yytype]); - yymsg = (char *) YYSTACK_ALLOC (yysize); - if (yymsg != 0) - { - char *yyp = yystpcpy (yymsg, "syntax error, unexpected "); - yyp = yystpcpy (yyp, yytname[yytype]); - - if (yycount < 5) - { - yycount = 0; - for (yyx = yyn < 0 ? -yyn : 0; - yyx < (int) (sizeof (yytname) / sizeof (char *)); - yyx++) - if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR) - { - const char *yyq = ! yycount ? ", expecting " : " or "; - yyp = yystpcpy (yyp, yyq); - yyp = yystpcpy (yyp, yytname[yyx]); - yycount++; - } - } - yyerror (yymsg); - YYSTACK_FREE (yymsg); - } - else - yyerror ("syntax error; also virtual memory exhausted"); - } - else -#endif /* YYERROR_VERBOSE */ - yyerror ("syntax error"); - } - - - - if (yyerrstatus == 3) - { - /* If just tried and failed to reuse lookahead token after an - error, discard it. */ - - /* Return failure if at end of input. */ - if (yychar == YYEOF) - { - /* Pop the error token. */ - YYPOPSTACK; - /* Pop the rest of the stack. */ - while (yyss < yyssp) - { - YYDSYMPRINTF ("Error: popping", yystos[*yyssp], yyvsp, yylsp); - yydestruct (yystos[*yyssp], yyvsp); - YYPOPSTACK; - } - YYABORT; - } - - YYDSYMPRINTF ("Error: discarding", yytoken, &yylval, &yylloc); - yydestruct (yytoken, &yylval); - yychar = YYEMPTY; - - } - - /* Else will try to reuse lookahead token after shifting the error - token. */ - goto yyerrlab1; - - -/*----------------------------------------------------. -| yyerrlab1 -- error raised explicitly by an action. | -`----------------------------------------------------*/ -yyerrlab1: - yyerrstatus = 3; /* Each real token shifted decrements this. */ - - for (;;) - { - yyn = yypact[yystate]; - if (yyn != YYPACT_NINF) - { - yyn += YYTERROR; - if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR) - { - yyn = yytable[yyn]; - if (0 < yyn) - break; - } - } - - /* Pop the current state because it cannot handle the error token. */ - if (yyssp == yyss) - YYABORT; - - YYDSYMPRINTF ("Error: popping", yystos[*yyssp], yyvsp, yylsp); - yydestruct (yystos[yystate], yyvsp); - yyvsp--; - yystate = *--yyssp; - - YY_STACK_PRINT (yyss, yyssp); - } - - if (yyn == YYFINAL) - YYACCEPT; - - YYDPRINTF ((stderr, "Shifting error token, ")); - - *++yyvsp = yylval; - - - yystate = yyn; - goto yynewstate; - - -/*-------------------------------------. -| yyacceptlab -- YYACCEPT comes here. | -`-------------------------------------*/ -yyacceptlab: - yyresult = 0; - goto yyreturn; - -/*-----------------------------------. -| yyabortlab -- YYABORT comes here. | -`-----------------------------------*/ -yyabortlab: - yyresult = 1; - goto yyreturn; - -#ifndef yyoverflow -/*----------------------------------------------. -| yyoverflowlab -- parser overflow comes here. | -`----------------------------------------------*/ -yyoverflowlab: - yyerror ("parser stack overflow"); - yyresult = 2; - /* Fall through. */ -#endif - -yyreturn: -#ifndef yyoverflow - if (yyss != yyssa) - YYSTACK_FREE (yyss); -#endif - return yyresult; -} - - -#line 1396 "goomsl_yacc.y" - - - -void yyerror(char *str) -{ /* {{{ */ - fprintf(stderr, "ERROR: Line %d, %s\n", currentGoomSL->num_lines, str); - currentGoomSL->compilationOK = 0; - exit(1); -} /* }}} */ - - diff --git a/src/post/goom/mmx.c b/src/post/goom/mmx.c index 3c9d0ee4a..953b59152 100644 --- a/src/post/goom/mmx.c +++ b/src/post/goom/mmx.c @@ -16,9 +16,11 @@ // faire : a / sqrtperte <=> a >> PERTEDEC #define PERTEDEC 4 +#ifdef CPU_X86 int mmx_supported (void) { return (mm_support()&0x1); } +#endif void zoom_filter_mmx (int prevX, int prevY, Pixel *expix1, Pixel *expix2, diff --git a/src/post/goom/mmx.h b/src/post/goom/mmx.h index 6861b7cfe..d422eac20 100644 --- a/src/post/goom/mmx.h +++ b/src/post/goom/mmx.h @@ -244,8 +244,10 @@ mmx_ok(void) return ( mm_support() & 0x1 ); } +#ifdef CPU_X86 int mmx_supported (void); int xmmx_supported (void); +#endif /* MMX optimized implementations */ diff --git a/src/post/goom/xmmx.c b/src/post/goom/xmmx.c index 6b76a86a3..2b9103a3e 100644 --- a/src/post/goom/xmmx.c +++ b/src/post/goom/xmmx.c @@ -23,6 +23,7 @@ /*#include "xmmx.h"*/ #include "goom_graphic.h" +#ifdef CPU_X86 int xmmx_supported (void) { #ifdef ARCH_X86_64 return 0; /* Haven't yet converted zoom_filter_xmmx @@ -31,6 +32,7 @@ int xmmx_supported (void) { return (mm_support()&0x8)>>3; #endif } +#endif void zoom_filter_xmmx (int prevX, int prevY, Pixel *expix1, Pixel *expix2, |