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 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244
|
/* $Id$ $Revision$ */
/* vim:set shiftwidth=4 ts=8: */
/*************************************************************************
* Copyright (c) 2011 AT&T Intellectual Property
* All rights reserved. This program and the accompanying materials
* are made available under the terms of the Eclipse Public License v1.0
* which accompanies this distribution, and is available at
* http://www.eclipse.org/legal/epl-v10.html
*
* Contributors: See CVS logs. Details at http://www.graphviz.org/
*************************************************************************/
/* requires flex (i.e. not lex) */
%{
#include <grammar.h>
#include <cghdr.h>
#include <agxbuf.h>
#include <ctype.h>
#define GRAPH_EOF_TOKEN '@' /* lex class must be defined below */
/* this is a workaround for linux flex */
static int line_num = 1;
static int html_nest = 0; /* nesting level for html strings */
static char* InputFile;
static Agdisc_t *Disc;
static void *Ifile;
static int graphType;
/* Reset line number */
void agreadline(int n) { line_num = n; }
/* (Re)set file:
*/
void agsetfile(char* f) { InputFile = f; line_num = 1; }
/* There is a hole here, because switching channels
* requires pushing back whatever was previously read.
* There probably is a right way of doing this.
*/
void aglexinit(Agdisc_t *disc, void *ifile) { Disc = disc; Ifile = ifile; graphType = 0;}
#define isatty(x) 0
#ifndef YY_INPUT
#define YY_INPUT(buf,result,max_size) \
if ((result = Disc->io->afread(Ifile, buf, max_size)) < 0) \
YY_FATAL_ERROR( "input in flex scanner failed" )
#endif
/* buffer for arbitrary length strings (longer than BUFSIZ) */
static char *Sbuf,*Sptr,*Send;
static void beginstr(void) {
if (Sbuf == NIL(char*)) {
Sbuf = malloc(BUFSIZ);
Send = Sbuf + BUFSIZ;
}
Sptr = Sbuf;
*Sptr = 0;
}
static void addstr(char *src) {
char c;
if (Sptr > Sbuf) Sptr--;
do {
do {c = *Sptr++ = *src++;} while (c && (Sptr < Send));
if (c) {
long sz = Send - Sbuf;
long off = Sptr - Sbuf;
sz *= 2;
Sbuf = (char*)realloc(Sbuf,sz);
Send = Sbuf + sz;
Sptr = Sbuf + off;
}
} while (c);
}
static void endstr(void) {
yylval.str = (char*)agstrdup(Ag_G_global,Sbuf);
}
static void endstr_html(void) {
yylval.str = (char*)agstrdup_html(Ag_G_global,Sbuf);
}
static void
storeFileName (char* fname, int len)
{
static int cnt;
static char* buf;
if (len > cnt) {
if (cnt) buf = (char*)realloc (buf, len+1);
else buf = (char*)malloc (len+1);
cnt = len;
}
strcpy (buf, fname);
InputFile = buf;
}
/* ppDirective:
* Process a possible preprocessor line directive.
* yytext = #.*
*/
static void ppDirective (void)
{
int r, cnt, lineno;
char buf[2];
char* s = yytext + 1; /* skip initial # */
if (strncmp(s, "line", 4) == 0) s += 4;
r = sscanf(s, "%d %1[\"]%n", &lineno, buf, &cnt);
if (r > 0) { /* got line number */
line_num = lineno - 1;
if (r > 1) { /* saw quote */
char* p = s + cnt;
char* e = p;
while (*e && (*e != '"')) e++;
if (e != p) {
*e = '\0';
storeFileName (p, e-p);
}
}
}
}
/* chkNum:
* The regexp for NUMBER allows a terminating letter.
* This way we can catch a number immediately followed by a name
* and report this to the user.
*/
static int chkNum(void) {
unsigned char c = (unsigned char)yytext[yyleng-1]; /* last character */
if (!isdigit(c) && (c != '.')) { /* c is letter */
unsigned char xbuf[BUFSIZ];
char buf[BUFSIZ];
agxbuf xb;
char* fname;
if (InputFile)
fname = InputFile;
else
fname = "input";
agxbinit(&xb, BUFSIZ, xbuf);
agxbput(&xb,"syntax ambiguity - badly delimited number '");
agxbput(&xb,yytext);
sprintf(buf,"' in line %d of ", line_num);
agxbput(&xb,buf);
agxbput(&xb,fname);
agxbput(&xb, " splits into two tokens\n");
agerr(AGWARN,agxbuse(&xb));
agxbfree(&xb);
return 1;
}
else return 0;
}
/* The LETTER class below consists of ascii letters, underscore, all non-ascii
* characters. This allows identifiers to have characters from any
* character set independent of locale. The downside is that, for certain
* character sets, non-letter and, in fact, undefined characters will be
* accepted. This is not likely and, from dot's stand, shouldn't do any
* harm. (Presumably undefined characters will be ignored in display.) And,
* it allows a greater wealth of names. */
%}
GRAPH_EOF_TOKEN [@]
LETTER [A-Za-z_\200-\377]
DIGIT [0-9]
NAME {LETTER}({LETTER}|{DIGIT})*
NUMBER [-]?(({DIGIT}+(\.{DIGIT}*)?)|(\.{DIGIT}+)){LETTER}?
ID ({NAME}|{NUMBER})
%x comment
%x qstring
%x hstring
%%
{GRAPH_EOF_TOKEN} return(EOF);
<INITIAL,comment,qstring>\n line_num++;
"/*" BEGIN(comment);
<comment>[^*\n]* /* eat anything not a '*' */
<comment>"*"+[^*/\n]* /* eat up '*'s not followed by '/'s */
<comment>"*"+"/" BEGIN(INITIAL);
"//".* /* ignore C++-style comments */
^"#".* ppDirective ();
"#".* /* ignore shell-like comments */
[ \t\r] /* ignore whitespace */
"\xEF\xBB\xBF" /* ignore BOM */
"node" return(T_node); /* see tokens in agcanonstr */
"edge" return(T_edge);
"graph" if (!graphType) graphType = T_graph; return(T_graph);
"digraph" if (!graphType) graphType = T_digraph; return(T_digraph);
"strict" return(T_strict);
"subgraph" return(T_subgraph);
"->" if (graphType == T_digraph) return(T_edgeop); else return('-');
"--" if (graphType == T_graph) return(T_edgeop); else return('-');
{NAME} { yylval.str = (char*)agstrdup(Ag_G_global,yytext); return(T_atom); }
{NUMBER} { if (chkNum()) yyless(yyleng-1); yylval.str = (char*)agstrdup(Ag_G_global,yytext); return(T_atom); }
["] BEGIN(qstring); beginstr();
<qstring>["] BEGIN(INITIAL); endstr(); return (T_qatom);
<qstring>[\\]["] addstr ("\"");
<qstring>[\\][\\] addstr ("\\\\");
<qstring>[\\][\n] line_num++; /* ignore escaped newlines */
<qstring>([^"\\]*|[\\]) addstr(yytext);
[<] BEGIN(hstring); html_nest = 1; beginstr();
<hstring>[>] html_nest--; if (html_nest) addstr(yytext); else {BEGIN(INITIAL); endstr_html(); return (T_qatom);}
<hstring>[<] html_nest++; addstr(yytext);
<hstring>[\n] addstr(yytext); line_num++; /* add newlines */
<hstring>([^><\n]*) addstr(yytext);
. return (yytext[0]);
%%
void yyerror(char *str)
{
unsigned char xbuf[BUFSIZ];
char buf[BUFSIZ];
agxbuf xb;
agxbinit(&xb, BUFSIZ, xbuf);
if (InputFile) {
agxbput (&xb, InputFile);
agxbput (&xb, ": ");
}
agxbput (&xb, str);
sprintf(buf," in line %d near '", line_num);
agxbput (&xb, buf);
agxbput (&xb, yytext);
agxbput (&xb,"'\n");
agerr(AGERR, "%s", agxbuse(&xb));
agxbfree(&xb);
}
/* must be here to see flex's macro defns */
void aglexeof() { unput(GRAPH_EOF_TOKEN); }
void aglexbad() { YY_FLUSH_BUFFER; }
#ifndef YY_CALL_ONLY_ARG
# define YY_CALL_ONLY_ARG void
#endif
int yywrap(YY_CALL_ONLY_ARG)
{
return 1;
}
|