summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorDiego 'Flameeyes' Pettenò <flameeyes@gmail.com>2008-01-16 20:09:47 +0100
committerDiego 'Flameeyes' Pettenò <flameeyes@gmail.com>2008-01-16 20:09:47 +0100
commit19e1fa84aafee1f845e39afd20deb9d7783ad935 (patch)
tree19c65fe2b31b6777d59bc1e9a4db637aa6ef4e92 /src
parente454b8cfad52523f96edafefd6e6392646c005de (diff)
downloadxine-lib-19e1fa84aafee1f845e39afd20deb9d7783ad935.tar.gz
xine-lib-19e1fa84aafee1f845e39afd20deb9d7783ad935.tar.bz2
Remove two unused files, don't define (x)mmx_supported on non-x86.
Diffstat (limited to 'src')
-rw-r--r--src/post/goom/Makefile.am2
-rw-r--r--src/post/goom/goomsl_lex.c2108
-rw-r--r--src/post/goom/goomsl_yacc.c2997
-rw-r--r--src/post/goom/mmx.c2
-rw-r--r--src/post/goom/mmx.h2
-rw-r--r--src/post/goom/xmmx.c2
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,
generated by cgit v1.2.3 (git 2.25.1) at 2025-04-23 05:54:39 +0000