epics/pcas
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

Use new xxStrdup() functions.

Browse Source 
Cleanup compiler warnings due to our using 8-bit lexers.
This commit is contained in:
Andrew Johnson
2006-03-29 19:46:05 +00:00
parent cd3806e189
commit daf8f033fa
3 changed files with 15 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
src/dbStatic/dbLex.l
View File

@@ -13,7 +13,7 @@ escapequote \\\"
string {notquote}|{escapequote}
%{
#undef YY_INPUT
#define YY_INPUT(b,r,ms) (r=(*db_yyinput)(b,ms))
#define YY_INPUT(b,r,ms) (r=(*db_yyinput)((char *)b,ms))
static int yyreset(void)
{
@@ -43,35 +43,29 @@ static int yyreset(void)
"variable" return(tokenVARIABLE);
[0-9]+ { /*integer number*/
yylval.Str = (char *)dbmfMalloc(strlen(yytext)+1);
strcpy(yylval.Str,yytext);
yylval.Str = dbmfStrdup(yytext);
return(tokenSTRING);
}
-?(([0-9]+)|([0-9]*\.[0-9]+)([eE][-+]?[0-9]+)?) { /*real number*/
yylval.Str = (char *)dbmfMalloc(strlen(yytext)+1);
strcpy(yylval.Str,yytext);
yylval.Str = dbmfStrdup(yytext);
return(tokenSTRING);
}
{name}+ { /*unquoted string*/
yylval.Str = (char *)dbmfMalloc(strlen(yytext)+1);
strcpy(yylval.Str,yytext);
yylval.Str = dbmfStrdup(yytext);
return(tokenSTRING);
}
\"{string}*\" { /*quoted string*/
int nchars=strlen(yytext);
yylval.Str = (char *)dbmfMalloc(nchars-1);
strncpy(yylval.Str, yytext+1, nchars-2);
yylval.Str[nchars-2] = '\0';
yylval.Str = dbmfStrdup(yytext+1);
yylval.Str[strlen(yylval.Str)-1] = '\0';
return(tokenSTRING);
}
%.* { /*C definition in recordtype*/
yylval.Str = (char *)dbmfMalloc(strlen(yytext));
strcpy(yylval.Str,yytext+1);
yylval.Str = dbmfStrdup(yytext+1);
return(tokenCDEFS);
}
@@ -91,7 +85,7 @@ static int yyreset(void)
sprintf(message,"invalid character '%c'",yytext[0]);
yyerror(message);
/*The following suppresses compiler warning messages*/
if(FALSE) yyunput('c',message);
if(FALSE) yyunput('c',(unsigned char *) message);
if(FALSE) yy_switch_to_buffer(*dummy);
}