set pointer before freeing
[heimdal.git] / lib / sl / slc-lex.l
blob8b7e50d2d19face9ea14376780bc7a49dd68311c
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  */
35 /* $Id$ */
37 #undef ECHO
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"
45 unsigned lineno = 1;
47 static void handle_comment(void);
48 static char * handle_string(void);
50 #define YY_NO_UNPUT
52 #undef ECHO
56 [A-Za-z][-A-Za-z0-9_]*  {
57                           yylval.string = strdup ((const char *)yytext);
58                           return LITERAL;
59                         }
60 "\""                    { yylval.string = handle_string(); return STRING; }
61 \n                      { ++lineno; }
62 \/\*                    { handle_comment(); }
63 [={}]                   { return *yytext; }
64 [ \t]                   ;
67 void
68 error_message (const char *format, ...)
70      va_list args;
72      va_start (args, format);
73      fprintf (stderr, "%s:%d: ", filename, lineno);
74      vfprintf (stderr, format, args);
75      va_end (args);
76      error_flag++;
79 void
80 yyerror (char *s)
82     error_message("%s\n", s);
85 static void
86 handle_comment(void)
88     int c;
89     int start_lineno = lineno;
90     int level = 1;
91     int seen_star = 0;
92     int seen_slash = 0;
93     while((c = input()) != EOF) {
94         if(c == '/') {
95             if(seen_star) {
96                 if(--level == 0)
97                     return;
98                 seen_star = 0;
99                 continue;
100             }
101             seen_slash = 1;
102             continue;
103         } else if(c == '*') {
104             if(seen_slash) {
105                 level++;
106                 seen_star = seen_slash = 0;
107                 continue;
108             }
109             seen_star = 1;
110             continue;
111         }
112         seen_star = seen_slash = 0;
113         if(c == '\n') {
114             lineno++;
115             continue;
116         }
117     }
118     if(c == EOF)
119         error_message("unterminated comment, possibly started on line %d\n", start_lineno);
122 static char *
123 handle_string(void)
125     char x[1024];
126     int i = 0;
127     int c;
128     int quote = 0;
129     while((c = input()) != EOF){
130         if(quote) {
131             x[i++] = '\\';
132             x[i++] = c;
133             quote = 0;
134             continue;
135         }
136         if(c == '\n'){
137             error_message("unterminated string");
138             lineno++;
139             break;
140         }
141         if(c == '\\'){
142             quote++;
143             continue;
144         }
145         if(c == '\"')
146             break;
147         x[i++] = c;
148     }
149     x[i] = '\0';
150     return strdup(x);
154 yywrap ()
156      return 1;