epics/epics-base
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

Replace dbVarSub with macLib.

Browse Source 
Allow C style escape sequences
Fix long vx memory free list problem
Fix most compiler warning messages
This commit is contained in:
Marty Kraimer
1997-04-30 18:54:10 +00:00
parent 0d7698e0d4
commit b87f049c2d
11 changed files with 210 additions and 485 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
src/dbtools/dbLoadRecords_lex.l
View File

@@ -1,6 +1,23 @@
pvname [a-zA-Z0-9_~\-:\.\[\]<>;]
value [a-zA-Z0-9_\,\^~\./\*#\[\]%: ;!|\'\-&\(\)@\?\+<>=\$\{\}]
BEL \\a
BS \\b
FF \\f
NL \\n
CR \\r
HT \\t
VT \\v
backSla \\\\
question \\\?
single \\\'
double \\\"
octal \\[0-7]+
hexa \\x[a-fA-F0-9]+
escape {BEL}|{BS}|{FF}|{NL}|{CR}|{HT}|{VT}|{backSla}|{question}|{single}|{double}|{octal}|{question}|{hexa}
spaces [ \t]
regular [a-zA-Z0-9_\,\^~\./\*#\[\]%:;!|\'\-&\(\)@\?\+<>=\$\{\}]
value {regular}|{spaces}|{escape}
%{
%}
@@ -16,9 +33,17 @@ value [a-zA-Z0-9_\,\^~\./\*#\[\]%: ;!|\'\-&\(\)@\?\+<>=\$\{\}]
"nowhere" { return(NOWHERE); }
"application" { return(APPL); }
\"{value}*\" { yylval.Str=(char *)dbmfMalloc(handle,strlen(yytext)+1); strcpy(yylval.Str,yytext+1); yylval.Str[strlen(yylval.Str)-1] = '\0'; return(VALUE); }
{pvname}+ { yylval.Str=(char *)dbmfMalloc(handle,strlen(yytext)+1); strcpy(yylval.Str,yytext); return(WORD); }
{pvname}+ { yylval.Str=(char *)dbmfMalloc(strlen(yytext)+1);
strcpy(yylval.Str,yytext);
return(WORD);
}
\"{value}+\" { yylval.Str=(char *)dbmfMalloc(strlen(yytext)+1);
yytext[strlen(yytext)-1] = '\0';
strcpy(yylval.Str,yytext+1);
return(VALUE);
}
"{" { return(O_BRACE); }
"}" { return(C_BRACE); }