lex.l revision 20c1c3551cb3b3117591ae38463d16aada597c48
%{
/*
* CDDL HEADER START
*
* The contents of this file are subject to the terms of the
* Common Development and Distribution License (the "License").
* You may not use this file except in compliance with the License.
*
* You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
* See the License for the specific language governing permissions
* and limitations under the License.
*
* When distributing Covered Code, include this CDDL HEADER in each
* file and include the License file at usr/src/OPENSOLARIS.LICENSE.
* If applicable, add the following below this CDDL HEADER, with the
* fields enclosed by brackets "[]" replaced with your own identifying
* information: Portions Copyright [yyyy] [name of copyright owner]
*
* CDDL HEADER END
*/
/*
*/
#include <stdlib.h>
#include <string.h>
#include "gram.h"
#include "rdb.h"
%}
ws [ \t]+
nl \n
decnumber [0-9]+
qstring \"[^\"\n]*[\"\n]
%%
\#[^\n]* ; /* ignore comments */
\\\n ; /* perform line continuation... */
{ws} ; /* ignore whitespace */
{hexnumber} {yylval.addr = hexstr_to_num(yytext); return (NUMBER);}
{decnumber} {yylval.addr = atoi(yytext); return (NUMBER);}
\+ {return (PLUS);}
^{ws}*break {return (BREAK);}
^{ws}*cont {return (CONT);}
^{ws}*echo {return (ECHO_OUT);}
^{ws}*event {return (EVENT);}
^{ws}*delete {return (DELETE);}
^{ws}*dis {return (DIS);}
^{ws}*getmaps {return (GETMAPS);}
^{ws}*help {return (HELP);}
^{ws}*linkmaps {return (LINKMAPS);}
^{ws}*maps {return (MAPS);}
^{ws}*objpad {return (OBJPAD);}
^{ws}*pltskip {return (PLTSKIP);}
^{ws}*print {return (PRINT);}
^{ws}*step {return (STEP);}
^{ws}*value {return (VALUE);}
^{ws}*where {return (WHERE);}
{symbol} {yylval.str = strdup(yytext); return (SYMBOL);}
{varstring} {
yylval.str = strdup(yytext + 1);
return (VARSTRING);
}
{qstring} {
yylval.str = strdup(yytext + 1);
if (yylval.str[yyleng - 2] == '"')
yylval.str[yyleng - 2] = '\0';
return (QSTRING);
}
{nl} {return (NEWLINE);}
%%