blob: 2d1b1b9bd180603018891e5496ab61294315733b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
%{
/*
* 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
* or http://www.opensolaris.org/os/licensing.
* 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
*/
/*
* Copyright (c) 1995, 2010, Oracle and/or its affiliates. All rights reserved.
*/
#include <stdlib.h>
#include <string.h>
#include <sys/types.h>
#include "gram.h"
#include "rdb.h"
%}
ws [ \t]+
nl \n
symbol [_a-zA-Z][_a-zA-Z0-9]*
varstring \$[_a-zA-Z][_a-zA-Z0-9]* /* $<name> */
hexnumber 0[xX][0-9a-zA-Z]+
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);}
%%
|
