luke
/
iverilog
mirror of https://github.com/steveicarus/iverilog.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Handle white space in numbers.

This commit is contained in:
steve 1999-06-14 03:15:14 +00:00
parent 740c63291a
commit bcbd2abb8d
1 changed files with 106 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

127
lexor.lex
View File

@ -19,7 +19,7 @@
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
*/ */
#if !defined(WINNT) #if !defined(WINNT)
#ident "$Id: lexor.lex,v 1.21 1999/06/13 17:30:23 steve Exp $" #ident "$Id: lexor.lex,v 1.22 1999/06/14 03:15:14 steve Exp $"
#endif #endif
//# define YYSTYPE lexval //# define YYSTYPE lexval
@ -139,20 +139,27 @@ static verinum*make_unsized_hex(const char*txt);
yylval.text = new string(yytext+1); yylval.text = new string(yytext+1);
return PORTNAME; } return PORTNAME; }
[0-9][0-9_]*\'d[0-9][0-9_]* { yylval.number = make_sized_dec(yytext); [0-9][0-9_]*[ \t]*\'d[ \t]*[0-9][0-9_]* {
return NUMBER; } yylval.number = make_sized_dec(yytext);
[0-9][0-9_]*\'[bB][0-1xz_]+ { yylval.number = make_sized_binary(yytext); return NUMBER; }
return NUMBER; } [0-9][0-9_]*[ \t]*\'[bB][ \t]*[0-1xz_]+ {
[0-9][0-9_]*\'[oO][0-7xz_]+ { yylval.number = make_sized_octal(yytext); yylval.number = make_sized_binary(yytext);
return NUMBER; } return NUMBER; }
[0-9][0-9_]*\'[hH][0-9a-fA-Fxz_]+ { yylval.number = make_sized_hex(yytext); [0-9][0-9_]*[ \t]*\'[oO][ \t]*[0-7xz_]+ {
return NUMBER; } yylval.number = make_sized_octal(yytext);
return NUMBER; }
[0-9][0-9_]*[ \t]*\'[hH][ \t]*[0-9a-fA-Fxz_]+ {
yylval.number = make_sized_hex(yytext);
return NUMBER; }
\'d[0-9][0-9_]* { yylval.number = make_unsized_dec(yytext); return NUMBER; } \'d[ \t]*[0-9][0-9_]* { yylval.number = make_unsized_dec(yytext);
\'[bB][0-1xz_]+ { yylval.number = make_unsized_binary(yytext); return NUMBER; } return NUMBER; }
\'[oO][0-7xz_]+ { yylval.number = make_unsized_octal(yytext); return NUMBER; } \'[bB][ \t]*[0-1xz_]+ { yylval.number = make_unsized_binary(yytext);
\'[hH][0-9a-fA-Fxz_]+ { yylval.number = make_unsized_hex(yytext);
return NUMBER; } return NUMBER; }
\'[oO][ \t]*[0-7xz_]+ { yylval.number = make_unsized_octal(yytext);
return NUMBER; }
\'[hH][ \t]*[0-9a-fA-Fxz_]+ { yylval.number = make_unsized_hex(yytext);
return NUMBER; }
[0-9][0-9_]* { [0-9][0-9_]* {
/* Handle the special case of the unsized decimal number. */ /* Handle the special case of the unsized decimal number. */
@ -337,6 +344,9 @@ static verinum*make_binary_with_size(unsigned size, bool fixed, const char*ptr)
assert(tolower(*ptr) == 'b'); assert(tolower(*ptr) == 'b');
verinum::V*bits = new verinum::V[size]; verinum::V*bits = new verinum::V[size];
while (*ptr && ((*ptr == ' ') || (*ptr == '\t')))
ptr += 1;
unsigned idx = 0; unsigned idx = 0;
const char*eptr = ptr + strlen(ptr) - 1; const char*eptr = ptr + strlen(ptr) - 1;
while ((eptr > ptr) && (idx < size)) { while ((eptr > ptr) && (idx < size)) {
@ -391,6 +401,8 @@ static verinum*make_sized_binary(const char*txt)
{ {
char*ptr; char*ptr;
unsigned size = strtoul(txt,&ptr,10); unsigned size = strtoul(txt,&ptr,10);
while (*ptr && ((*ptr == ' ') || (*ptr == '\t')))
ptr += 1;
assert(*ptr == '\''); assert(*ptr == '\'');
ptr += 1; ptr += 1;
assert(tolower(*ptr) == 'b'); assert(tolower(*ptr) == 'b');
@ -400,21 +412,60 @@ static verinum*make_sized_binary(const char*txt)
static verinum*make_unsized_binary(const char*txt) static verinum*make_unsized_binary(const char*txt)
{ {
assert(*txt == '\''); const char*ptr = txt;
txt += 1; assert(*ptr == '\'');
return make_binary_with_size(INTEGER_WIDTH, false, txt); ptr += 1;
assert(tolower(*ptr) == 'b');
while (*ptr && ((*ptr == ' ') || (*ptr == '\t')))
ptr += 1;
unsigned size = 0;
for (const char*idx = ptr ; *idx ; idx += 1)
if (*idx != '_') size += 1;
verinum::V*bits = new verinum::V[size];
unsigned idx = size;
while (*ptr) {
switch (ptr[0]) {
case '0':
bits[--idx] = verinum::V0;
break;
case '1':
bits[--idx] = verinum::V1;
break;
case 'z': case 'Z':
bits[--idx] = verinum::Vz;
break;
case 'x': case 'X':
bits[--idx] = verinum::Vx;
break;
case '_':
break;
default:
assert(0);
}
ptr += 1;
}
return new verinum(bits, size);
} }
static verinum*make_sized_octal(const char*txt) static verinum*make_sized_octal(const char*txt)
{ {
char*ptr; char*ptr;
unsigned size = strtoul(txt,&ptr,10); unsigned size = strtoul(txt,&ptr,10);
while (*ptr && ((*ptr == ' ') || (*ptr == '\t')))
ptr += 1;
assert(*ptr == '\''); assert(*ptr == '\'');
ptr += 1; ptr += 1;
assert(tolower(*ptr) == 'o'); assert(tolower(*ptr) == 'o');
verinum::V*bits = new verinum::V[size]; verinum::V*bits = new verinum::V[size];
while (*ptr && ((*ptr == ' ') || (*ptr == '\t')))
ptr += 1;
unsigned idx = 0; unsigned idx = 0;
char*eptr = ptr + strlen(ptr); char*eptr = ptr + strlen(ptr);
@ -464,7 +515,13 @@ static verinum*make_unsized_octal(const char*txt)
assert(tolower(*ptr) == 'o'); assert(tolower(*ptr) == 'o');
ptr += 1; ptr += 1;
unsigned size = 3 * strlen(ptr); while (*ptr && ((*ptr == ' ') || (*ptr == '\t')))
ptr += 1;
unsigned size = 0;
for (const char*idx = ptr ; *idx ; idx += 1)
if (*idx != '_') size += 3;
verinum::V*bits = new verinum::V[size]; verinum::V*bits = new verinum::V[size];
unsigned idx = size; unsigned idx = size;
@ -488,6 +545,8 @@ static verinum*make_unsized_octal(const char*txt)
bits[--idx] = verinum::Vz; bits[--idx] = verinum::Vz;
bits[--idx] = verinum::Vz; bits[--idx] = verinum::Vz;
break; break;
case '_':
break;
default: default:
assert(0); assert(0);
} }
@ -501,16 +560,24 @@ static verinum*make_sized_hex(const char*txt)
{ {
char*ptr; char*ptr;
unsigned size = strtoul(txt,&ptr,10); unsigned size = strtoul(txt,&ptr,10);
while (*ptr && ((*ptr == ' ') || (*ptr == '\t')))
ptr += 1;
assert(*ptr == '\''); assert(*ptr == '\'');
ptr += 1; ptr += 1;
assert(tolower(*ptr) == 'h'); assert(tolower(*ptr) == 'h');
ptr += 1;
while (*ptr && ((*ptr == ' ') || (*ptr == '\t')))
ptr += 1;
verinum::V*bits = new verinum::V[size]; verinum::V*bits = new verinum::V[size];
unsigned idx = 0; unsigned idx = 0;
char*eptr = ptr + strlen(ptr) - 1; char*eptr = ptr + strlen(ptr) - 1;
while ((eptr > ptr) && (idx <= (size-4))) { while ((eptr >= ptr) && (idx <= (size-4))) {
switch (*eptr) { switch (*eptr) {
case 'x': case 'x':
bits[idx++] = verinum::Vx; bits[idx++] = verinum::Vx;
@ -544,6 +611,8 @@ static verinum*make_sized_hex(const char*txt)
bits[idx++] = (val&8)? verinum::V1 : verinum::V0; bits[idx++] = (val&8)? verinum::V1 : verinum::V0;
break; break;
} }
case '_':
break;
default: default:
assert(0); assert(0);
} }
@ -572,9 +641,15 @@ static verinum*make_unsized_hex(const char*txt)
assert(*ptr == '\''); assert(*ptr == '\'');
ptr += 1; ptr += 1;
assert(tolower(*ptr) == 'h'); assert(tolower(*ptr) == 'h');
ptr += 1;
unsigned size = 4 * strlen(ptr); ptr += 1;
while (*ptr && ((*ptr == ' ') || (*ptr == '\t')))
ptr += 1;
unsigned size = 0;
for (const char*idx = ptr ; *idx ; idx += 1)
if (*idx != '_') size += 4;
verinum::V*bits = new verinum::V[size]; verinum::V*bits = new verinum::V[size];
unsigned idx = size; unsigned idx = size;
@ -609,6 +684,8 @@ static verinum*make_unsized_hex(const char*txt)
bits[--idx] = verinum::Vz; bits[--idx] = verinum::Vz;
bits[--idx] = verinum::Vz; bits[--idx] = verinum::Vz;
break; break;
case '_':
break;
default: default:
assert(0); assert(0);
} }
@ -626,8 +703,12 @@ static verinum*make_dec_with_size(unsigned size, bool fixed, const char*ptr)
{ {
assert(tolower(*ptr) == 'd'); assert(tolower(*ptr) == 'd');
ptr += 1;
while (*ptr && ((*ptr == ' ') || (*ptr == '\t')))
ptr += 1;
unsigned long value = 0; unsigned long value = 0;
for (ptr += 1 ; *ptr ; ptr += 1) for ( ; *ptr ; ptr += 1)
if (isdigit(*ptr)) { if (isdigit(*ptr)) {
value *= 10; value *= 10;
value += *ptr - '0'; value += *ptr - '0';
@ -650,6 +731,10 @@ static verinum*make_sized_dec(const char*txt)
{ {
char*ptr; char*ptr;
unsigned size = strtoul(txt,&ptr,10); unsigned size = strtoul(txt,&ptr,10);
while (*ptr && ((*ptr == ' ') || (*ptr == '\t')))
ptr += 1;
assert(*ptr == '\''); assert(*ptr == '\'');
ptr += 1; ptr += 1;
assert(tolower(*ptr) == 'd'); assert(tolower(*ptr) == 'd');