]> mj.ucw.cz Git - leo.git/blob - css-lex.c
XML import now skips elements marked as deleted
[leo.git] / css-lex.c
1 /*
2  *      Experimenta lMai Renderer -- MapCSS Lexer
3  *
4  *      (c) 2014 Martin Mares <mj@ucw.cz>
5  */
6
7 #include <ucw/lib.h>
8 #include <ucw/chartype.h>
9 #include <ucw/fastbuf.h>
10 #include <ucw/mempool.h>
11
12 #include <fcntl.h>
13
14 #include "leo.h"
15 #include "style.h"
16 #include "css.h"
17 #include "css-parse.h"
18
19 static struct fastbuf *fb;
20 static int lino;
21
22 void css_error(char *err, ...)
23 {
24   va_list args;
25   va_start(args, err);
26   char *msg = mp_vprintf(css_this->pool, err, args);
27   die("Error in %s, line %d: %s", css_this->filename, lino, msg);
28 }
29
30 void css_lex_open(void)
31 {
32   fb = bopen_file(css_this->filename, O_RDONLY, NULL);
33   lino = 1;
34 }
35
36 void css_lex_close(void)
37 {
38   bclose(fb);
39 }
40
41 int css_lex(void)
42 {
43   struct mempool *mp = css_this->pool;
44   char *p;
45   int c, next, len;
46
47   for (;;)
48     {
49       c = bgetc(fb);
50       if (c < 0)
51         return 0;
52       if (c == '\n')
53         {
54           lino++;
55           continue;
56         }
57       if (c == ' ' || c == '\t')
58         continue;
59
60       next = bpeekc(fb);
61
62       if (c >= '0' && c <= '9' || c == '-' && next >= '0' && next <= '9')
63         {
64           // Number
65           p = mp_start(mp, 1);
66           if (c == '-')
67             {
68               p = mp_append_char(mp, p, c);
69               c = bgetc(fb);
70             }
71           while (c >= '0' && c <= '9')
72             {
73               p = mp_append_char(mp, p, c);
74               c = bgetc(fb);
75             }
76           if (c == '.')
77             {
78               p = mp_append_char(mp, p, c);
79               c = bgetc(fb);
80               while (c >= '0' && c <= '9')
81                 {
82                   p = mp_append_char(mp, p, c);
83                   c = bgetc(fb);
84                 }
85             }
86           p = mp_end_string(mp, p);
87           if (c >= 0)
88             bungetc(fb);
89           css_lval.s = p;
90           return NUMBER;
91         }
92
93       if (c >= 'a' && c <= 'z' || c >= 'A' && c <= 'Z' || c == '_')
94         {
95           // Alphabetical identifier
96           // FIXME: Identifiers starting with "-" are not supported
97           // FIXME: Unquoted identifiers should be always case-insensitive
98           p = mp_start(mp, 1);
99           while (c >= 'a' && c <= 'z' || c >= 'A' && c <= 'Z' || c >= '0' && c <= '9' || c == '-' || c == '_')
100             {
101               p = mp_append_char(mp, p, c);
102               c = bgetc(fb);
103             }
104           p = mp_end_string(mp, p);
105           if (c >= 0)
106             bungetc(fb);
107           css_lval.s = p;
108           return IDENT;
109         }
110
111       switch (c)
112         {
113         case '"':
114           // Quoted string
115           p = mp_start(mp, 1);
116           c = bgetc(fb);
117           while (c != '"')
118             {
119               if (c < 0)
120                 css_error("Unterminated string literal");
121               if (c == '\\')
122                 {
123                   c = bgetc(fb);
124                   if (c == '\\' || c == '"')
125                     ;
126                   else if (c == 'n')
127                     c = '\n';
128                   else
129                     css_error("Unknown backslash sequence \"\\%c\" in string literal", c);
130                 }
131               p = mp_append_char(mp, p, c);
132               c = bgetc(fb);
133             }
134           css_lval.s = mp_end_string(mp, p);
135           return QUOTED;
136
137         case '/':
138           if (next == '*')
139             {
140               // C comment
141               bgetc(fb);
142               c = bgetc(fb);
143               for (;;)
144                 {
145                   if (c < 0)
146                     css_error("Unterminated comment");
147                   if (c == '\n')
148                     {
149                       lino++;
150                       c = bgetc(fb);
151                     }
152                   else if (c == '*')
153                     {
154                       c = bgetc(fb);
155                       if (c == '/')
156                         break;
157                     }
158                   else
159                     c = bgetc(fb);
160                 }
161               continue;
162              }
163           else if (next == '/')
164             {
165               // C++ comment
166               do
167                 c = bgetc(fb);
168               while (c >= 0 && c != '\n');
169               lino++;
170               continue;
171             }
172           return '/';
173
174         case '#':
175           p = mp_start(mp, 1);
176           while (next >= '0' && next <= '9' || next >= 'a' && next <= 'f' || next >= 'A' && next <= 'F')
177             {
178               p = mp_append_char(mp, p, bgetc(fb));
179               next = bpeekc(fb);
180             }
181           p = mp_end_string(mp, p);
182           len = strlen(p);
183           if (len != 3 && len != 6)
184             css_error("Invalid RGB literal");
185           css_lval.s = p;
186           return RGB;
187
188           // One-character operators
189         case '{':
190         case '}':
191         case '[':
192         case ']':
193         case ';':
194         case ',':
195         case '*':
196         case '.':
197         case '=':
198         case '?':
199           return c;
200
201           // Two-character operators
202         case '!':
203           if (next == '=')
204             {
205               bgetc(fb);
206               return NE;
207             }
208           return '!';
209         case '<':
210           if (next == '=')
211             {
212               bgetc(fb);
213               return LE;
214             }
215           return '<';
216         case '>':
217           if (next == '=')
218             {
219               bgetc(fb);
220               return GE;
221             }
222           return '>';
223         case ':':
224           if (next == ':')
225             {
226               bgetc(fb);
227               return CC;
228             }
229           return ':';
230
231         default:
232           css_error("Invalid character \"%c\"", c);
233         }
234     }
235 }
236
237 color_t css_rgb_to_color(const char *rgb)
238 {
239   uns n = strlen(rgb);
240   ASSERT(n == 3 || n == 6);
241   color_t color = 0;
242   for (uns i=0; i<n; i++)
243     {
244       uns j = Cxvalue(rgb[i]);
245       if (n == 6)
246         color = (color << 4) | j;
247       else
248         color = (color << 8) | (j * 17);
249     }
250   return color;
251 }