From 78c743736cc5d1a8bf6e76618706e86bf7c0b237 Mon Sep 17 00:00:00 2001 From: Meyer Simon Date: Fri, 7 Feb 2025 14:34:37 -0500 Subject: [PATCH] Added the keywards and types t#01 --- lex.yy.c | 1870 +++++++++++++++++++++++++++++++++++++ lexer | Bin 0 -> 31224 bytes lexicalStructure | Bin 0 -> 27128 bytes lexicalStructure.lex | 39 +- tests/test_keywards.alpha | 29 + tests/test_types.alpha | 10 + 6 files changed, 1943 insertions(+), 5 deletions(-) create mode 100644 lex.yy.c create mode 100755 lexer create mode 100755 lexicalStructure create mode 100644 tests/test_keywards.alpha create mode 100644 tests/test_types.alpha diff --git a/lex.yy.c b/lex.yy.c new file mode 100644 index 0000000..206d850 --- /dev/null +++ b/lex.yy.c @@ -0,0 +1,1870 @@ + +#line 3 "lex.yy.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 6 +#define YY_FLEX_SUBMINOR_VERSION 4 +#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 +#include +#include +#include + +/* end standard C headers. */ + +/* flex integer type definitions */ + +#ifndef FLEXINT_H +#define FLEXINT_H + +/* C99 systems have . Non-C99 systems may or may not. */ + +#if defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L + +/* C99 says to define __STDC_LIMIT_MACROS before including stdint.h, + * if you want the limit (max/min) macros for int types. + */ +#ifndef __STDC_LIMIT_MACROS +#define __STDC_LIMIT_MACROS 1 +#endif + +#include +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; + +/* 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 + +#ifndef SIZE_MAX +#define SIZE_MAX (~(size_t)0) +#endif + +#endif /* ! C99 */ + +#endif /* ! FLEXINT_H */ + +/* begin standard C++ headers. */ + +/* TODO: this is always defined, so inline it */ +#define yyconst const + +#if defined(__GNUC__) && __GNUC__ >= 3 +#define yynoreturn __attribute__((__noreturn__)) +#else +#define yynoreturn +#endif + +/* Returned upon end-of-file. */ +#define YY_NULL 0 + +/* Promotes a possibly negative, possibly signed char to an + * integer in range [0..255] for use as an array index. + */ +#define YY_SC_TO_UI(c) ((YY_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 +#ifdef __ia64__ +/* On IA-64, the buffer size is 16k, not 8k. + * Moreover, YY_BUF_SIZE is 2*YY_READ_BUF_SIZE in the general case. + * Ditto for the __ia64__ case accordingly. + */ +#define YY_BUF_SIZE 32768 +#else +#define YY_BUF_SIZE 16384 +#endif /* __ia64__ */ +#endif + +/* The state buf must be large enough to hold one state per character in the main buffer. + */ +#define YY_STATE_BUF_SIZE ((YY_BUF_SIZE + 2) * sizeof(yy_state_type)) + +#ifndef YY_TYPEDEF_YY_BUFFER_STATE +#define YY_TYPEDEF_YY_BUFFER_STATE +typedef struct yy_buffer_state *YY_BUFFER_STATE; +#endif + +#ifndef YY_TYPEDEF_YY_SIZE_T +#define YY_TYPEDEF_YY_SIZE_T +typedef size_t yy_size_t; +#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 + + #define YY_LESS_LINENO(n) + #define YY_LINENO_REWIND_TO(ptr) + +/* 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) ) + +#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. + */ + int 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 = NULL; /**< 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 = NULL; +static int yy_init = 0; /* 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 ( const char *yy_str ); +YY_BUFFER_STATE yy_scan_bytes ( const 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 */ + +#define yywrap() (/*CONSTCOND*/1) +#define YY_SKIP_YYWRAP +typedef flex_uint8_t YY_CHAR; + +FILE *yyin = NULL, *yyout = NULL; + +typedef int yy_state_type; + +extern int yylineno; +int yylineno = 1; + +extern char *yytext; +#ifdef yytext_ptr +#undef yytext_ptr +#endif +#define yytext_ptr 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 yynoreturn yy_fatal_error ( const 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 = (int) (yy_cp - yy_bp); \ + (yy_hold_char) = *yy_cp; \ + *yy_cp = '\0'; \ + (yy_c_buf_p) = yy_cp; +#define YY_NUM_RULES 16 +#define YY_END_OF_BUFFER 17 +/* 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 const flex_int16_t yy_accept[81] = + { 0, + 0, 0, 17, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 0, 0, 15, 0, 0, 0, + 0, 8, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 10, 0, 0, 0, 0, 0, 9, + 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 7, 0, 0, 0, 0, 0, 0, 13, 6, 4, + 3, 0, 0, 0, 2, 0, 14, 12, 5, 0 + } ; + +static const YY_CHAR yy_ec[256] = + { 0, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 4, 1, 5, 6, + + 7, 8, 9, 10, 11, 1, 1, 12, 1, 13, + 14, 15, 1, 16, 17, 18, 19, 1, 20, 21, + 22, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 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 const YY_CHAR yy_meta[23] = + { 0, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1 + } ; + +static const flex_int16_t yy_base[81] = + { 0, + 0, 0, 88, 89, 73, 17, 76, 12, 66, 17, + 77, 65, 16, 72, 67, 74, 89, 75, 61, 59, + 63, 89, 57, 56, 57, 65, 56, 59, 57, 52, + 51, 59, 58, 59, 56, 43, 50, 47, 52, 46, + 50, 49, 51, 89, 38, 35, 43, 35, 37, 89, + 89, 42, 44, 30, 41, 32, 33, 36, 29, 32, + 89, 27, 22, 19, 32, 21, 16, 89, 89, 89, + 89, 24, 17, 15, 89, 11, 89, 89, 89, 89 + } ; + +static const flex_int16_t yy_def[81] = + { 0, + 80, 1, 80, 80, 80, 80, 80, 80, 80, 80, + 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, + 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, + 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, + 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, + 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, + 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, + 80, 80, 80, 80, 80, 80, 80, 80, 80, 0 + } ; + +static const flex_int16_t yy_nxt[112] = + { 0, + 4, 4, 5, 6, 7, 4, 8, 9, 4, 4, + 10, 4, 4, 4, 4, 11, 12, 13, 4, 14, + 4, 4, 16, 19, 22, 26, 79, 78, 77, 23, + 76, 75, 20, 17, 74, 73, 72, 27, 71, 70, + 69, 68, 67, 66, 65, 64, 63, 62, 61, 60, + 59, 58, 57, 56, 55, 54, 53, 52, 51, 50, + 49, 48, 47, 46, 45, 44, 43, 42, 41, 40, + 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, + 29, 28, 25, 24, 21, 18, 15, 80, 3, 80, + 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, + + 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, + 80 + } ; + +static const flex_int16_t yy_chk[112] = + { 0, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 6, 8, 10, 13, 76, 74, 73, 10, + 72, 67, 8, 6, 66, 65, 64, 13, 63, 62, + 60, 59, 58, 57, 56, 55, 54, 53, 52, 49, + 48, 47, 46, 45, 43, 42, 41, 40, 39, 38, + 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, + 27, 26, 25, 24, 23, 21, 20, 19, 18, 16, + 15, 14, 12, 11, 9, 7, 5, 3, 80, 80, + 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, + + 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, + 80 + } ; + +static yy_state_type yy_last_accepting_state; +static char *yy_last_accepting_cpos; + +extern int yy_flex_debug; +int yy_flex_debug = 0; + +/* The intent behind this definition is that it'll catch + * any uses of REJECT which flex missed. + */ +#define REJECT reject_used_but_not_detected +#define yymore() yymore_used_but_not_detected +#define YY_MORE_ADJ 0 +#define YY_RESTORE_YY_MORE_OFFSET +char *yytext; +#line 1 "lexicalStructure.lex" +/* Lexical Analysis with Flex (2.6.0) We used some of the code from this manual */ +/* so we placed the citation here. */ +/* definitions */ +#line 6 "lexicalStructure.lex" +#include "typedefs.h" +#line 496 "lex.yy.c" +#line 497 "lex.yy.c" + +#define INITIAL 0 + +#ifndef YY_NO_UNISTD_H +/* 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 +#endif + +#ifndef YY_EXTRA_TYPE +#define YY_EXTRA_TYPE void * +#endif + +static int yy_init_globals ( void ); + +/* Accessor methods to globals. + These are made visible to non-reentrant scanners for convenience. */ + +int yylex_destroy ( void ); + +int yyget_debug ( void ); + +void yyset_debug ( int debug_flag ); + +YY_EXTRA_TYPE yyget_extra ( void ); + +void yyset_extra ( YY_EXTRA_TYPE user_defined ); + +FILE *yyget_in ( void ); + +void yyset_in ( FILE * _in_str ); + +FILE *yyget_out ( void ); + +void yyset_out ( FILE * _out_str ); + + int yyget_leng ( void ); + +char *yyget_text ( void ); + +int yyget_lineno ( void ); + +void yyset_lineno ( int _line_number ); + +/* 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 + +#ifndef YY_NO_UNPUT + + static void yyunput ( int c, char *buf_ptr ); + +#endif + +#ifndef yytext_ptr +static void yy_flex_strncpy ( char *, const char *, int ); +#endif + +#ifdef YY_NEED_STRLEN +static int yy_flex_strlen ( const 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 +#ifdef __ia64__ +/* On IA-64, the buffer size is 16k, not 8k */ +#define YY_READ_BUF_SIZE 16384 +#else +#define YY_READ_BUF_SIZE 8192 +#endif /* __ia64__ */ +#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 do { if (fwrite( yytext, (size_t) yyleng, 1, yyout )) {} } while (0) +#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 = '*'; \ + int 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 = (int) fread(buf, 1, (yy_size_t) 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 /*LINTED*/break; +#endif + +#define YY_RULE_SETUP \ + YY_USER_ACTION + +/** The main scanner function which does all the work. + */ +YY_DECL +{ + yy_state_type yy_current_state; + char *yy_cp, *yy_bp; + int yy_act; + + if ( !(yy_init) ) + { + (yy_init) = 1; + +#ifdef YY_USER_INIT + YY_USER_INIT; +#endif + + 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( ); + } + + { +#line 10 "lexicalStructure.lex" + + +#line 717 "lex.yy.c" + + while ( /*CONSTCOND*/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_match: + do + { + YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)] ; + if ( yy_accept[yy_current_state] ) + { + (yy_last_accepting_state) = yy_current_state; + (yy_last_accepting_cpos) = 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 >= 81 ) + yy_c = yy_meta[yy_c]; + } + yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c]; + ++yy_cp; + } + while ( yy_base[yy_current_state] != 89 ); + +yy_find_action: + yy_act = yy_accept[yy_current_state]; + if ( yy_act == 0 ) + { /* have to back up */ + yy_cp = (yy_last_accepting_cpos); + yy_current_state = (yy_last_accepting_state); + yy_act = yy_accept[yy_current_state]; + } + + YY_DO_BEFORE_ACTION; + +do_action: /* This label is used only to access EOF actions. */ + + switch ( yy_act ) + { /* beginning of action switch */ + case 0: /* must back up */ + /* undo the effects of YY_DO_BEFORE_ACTION */ + *yy_cp = (yy_hold_char); + yy_cp = (yy_last_accepting_cpos); + yy_current_state = (yy_last_accepting_state); + goto yy_find_action; + +case 1: +/* rule 1 can match eol */ +YY_RULE_SETUP +#line 12 "lexicalStructure.lex" + + YY_BREAK +case 2: +YY_RULE_SETUP +#line 13 "lexicalStructure.lex" +{printf("T_INTEGER %s, Token %d\n",yytext, T_INTEGER);} //{return T_INTEGER} + YY_BREAK +case 3: +YY_RULE_SETUP +#line 14 "lexicalStructure.lex" +{printf("T_ADDRESS %s, Token %d\n",yytext, T_ADDRESS);} //{return T_ADDRESS} + YY_BREAK +case 4: +YY_RULE_SETUP +#line 15 "lexicalStructure.lex" +{printf("T_BOOLEAN %s, Token %d\n",yytext, T_BOOLEAN);} //{return T_BOOLEAN} + YY_BREAK +case 5: +YY_RULE_SETUP +#line 16 "lexicalStructure.lex" +{printf("T_CHARACTER %s, Token %d\n",yytext, T_CHARACTER);} //{return T_CHARACTER} + YY_BREAK +case 6: +YY_RULE_SETUP +#line 17 "lexicalStructure.lex" +{printf("T_STRING %s, Token %d\n",yytext, T_STRING);} //{return T_STRING} + YY_BREAK +/* KEYWARDS */ +case 7: +YY_RULE_SETUP +#line 22 "lexicalStructure.lex" +{printf("WHILE %s, Token %d\n",yytext, WHILE);} //{return WHILE} + YY_BREAK +case 8: +YY_RULE_SETUP +#line 23 "lexicalStructure.lex" +{printf("IF %s, Token %d\n",yytext, IF);} //{return IF} + YY_BREAK +case 9: +YY_RULE_SETUP +#line 24 "lexicalStructure.lex" +{printf("THEN %s, Token %d\n",yytext, THEN);} //{return THEN} + YY_BREAK +case 10: +YY_RULE_SETUP +#line 25 "lexicalStructure.lex" +{printf("ELSE %s, Token %d\n",yytext, ELSE);} //{return ELSE} + YY_BREAK +case 11: +YY_RULE_SETUP +#line 26 "lexicalStructure.lex" +{printf("TYPE %s, Token %d\n",yytext, TYPE);} //{return TYPE} + YY_BREAK +case 12: +YY_RULE_SETUP +#line 27 "lexicalStructure.lex" +{printf("FUNCTION %s, Token %d\n",yytext, FUNCTION);} //{return FUNCTION} + YY_BREAK +case 13: +YY_RULE_SETUP +#line 28 "lexicalStructure.lex" +{printf("RETURN %s, Token %d\n",yytext, RETURN);} //{return RETURN} + YY_BREAK +case 14: +YY_RULE_SETUP +#line 29 "lexicalStructure.lex" +{printf("EXTERNAL %s, Token %d\n",yytext, EXTERNAL);} //{return EXTERNAL} + YY_BREAK +case 15: +YY_RULE_SETUP +#line 30 "lexicalStructure.lex" +{printf("AS %s, Token %d\n",yytext, AS);} //{return AS} + YY_BREAK +case 16: +YY_RULE_SETUP +#line 33 "lexicalStructure.lex" +ECHO; + YY_BREAK +#line 856 "lex.yy.c" +case YY_STATE_EOF(INITIAL): + 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 user's declarations */ +} /* 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) +{ + char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf; + char *source = (yytext_ptr); + 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 + { + int 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. */ + + /* just a shorter name for the current buffer */ + YY_BUFFER_STATE b = YY_CURRENT_BUFFER_LVALUE; + + int yy_c_buf_p_offset = + (int) ((yy_c_buf_p) - b->yy_ch_buf); + + if ( b->yy_is_our_buffer ) + { + int new_size = b->yy_buf_size * 2; + + if ( new_size <= 0 ) + b->yy_buf_size += b->yy_buf_size / 8; + else + b->yy_buf_size *= 2; + + b->yy_ch_buf = (char *) + /* Include room in for 2 EOB chars. */ + yyrealloc( (void *) b->yy_ch_buf, + (yy_size_t) (b->yy_buf_size + 2) ); + } + else + /* Can't grow it, we don't own it. */ + b->yy_ch_buf = NULL; + + if ( ! b->yy_ch_buf ) + YY_FATAL_ERROR( + "fatal error - scanner input buffer overflow" ); + + (yy_c_buf_p) = &b->yy_ch_buf[yy_c_buf_p_offset]; + + num_to_read = YY_CURRENT_BUFFER_LVALUE->yy_buf_size - + number_to_move - 1; + + } + + 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; + + if (((yy_n_chars) + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) { + /* Extend the array by 50%, plus the number we really need. */ + int new_size = (yy_n_chars) + number_to_move + ((yy_n_chars) >> 1); + YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = (char *) yyrealloc( + (void *) YY_CURRENT_BUFFER_LVALUE->yy_ch_buf, (yy_size_t) new_size ); + if ( ! YY_CURRENT_BUFFER_LVALUE->yy_ch_buf ) + YY_FATAL_ERROR( "out of dynamic memory in yy_get_next_buffer()" ); + /* "- 2" to take care of EOB's */ + YY_CURRENT_BUFFER_LVALUE->yy_buf_size = (int) (new_size - 2); + } + + (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) +{ + yy_state_type yy_current_state; + char *yy_cp; + + yy_current_state = (yy_start); + + for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp ) + { + YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1); + if ( yy_accept[yy_current_state] ) + { + (yy_last_accepting_state) = yy_current_state; + (yy_last_accepting_cpos) = 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 >= 81 ) + yy_c = yy_meta[yy_c]; + } + yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c]; + } + + 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 ) +{ + int yy_is_jam; + char *yy_cp = (yy_c_buf_p); + + YY_CHAR yy_c = 1; + if ( yy_accept[yy_current_state] ) + { + (yy_last_accepting_state) = yy_current_state; + (yy_last_accepting_cpos) = 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 >= 81 ) + yy_c = yy_meta[yy_c]; + } + yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c]; + yy_is_jam = (yy_current_state == 80); + + return yy_is_jam ? 0 : yy_current_state; +} + +#ifndef YY_NO_UNPUT + + static void yyunput (int c, char * yy_bp ) +{ + 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. */ + int number_to_move = (yy_n_chars) + 2; + char *dest = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[ + YY_CURRENT_BUFFER_LVALUE->yy_buf_size + 2]; + 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) = (int) 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; + + (yytext_ptr) = yy_bp; + (yy_hold_char) = *yy_cp; + (yy_c_buf_p) = yy_cp; +} + +#endif + +#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 = (int) ((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 0; + + 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); + + 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( (yy_size_t) (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 ); +} + +/* 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) +{ + yy_size_t 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; /* After all that talk, this was set to 1 anyways... */ + (yy_buffer_stack) = (struct yy_buffer_state**)yyalloc + (num_to_alloc * sizeof(struct yy_buffer_state*) + ); + if ( ! (yy_buffer_stack) ) + YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" ); + + 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. */ + yy_size_t 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*) + ); + if ( ! (yy_buffer_stack) ) + YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" ); + + /* 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 NULL; + + 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 = (int) (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 = NULL; + 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 yystr 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 (const char * yystr ) +{ + + return yy_scan_bytes( yystr, (int) strlen(yystr) ); +} + +/** 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 yybytes the byte buffer to scan + * @param _yybytes_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 (const char * yybytes, int _yybytes_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 = (yy_size_t) (_yybytes_len + 2); + buf = (char *) yyalloc( n ); + if ( ! buf ) + YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" ); + + for ( i = 0; i < _yybytes_len; ++i ) + buf[i] = yybytes[i]; + + buf[_yybytes_len] = buf[_yybytes_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 yynoreturn yy_fatal_error (const char* msg ) +{ + 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 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 ; +} + +static int yy_init_globals (void) +{ + /* Initialization is the same as for the non-reentrant scanner. + * This function is called from yylex_destroy(), so don't allocate here. + */ + + (yy_buffer_stack) = NULL; + (yy_buffer_stack_top) = 0; + (yy_buffer_stack_max) = 0; + (yy_c_buf_p) = NULL; + (yy_init) = 0; + (yy_start) = 0; + +/* Defined in main.c */ +#ifdef YY_STDINIT + yyin = stdin; + yyout = stdout; +#else + yyin = NULL; + yyout = NULL; +#endif + + /* For future reference: Set errno on error, since we are called by + * yylex_init() + */ + return 0; +} + +/* 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; + + /* Reset the globals. This is important in a non-reentrant scanner so the next time + * yylex() is called, initialization will occur. */ + yy_init_globals( ); + + return 0; +} + +/* + * Internal utility routines. + */ + +#ifndef yytext_ptr +static void yy_flex_strncpy (char* s1, const char * s2, int n ) +{ + + int i; + for ( i = 0; i < n; ++i ) + s1[i] = s2[i]; +} +#endif + +#ifdef YY_NEED_STRLEN +static int yy_flex_strlen (const char * s ) +{ + int n; + for ( n = 0; s[n]; ++n ) + ; + + return n; +} +#endif + +void *yyalloc (yy_size_t size ) +{ + return 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 realloc(ptr, size); +} + +void yyfree (void * ptr ) +{ + free( (char *) ptr ); /* see yyrealloc() for (char *) cast */ +} + +#define YYTABLES_NAME "yytables" + +#line 33 "lexicalStructure.lex" + +int main(int argc, char *argv[]){ + argc--, argv++; + if ( argc > 0 ) + yyin = fopen( argv[0], "r" ); + else + yyin = stdin; + yylex(); +} + diff --git a/lexer b/lexer new file mode 100755 index 0000000000000000000000000000000000000000..26f06a85a656ac0136dac24d6120f67a669e32aa GIT binary patch literal 31224 zcmeHw3v^V~x&NMo1K|-SU_TJxqo_)^DxmPb*m}avv71G%pMyayFf>S631%4R;DP#pK6aUAs z(X2Ppy*N+E3k88xgi~qBG(+;!K}j!%A}Q!d!Dfo85)vi7?m}xnAyJfNi8SeH6qRW! zy>gtuDXQc~euYAAR7|Ez?1HbTS&w`(@eU!MSeH!COTTQF^;detCcOfwS0MEiWl~R3 zUFq;9V;!84Xvok?-uBh zU;f&lnt6rHue)}z_D`8Tn_62_K6Coi+R7=lHTA*uQ`Q&EoHBEIZlf=E8ZQEs%ZU&5 zsYT05sX1DSr z_EeLr^bkY{!~J2~wdp=BYb^0{@EL*6#8D57JmGz#uBz0N^-uRcxnWjkWaN8o$CXQf zxHNnZEIH(pgf-pp-|B`><#OU<4KIU{%6>;T{A1nlcXh+x&<+2=Zus|f!yg5{6CZ2X z2S%#$-`)+syc_=RZur}};h*V-AM1vHE%;7+tRVzOs`5Vu{vbA-IU9tAniqpo2q8+S0rAetrJ zz4xKVF^#0N0g@LSUelNC4;65x)-Ba93T1oc$#qHbndE0!+F7Mf`9y{^XPM`-b`ziG zKNX@T{s6@U?J)6aK2@R1#2>1dpsHWfJWX??3abASpXN;!R6iyDaK!{ImiDQeO4o4d zDidGL{Uj(e@yV77)h0gqLWKqsUkwG4tvB%vUxUBN#7Bb}VVj9Bw?bUD-Nf&2pc&g? z;%A!pJ5Bt7CjM>{-)`dXG4WO3BJq9`e~<~^YT}#cr6VT3>{49oxQXvD+3AV)c%a7v zJs#-sz~ASAPwk_>bcN1mxFXtb+>E)lvFazRuWOBTWllXDr`H(}tomcBPS~g|9O<$Vk(I*BP@J zX**AU@|CJDEpVv6O2a!p!hY92W&z{=LHaXXzMIn@S<+`M>EBz@Z(GvGEa_J*>0emV zKe42LWJy0`N&kx_{g@@)Vo7hYq?;}2pgEoY(cI%(%{~L(9 z!e;{mT#?xyA`u;ic8*q}GaS|&z}fDAu8}|K$JRkeky7Zb#AqsrXbXVc(rVxG0<5)Z z(?}1oh?d9s!G3MpSjj`_-b6O2UT`4d-=%n1dx=Oy`-Mqzw~#z1B(DoeV3aH3cv-M^ z6FJb1dLMU1xWQ@B%wgP49YFIgdF*cSC-JM9XmN8iA<3pw9I zn6Tb%-{+|2T6+7oELTKt2QwPch!@t84@OcDDC)1W-Y`|#nx!8PK55P+ty`UHQ~s`y-flCiy-ro6x`et`+qYb#IlwIb)ipA| zuzoVse3AvPg)bN3lz@C0(PklrTA4MTG-<#&QMlyYuTvAi)syvTSo?uY!Oz>Y(=u^b zBEs6Q!9h-g?ORV{UXAD{;q)!&YvlN}d~kZDao7D<9$2>Hb1;PVIUbW{s7bZml;FjC z5-}7nb`3f-1j~{9*-aQn@;+X+XfsKD6?_o#u}ZN^M^YUt>jge?MgKNu{w zNNB|fPrZH8@lezj)=!~-ekOU;KOOBnp&cb+OmC6G0?e4@5FZfY=PcrpVeQ|!#IaKV z!bt!qt|CU5a@Z&kYmyLcg$2Ce5rkv{g~q%+2BX? zQzSZ$5j_RT=pO82#NdZ7evM5`SU(N5*sW9yJsN60%>om_U}Q7YYJ=WqB#USt3rKrJ zKTX5)e)I`&Pf2d<9*mu694-xYrP()cmXYtghX`ieIiW6_ealHC+O!`-g#xtwTw8kt zB%=K@{*&_$9{A%J+wl`!q1M5ez+z9sFe3UKhHgR9h3Ny)(IOg+ zok2@O@hVEA9}qEGPB?BT@uYW19(~v_$Vem%9>Xa(qS4q6s&b3=XRIXDlQ!WDV0)|- zxonRu=Xu@Hb@UbU8tg*$&ysdT+fKxkePISno`S$9tfSRa#t#FU7zaye%uF@5O?( z_XhpQhIe7%DQ-x6fQaD(3?6iqU|t*NlTjd>1hPCC>8M9KTs$&%6`z9~D+TJtWK?0! zWc>&)LF5BpNAnqR0A0G{@G89)=wN zyLSTTxN@YRrMM3^SFVHDRLMqkY=+R+Iwd5dO1sGof-+sJxJ* zBFc8eRdFPuAEFW-!2}d3ZKZy32>s&F4f;#Xqmk3?q=rf@xe$+s_0~{xYdp{!|N8}> z=Kl+j!y1u8u_Xr=YL6T`V6COt7B1!abRa8{4=e@8B8M+-5jphzG#*Ezk|)Pb608F_ z3WRo88wAs_=TW2RTb=QE8`X`Sn-M*XL!n3gBj8HyCUW# zC87~FtY1Jg6_8d~?}~Nt*3-MNGvC}A80L!bsJa-sZwxL4a4~dF*fiEUgHeQLTU zsvawC&C)N>HBlm$kEzHhbxKV6@oldiUE845fLb^g}pnABkB4r2ulH=hUKYXpF! z4(p#{>N#)J{n=3>8+ko=KCE3yNKyCUh*I4X@ElnaTo0ZPHJ>-veU$VuuX{q{s&4C1 ztLiaJKTmZ}=yb{k5!aArf333QZ-2BEZH&HvhG0PrM$p6zAyI!E0_268PrJfF+96F{ z%KZ?<#&#q{vDWa7Z6BV{I*PzE^=|Y+TCry7QF~}1W~YeuMt`^EP7pkz{mi0O zj1ign6CwLoLndbhxSmYXUR3XZjTV7hYv9DlrFHELupHNQZm26%hn5c2bpBmkd!r0e+htoJyW!TfVef6!1}6ut0t7_+DFKX$KS?JjNzuBNN&jWPlL zJ&0~kY$?&8sJ!L{7p-_J2)}eLBO<3LA@ zQU@%jQg5RF<5UXZ-;x-nhr{$6Tv7We*H8yuauA9=9pB=;jP*166+D5;nkRGKnBnHG z=zogM_Pr+4jl%RdQkuR2gJAP>yrH$5rPAFf&m5t2b&?Vlwgd&w2N!*2EC?Sug9P|X z7gbjk9!B~SKU|D%=J=Ro@J|v1>p#+>`yUg4eFlI!HCB$as2!zi(~d#_&#`khb03a4 z9us;S4ZY)h*MMu~tz6;=2*4dl0F0|F42fzX^AHJZ(|F1;UofvFVyX=xx)$+TjqqKBENko0LV=sTUs~v;RihDw4ce!;bLrjG@Z&=dNG`3?tpZo z3FD4C)xJ3-ebH7pQfl(1J1jgTCv%&Tqy>(=LnB1*YAc*5%ZO-!(AW0qiK;$F@rd>a zkrY+!3T8wOxiDRjWLgdPdEjEWUkAd6`&a?) zpA3#Th7&^!_xJ*yMU;q9)QIB((tNmU|3MP;y{X9j*8=?WBrpjFqm<7OS1c7za-8ES z0e`@N8#BdO9PYGf--m!4nd}G5_oP5qpGP1>wzmsA3k*9nb8x`39H3n<6!`p{E5JjO zz-oM;<2(+>!)6}=>zI!mWWCi0(SAovS*tfGj?)EKSUW_~h;~d$$sq>>>p3EZ_qb{_ zjaTs{NMse0W*_t;ZL=^G47%E|spU06A0sm;<`fMk!&;fhV6}wOh3ub)lcX)$g%yVP z%9iX`p-e@a2G}oo9P&HPP(`WNYJ*9=O^eSX8LoQ&4gUcD6Vk4hVxY7rMREPM^$`-a z=^dB^0CAimK5e1Iw#<^>L6V9ijqmoNsJ4gWwI2|X)8JBBURRnlWt2DbTLRrkguCyE zQTp$HV3fWD;>41V+0n^Ye9T4|%K7lPdlSG>U@qOQImnCd4Hl7~DWVzA=gI zLG8rE|7tpw8(uOd{%==fV?7E)Y`%&$%tS@_kH+qKJG+fuoZhmIsHO z3J2)|T&`Sj3AqL44*?Aabie@}V&&^49qv(X;-HHt^Herv&T) z6HE+>s9oGe_!dcEleX+@1=wu@^GQA!LQboRi_UtdsOLf?DMUX*x3Lt~*geU?@%aCX z$5RZQaIk~-UykCVra3iGn)&{J;JiQC4q6*qqK;7AMO>$1#tb!IWE;owPLGneIQk5s zLUY^suu<9Suw@Rk+p-1? zzQUI67;<^F|1Bv?osq>^tJrF`7~ktHf=}mxE@gA^4N(`Hk6UxA*%CIJ-N0@_Y!-g` zVHRWsNY7%^*>#}T<5R#UvuSK9IJuzt;IC#^v2oyzV-pZx&8}hB;@2W3F()5)(62T0?mnOytS|oe zV*U7kiuFf}WP%RloGkcj2)>uPoGn8e4Mlq`!LJGoLMtssYmH!w*g~e`w;JZ773Z=- zwAmcA-Hp7JsO`SSX0jQ)-KdrF&|0M9a`Ge2l_x za12AcIPm>$JN%sfH~E@Q-v9c)-ta&_)VGM&s2}fv8Sss$O(w6;rL{@a&&yS(+z36=dIoV#Gb z3Vr3u)WUhomlx@Cm!%fYcg?xFs$< zWdZb}l_{;1tS(N;Us$?qe#zqHDQ&ILOG;Oyl<2Ea!DVxcQk86OO0QLU0-joD6~5l@ zY^?Cq*L(d=d}-h7$9Mdl{JZy4rquhKo(lS+y|c;}tgpm(-QSGI-+e0{p9y*=KKJAE zZ}_}}&sX?dbvzzlhR<4j{uQ6Y_P`aaY0ms#6Ktniq?uD(36Nk*>LHB?z01e_s zNG0eH+&bC}IvTgzo(8qyrr{ybIcK2{I`>29_ku4#$Ad1xt@Q<AOphrR5L4ONMTcuAxouK`rC_m@~&@#{&pqoI8KzD-v7_=4i&KUGTH-OTQ%{&9@ z1U&>=2udMa5N7-43T9iMWg9V|PsVomiunAl{t=8X!Yt^MMPxiabdzoOtFQ$e8<@3l zV9w3<{_8R}v73fpf6aB{$AZiC@x?H<^Kd-Q6^V&Jb_4kAAU^5K-~@dDpC;tTe@jFk zn00^J{LJ2ZC_Q~`ACwCIhn#LY{sv=yC6(Wd(R*_YmH8w-8Slj7Q^~%~E z;AL13O#biU@z2eew2zH4(2dg!^vmxg$?rGh`ypQk`M)H|A2sCE?=L{UJxRXRkas~| ziGKcSlKdq@o`Zhh7yW-%l6;3Dr$?K=4S5Fa7e`WSb)X8T?)=Kehe`FzMvo8@V5aRBaYvM$Kukl$#Q zBToGz8)J41#xn1>s{brX*q#o#9df#>YSi78ke5KtE+Y>>{t5E#&iqf0QH_gM;LcLcSLM8*P@CCd$7T@&M$tE*kzXOUO?`-VFH|v;5YC`~u_~ zAg3FlhJKpNfOtKj#{)ec=@2t{wEd?dVL$^Lk z@4>Y=1sv1yuw9BqCn?x6x3Z> zewKjrM0|;fg5o=6fmONrc@N|ghI=t0@N0EM6%JqA;5j2Z&iYEGJEY-wLe33z$n;(* z$8UmgeN_*c&HorNevjQ^F;BL4p`^uJ13Tw2kQetXMTR}^xV8D`9Yq{-#BerZr=1slHI*o zveS!w61O6#-EELOARERh0W_>q;i+Gwu`IS7zdB$JP9%umYT?uHB0g^JC56RE*>LyI z)gaii8#DYO3;08fai)|uAVPMGaW4hiINo9WF0#Tui%6>S@8S62Y`x4^_3uNHzsbTs zCHdPd{HWw_mwZ+J&m{j*$;Z)@2mnxhcUbK7m;9X;{1uY_w1q!X@^@SK1)M*aISWO0 z|3_v!Px9L(ABEt-rTBA2TFn>5l8;-wJSaP>B)`?dcT4`J`2ycA2&_y0u{N>|Bn%`4EG)MBC69k{%OF(qA_x!&x5kFhU0UL^+oZU z!Kb_OAMu+;iS_j%$-hDJ`MnV+eV6l}{U=Mxo|N_*EcSOveC;#=l--fJ;Gb0XpO^T?i2~2> zOCkCaw?B+!N&9Mkqpu8-|En$hx40cyI1~9$+J7-mFjf10BKgZ?In_So3(0>>^7*|0 zQsw2(Vy{U%Y97m!{9JxR3BRZ>$NNa|sa>r7VG{UM{xVs9)h<(|o&2eyoYEYdBl+*i zeAWJN5$6l6`Ty+_@0NB>OJNQ8PBT!(*Gv35X+KNyw}3w=Z5Ydtjb&f9ZQNiY4FrK8#x> z-+PTPzDwp&#rdWTWpus7Z=Kgsf_e)}HyV^i44#JCxphO4KnWZ^|_Cz(g7OkC(t`|gtY@_T~dj{u+Au~3#@ zjW4#c!XL=b_2I1?p7I)Zz_W&d(HOwPI=K}r@!k=4pw3-EZysp`veM^XQ|l}D)VeDJ zK7XUz6I{q-M0lJ>JjEj(q;Us)4VUohJnOAIN>}@8E8P{<9zP}Od90D56=c!P%}~C? z;%`);NM%i>k>9$SKt;71?_2Tusz~OksPHy$xR;l!&KvL$zueR4<+@%Dt6$GC71ehU zv)0pynsLpV`ZbghUV3sVzoNlMWlQns5C{7_iDD@W^psPB-@CTP7i>(}g`eHaN{ie9 zzo(wp*77hEnd8r5(MwtIrk19rAU$m*p1C3+ZwldZBPkl6dcwjLbC>FFec1wf{mg>Z z%jPa!JRfYlt;wysq|~)w1#>SdT0U=Xk$d^Vg)8+Ecgfs&MY@~pH43i=eA3O}`MtvZ z^m>^>_0AW1(aR;Ts4=8?BaHQ}GKP#ao0_QFc-Bh1BPY?VOU$p+5wEpLQWWp6Nn(jN z)FiP`Qcq8LqWbdCkZ6VS?Mhgt^qQDXV$ns#H)4St)wT< zAi}%2=oLQHh8Q7uO%N%Hm-M8tEA1(3{PjIeO?aUXUj3u&n4URO2(Z z9X{!$Pf2Fs(uyPoFFY)ub$w0prAD-MTOdm5`*E*{`S7J>%+LW1W&8|gh!93~TP z$o$?~4=Ko4Lv4WN@)Ui%xYVtf`c+Ayyy8 zHB?+aT#CZcNX|vevs^5Dby&?VU5Nii4xM*msmHap2=oir6cknGoq{W{Do%79K6KQl z^b4fEqH?=IP#%o+U#4e*n)R*kJsdA_il}{{O4E6gSzn!JDe6=}Nv-;~f&X7Pqg3Tr z=eUZh>wj!xc(9h=11_E6Dt&d%tLRQCpfZx5mA*P}tpSf*ru5ahv7+jn7!V%FhB@4g z1f9VueRb}tXn_Q)@++L88zHANU6oenx{9jyvzA|#p#>50snS>H%!;b(2$jFJ{!d8# zdD5Udw^mf0bCW*#%&NZ&Jo1UMZ|qm)zEz#)1Hyx~{l5pUS>Gx33~F(>6dTz*Ytb*1 z8+}C;UgVzGPAmQ%i+-`xSJeD$E!j|dioR&kSJy>~zThOSL{NH)^D-jl`m1vYMb-Th zg}3_eRjIGqpA|}^q#vmUlWeD?iX20P@>lxmd`eOE{!xXu=Knj3e&Njmsc1H?SIogu z9CjAMf%wR2%Q#O~?boj`b#ABLJF6T+ zkfbvlRem-9 n_61LsU1*5^9seX~t}(HQw8~duX}G4+AAPq#47Vs)lI*_$6O3sM literal 0 HcmV?d00001 diff --git a/lexicalStructure b/lexicalStructure new file mode 100755 index 0000000000000000000000000000000000000000..8817fe4a700f2d81959706bfad8672a168461b04 GIT binary patch literal 27128 zcmeHwdw5jUx%Zk08^R?dAfw?vAX=`GAkd&ihs(gATml5k`C2=fBomTjl8KWUO{@{@ zfMw1uimh7eER&lK@EsZP^nO`a+LOqia299Hb$(eMd$q9b=kA`HiLco zo#%VLKeBjc-nD-3Wv%tD>s~vv*yvrp#OZJ_6>``$j8f&p1>%v6k_s6C@vst>hwt%h z9P5vCKaL5$M-XsDIO(*~T#4s^l3pQ2dZA+k%oJ56BuaYOLfat0QIr*kH0fy+m1#Tu z^#mcOsNx&>c?936m`p!BMBs{=^~g7qR|x*(8?E%L^viZxf2Bt->6J*m5~-&slX{9O zf09q=QzGrz=}hn_C~DWMk$QHzSg0{YDGv&3--}fJJ^7U?y(Pj>l( z^2^^ER5P!U`DJSdd;gT#vn%RqE9TC=qONL2U2Q|Oc}8=|+!=Fc7d3^7X7M6Wx!m|r zpIW+d9W_TAVX8Tun?zdKBi;zfC;2O{-}ub5M=rmA(kH|Ja@KS1m2bUxQ7y?(xk-m) zD3CqX$Xl4TS@7doa4MG@AA5KKKyUWDvfxLu;E!g(Z_k3?ody4H7JMvlH$L{T z2S9J-|5g^fA`AXx7JO?K{B#yPl?9&;+>MVt!~pbG{`-LsW22b6Txh6yVL6f$1!Vc& zg%rupEElknzXi$R=)KE}1^yjD*db7o_mm4j$uB{YNFW^X`-Nz)f-Nm|!Dfh8HV6FGwGDx~+S`Jx zy0$LZ5MuR#y1Gy$m>A)e(pG(-wt-bQhHD!l)oepBQpu`Ajll+1AFOW*Mp#p%Din>d z>TocKco=3_I4I131=Y&BU?3a}hgmhgLSa(iDM(czC&U{Zu(=k-ZVlH) zf~>YF5Q(%fl%={(%q~LwQi|)^T_s^Dc2>1Gl}Px^K6*HRr;h~;MC0K z`K-f))BLAG(uB(;mb1D{IL)Uj^qBBV6bP#NHO?@CVa3V z&DahTo@c^$n((0}{7Dm@Z^Cz(aMibnz1M^fGs(A^aPz#>Zo*}k;#x;dxXWaxFWTpU zJ`ePHpw9z;p9en9ANQFrb~e|iYyY{5G2fQ9h%#X)-prM?b(zM`p zryNF_7P{`#M_;J=(gKJ2t2Dgx%u4dkV#fW0^e1?HH>dy0mVVEc{(~+3x-EUgmVU{W ze$JNucU$@yTl%NA^dq+P{kHTrTY8Hv-D*om&FSL*S{6U{9bfz%U+i>OX_>dUt@yBS z+x#Qr7)!g>Lh@X7QU3VNa4I_Bw)uAg@om#?BQmci;zHM)OL26~f$5I?@ta8QMM)vQ zn#<3*j>wcReDN;d{tvJ9?eEF)IS%=beGwS}1DZ6Do9?LQ?V|Ll|8AN;A8Zz#w$2xu z{|-I*_~P$HhWPaPXOKvaL^~&|&>0SCF3348EZ5lOpS&w-%$RMAsHWa!XtO zmS4eILYqZ;i0Rr)jz0U!Ns9tm^;tx?guI(eDYtNZDHw(_s1?LsPiH!B> zt``LKB$53csP|Ey&JE5={uG;G*s13dc@J>n+QPNdD$9nTj8RwQs{O=qY>2c(UoQ>2!)tZz1ZD>chqPjX#Y z5g?ad2Dw)Zxy5F=OG&O>$h|>wuNrbCX1Tw92DzO=?w2HY#E_eAmOD;z&0NlPE97)7 zfNx)A7s^3tU;Nl_Xh>4m|2pNp9J0J>sii_|HAzt`OgS1$I^y1w@Y{_NBfq(PJfRg6 zF@~M)DZxmt0DFpH54W+$#I@0!c7qucA}J7r)D;#3`t)CKDL! zvDQ;8G8sS(0kJj*^lqf6uH7I+I&|+T>NX$3k3c;VO}%>_GiMr3j`cY6H`4@9k$c`o z1T(=ku^vbMmJ>)Mw2@Gu0PQ!IQnuP(L3GUloSc7P{|Dn8N00Ty+6KnGCsIQ`r;J>` zB$-TQ+L27Yi_HVd0z<#%hR}Yxc9)1IQ_Fb?U3XI&{eXzka>8*N36tI-e)5Ng!5U&= zoIrDqh$d4ERm9LZGL=|~DIeu|M3$!uXC%n*pM{n0Tde4w z+32a$VErD>c9j#Eg3Vu#BRXg=^|91F*qZIdaA2t|h(WYUh|UqBd|b3Ayt}FGIw$z_ zbsfHK3(-NyNvO&;AL1)8aE5O!hn z#d#FjGrnp!P1tfu3o6}c`u1XnFiKaYO~}xYh!h)KjQY@@hyWsBWxtPO=CI z9g|o;uJy3g(xH{S$dE%8Un~^%?f{7L{s~FlyARdY=Ul|go_C%k_P>q2+DATppijR! zS6_j$V_*D@p;(%H@dMA(08F0!7;ex$AOqTIe52_vK?aYII-33&uxXoF!53`T9)fl4 zUx*lv(Opj=jiI7zk0AmJOJc3w56vdYXmut`sU`43&25MRiZ%yaV}n(`HzAjaAaRHXPAoJ&vQ8(`n;E zV znwTME>W_!hneo&NI$-Y`yq*q?PiK%t>GKn5Kn09iCB9ftyuHC$^6(72Rfs+ z1`>ec-qRRG^Muw!n^q}CWZqc8>u>PntN_=ON!p8gyI|v!`BV(;k3>v4)4FyVvRtmG z^AcaI9xWZK@1ivp-Mj##ix+*jFz|@Y09IFYh+7jRho`C@vPFxjDFuhPZV}pki#8^& zxK_hCu607-8moZoI;1hd!oqAJFxDc#2e5P<-=6J3Yt#I*dN63LK8apnS0g2UZ}ObYaQH_AOF? zuZ?&Lij2ihGBT`l24v4(4O!IKkJ9iy*?9vB^&wCiU7}^R0kE=NX8Rb8D=GK z?aysq%O&z^IB~7!g0|C=*UVevRz$X2=14bnn|So}3m%j;`TRgKjB3PMdl=t&Up$VGMDpGN zps1j}?ld+EJmx8+fxd&dcafgH4%J_XIgo}7rXjflIWbmPSS2kaJZ|y}?I^hcrOi z`txc~D<+bk;X%aOcCoYESy)jzlKCmx9`iAa$ra)c39A@^crc_B4R12xnJp@+4Wt6d zf`9&XUhp$SdMS7^a&)zJhGf)-RGBn5Np6NAVf+nBD(9_Nb}*YEg=rHRl0&8lXgCq0Pjl6zlUH#PII@bC*$4edJ3E_a6OH;3*wpfxppTIm6mteG4{@!X zWOQx66r~5*XGRhyk?g?=!+Yhn5idcR#2$p$^E?jzOYc!dsn=?^k$OVg074=43w%Mm zlHhHnkkU#iis!fQ|A<%#Zx<#3h`2n2(-ul>%WU~gC9XKqc&HymwL&hh4I?6_!Oshc zlSukRdAo3SEz6tt!Ifa?+FL}p``V4t56F~$AJ~~CAG4#IulSgaFqk_Ww@gQ=a3)py z1!xil#e~1PElRTqq2vPtjSSk0da=|le2Izwr5q|9ykt!LTV#26@WJQph$WqI-f`vh zFBW+@Bj6ww_DwT`o9uH)btg=?V%^~5iDr*UO2#sgz-26An8WkJ1CUT)E&9atq8Kq-LR=d91ZdtbDsKAtaIfG0Y^q zr>R(-m(u2(pJSbbhp`s=Dqn^p&@W!5_0<{kp2i0E^wr)Ix4%x0`FJ=irHwmv9L%D4 z(6%YaRj^BTpK*AKvo^ywWhv+{ipZbF>e=g3iF4{=lEX^8E$=F>`die2w|4TCchYIv zkFn$gcuJkr>e|OxUreJ?*QUaT1(;v~a8_+eqw5w}fOzY9Y)`R2fnoD*gQj&c65F$K z_EF4Hut{6?KT=%R5+-3j$wy;A z_Y;aP`5jTuUm!^#`3bs>t+2-KNe+%LI@0N0hE6=%#rrRp;-luh-UX$Z0pMD<69s4z zY>B#J_2==NiWxK3dY;`ek#~BOe4Fdp5maby`zO%$#kH65ey)?=0RMzu)Wx;mfFytR zwyeY97scNepa!{_zs?Xf?fdTYK%WQtJkaNXJ`ePHpw9z+9_aHxp9lIp(C2|Z4}6se z==XqM9dhwo;{o`ne_yR(mC*R_6~$>M&H~NBp#p9p_`5>Rg|+%QwEhDexdR6|9D^N0 z@*Iw#`2`o&_{Cezq7HuZn>AA_|_=!f6PQ}4+&@)#&%Q`jJb zHyJg$oL$BSqJEd+m&X&pbMqS}s9vLaEelbriA0Q3WZ>!-wwLoVxsj$@FQ`n;zoArvP@h~ra=yBBQ(2jR*~&8S zQtui!50^DfcbA233O2Yes{(Jq;>BycYuEP5Texb~a_@qbz48|M7OYvYs7zS3*<4$; zX4%T6Ld|XARRGW^$`7=J_ewR)!!KVSA0k5ai4}iXk&jEbMw||5EU_+HVRPC;aR^wOI?)uuM zreKxS<0Wv)El+Rp^>HvNRj?#*N-*rbyPrkWWQfy$fQMxGb4SBam4M}lT+j9oxJ z*w7RWD{=avdgV>L2)y7I(DPG+S#!ByK2p9V5^RF~ia?cer0{~UCb^e24Ps#`fMayd z)pSS4WWr_<*_H~nWi?Z&e6%Qw?$ z57D>M>2lCbe}Em(hyIvO?*v`(f6{4s1F;wfq^CiTgZ9HKnMNFnP6A~(x?c?X5@;1@ zH4gAMgEpK_rymDhjn_m6LGL~Teb9T~hd!2{7eFV0K7?1ni$UK2EeCxcbQ5R~=uXgq zc$?e?Iuf)4bSfxa_^|-g4f-um4`>v$9CQolCeVjLcY-=TfIjFiKs!KR1;tdzJ^^)u zj_8CwCkeBAnhr?|nI)zMLc$4=5lq2_JeXRNf9-kYhs& zmJBVtE`RW?xtrLvqpq5I<)n!~x&F67*B?%&xgvoGWH*9ODdD6qgB$b*_!OfJ`JD{j zp#^t27v=T$#&U9o_D880BbiI8^oImJ=tH9|{NbGMhJG3FkI}d2&rXf}Q4i&)Y5h?;HFc z@OOj%l7+v|;1{Cb{{zOsqZa-SgHL~o`zH9guw&HGnKt zc%zu9`^rrIC%_*G{wOnlb%uWq{EIHYAAvb15B#k42mf>UHe3E>;GY9OXwKjHZC(KK zZv^~#u>XvOF9rwk?*so3`1oU|O#Rkn%D)@@gW%J;X!O1E4F3f9N5ID)ux9u-WccU6 ze-(UsacAf|Wd?-(e-zZcC+eOP8V(fryaB4xP8k`(x%lFZhjx_dr}0jh0{%{e2X(*7 zXql!zt)RgB45+$ih1!FH;^XCJh|;^zhbUlq;bFU6Pb6Vol0QiDFO}uPAD;3+V~~PN z5aU~_u@d@&O#}>69%w$KKF2ZE|u^0t~yJdk@x%oT=z7#X=Ug3QVxRS#k z$ng3hI}YJpE>Cw!!}z^};!}34OQv^A{$FHT)q@ND4}KZ;p}F~PCxb$-|L&DsNEgl{6IF0TQV;K?MH=&w)6u#;MX-hKK{B%2zHB*^Svcj$dqyGr?u-c0|a&G43T}E0=c} z_aZ6zClKka{JXgPDArsqBvt=DDDh1;{G`OU+VG^rw@X}={}YMdCvi-vB0zxZyF=nC z-@y{!DRCu#k;EUj;bSEJqzy0O_;BX-Fdl9Yge{c#CW)(w(WmeQLQr+nQi<=B_NPL&Xm46-vPVF9_Cgl0P2+?0j z{C2(xXY3xqW(kS!<%=9+e6I`MA0+<1TM8mg;X{cB&%hl{k?(Q7kz(u{TpG)V z#NVGF0KOMSv{2%EFBLf710y<4;w6&>&i9pw&XD+tD+JE>1c+uEck?0dz%0LGxsW%1 z_twv^=kk{@`@C2NoN`h3JSsaIxO}0pz9_sEINb}kAzzw6sO3FE2T30GOZk769YpO9U+1_K zGLfW|e^U07?UMJGEb>FJF{bwVnLLtySIUnEUI72^EjJlQbP{lCmr{wtEDsZ9zU8v> z%4L8}i`VWR^Uy6`t94mC-!0|&q4Fj5NaGt zIM3}^AfCv>gATRtJUM>(vn)8Hfm1tr%7u;^Uu++ir|pB zsFG#w9rZ`*{grg{XcHu>LjDbPp^8AAzbX<6H~9n6W>y)hZ>$SOf>rpt*j^>*;?Y`v zARG>~_=63Ra0~7a4b%tyRnhwT7O0p~en>_vqBvzPYH2}_8* zwqum83Ds5kD{BH_N;L3T6Gbb@qMw_gd|^)P|x>8N2Yaf91O6{zy2`z-wze#3yt7-2+|9ikn(nTB7upK)fp; zCT|Miaw91kpL)WQH49dF{oa*}>H68l|FCkwie-xcGD+z7cBR$ zTC!xVx6EI*VBvDFpX@aWuSP=B&A`Gz;eNVa)}!uxrHfv_bVaSf#f`A`TV)L%X|}Xb zwegPNg4gMaYi%ux;{I9-ByOm+KqzUT%7XA~a4m>GScO+eC<(5|a_Q%yL(;sHw~s88wCcHGzgITxzWD z4z}5%2E;|f8_1n$>LY;)&`4O&8WrQO zLmOF9Lnsm~+RzX!Y7FDf=rAsG&OjB>THGLCTP2|d3zyBH6^D!01e$7C5nenZ3qd1c z!NL2>Cb}n@i^+r^yl}8CKngO}SQlYMdKN^5UUU48Y(VdilT5dl8eyttO(0qJytWZsQzDkkA^OmdOT~3KsSj|P*k0F z3RK9dIMGY-8Gw({FOm9+%IyG&@?fn0GL2ssTJ-Jz@4+M~r-<4Isx+M^ne$iYS&F)q zprm&FZvy`_&L~y+)j6)B>iHkr7#{594*(sEkJ4A?yo&CW3@Rh}S?R0u-dbSfGNrH1 zjTKer#1P?uY?#B%NYELq(pTrMik3)WRemL>=pEqGnXXE!b6rJM``OE{%CHR)@~P5S z=gf+#=LnU*z5YLz`U|B&b#ASwI_D;R@|j)#QDEc~W#8DZ%6%*KZ*#D>|HELK_1#j> zpf-m~wvo*fHhquW=qsw^RT)%T(OowEQmL<~`JFJ?P&jJ`_ zen}ZndMZu-Ujbn%e|NdyjF9>}l%S+;TY8wxf2Ivr`qOMUm6d{-s=gyQ;@czh-z8tT ujRj0+II8?={v8NRm0f6x@2>wPXpyb|s(h6!4cFfE#|4DMD4T*U$^IKH7El-f literal 0 HcmV?d00001 diff --git a/lexicalStructure.lex b/lexicalStructure.lex index c41b8ce..7aabad8 100644 --- a/lexicalStructure.lex +++ b/lexicalStructure.lex @@ -2,11 +2,40 @@ /* so we placed the citation here. */ /* definitions */ %option noyywrap - %{ - #include - %} +%{ +#include "typedefs.h" +%} + %% -//rules + +.|\n +"integer" {printf("T_INTEGER %s, Token %d\n",yytext, T_INTEGER);} //{return T_INTEGER} +"address" {printf("T_ADDRESS %s, Token %d\n",yytext, T_ADDRESS);} //{return T_ADDRESS} +"Boolean" {printf("T_BOOLEAN %s, Token %d\n",yytext, T_BOOLEAN);} //{return T_BOOLEAN} +"character" {printf("T_CHARACTER %s, Token %d\n",yytext, T_CHARACTER);} //{return T_CHARACTER} +"string" {printf("T_STRING %s, Token %d\n",yytext, T_STRING);} //{return T_STRING} + + /* KEYWARDS */ + + +"while" {printf("WHILE %s, Token %d\n",yytext, WHILE);} //{return WHILE} +"if" {printf("IF %s, Token %d\n",yytext, IF);} //{return IF} +"then" {printf("THEN %s, Token %d\n",yytext, THEN);} //{return THEN} +"else" {printf("ELSE %s, Token %d\n",yytext, ELSE);} //{return ELSE} +"type" {printf("TYPE %s, Token %d\n",yytext, TYPE);} //{return TYPE} +"function" {printf("FUNCTION %s, Token %d\n",yytext, FUNCTION);} //{return FUNCTION} +"return" {printf("RETURN %s, Token %d\n",yytext, RETURN);} //{return RETURN} +"external" {printf("EXTERNAL %s, Token %d\n",yytext, EXTERNAL);} //{return EXTERNAL} +"as" {printf("AS %s, Token %d\n",yytext, AS);} //{return AS} + + %% -//user code +int main(int argc, char *argv[]){ + argc--, argv++; + if ( argc > 0 ) + yyin = fopen( argv[0], "r" ); + else + yyin = stdin; + yylex(); +} diff --git a/tests/test_keywards.alpha b/tests/test_keywards.alpha new file mode 100644 index 0000000..ff18168 --- /dev/null +++ b/tests/test_keywards.alpha @@ -0,0 +1,29 @@ +while +While +whiLe +if +IF +If +iF +then +Then +theN +else +eLse +elSe +Else +type +Type +tyPe +function +Function +functioN +return +Return +returN +external +External +exteRnal +as +As +aS diff --git a/tests/test_types.alpha b/tests/test_types.alpha new file mode 100644 index 0000000..4fde8cd --- /dev/null +++ b/tests/test_types.alpha @@ -0,0 +1,10 @@ +integer +Integer +address +Address +Boolean +boolean +character +Character +string +String