1%{
2/*
3 * Copyright (c) 2004 Kungliga Tekniska H��gskolan
4 * (Royal Institute of Technology, Stockholm, Sweden).
5 * All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 *
11 * 1. Redistributions of source code must retain the above copyright
12 *    notice, this list of conditions and the following disclaimer.
13 *
14 * 2. Redistributions in binary form must reproduce the above copyright
15 *    notice, this list of conditions and the following disclaimer in the
16 *    documentation and/or other materials provided with the distribution.
17 *
18 * 3. Neither the name of the Institute nor the names of its contributors
19 *    may be used to endorse or promote products derived from this software
20 *    without specific prior written permission.
21 *
22 * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
23 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
24 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
25 * ARE DISCLAIMED.  IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
26 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
27 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
28 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
29 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
30 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
31 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
32 * SUCH DAMAGE.
33 */
34
35/* $Id$ */
36
37#undef ECHO
38
39#include <stdio.h>
40#include <string.h>
41#include <stdarg.h>
42#include <stdlib.h>
43#include "slc.h"
44#include "slc-gram.h"
45unsigned lineno = 1;
46
47static void handle_comment(void);
48static char * handle_string(void);
49
50#undef ECHO
51
52%}
53
54%option nounput
55
56%%
57[A-Za-z][-A-Za-z0-9_]*	{
58			  yylval.string = strdup ((const char *)yytext);
59			  return LITERAL;
60			}
61"\""			{ yylval.string = handle_string(); return STRING; }
62\n			{ ++lineno; }
63\/\*			{ handle_comment(); }
64[={}]			{ return *yytext; }
65[ \t]			;
66%%
67
68void
69error_message (const char *format, ...)
70{
71     va_list args;
72
73     va_start (args, format);
74     fprintf (stderr, "%s:%d: ", filename, lineno);
75     vfprintf (stderr, format, args);
76     va_end (args);
77     error_flag++;
78}
79
80void
81yyerror (char *s)
82{
83    error_message("%s\n", s);
84}
85
86static void
87handle_comment(void)
88{
89    int c;
90    int start_lineno = lineno;
91    int level = 1;
92    int seen_star = 0;
93    int seen_slash = 0;
94    while((c = input()) != EOF) {
95	if(c == '/') {
96	    if(seen_star) {
97		if(--level == 0)
98		    return;
99		seen_star = 0;
100		continue;
101	    }
102	    seen_slash = 1;
103	    continue;
104	} else if(c == '*') {
105	    if(seen_slash) {
106		level++;
107		seen_star = seen_slash = 0;
108		continue;
109	    }
110	    seen_star = 1;
111	    continue;
112	}
113	seen_star = seen_slash = 0;
114	if(c == '\n') {
115	    lineno++;
116	    continue;
117	}
118    }
119    if(c == EOF)
120	error_message("unterminated comment, possibly started on line %d\n", start_lineno);
121}
122
123static char *
124handle_string(void)
125{
126    char x[1024];
127    int i = 0;
128    int c;
129    int quote = 0;
130    while((c = input()) != EOF){
131	if(quote) {
132	    x[i++] = '\\';
133	    x[i++] = c;
134	    quote = 0;
135	    continue;
136	}
137	if(c == '\n'){
138	    error_message("unterminated string");
139	    lineno++;
140	    break;
141	}
142	if(c == '\\'){
143	    quote++;
144	    continue;
145	}
146	if(c == '\"')
147	    break;
148	x[i++] = c;
149    }
150    x[i] = '\0';
151    return strdup(x);
152}
153
154int
155yywrap ()
156{
157     return 1;
158}
159