1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
%{
#include <stdio.h>
#include "cmdlexcl.h"
#include "cmdpars.hh"
static int uc_yy_check_id(char *token);
static int uc_yy_input(char *buf, int max_size);
#define YY_INPUT(buf,result,max_size) result = uc_yy_input(buf, max_size)
%}
%%
[ \t]* ;
"+" return(PTOK_PLUS);
"-" return(PTOK_MINUS);
"*" return(PTOK_ASTERIX);
"/" return(PTOK_SLASH);
"(" return(PTOK_LEFT_PAREN);
")" return(PTOK_RIGHT_PAREN);
"[" return(PTOK_LEFT_BRACKET);
"]" return(PTOK_RIGHT_BRACKET);
"=" return(PTOK_EQUAL);
"." return(PTOK_DOT);
"&" return(PTOK_AMPERSAND);
([0-9]+)|(0x[0-9a-fA-F]+) {
yylval.number = strtol(yytext, 0, 0);
return PTOK_NUMBER;
}
[a-zA-Z_][0-9a-zA-Z_]* return(uc_yy_check_id(yytext));
. ;
%%
int
yywrap()
{
return 1;
}
#include "globals.h"
static char *string_to_parse = NULL;
void
uc_yy_set_string_to_parse(const char *str)
{
string_to_parse = strdup(str);
}
void
uc_yy_free_string_to_parse()
{
free(string_to_parse);
}
static int
uc_yy_input(char *buf, int max_size)
{
static const char *string_ptr = NULL;
if (NULL == string_ptr)
string_ptr = string_to_parse;
if (NULL != string_ptr)
{
int lrem = strlen(string_ptr);
int n = max_size;
if (lrem < max_size)
n = lrem;
strncpy(buf, string_ptr, n);
string_ptr += n;
return n;
}
else
return 0;
}
static int
uc_yy_check_id(char *token)
{
class cl_uc *uc= application->get_uc();
//printf("checking id=\"%s\"\n",token);
if (uc)
{
class cl_memory *mem = uc->memory(token);
if (mem)
{
yylval.memory_object = mem;
return PTOK_MEMORY_OBJECT;
}
t_addr addr;
bool found= uc->symbol2address(yytext, uc->sfr_tbl(), &addr);
if (found)
{
/*yylval.number= addr;
return PTOK_NUMBER;*/
yylval.memory.memory = uc->address_space(MEM_SFR_ID);
yylval.memory.address = addr;
return PTOK_MEMORY;
}
found= uc->symbol2address(yytext, uc->bit_tbl(), &addr);
if (found)
{
t_addr memaddr;
t_mem mask;
yylval.bit.memory= uc->bit2mem(addr, &memaddr, &mask);
yylval.bit.mem_address = memaddr;
yylval.bit.bit_address = addr;
yylval.bit.mask = mask;
return PTOK_BIT;
}
}
return 0;
}
|
