aboutsummaryrefslogtreecommitdiff
path: root/ld/ldlex.l
diff options
context:
space:
mode:
Diffstat (limited to 'ld/ldlex.l')
-rw-r--r--ld/ldlex.l56
1 files changed, 50 insertions, 6 deletions
diff --git a/ld/ldlex.l b/ld/ldlex.l
index 147db3e..c2eb5ea 100644
--- a/ld/ldlex.l
+++ b/ld/ldlex.l
@@ -51,12 +51,13 @@ YY_BUFFER_STATE include_stack[MAX_INCLUDE_DEPTH];
unsigned int include_stack_ptr = 0;
-/* FOUR STATES
+/* STATES
COMMAND on command line
COMMENT in a C comment
EXPRESSION definiatelyt in an expression
SCRIPT definately in a script
SOMEWHERE either EXPRESSION or SCRIPT
+ MRI in an MRI script
*/
#define RTOKEN(x) { yylval.token = x; return x; }
%}
@@ -73,6 +74,7 @@ WHITE [ \t\n]+
%x EXPRESSION
%x COMMENT
%x BOTH
+%x MRI
%%
<COMMAND>"-defsym" { return OPTION_defsym; }
@@ -153,7 +155,33 @@ WHITE [ \t\n]+
yylval.name = buystring(yytext+2);
return OPTION_Aarch;
}
-<BOTH,EXPRESSION>"0x"?([0-9A-Fa-f])+(M|K|m|k)? {
+
+<MRI,EXPRESSION>"$"([0-9A-Fa-f])+ {
+ yylval.integer = strtol(yytext+1, 0,16);
+ return INT;
+ }
+
+<MRI,EXPRESSION>([0-9A-Fa-f])+(H|X|B|O|D)
+ {
+ int base ;
+ switch (yytext[yyleng-1]) {
+ case 'X':
+ case 'H':
+ base = 16;
+ break;
+ case 'O':
+ base = 8;
+ break;
+ case 'B':
+ base = 2;
+ break;
+ default:
+ base = 10;
+ }
+ yylval.integer = strtol(yytext+1, 0, base);
+ return INT;
+ }
+<MRI,BOTH,EXPRESSION>"$"?"0x"?([0-9A-Fa-f])+(M|K|m|k)? {
yylval.integer = strtol(yytext,0,hex_mode);
if (yytext[yyleng-1]=='M'
|| yytext[yyleng-1] == 'm') {
@@ -184,7 +212,7 @@ WHITE [ \t\n]+
<BOTH,SCRIPT,EXPRESSION>"|=" { RTOKEN(OREQ);}
<BOTH,SCRIPT,EXPRESSION>"&&" { RTOKEN(ANDAND);}
<BOTH,SCRIPT,EXPRESSION>">" { RTOKEN('>');}
-<BOTH,SCRIPT,EXPRESSION>"," { RTOKEN(',');}
+<MRI,BOTH,SCRIPT,EXPRESSION>"," { RTOKEN(',');}
<BOTH,SCRIPT,EXPRESSION>"&" { RTOKEN('&');}
<BOTH,SCRIPT,EXPRESSION>"|" { RTOKEN('|');}
<BOTH,SCRIPT,EXPRESSION>"~" { RTOKEN('~');}
@@ -197,7 +225,7 @@ WHITE [ \t\n]+
<BOTH,SCRIPT,EXPRESSION>"%" { RTOKEN('%');}
<BOTH,SCRIPT,EXPRESSION>"<" { RTOKEN('<');}
<BOTH,SCRIPT,EXPRESSION>">" { RTOKEN('>');}
-<BOTH,SCRIPT,EXPRESSION>"=" { RTOKEN('=');}
+<MRI,BOTH,SCRIPT,EXPRESSION>"=" { RTOKEN('=');}
<BOTH,SCRIPT,EXPRESSION>"}" { RTOKEN('}') ; }
<BOTH,SCRIPT,EXPRESSION>"{" { RTOKEN('{'); }
<BOTH,SCRIPT,EXPRESSION>")" { RTOKEN(')');}
@@ -250,7 +278,15 @@ WHITE [ \t\n]+
<BOTH,SCRIPT>"l" { RTOKEN( LENGTH);}
<BOTH,SCRIPT>"len" { RTOKEN( LENGTH);}
-<BOTH,EXPRESSION>{FILENAMECHAR1}{FILENAMECHAR}* {
+<MRI>^"*".* { /* Mri comment line */ }
+<MRI>\n { ++ lineno; }
+<MRI>"CHIP" { RTOKEN(CHIP); }
+<MRI>"LOAD" { RTOKEN(LOAD); }
+<MRI>"LIST".*\n { RTOKEN(LIST); /* LIST and ignore to end of line */ }
+<MRI>"SECT" { RTOKEN(SECT); }
+<MRI>"ABSOLUTE" { RTOKEN(ABSOLUTE); }
+
+<MRI,BOTH,EXPRESSION>{FILENAMECHAR1}{FILENAMECHAR}* {
yylval.name = buystring(yytext);
return NAME;
}
@@ -266,7 +302,7 @@ WHITE [ \t\n]+
return NAME;
}
<BOTH,SCRIPT,EXPRESSION>"\n" { lineno++;}
-<COMMAND,BOTH,SCRIPT,EXPRESSION>[ \t]
+<MRI,COMMAND,BOTH,SCRIPT,EXPRESSION>[ \t]
"/*" { old = INITIAL; BEGIN(COMMENT); }
<COMMAND>"/*" { old = COMMAND; BEGIN(COMMENT); }
@@ -279,6 +315,7 @@ WHITE [ \t\n]+
<COMMENT>\\n { ++lineno;}
<COMMENT>"*"+"/" { BEGIN(old); }
+
<<EOF>> {
include_stack_ptr--;
@@ -390,6 +427,13 @@ BEGIN(SCRIPT);
void
+DEFUN_VOID(ldlex_mri_script)
+{
+ *(state_stack_p)++ = yy_start;
+ BEGIN(MRI);
+}
+
+void
DEFUN_VOID(ldlex_expression)
{
*(state_stack_p)++ = yy_start;