+++ /dev/null
-
-#line 1 "lexer_fsm.rl"
-#include <stdio.h>
-#include <stdint.h>
-#include <apc/parser.tab.h>
-#include <unistdio.h>
-#include <unistr.h>
-
-extern void lexer_pushtok(int, YYSTYPE);
-extern int lexer_lexmapfile(int, int);
-extern int ipower(int, int);
-extern int ttov(uint8_t*, int);
-extern uint8_t* ttos(const uint8_t*, int);
-
-int lexer_setdirection(uint8_t*, int);
-int lexer_lexstring(uint8_t*, int);
-int lexer_setstr(uint8_t*, int);
-
-#define $($)#$
-#define PUSHTOK(TOK,LFUNC,UTYPE) \
- do { \
- printf("Lexer_lexstring:: PUSHTOK(" $(TOK) $(LFUNC) $(UTYPE) ")\n"); \
- tok_t = TOK; \
- yylval.UTYPE = LFUNC(ts, p-ts); \
- lexer_pushtok(tok_t, yylval); \
- ++ntok; \
- } while (0);
-
-
-#line 31 "lexer_fsm.c"
-static const char _lexstring_actions[] = {
- 0, 1, 0, 1, 1, 1, 2, 1,
- 3, 1, 4, 1, 5, 1, 13, 1,
- 14, 1, 15, 2, 0, 14, 2, 2,
- 6, 2, 2, 7, 2, 2, 8, 2,
- 2, 9, 2, 2, 10, 2, 2, 11,
- 2, 2, 12
-};
-
-static const short _lexstring_key_offsets[] = {
- 0, 0, 12, 17, 22, 24, 28, 34,
- 40, 48, 54, 63, 69, 75, 76, 82,
- 83, 89, 95, 103, 111, 123, 135, 147,
- 159, 171, 183, 195, 207, 219, 231, 243,
- 255, 267, 279
-};
-
-static const char _lexstring_trans_keys[] = {
- 48, 69, 78, 83, 87, 126, 49, 57,
- 65, 90, 97, 122, 0, 95, 120, 48,
- 57, 0, 95, 120, 48, 57, 48, 57,
- 0, 95, 48, 57, 0, 95, 65, 90,
- 97, 122, 0, 95, 65, 90, 97, 122,
- 0, 69, 87, 95, 65, 90, 97, 122,
- 0, 95, 65, 90, 97, 122, 0, 69,
- 83, 87, 95, 65, 90, 97, 122, 0,
- 95, 65, 90, 97, 122, 0, 95, 65,
- 90, 97, 122, 95, 35, 95, 65, 90,
- 97, 122, 95, 0, 95, 65, 90, 97,
- 122, 48, 57, 65, 90, 97, 122, 0,
- 95, 48, 57, 65, 90, 97, 122, 0,
- 95, 48, 57, 65, 90, 97, 122, 48,
- 69, 78, 83, 87, 126, 49, 57, 65,
- 90, 97, 122, 48, 69, 78, 83, 87,
- 126, 49, 57, 65, 90, 97, 122, 48,
- 69, 78, 83, 87, 126, 49, 57, 65,
- 90, 97, 122, 48, 69, 78, 83, 87,
- 126, 49, 57, 65, 90, 97, 122, 48,
- 69, 78, 83, 87, 126, 49, 57, 65,
- 90, 97, 122, 48, 69, 78, 83, 87,
- 126, 49, 57, 65, 90, 97, 122, 48,
- 69, 78, 83, 87, 126, 49, 57, 65,
- 90, 97, 122, 48, 69, 78, 83, 87,
- 126, 49, 57, 65, 90, 97, 122, 48,
- 69, 78, 83, 87, 126, 49, 57, 65,
- 90, 97, 122, 48, 69, 78, 83, 87,
- 126, 49, 57, 65, 90, 97, 122, 48,
- 69, 78, 83, 87, 126, 49, 57, 65,
- 90, 97, 122, 48, 69, 78, 83, 87,
- 126, 49, 57, 65, 90, 97, 122, 48,
- 69, 78, 83, 87, 126, 49, 57, 65,
- 90, 97, 122, 48, 69, 78, 83, 87,
- 126, 49, 57, 65, 90, 97, 122, 48,
- 69, 78, 83, 87, 126, 49, 57, 65,
- 90, 97, 122, 0
-};
-
-static const char _lexstring_single_lengths[] = {
- 0, 6, 3, 3, 0, 2, 2, 2,
- 4, 2, 5, 2, 2, 1, 2, 1,
- 2, 0, 2, 2, 6, 6, 6, 6,
- 6, 6, 6, 6, 6, 6, 6, 6,
- 6, 6, 6
-};
-
-static const char _lexstring_range_lengths[] = {
- 0, 3, 1, 1, 1, 1, 2, 2,
- 2, 2, 2, 2, 2, 0, 2, 0,
- 2, 3, 3, 3, 3, 3, 3, 3,
- 3, 3, 3, 3, 3, 3, 3, 3,
- 3, 3, 3
-};
-
-static const short _lexstring_index_offsets[] = {
- 0, 0, 10, 15, 20, 22, 26, 31,
- 36, 43, 48, 56, 61, 66, 68, 73,
- 75, 80, 84, 90, 96, 106, 116, 126,
- 136, 146, 156, 166, 176, 186, 196, 206,
- 216, 226, 236
-};
-
-static const char _lexstring_indicies[] = {
- 0, 4, 5, 6, 7, 8, 2, 3,
- 3, 1, 9, 9, 11, 10, 1, 9,
- 9, 12, 10, 1, 13, 1, 14, 14,
- 15, 1, 16, 16, 17, 17, 1, 16,
- 18, 17, 17, 1, 16, 19, 19, 20,
- 17, 17, 1, 16, 21, 17, 17, 1,
- 16, 22, 23, 24, 25, 17, 17, 1,
- 16, 26, 17, 17, 1, 16, 27, 17,
- 17, 1, 28, 1, 29, 30, 17, 17,
- 1, 31, 1, 16, 32, 17, 17, 1,
- 33, 34, 34, 1, 35, 35, 36, 34,
- 34, 1, 37, 37, 34, 34, 34, 1,
- 0, 4, 5, 6, 7, 8, 2, 3,
- 3, 1, 0, 4, 5, 6, 7, 8,
- 2, 3, 3, 1, 0, 4, 5, 6,
- 7, 8, 2, 3, 3, 1, 0, 4,
- 5, 6, 7, 8, 2, 3, 3, 1,
- 0, 4, 5, 6, 7, 8, 2, 3,
- 3, 1, 0, 4, 5, 6, 7, 8,
- 2, 3, 3, 1, 0, 4, 5, 6,
- 7, 8, 2, 3, 3, 1, 0, 4,
- 5, 6, 7, 8, 2, 3, 3, 1,
- 0, 4, 5, 6, 7, 8, 2, 3,
- 3, 1, 0, 4, 5, 6, 7, 8,
- 2, 3, 3, 1, 0, 4, 5, 6,
- 7, 8, 2, 3, 3, 1, 0, 4,
- 5, 6, 7, 8, 2, 3, 3, 1,
- 0, 4, 5, 6, 7, 8, 2, 3,
- 3, 1, 0, 4, 5, 6, 7, 8,
- 2, 3, 3, 1, 0, 4, 5, 6,
- 7, 8, 2, 3, 3, 1, 0
-};
-
-static const char _lexstring_trans_targs[] = {
- 2, 0, 3, 6, 7, 8, 10, 12,
- 13, 20, 3, 17, 4, 5, 21, 5,
- 22, 6, 23, 9, 32, 24, 11, 14,
- 16, 31, 25, 26, 27, 15, 29, 28,
- 30, 18, 19, 33, 18, 34
-};
-
-static const char _lexstring_trans_actions[] = {
- 9, 0, 9, 9, 9, 9, 9, 9,
- 0, 0, 0, 13, 13, 9, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 11, 0, 0,
- 0, 9, 0, 0, 0, 0
-};
-
-static const char _lexstring_to_state_actions[] = {
- 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 17,
- 0, 0, 0, 0, 3, 15, 5, 37,
- 31, 40, 28, 7, 0, 11, 25, 22,
- 34, 19, 1
-};
-
-static const int lexstring_start = 1;
-static const int lexstring_first_final = 20;
-static const int lexstring_error = 0;
-
-static const int lexstring_en_tok_lexer = 1;
-
-
-#line 114 "lexer_fsm.rl"
-
-
-int
-lexer_lexstring
-(uint8_t* str, int size)
-{ uint8_t *p;
- uint8_t *ts, *pe, *eof;
- int cs, ntok, tok_t, direction;
-
- ntok = direction = 0;
- p = ts = str;
- pe = p + size +1;
-
- printf("|---Begin lexstring on p = %s, pe = %s.\n",p, pe);
-
-
-#line 195 "lexer_fsm.c"
- {
- cs = lexstring_start;
- }
-
-#line 130 "lexer_fsm.rl"
-
-#line 202 "lexer_fsm.c"
- {
- int _klen;
- unsigned int _trans;
- const char *_acts;
- unsigned int _nacts;
- const char *_keys;
-
- if ( p == pe )
- goto _test_eof;
- if ( cs == 0 )
- goto _out;
-_resume:
- _keys = _lexstring_trans_keys + _lexstring_key_offsets[cs];
- _trans = _lexstring_index_offsets[cs];
-
- _klen = _lexstring_single_lengths[cs];
- if ( _klen > 0 ) {
- const char *_lower = _keys;
- const char *_mid;
- const char *_upper = _keys + _klen - 1;
- while (1) {
- if ( _upper < _lower )
- break;
-
- _mid = _lower + ((_upper-_lower) >> 1);
- if ( (*p) < *_mid )
- _upper = _mid - 1;
- else if ( (*p) > *_mid )
- _lower = _mid + 1;
- else {
- _trans += (unsigned int)(_mid - _keys);
- goto _match;
- }
- }
- _keys += _klen;
- _trans += _klen;
- }
-
- _klen = _lexstring_range_lengths[cs];
- if ( _klen > 0 ) {
- const char *_lower = _keys;
- const char *_mid;
- const char *_upper = _keys + (_klen<<1) - 2;
- while (1) {
- if ( _upper < _lower )
- break;
-
- _mid = _lower + (((_upper-_lower) >> 1) & ~1);
- if ( (*p) < _mid[0] )
- _upper = _mid - 2;
- else if ( (*p) > _mid[1] )
- _lower = _mid + 2;
- else {
- _trans += (unsigned int)((_mid - _keys)>>1);
- goto _match;
- }
- }
- _trans += _klen;
- }
-
-_match:
- _trans = _lexstring_indicies[_trans];
- cs = _lexstring_trans_targs[_trans];
-
- if ( _lexstring_trans_actions[_trans] == 0 )
- goto _again;
-
- _acts = _lexstring_actions + _lexstring_trans_actions[_trans];
- _nacts = (unsigned int) *_acts++;
- while ( _nacts-- > 0 )
- {
- switch ( *_acts++ )
- {
- case 4:
-#line 41 "lexer_fsm.rl"
- { printf("Lexer_lexstring:: action:set_ts. ts = %s\n", p); ts = p; }
- break;
- case 5:
-#line 42 "lexer_fsm.rl"
- { printf("Lexer_lexstring:: action:push_SS. p = %s\n",p);
- yylval.str = (uint8_t*) "SS";
- lexer_pushtok(SS, yylval);
- ntok++;
- }
- break;
- case 13:
-#line 79 "lexer_fsm.rl"
- { printf("Lexer_lexstring:: action:push_height p = %s\n", p);
- PUSHTOK(HEIGHT, ttov, val);
- }
- break;
-#line 294 "lexer_fsm.c"
- }
- }
-
-_again:
- _acts = _lexstring_actions + _lexstring_to_state_actions[cs];
- _nacts = (unsigned int) *_acts++;
- while ( _nacts-- > 0 ) {
- switch ( *_acts++ ) {
- case 0:
-#line 31 "lexer_fsm.rl"
- { PUSHTOK(REF, ttov, ref); }
- break;
- case 1:
-#line 32 "lexer_fsm.rl"
- { PUSHTOK(NUM, ttov, val); }
- break;
- case 2:
-#line 33 "lexer_fsm.rl"
- { printf("Lexer_lexstring:: action:push_name: from %s to %s\n", ts, p);
- PUSHTOK(NAME, ttos, str);
- }
- break;
- case 3:
-#line 36 "lexer_fsm.rl"
- { printf("Lexer_lexstring:: action:push_map: pushing '~'\n");
- yylval.str = (uint8_t*) '~';
- lexer_pushtok(MOPEN, yylval);
- ntok++;
- }
- break;
- case 5:
-#line 42 "lexer_fsm.rl"
- { printf("Lexer_lexstring:: action:push_SS. p = %s\n",p);
- yylval.str = (uint8_t*) "SS";
- lexer_pushtok(SS, yylval);
- ntok++;
- }
- break;
- case 6:
-#line 47 "lexer_fsm.rl"
- { printf("Lexer_lexstring:: action:push_S. p = %s\n", p);
- yylval.val = 0;
- lexer_pushtok(D, yylval);
- }
- break;
- case 7:
-#line 51 "lexer_fsm.rl"
- { printf("Lexer_lexstring:: action:push_SW. p = %s\n", p);
- yylval.val = 1;
- lexer_pushtok(D, yylval);
- }
- break;
- case 8:
-#line 55 "lexer_fsm.rl"
- { printf("Lexer_lexstring:: action:push_W. p = %s\n", p);
- yylval.val = 2;
- lexer_pushtok(D, yylval);
- }
- break;
- case 9:
-#line 59 "lexer_fsm.rl"
- { printf("Lexer_lexstring:: action:push_NW. p = %s\n", p);
- yylval.val = 3;
- lexer_pushtok(D, yylval);
- }
- break;
- case 10:
-#line 63 "lexer_fsm.rl"
- { printf("Lexer_lexstring:: action:push_N. p = %s\n", p);
- yylval.val = 4;
- lexer_pushtok(D, yylval);
- }
- break;
- case 11:
-#line 71 "lexer_fsm.rl"
- { printf("Lexer_lexstring:: action:push_N. p = %s\n", p);
- yylval.val = 6;
- lexer_pushtok(D, yylval);
- }
- break;
- case 12:
-#line 75 "lexer_fsm.rl"
- { printf("Lexer_lexstring:: action:push_N. p = %s\n", p);
- yylval.val = 7;
- lexer_pushtok(D, yylval);
- }
- break;
- case 14:
-#line 82 "lexer_fsm.rl"
- { printf("Lexer_lexstring:: action:push_height p = %s\n", p);
- PUSHTOK(WIDTH, ttov, val);
- }
- break;
- case 15:
-#line 85 "lexer_fsm.rl"
- {yylval.str = (uint8_t*) '#'; lexer_pushtok(LINK),yylval); }
- break;
-#line 392 "lexer_fsm.c"
- }
- }
-
- if ( cs == 0 )
- goto _out;
- if ( ++p != pe )
- goto _resume;
- _test_eof: {}
- _out: {}
- }
-
-#line 131 "lexer_fsm.rl"
-
- printf("Ending lexstring of file %s, pushed %d tokens.\n",str, ntok);
-
- return ntok;
-}
-
-
-
-#line 413 "lexer_fsm.c"
-static const char _setdirection_actions[] = {
- 0, 1, 0, 1, 1, 1, 2, 1,
- 3, 1, 4, 1, 5, 1, 6, 1,
- 7
-};
-
-static const char _setdirection_key_offsets[] = {
- 0, 0, 6, 8, 12, 14, 16, 20,
- 22, 24, 26, 26, 26, 26, 26, 26,
- 26, 26
-};
-
-static const char _setdirection_trans_keys[] = {
- 0, 69, 78, 83, 87, 95, 0, 95,
- 0, 69, 87, 95, 0, 95, 0, 95,
- 0, 69, 87, 95, 0, 95, 0, 95,
- 0, 95, 0
-};
-
-static const char _setdirection_single_lengths[] = {
- 0, 6, 2, 4, 2, 2, 4, 2,
- 2, 2, 0, 0, 0, 0, 0, 0,
- 0, 0
-};
-
-static const char _setdirection_range_lengths[] = {
- 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0
-};
-
-static const char _setdirection_index_offsets[] = {
- 0, 0, 7, 10, 15, 18, 21, 26,
- 29, 32, 35, 36, 37, 38, 39, 40,
- 41, 42
-};
-
-static const char _setdirection_indicies[] = {
- 0, 2, 3, 4, 5, 0, 1, 6,
- 6, 1, 7, 8, 9, 7, 1, 10,
- 10, 1, 11, 11, 1, 0, 12, 13,
- 0, 1, 14, 14, 1, 15, 15, 1,
- 16, 16, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 0
-};
-
-static const char _setdirection_trans_targs[] = {
- 10, 0, 2, 3, 6, 9, 11, 12,
- 4, 5, 13, 14, 7, 8, 15, 16,
- 17
-};
-
-static const char _setdirection_trans_actions[] = {
- 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0,
- 0
-};
-
-static const char _setdirection_to_state_actions[] = {
- 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 7, 5, 1, 9, 11, 13,
- 15, 3
-};
-
-static const int setdirection_start = 1;
-static const int setdirection_first_final = 10;
-static const int setdirection_error = 0;
-
-static const int setdirection_en_main = 1;
-
-
-#line 166 "lexer_fsm.rl"
-
-
-int
-lexer_setdirection
-(uint8_t* str, int size)
-{ uint8_t *p, *pe, *eof;
- int cs;
-
-
- p = str;
- pe = str + size + 1;
-
- printf("|--- Begin lexer_setdirection str = %s, p = %s, pe = %s ---|\n", str,p, pe);
-
-
-#line 501 "lexer_fsm.c"
- {
- cs = setdirection_start;
- }
-
-#line 181 "lexer_fsm.rl"
-
-#line 508 "lexer_fsm.c"
- {
- int _klen;
- unsigned int _trans;
- const char *_acts;
- unsigned int _nacts;
- const char *_keys;
-
- if ( cs == 0 )
- goto _out;
-_resume:
- _keys = _setdirection_trans_keys + _setdirection_key_offsets[cs];
- _trans = _setdirection_index_offsets[cs];
-
- _klen = _setdirection_single_lengths[cs];
- if ( _klen > 0 ) {
- const char *_lower = _keys;
- const char *_mid;
- const char *_upper = _keys + _klen - 1;
- while (1) {
- if ( _upper < _lower )
- break;
-
- _mid = _lower + ((_upper-_lower) >> 1);
- if ( (*p) < *_mid )
- _upper = _mid - 1;
- else if ( (*p) > *_mid )
- _lower = _mid + 1;
- else {
- _trans += (unsigned int)(_mid - _keys);
- goto _match;
- }
- }
- _keys += _klen;
- _trans += _klen;
- }
-
- _klen = _setdirection_range_lengths[cs];
- if ( _klen > 0 ) {
- const char *_lower = _keys;
- const char *_mid;
- const char *_upper = _keys + (_klen<<1) - 2;
- while (1) {
- if ( _upper < _lower )
- break;
-
- _mid = _lower + (((_upper-_lower) >> 1) & ~1);
- if ( (*p) < _mid[0] )
- _upper = _mid - 2;
- else if ( (*p) > _mid[1] )
- _lower = _mid + 2;
- else {
- _trans += (unsigned int)((_mid - _keys)>>1);
- goto _match;
- }
- }
- _trans += _klen;
- }
-
-_match:
- _trans = _setdirection_indicies[_trans];
- cs = _setdirection_trans_targs[_trans];
-
- _acts = _setdirection_actions + _setdirection_to_state_actions[cs];
- _nacts = (unsigned int) *_acts++;
- while ( _nacts-- > 0 ) {
- switch ( *_acts++ ) {
- case 0:
-#line 141 "lexer_fsm.rl"
- {printf("Lexer_setdirection:: direction is north, returning 4\n"); return 4;; }
- break;
- case 1:
-#line 142 "lexer_fsm.rl"
- { printf("Lexer_setdirection:: direction is west, returning 2\n");return 2;}
- break;
- case 2:
-#line 143 "lexer_fsm.rl"
- { printf("Lexer_setdirection:: direction is east, returning 6\n");return 6;}
- break;
- case 3:
-#line 144 "lexer_fsm.rl"
- { printf("Lexer_setdirection:: direction is south, returning 0\n");return 0;}
- break;
- case 4:
-#line 145 "lexer_fsm.rl"
- { printf("Lexer_setdirection:: direction is northeast, returning 5\n");return 5 ;}
- break;
- case 5:
-#line 146 "lexer_fsm.rl"
- { printf("Lexer_setdirection:: direction is northwest, returning 3\n");return 3;}
- break;
- case 6:
-#line 147 "lexer_fsm.rl"
- { printf("Lexer_setdirection:: direction is southeast, returning 7\n");return 7;}
- break;
- case 7:
-#line 148 "lexer_fsm.rl"
- { printf("Lexer_setdirection:: direction is southwest, returning 1\n");return 1;}
- break;
-#line 607 "lexer_fsm.c"
- }
- }
-
- if ( cs == 0 )
- goto _out;
- p += 1;
- goto _resume;
- _out: {}
- }
-
-#line 182 "lexer_fsm.rl"
-
- printf("|--- Error in: lexer_setdirection ---|\n");
-
- return -1;
-}
-
-
-
-/**************************/
-/****Abandon All Hope******/
-/**************************/
-/*** ***/
-/*** ***/
-/*** ***/
-/*** ***/
-
-
-#if 0
-
-#line 638 "lexer_fsm.c"
-static const char _setstr_actions[] = {
- 0, 1, 0, 1, 1, 1, 2, 1,
- 3, 1, 4, 1, 5, 1, 6, 1,
- 7, 1, 8
-};
-
-static const unsigned char _setstr_key_offsets[] = {
- 0, 0, 6, 7, 13, 20, 25, 33,
- 34, 35, 36, 42, 50, 55, 60, 66,
- 75, 79, 85, 86, 92, 99, 106, 111,
- 115, 116, 117, 118, 124, 132, 137, 142,
- 148, 157, 161, 167, 168, 174, 181, 184,
- 185, 191, 195, 201, 202, 203, 209, 216,
- 222, 231, 235, 241, 241, 241, 241, 241,
- 241, 250, 251
-};
-
-static const char _setstr_trans_keys[] = {
- 48, 83, 65, 90, 97, 122, 120, 48,
- 57, 65, 90, 97, 122, 0, 48, 57,
- 65, 90, 97, 122, 95, 65, 90, 97,
- 122, 35, 48, 83, 126, 65, 90, 97,
- 122, 95, 48, 120, 48, 57, 65, 90,
- 97, 122, 0, 95, 48, 57, 65, 90,
- 97, 122, 83, 65, 90, 97, 122, 0,
- 65, 90, 97, 122, 0, 83, 65, 90,
- 97, 122, 0, 69, 78, 83, 87, 65,
- 90, 97, 122, 65, 90, 97, 122, 69,
- 87, 65, 90, 97, 122, 120, 48, 57,
- 65, 90, 97, 122, 95, 48, 57, 65,
- 90, 97, 122, 35, 83, 126, 65, 90,
- 97, 122, 95, 65, 90, 97, 122, 35,
- 48, 83, 126, 95, 48, 120, 48, 57,
- 65, 90, 97, 122, 0, 95, 48, 57,
- 65, 90, 97, 122, 83, 65, 90, 97,
- 122, 0, 65, 90, 97, 122, 0, 83,
- 65, 90, 97, 122, 0, 69, 78, 83,
- 87, 65, 90, 97, 122, 65, 90, 97,
- 122, 69, 87, 65, 90, 97, 122, 120,
- 48, 57, 65, 90, 97, 122, 95, 48,
- 57, 65, 90, 97, 122, 35, 83, 126,
- 83, 83, 95, 65, 90, 97, 122, 65,
- 90, 97, 122, 69, 87, 65, 90, 97,
- 122, 48, 120, 48, 57, 65, 90, 97,
- 122, 0, 48, 57, 65, 90, 97, 122,
- 83, 95, 65, 90, 97, 122, 69, 78,
- 83, 87, 95, 65, 90, 97, 122, 65,
- 90, 97, 122, 69, 87, 65, 90, 97,
- 122, 69, 78, 83, 87, 95, 65, 90,
- 97, 122, 95, 0
-};
-
-static const char _setstr_single_lengths[] = {
- 0, 2, 1, 0, 1, 1, 4, 1,
- 1, 1, 0, 2, 1, 1, 2, 5,
- 0, 2, 1, 0, 1, 3, 1, 4,
- 1, 1, 1, 0, 2, 1, 1, 2,
- 5, 0, 2, 1, 0, 1, 3, 1,
- 2, 0, 2, 1, 1, 0, 1, 2,
- 5, 0, 2, 0, 0, 0, 0, 0,
- 5, 1, 0
-};
-
-static const char _setstr_range_lengths[] = {
- 0, 2, 0, 3, 3, 2, 2, 0,
- 0, 0, 3, 3, 2, 2, 2, 2,
- 2, 2, 0, 3, 3, 2, 2, 0,
- 0, 0, 0, 3, 3, 2, 2, 2,
- 2, 2, 2, 0, 3, 3, 0, 0,
- 2, 2, 2, 0, 0, 3, 3, 2,
- 2, 2, 2, 0, 0, 0, 0, 0,
- 2, 0, 0
-};
-
-static const short _setstr_index_offsets[] = {
- 0, 0, 5, 7, 11, 16, 20, 27,
- 29, 31, 33, 37, 43, 47, 51, 56,
- 64, 67, 72, 74, 78, 83, 89, 93,
- 98, 100, 102, 104, 108, 114, 118, 122,
- 127, 135, 138, 143, 145, 149, 154, 158,
- 160, 165, 168, 173, 175, 177, 181, 186,
- 191, 199, 202, 207, 208, 209, 210, 211,
- 212, 220, 222
-};
-
-static const char _setstr_indicies[] = {
- 0, 3, 2, 2, 1, 4, 1, 5,
- 5, 5, 1, 6, 5, 5, 5, 1,
- 7, 2, 2, 1, 8, 9, 11, 12,
- 10, 10, 1, 13, 1, 14, 1, 15,
- 1, 16, 16, 16, 1, 17, 18, 16,
- 16, 16, 1, 20, 19, 19, 1, 17,
- 19, 19, 1, 17, 21, 19, 19, 1,
- 17, 22, 23, 23, 22, 19, 19, 1,
- 19, 19, 1, 22, 22, 19, 19, 1,
- 24, 1, 25, 25, 25, 1, 26, 25,
- 25, 25, 1, 8, 11, 12, 10, 10,
- 1, 27, 10, 10, 1, 28, 29, 30,
- 31, 1, 32, 1, 33, 1, 34, 1,
- 35, 35, 35, 1, 36, 37, 35, 35,
- 35, 1, 39, 38, 38, 1, 36, 38,
- 38, 1, 36, 40, 38, 38, 1, 36,
- 41, 42, 42, 41, 38, 38, 1, 38,
- 38, 1, 41, 41, 38, 38, 1, 43,
- 1, 44, 44, 44, 1, 45, 44, 44,
- 44, 1, 28, 30, 31, 1, 46, 1,
- 47, 27, 10, 10, 1, 10, 10, 1,
- 48, 48, 10, 10, 1, 49, 1, 50,
- 1, 51, 51, 51, 1, 52, 51, 51,
- 51, 1, 53, 7, 2, 2, 1, 54,
- 55, 55, 54, 7, 2, 2, 1, 2,
- 2, 1, 54, 54, 2, 2, 1, 1,
- 1, 1, 1, 1, 48, 56, 56, 48,
- 27, 10, 10, 1, 57, 1, 1, 0
-};
-
-static const char _setstr_trans_targs[] = {
- 2, 0, 5, 47, 3, 4, 51, 6,
- 7, 18, 22, 40, 57, 8, 9, 10,
- 11, 52, 12, 13, 14, 15, 16, 17,
- 19, 20, 21, 23, 24, 35, 39, 55,
- 25, 26, 27, 28, 53, 29, 30, 31,
- 32, 33, 34, 36, 37, 38, 54, 56,
- 41, 44, 45, 46, 58, 48, 49, 50,
- 42, 43
-};
-
-static const char _setstr_trans_actions[] = {
- 17, 0, 17, 17, 17, 17, 0, 0,
- 0, 17, 17, 17, 0, 0, 17, 17,
- 17, 0, 0, 17, 17, 17, 17, 17,
- 17, 17, 0, 0, 0, 17, 0, 0,
- 0, 17, 17, 17, 0, 0, 17, 17,
- 17, 17, 17, 17, 17, 0, 0, 17,
- 17, 17, 17, 17, 0, 17, 17, 17,
- 17, 0
-};
-
-static const char _setstr_to_state_actions[] = {
- 0, 0, 0, 0, 13, 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,
- 0, 0, 0, 0, 1, 3, 9, 11,
- 5, 7, 15
-};
-
-static const int setstr_start = 1;
-static const int setstr_first_final = 51;
-static const int setstr_error = 0;
-
-static const int setstr_en_main = 1;
-
-
-#line 260 "lexer_fsm.rl"
-
-
-int
-lexer_setstr
-(uint8_t* str, int size)
-{ uint8_t *p, *pe, *eof;
- int cs, type, newstrt;
-
- type = newstrt = 0;
-
- p = str;
- pe = str + size + 1;
-
- printf("|--- Begin lexer_setstr with str = %s, p = %s, pe = %s ---|\n", str,p, pe);
-
-
-#line 812 "lexer_fsm.c"
- {
- cs = setstr_start;
- }
-
-#line 276 "lexer_fsm.rl"
-
-#line 819 "lexer_fsm.c"
- {
- int _klen;
- unsigned int _trans;
- const char *_acts;
- unsigned int _nacts;
- const char *_keys;
-
- if ( cs == 0 )
- goto _out;
-_resume:
- _keys = _setstr_trans_keys + _setstr_key_offsets[cs];
- _trans = _setstr_index_offsets[cs];
-
- _klen = _setstr_single_lengths[cs];
- if ( _klen > 0 ) {
- const char *_lower = _keys;
- const char *_mid;
- const char *_upper = _keys + _klen - 1;
- while (1) {
- if ( _upper < _lower )
- break;
-
- _mid = _lower + ((_upper-_lower) >> 1);
- if ( (*p) < *_mid )
- _upper = _mid - 1;
- else if ( (*p) > *_mid )
- _lower = _mid + 1;
- else {
- _trans += (unsigned int)(_mid - _keys);
- goto _match;
- }
- }
- _keys += _klen;
- _trans += _klen;
- }
-
- _klen = _setstr_range_lengths[cs];
- if ( _klen > 0 ) {
- const char *_lower = _keys;
- const char *_mid;
- const char *_upper = _keys + (_klen<<1) - 2;
- while (1) {
- if ( _upper < _lower )
- break;
-
- _mid = _lower + (((_upper-_lower) >> 1) & ~1);
- if ( (*p) < _mid[0] )
- _upper = _mid - 2;
- else if ( (*p) > _mid[1] )
- _lower = _mid + 2;
- else {
- _trans += (unsigned int)((_mid - _keys)>>1);
- goto _match;
- }
- }
- _trans += _klen;
- }
-
-_match:
- _trans = _setstr_indicies[_trans];
- cs = _setstr_trans_targs[_trans];
-
- if ( _setstr_trans_actions[_trans] == 0 )
- goto _again;
-
- _acts = _setstr_actions + _setstr_trans_actions[_trans];
- _nacts = (unsigned int) *_acts++;
- while ( _nacts-- > 0 )
- {
- switch ( *_acts++ )
- {
- case 8:
-#line 212 "lexer_fsm.rl"
- {printf("p = %s \n",p);}
- break;
-#line 895 "lexer_fsm.c"
- }
- }
-
-_again:
- _acts = _setstr_actions + _setstr_to_state_actions[cs];
- _nacts = (unsigned int) *_acts++;
- while ( _nacts-- > 0 ) {
- switch ( *_acts++ ) {
- case 0:
-#line 204 "lexer_fsm.rl"
- {printf("Lexer_setstr:: Returning setvlink filetype for %s\n", str); type = 5; newstrt = lexer_lexsetvlink(str); {p++; goto _out; }}
- break;
- case 1:
-#line 205 "lexer_fsm.rl"
- {printf("Lexer_setstr:: Returning elevlink filetype for %s\n", str); type = 6; newstrt = lexer_lexelevlink(str); {p++; goto _out; }}
- break;
- case 2:
-#line 206 "lexer_fsm.rl"
- {printf("Lexer_setstr:: Returning setmodel filetype\n"); newstrt = lexer_lexsetmodel(str); type = 1; {p++; goto _out; }}
- break;
- case 3:
-#line 207 "lexer_fsm.rl"
- {printf("Lexer_setstr:: Returning setmap filetype\n"); newstrt = lexer_lexsetmap(str); type = 2; {p++; goto _out; }}
- break;
- case 4:
-#line 208 "lexer_fsm.rl"
- {printf("Lexer_setstr:: Returning elemodel filetype for %s\n", str); newstrt = lexer_lexelemodel(str); type = 3; {p++; goto _out; }}
- break;
- case 5:
-#line 209 "lexer_fsm.rl"
- {printf("Lexer_setstr:: Returning elemap filetype for %s\n", str); newstrt = lexer_lexelemap(str); type = 4; {p++; goto _out; }}
- break;
- case 6:
-#line 210 "lexer_fsm.rl"
- { printf("Lexer_setstr:: Returning setolink filetype\n"); type = 8; newstrt = lexer_lexsetolink(str); {p++; goto _out; }}
- break;
- case 7:
-#line 211 "lexer_fsm.rl"
- { printf("Lexer_setstr:: Returning eleolink filetype\n"); type = 7; newstrt = lexer_lexeleolink(str); {p++; goto _out; }}
- break;
-#line 936 "lexer_fsm.c"
- }
- }
-
- if ( cs == 0 )
- goto _out;
- p += 1;
- goto _resume;
- _out: {}
- }
-
-#line 277 "lexer_fsm.rl"
-
- printf("|--- End lexer_setstr. Incrementing str by %d, type is %d ---|\n", newstrt, type);
-
- return newstrt;
-}
-
-#endif
-
-
-/* %%{ */
-/* machine file_matcher; */
-
-/* action call_ml { ts = p; fgoto set_hw ;} */
-/* action call_tl { return 0;} */
-/* action set_height {height = ttov(p, p-ts+1); ts = p;} */
-/* action set_width { width = ttov(p, p-ts+1);} */
-/* action call_lmf {lexer_lexmapfile(height, width); } */
-/* action lex_error {printf("input error: character %c in filename %s is invalid\n = %s\n", fc, str, p);} */
-
-/* #This machine determines the type of file we are lexing */
-/* #and calls the appropriate machine to handle it. */
-
-/* #TODO add mapping name */
-/* width = digit+ %set_width; */
-/* height = digit+ %set_height; */
-
-/* set_hw := height . '_' . width [\0] %to(call_lmf); */
-
-/* tok_segment = alnum; */
-/* map_end = 'm' . '_' %to(call_ml); */
-/* tok_end = alnum+ . [\0] %to(call_tl); */
-
-/* file_matcher := (tok_segment+ . '_' )+ ( map_end | tok_end ); */
-
-/* write data; */
-/* }%% */
-
-/* int */
-/* lexer_matchfile */
-/* (char* str, int size) */
-/* { *p, *pe; */
-/* char* ts; */
-/* int cs, ntok, height, width; */
-
-/* p = str; */
-/* pe = p + size; */
-/* height = width = 0; */
-
-/* printf("Checking if filename is a map file:: filename = %s, p = %c, pe = %c\n", str, *p, *pe); */
-
-/* %%write init; */
-/* %%write exec noend; */
-
-/* printf("Ending lexer_ismapfile on %s\n", str); */
-
-/* return ntok; */
-/* } */
-
-/* %%{ */
-/* machine vartype; */
-
-/* action isele {return 0;} */
-/* action ismodel {return 1;} */
-
-/* set_name = alpha+; */
-/* ele_name = alpha+; */
-/* model_name = alpha+; */
-
-/* ele = set_name '_' model_name '_' ele_name %isele; */
-/* model = set_name '_' model_name [\0] %ismodel; */
-
-
-/* ismodel := (ele | model); */
-
-/* write data; */
-
-/* }%% */
-
-/* int */
-/* lexer_ismodel */
-/* (uint8_t* str, int size) */
-/* { uint8_t *p, *pe, *eof; */
-/* int cs; */
-
-/* p = str; */
-/* pe = p + size + 1; */
-
-/* %%write init; */
-/* %%write exec; */
-
-
-/* } */
projects / henge / apc.git / commitdiff